summaryrefslogtreecommitdiffstats
path: root/library/demos/ttknote.tcl
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2008-12-11 18:13:08 (GMT)
committerjenglish <jenglish@flightlab.com>2008-12-11 18:13:08 (GMT)
commitb23f1c5ccb5f2a971132b9348cfa8fbfd5829087 (patch)
tree7d4298babc6ca0316cbf781038ced8ceb74d5eea /library/demos/ttknote.tcl
parentd8ecde2c07db2bec3692edaf1c3b5dcfcaf467f9 (diff)
downloadtk-b23f1c5ccb5f2a971132b9348cfa8fbfd5829087.zip
tk-b23f1c5ccb5f2a971132b9348cfa8fbfd5829087.tar.gz
tk-b23f1c5ccb5f2a971132b9348cfa8fbfd5829087.tar.bz2
library/demos/*.tcl: Omit contraindicated [package require Ttk].
Remove logic that switches [ttk::scrollbar]s to [tk::scrollbar]s based on [tk windowingsystem]; this is already handled in library/ttk/scrollbar.tcl.
Diffstat (limited to 'library/demos/ttknote.tcl')
-rw-r--r--library/demos/ttknote.tcl9
1 files changed, 2 insertions, 7 deletions
diff --git a/library/demos/ttknote.tcl b/library/demos/ttknote.tcl
index f7c70a3..5a4e728 100644
--- a/library/demos/ttknote.tcl
+++ b/library/demos/ttknote.tcl
@@ -3,14 +3,13 @@
# This demonstration script creates a toplevel window containing a Ttk
# notebook widget.
#
-# RCS: @(#) $Id: ttknote.tcl,v 1.5 2007/12/13 15:27:07 dgp Exp $
+# RCS: @(#) $Id: ttknote.tcl,v 1.6 2008/12/11 18:13:08 jenglish Exp $
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
}
package require Tk
-package require Ttk
set w .ttknote
catch {destroy $w}
@@ -55,10 +54,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"
-if {[tk windowingsystem] ne "aqua"} {
- ttk::scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview"
-} else {
- 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}