From deab80223560081e9379265f6227730aa9577679 Mon Sep 17 00:00:00 2001
From: csaba <csaba>
Date: Sat, 29 Jul 2023 19:41:55 +0000
Subject: Minor improvements in the Widget Demo.

---
 library/demos/colors.tcl   | 2 +-
 library/demos/cscroll.tcl  | 4 ++--
 library/demos/goldberg.tcl | 2 +-
 library/demos/ttkbut.tcl   | 2 +-
 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
-- 
cgit v0.12