home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / acp / root.9 / usr / X / lib / wksh / olexamples / creation / creation
Encoding:
Text File  |  1998-08-19  |  772 b   |  25 lines
  1. #!/usr/bin/wksh -openlook
  2.  
  3. OlInitialize TOPLEVEL create Create -openlook "$@" 
  4.  
  5. XtCreatePopupShell POP pop popupWindowShell $TOPLEVEL
  6. XtCreateManagedWidget TEXT text staticText $POP_UCA string:"Popup!"
  7.  
  8. XtAppCreateShell TOP top topLevelShell $TOPLEVEL
  9. XtCreateManagedWidget TEXT2 text2 staticText $TOP string:"Toplevel!"
  10. XtRealizeWidget $TOP
  11.  
  12. XtCreateManagedWidget CA ca controlArea $TOPLEVEL layoutType:fixedcols
  13.  
  14. XtCreateManagedWidget B1 b1 oblongButton $CA label:'Popup $POP'
  15. XtAddCallback $B1 select "XtPopup $POP"
  16.  
  17. XtCreateManagedWidget B2 b2 oblongButton $CA label:'Manage $B3'
  18. XtAddCallback $B2 select 'XtManageChildren $B3'
  19.  
  20. XtCreateWidget B3 b3 oblongButton $CA label:'Popdown $POP'
  21. XtAddCallback $B3 select "XtPopdown $POP"
  22.  
  23. XtRealizeWidget $TOPLEVEL
  24. XtMainLoop
  25.