summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorcsaba <csaba>2023-07-29 19:41:55 (GMT)
committercsaba <csaba>2023-07-29 19:41:55 (GMT)
commitdeab80223560081e9379265f6227730aa9577679 (patch)
tree1ba555dbe729df198d19a97bde44f721dd8add80 /library
parent091c324592d2915e7f70e1f36797d22836fea4dc (diff)
downloadtk-deab80223560081e9379265f6227730aa9577679.zip
tk-deab80223560081e9379265f6227730aa9577679.tar.gz
tk-deab80223560081e9379265f6227730aa9577679.tar.bz2
Minor improvements in the Widget Demo.
Diffstat (limited to 'library')
-rw-r--r--library/demos/colors.tcl2
-rw-r--r--library/demos/cscroll.tcl4
-rw-r--r--library/demos/goldberg.tcl2
-rw-r--r--library/demos/ttkbut.tcl2
4 files changed, 5 insertions, 5 deletions
diff --git a/library/demos/colors.tcl b/library/demos/colors.tcl
index 63d4402..f1f931d 100644
--- a/library/demos/colors.tcl
+++ b/library/demos/colors.tcl
@@ -27,7 +27,7 @@ pack $btns -side bottom -fill x
frame $w.frame -borderwidth 7.5p
pack $w.frame -side top -expand yes -fill y
-scrollbar $w.frame.scroll -command "$w.frame.list yview"
+ttk::scrollbar $w.frame.scroll -command "$w.frame.list yview"
listbox $w.frame.list -yscroll "$w.frame.scroll set" \
-width 20 -height 16 -setgrid 1
pack $w.frame.list $w.frame.scroll -side left -fill y -expand 1
diff --git a/library/demos/cscroll.tcl b/library/demos/cscroll.tcl
index 98a4be2..eea0e2e 100644
--- a/library/demos/cscroll.tcl
+++ b/library/demos/cscroll.tcl
@@ -25,8 +25,8 @@ set btns [addSeeDismiss $w.buttons $w]
pack $btns -side bottom -fill x
frame $w.grid
-scrollbar $w.hscroll -orient horizontal -command "$c xview"
-scrollbar $w.vscroll -command "$c yview"
+ttk::scrollbar $w.hscroll -orient horizontal -command "$c xview"
+ttk::scrollbar $w.vscroll -command "$c yview"
canvas $c -relief sunken -borderwidth 2 -scrollregion {-11c -11c 50c 20c} \
-xscrollcommand "$w.hscroll set" \
-yscrollcommand "$w.vscroll set"
diff --git a/library/demos/goldberg.tcl b/library/demos/goldberg.tcl
index 7326da6..60cb585 100644
--- a/library/demos/goldberg.tcl
+++ b/library/demos/goldberg.tcl
@@ -109,7 +109,7 @@ proc DoDisplay {w} {
pack [frame $w.screen -bd 1 -relief raised] \
-side left -fill both -expand 1
- canvas $w.c -width 645p -height 480p -bg $C(bg) -highlightthickness 0
+ canvas $w.c -width 651p -height 480p -bg $C(bg) -highlightthickness 0
$w.c config -scrollregion {0 0 750p 750p} ;# Kludge: move everything up
$w.c yview moveto .09
pack $w.c -in $w.screen -side top -fill both -expand 1
diff --git a/library/demos/ttkbut.tcl b/library/demos/ttkbut.tcl
index b740ca3..86e4382 100644
--- a/library/demos/ttkbut.tcl
+++ b/library/demos/ttkbut.tcl
@@ -26,7 +26,7 @@ pack [addSeeDismiss $w.seeDismiss $w {enabled cheese tomato basil oregano happin
## Add buttons for setting the theme
ttk::labelframe $w.buttons -text "Buttons"
-foreach theme [ttk::themes] {
+foreach theme [lsort [ttk::themes]] {
ttk::button $w.buttons.$theme -text $theme \
-command [list ttk::setTheme $theme]
pack $w.buttons.$theme -pady 1.5p