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 / progDH4.2b < prev    next >
Encoding:
Text File  |  1993-11-15  |  562 b   |  22 lines
  1. # Dans program 4.2
  2. # test a scrolled list
  3. xtAppInitialize -class Program
  4.  
  5. xmMainWindow .main managed
  6.  
  7. # creating a scrolled list makes two new widgets - the scrolled window
  8. # and the list. The sw is used for geometry, the list - as a list
  9. xmScrolledList .main.list managed
  10.  
  11. # note the list is used here
  12. .main.list setValues -itemCount 8 \
  13.     -items "red, green, blue, orange, maroon, grey, black, white"
  14. .main.list setValues -visibleItemCount 5
  15.  
  16. # note the sw is used here, not the list
  17. .main setValues -workWindow [.main.list parent]
  18.  
  19. . realizeWidget
  20.  
  21. . mainLoop
  22.