diff options
Diffstat (limited to 'library/demos/combo.tcl')
| -rw-r--r-- | library/demos/combo.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/library/demos/combo.tcl b/library/demos/combo.tcl index ed9c585..2ebce5b 100644 --- a/library/demos/combo.tcl +++ b/library/demos/combo.tcl @@ -2,7 +2,7 @@ # # This demonstration script creates several combobox widgets. # -# RCS: @(#) $Id: combo.tcl,v 1.1 2007/10/22 14:21:10 dkf Exp $ +# RCS: @(#) $Id: combo.tcl,v 1.2 2007/10/23 06:31:16 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -18,7 +18,7 @@ wm title $w "Combobox Demonstration" wm iconname $w "combo" positionWindow $w -label $w.msg -font $font -wraplength 5i -justify left -text "Three different\ +ttk::label $w.msg -font $font -wraplength 5i -justify left -text "Three different\ combo-boxes are displayed below. You can add characters to the first\ one by pointing, clicking and typing, just as with an entry; pressing\ Return will cause the current value to be added to the list that is\ @@ -28,12 +28,16 @@ label $w.msg -font $font -wraplength 5i -justify left -text "Three different\ particular value, and cannot be modified at all. The third one only\ allows you to select values from its drop-down list of Australian\ cities." -pack $w.msg -side top +pack $w.msg -side top -fill x ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w {firstValue secondValue ozCity}] pack $btns -side bottom -fill x +ttk::frame $w.f +pack $w.f -fill both -expand 1 +set w $w.f + set australianCities { Canberra Sydney Melbourne Perth Adelaide Brisbane Hobart Darwin "Alice Springs" |