• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Returns true if specified window is still valid.

Parameters:
winid	Window Number

global
updating procedure RestAccDClassOnOpenFromBrowse(Integer wn)
begin
  Integer i;
  record LocalMachineBlock LocalMachineRec;
 
  BlockLoad(LocalMachineRec);
  if (LocalMachineRec.OneBarTabWindow!=0) then begin
    for (i=1;i<=100;i=i+1) begin
      if ((i!=wn) and (i!=CurWindow)) then begin
        if (WindowValid(i)) then begin
          if (GetWindowClass(i)=="RestAccDClass") then begin
            //some actions
          end else begin
            CloseWindow(i);
          end;
        end;
      end;
    end;
  end;
  return;
end;

Related topics: