home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / doc / examples / menuLeft.tcl < prev    next >
Encoding:
Text File  |  1995-06-29  |  530 b   |  26 lines
  1. xmForm .top
  2.  
  3. xmForm .top.left managed
  4. foreach n {Render Library Editor - Quit} {
  5.     if {$n == "-"} {
  6.         set new [xmLabel .top.left.dummy managed -labelString "<Niet>"]
  7.     } {
  8.         set new [xmCascadeButton .top.left.$n managed]
  9.     }
  10.  
  11.     $new setValues -leftAttachment attach_form
  12.  
  13.     if { [info exists old ] } {
  14.         $new setValues -topAttachment attach_widget -topWidget $old
  15.     } {
  16.         $new setValues -topAttachment attach_form
  17.     }
  18.     set old $new
  19. }
  20.  
  21. .top.left setValues \
  22.     -topAttachment attach_form \
  23.     -leftAttachment attach_form
  24.  
  25. .top manageChild
  26.