From 7139ad6c1163b288db84fd62e1aa68d6516073ef Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 2 Nov 2007 14:28:24 +0000 Subject: GOOBE for unix; use themed scrollbar --- library/demos/ttknote.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/library/demos/ttknote.tcl b/library/demos/ttknote.tcl index 6630efb..397de24 100644 --- a/library/demos/ttknote.tcl +++ b/library/demos/ttknote.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a toplevel window containing a Ttk # notebook widget. # -# RCS: @(#) $Id: ttknote.tcl,v 1.2 2007/10/23 06:31:16 das Exp $ +# RCS: @(#) $Id: ttknote.tcl,v 1.3 2007/11/02 14:28:24 dkf Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -55,6 +55,6 @@ ttk::frame $w.note.editor $w.note add $w.note.editor -text "Text Editor" -underline 0 text $w.note.editor.t -width 40 -height 10 -wrap char \ -yscroll "$w.note.editor.s set" -scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview" +ttk::scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview" pack $w.note.editor.s -side right -fill y -padx {0 2} -pady 2 pack $w.note.editor.t -fill both -expand 1 -pady 2 -padx {2 0} -- cgit v0.12