home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / acp / root.9 / usr / X / lib / wksh / olexamples / progguide2 / progguide2
Encoding:
Text File  |  1998-08-19  |  677 b   |  33 lines
  1. #!/usr/bin/wksh -openlook
  2.  
  3. VALUE=1
  4.  
  5. toggleCB() {    # $1 = widget handle of label
  6.     case "$VALUE" in
  7.     1)
  8.         XtSetValues $1 label:"Two"
  9.         let VALUE=VALUE+1
  10.         ;;
  11.     2)
  12.         XtSetValues $1 label:"One"
  13.         let VALUE=VALUE-1
  14.         ;;
  15.     esac
  16. }
  17.   
  18. quitCB() { # No arguments
  19.     exit 0
  20. }
  21.  
  22. OlInitialize TOPLEVEL quit2 Quit2 "$@" -openlook
  23. XtCreateManagedWidget CONTROL control controlArea $TOPLEVEL \
  24.     layoutType:fixedcols measure:1
  25.  
  26. XtCreateManagedWidget QBUTTON qbutton oblongButton $CONTROL label:Quit
  27. XtAddCallback $QBUTTON select quitCB
  28.  
  29. XtCreateManagedWidget TOGBUTTON tbutton oblongButton $CONTROL label:One
  30. XtAddCallback $TOGBUTTON select "toggleCB $TOGBUTTON"
  31. XtRealizeWidget $TOPLEVEL
  32. XtMainLoop
  33.