Display a GUI window. The window need not have any contents, but should respond to requests to be closed.

 
 
  DEFINE VAR C-Win AS WIDGET-HANDLE NO-UNDO.
 
  CREATE WINDOW C-Win ASSIGN
         HIDDEN             = YES
         TITLE              = "OpenEdge Window Display"
         HEIGHT             = 10.67
         WIDTH              = 95.4
         MAX-HEIGHT         = 16
         MAX-WIDTH          = 95.4
         VIRTUAL-HEIGHT     = 16
         VIRTUAL-WIDTH      = 95.4
         RESIZE             = yes
         SCROLL-BARS        = no
         STATUS-AREA        = no
         BGCOLOR            = ?
         FGCOLOR            = ?
         KEEP-FRAME-Z-ORDER = yes
         THREE-D            = yes
         MESSAGE-AREA       = no
         SENSITIVE          = yes.
 
    VIEW C-Win.
 
    ON WINDOW-CLOSE OF C-Win /* <insert window title> */
    DO:
      /* This event will close the window and terminate the procedure.  */
      APPLY "CLOSE":U TO THIS-PROCEDURE.
      RETURN NO-APPLY.
    END.
 
    WAIT-FOR CLOSE OF THIS-PROCEDURE.
 
 