Makes a specified window the current window.
CURRENT WINDOW IS { identifier | SCREEN }
Programs with multiple windows might need to switch to a different open window so that input and output occur in the appropriate window. To make a window the current window, use the CURRENT WINDOW statement.
When a program starts, the screen is the current window. Its name is SCREEN. To make this the current window, specify the keyword SCREEN instead of a window identifier.
If the window contains a form, that form becomes the current form when a CURRENT WINDOW statement specifies the name of that window. All interactive instruction such as CONSTRUCT, INPUT use only the current window for input and output. If the user displays another form (for example, through an ON KEY clause) in one of these statements, the window containing the new form becomes the current window. When an interactive instruction resumes, its original window becomes the current window.
The CURRENT WINDOW instruction is typically used in TUI based applications, when distinct areas of the screen are reserved for different usage. In a GUI application, windows are rather opened and closed sequentially or on a stack of windows.
MAIN OPEN WINDOW w1 WITH FORM "customer" ... OPEN WINDOW w2 WITH FORM "custlist" ... CURRENT WINDOW IS w1 ... CURRENT WINDOW IS w2 ... CLOSE WINDOW w1 CLOSE WINDOW w2 END MAIN