diff options
author | das <das@noemail.net> | 2007-10-23 06:31:16 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2007-10-23 06:31:16 (GMT) |
commit | bb1f6020d7143ec0f64a86bc5bb752b8fd2a2ead (patch) | |
tree | e179952f5f6c023f02109a4860d23bba74bc6bcb /library/demos/combo.tcl | |
parent | d3f4371b8738b85a7f21dc8a42c37518247404cf (diff) | |
download | tk-bb1f6020d7143ec0f64a86bc5bb752b8fd2a2ead.zip tk-bb1f6020d7143ec0f64a86bc5bb752b8fd2a2ead.tar.gz tk-bb1f6020d7143ec0f64a86bc5bb752b8fd2a2ead.tar.bz2 |
* library/demos/combo.tcl: Aqua GOOBE.
* library/demos/toolbar.tcl:
* library/demos/tree.tcl:
* library/demos/ttknote.tcl:
* library/demos/ttkprogress.tcl:
* library/demos/widget:
FossilOrigin-Name: 9e806a989a0df800dc314a436ab6d88bd70c7924
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" |