home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / examples / progEG < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.1 KB  |  42 lines
  1.  
  2. # sample program at the end of the user manual
  3.  
  4. xtAppInitialize
  5.  
  6. xmMainWindow .main managed
  7. xmForm .main.form managed
  8. xmList .main.form.list managed
  9. xmPushButton .main.form.btn1 managed
  10. xmPushButton .main.form.btn2 managed
  11.  
  12. .main setValues -workWindow .main.form
  13.  
  14. .main.form.list setValues \
  15.         -itemCount 3 \
  16.         -items "one, two, three" \
  17.         -selectionPolicy single_select
  18. .main.form.btn1 setValues -labelString Quit
  19. .main.form.btn2 setValues -labelString "Do nothing"
  20.  
  21. .main.form.btn1 activateCallback {exit 0}
  22. .main.form.list singleSelectionCallback {puts stdout "Selected %item"}
  23.  
  24. .main.form.list setValues \
  25.         -topAttachment attach_form \
  26.         -leftAttachment attach_form \
  27.         -bottomAttachment attach_form
  28. .main.form.btn1 setValues \
  29.         -topAttachment attach_form \
  30.         -leftAttachment attach_widget \
  31.         -leftWidget .main.form.list
  32. .main.form.btn2 setValues \
  33.         -topAttachment attach_widget \
  34.         -topWidget .main.form.btn1 \
  35.         -leftAttachment attach_widget \
  36.         -leftWidget .main.form.list \
  37.  
  38.  
  39. . realizeWidget
  40. . mainLoop
  41.  
  42.