diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-03 23:43:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-03 23:43:03 (GMT) |
| commit | 9f976792239fa11da36f575e206bd8e6f1cc0045 (patch) | |
| tree | 14f337fc3a278e367090bd37e63a2f3315edc288 /library/demos/widget | |
| parent | 711293f0de32d7ac484234fbafab614b20898d7e (diff) | |
| parent | 47ca3a5ac9ec9e2f21a3efeb9bb4bda85526a3e7 (diff) | |
| download | tk-9f976792239fa11da36f575e206bd8e6f1cc0045.zip tk-9f976792239fa11da36f575e206bd8e6f1cc0045.tar.gz tk-9f976792239fa11da36f575e206bd8e6f1cc0045.tar.bz2 | |
Fix [6fe75131c546226b]: doc: tk_messageBox (mac).
Use ttk::scrollbar in stead of scrollbar in various demo's. (ported from androwish branch)
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/library/demos/widget b/library/demos/widget index 8b92f9a..7604341 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -145,7 +145,7 @@ catch { } ttk::frame .textFrame -scrollbar .s -orient vertical -command {.t yview} -takefocus 1 +ttk::scrollbar .s -orient vertical -command {.t yview} -takefocus 1 pack .s -in .textFrame -side right -fill y text .t -yscrollcommand {.s set} -wrap word -width 70 -height $textheight \ -font mainFont -setgrid 1 -highlightthickness 0 \ @@ -565,8 +565,10 @@ proc showCode w { -xscrollcommand [list $t.xscroll set] \ -yscrollcommand [list $t.yscroll set] \ -setgrid 1 -highlightthickness 0 -pady 2 -padx 3] - scrollbar $t.xscroll -command [list $t.text xview] -orient horizontal - scrollbar $t.yscroll -command [list $t.text yview] -orient vertical + ttk::scrollbar $t.xscroll -command [list $t.text xview] \ + -orient horizontal + ttk::scrollbar $t.yscroll -command [list $t.text yview] \ + -orient vertical grid $t.text $t.yscroll -sticky news #grid $t.xscroll |