GRID
    CButton put
    CButton put -xspan 100 -xmin! S" Min width: 100" -text!
    ROW
    CEventButton put -yspan 100 -ymin! S" Min height: 100" -text!
     LAMBDA{ S" button pressed!" ROT => showMessage } -command!
    CGLControlTest put
    ctl S" DROP LITERAL => :switch" axt ( xt )
    CEventButton put ( xt ) -command!  S" CLICK!" -text!
    ROW
    GRID
     120 TO def-wmin
     \ FALSE TO def-xspan
     CButton put
     ROW
     CButton put
     ROW
     CButton put
    ;GRID put-box
    CEdit put -yspan
    CWebBrowser put
    ctl -> w
    ROW
    CEventButton put S" debug" -text! ctl -> b
  ;GRID