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/paned2.tcl | |
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/paned2.tcl')
-rw-r--r-- | library/demos/paned2.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/paned2.tcl b/library/demos/paned2.tcl index f481d14..c549249 100644 --- a/library/demos/paned2.tcl +++ b/library/demos/paned2.tcl @@ -54,7 +54,7 @@ listbox $f.list -listvariable paneList -yscrollcommand "$f.scr set" # Invert the first item to highlight it $f.list itemconfigure 0 \ -background [$f.list cget -fg] -foreground [$f.list cget -bg] -scrollbar $f.scr -orient vertical -command "$f.list yview" +ttk::scrollbar $f.scr -orient vertical -command "$f.list yview" pack $f.scr -side right -fill y pack $f.list -fill both -expand 1 @@ -62,8 +62,8 @@ pack $f.list -fill both -expand 1 set f [frame $w.pane.bottom] text $f.text -xscrollcommand "$f.xscr set" -yscrollcommand "$f.yscr set" \ -width 30 -height 8 -wrap none -scrollbar $f.xscr -orient horizontal -command "$f.text xview" -scrollbar $f.yscr -orient vertical -command "$f.text yview" +ttk::scrollbar $f.xscr -orient horizontal -command "$f.text xview" +ttk::scrollbar $f.yscr -orient vertical -command "$f.text yview" grid $f.text $f.yscr -sticky nsew grid $f.xscr -sticky nsew grid columnconfigure $f 0 -weight 1 |