summaryrefslogtreecommitdiffstats
path: root/library/demos/combo.tcl
diff options
context:
space:
mode:
authordas <das@noemail.net>2007-10-23 06:31:16 (GMT)
committerdas <das@noemail.net>2007-10-23 06:31:16 (GMT)
commitbb1f6020d7143ec0f64a86bc5bb752b8fd2a2ead (patch)
treee179952f5f6c023f02109a4860d23bba74bc6bcb /library/demos/combo.tcl
parentd3f4371b8738b85a7f21dc8a42c37518247404cf (diff)
downloadtk-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.tcl10
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"