home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume17 / tcl-editor / part02 / tclLib / anaBoxes.tcl next >
Encoding:
Text File  |  1992-03-18  |  2.3 KB  |  100 lines
  1. proc MakeMapBox {} {
  2.     global raised sunken
  3.     set name .MapBox
  4.  
  5.     catch ".destroy $name"
  6.     toplevel $name
  7.     wm title $name "Create Map"
  8.     wm iconname $name "Create Map"
  9.     wm minsize $name 0 0
  10.     
  11.     set attrList ""
  12.  
  13.     label $name.label1 -text "Create Map"
  14.  
  15.     label $name.label2 -text "Name of map:"
  16.     entry $name.mapname -relief $sunken
  17.     bind.entry $name.mapname
  18.  
  19.     frame $name.alist
  20.     scrollbar $name.alist.scrollbar -relief sunken \
  21.         -command "$name.alist.items view"
  22.     listbox $name.alist.items -scroll "$name.alist.scrollbar set"  \
  23.         -relief sunken
  24.     bind $name.alist.items <1> "
  25.         set index \[%W nearest %y\]
  26.         lappend \$attrList \$index
  27.         $name.label3 configure -text \$attrList
  28.     "
  29.     pack append $name.alist \
  30.         $name.alist.scrollbar {left fill} \
  31.         $name.alist.items {right fill expand}
  32.  
  33.     label $name.label3 -text "Attributes Chosen"
  34.  
  35.     frame $name.buttons
  36.     button $name.buttons.create -text "Create Attribute" -command "
  37.         Option set returnString \$attrList
  38.         destroy $name
  39.     "
  40.     button $name.buttons.cancel -text "Cancel" -command "
  41.         Option set returnString XXXcancelXXX
  42.         destroy $name
  43.     "
  44.     pack append $name.buttons \
  45.         $name.buttons.create {left fill} \
  46.         $name.buttons.cancel {right fill}
  47.  
  48.     pack append $name \
  49.         $name.label1 {top fill} \
  50.         $name.label2 {top fill} \
  51.         $name.mapname {top fill} \
  52.         $name.alist {top fill} \
  53.         $name.label3 {top fill} \
  54.         $name.buttons {top fill}
  55.     return $name
  56. }
  57.  
  58. proc MakePickBox {label} {
  59.     global wcounter raised sunken
  60.  
  61.     set wcounter [expr $wcounter+1]
  62.     set name [format ".pb%05d" $wcounter]
  63.  
  64.     toplevel $name -relief $raised
  65.     wm title $name $label
  66.     wm iconname $name $label
  67.     wm minsize $name 0 0
  68.     label $name.label1 -text $label
  69.  
  70.     entry $name.keyword -relief $sunken
  71.     bind.entry $name.keyword
  72.  
  73.     frame $name.slist
  74.     scrollbar $name.slist.scrollbar -relief sunken \
  75.         -command "$name.slist.items view"
  76.     listbox $name.slist.items -scroll "$name.slist.scrollbar set"  \
  77.         -relief sunken
  78.     bind $name.slist.items <1> "
  79.         set index \[%W nearest %y\]
  80.         Option set returnString \$index
  81.         destroy $name
  82.     "
  83.     pack append $name.slist \
  84.         $name.slist.scrollbar {left fill} \
  85.         $name.slist.items {right fill expand}
  86.  
  87.     button $name.close -text "Cancel" -command "
  88.         Option set returnString XXXcancelXXX
  89.         destroy $name
  90.     "
  91.  
  92.     pack append $name \
  93.         $name.label1 {top fill} \
  94.         $name.keyword {top fill} \
  95.         $name.slist {top fill} \
  96.         $name.close {top fill}
  97.     return $name
  98. }
  99.  
  100.