home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / programs / prog22 < prev    next >
Encoding:
Text File  |  1994-04-29  |  286 b   |  11 lines
  1. # list element selection test
  2. xtAppInitialize -class Program
  3.  
  4. xmList .list managed -items "red green blue" -itemCount 3
  5. .list setValues -selectionPolicy single_select
  6. .list singleSelectionCallback {puts stdout "selected: %item at position: %item_position"}
  7.  
  8. . realizeWidget
  9.  
  10. . mainLoop
  11.