home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / BWidget-1.2 / demo / select.tcl < prev    next >
Text File  |  2000-11-02  |  3KB  |  62 lines
  1. namespace eval DemoSelect {
  2.     variable var
  3. }
  4.  
  5.  
  6. proc DemoSelect::create { nb } {
  7.     set frame [$nb insert end demoSelect -text "Spin & Combo"]
  8.  
  9.     set titf1 [TitleFrame $frame.titf1 -text SpinBox]
  10.     set subf  [$titf1 getframe]
  11.     set spin  [SpinBox $subf.spin -label "spinbox" -underline 0 \
  12.                    -labelwidth 10 -labelanchor w \
  13.                    -range {1 100 1} -textvariable DemoSelect::var(spin,var) \
  14.                    -helptext "This is the SpinBox"]
  15.     set ent   [LabelEntry $subf.ent -label "Linked var" -labelwidth 10 -labelanchor w \
  16.                    -textvariable DemoSelect::var(spin,var) -editable 0 \
  17.                    -helptext "This is an Entry reflecting\nthe linked var of SpinBox"]
  18.     set labf  [LabelFrame $subf.options -text "Options" -side top -anchor w \
  19.                    -relief sunken -borderwidth 1 \
  20.                    -helptext "Modify some options of SpinBox"]
  21.     set subf  [$labf getframe]
  22.     set chk1  [checkbutton $subf.chk1 -text "Non editable" \
  23.                    -variable DemoSelect::var(spin,editable) -onvalue false -offvalue true \
  24.                    -command "$spin configure -editable \$DemoSelect::var(spin,editable)"]
  25.     set chk2  [checkbutton $subf.chk2 -text "Disabled" \
  26.                    -variable DemoSelect::var(spin,state) -onvalue disabled -offvalue normal \
  27.                    -command "$spin configure -state \$DemoSelect::var(spin,state)"]
  28.  
  29.     pack $chk1 $chk2 -side left -anchor w
  30.     pack $spin $ent $labf -pady 4 -fill x
  31.     pack $titf1
  32.  
  33.     set titf2 [TitleFrame $frame.titf2 -text ComboBox]
  34.     set subf  [$titf2 getframe]
  35.     set combo [ComboBox $subf.combo -label "combobox" -underline 0 \
  36.                    -labelwidth 10 -labelanchor w \
  37.                    -textvariable DemoSelect::var(combo,var) \
  38.                    -values {"first value" "second value" "third value" "fourth value" "fifth value"} \
  39.                    -helptext "This is the ComboBox"]
  40.     set ent   [LabelEntry $subf.ent -label "Linked var" -labelwidth 10 -labelanchor w \
  41.                    -textvariable DemoSelect::var(combo,var) -editable 0 \
  42.                    -helptext "This is an Entry reflecting\nthe linked var of ComboBox"]
  43.     set labf  [LabelFrame $subf.options -text "Options" -side top -anchor w \
  44.                    -relief sunken -borderwidth 1 \
  45.                    -helptext "Modify some options of SpinBox"]
  46.     set subf  [$labf getframe]
  47.     set chk1  [checkbutton $subf.chk1 -text "Non editable" \
  48.                    -variable DemoSelect::var(combo,editable) -onvalue false -offvalue true \
  49.                    -command  "$combo configure -editable \$DemoSelect::var(combo,editable)"]
  50.     set chk2  [checkbutton $subf.chk2 -text "Disabled" \
  51.                    -variable DemoSelect::var(combo,state) -onvalue disabled -offvalue normal \
  52.                    -command  "$combo configure -state \$DemoSelect::var(combo,state)"]
  53.  
  54.     pack $chk1 $chk2 -side left -anchor w
  55.     pack $combo $ent $labf -pady 4 -fill x
  56.  
  57.     pack $titf1 $titf2 -pady 4
  58.  
  59.     return $frame
  60. }
  61.  
  62.