diff options
| author | csaba <csaba> | 2023-07-29 19:41:55 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2023-07-29 19:41:55 (GMT) |
| commit | deab80223560081e9379265f6227730aa9577679 (patch) | |
| tree | 1ba555dbe729df198d19a97bde44f721dd8add80 /library | |
| parent | 091c324592d2915e7f70e1f36797d22836fea4dc (diff) | |
| download | tk-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.tcl | 2 | ||||
| -rw-r--r-- | library/demos/cscroll.tcl | 4 | ||||
| -rw-r--r-- | library/demos/goldberg.tcl | 2 | ||||
| -rw-r--r-- | 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 |