diff options
| author | das <das> | 2007-11-04 10:38:09 (GMT) |
|---|---|---|
| committer | das <das> | 2007-11-04 10:38:09 (GMT) |
| commit | 9ad15b7decd323c998eec03344e91819c4e8512a (patch) | |
| tree | 9e4a794f8796ede303e31b6a30bb661622493c63 /library/demos/ttknote.tcl | |
| parent | 9107a42cf16f413e8244ec0241f69a2d1b21bdae (diff) | |
| download | tk-9ad15b7decd323c998eec03344e91819c4e8512a.zip tk-9ad15b7decd323c998eec03344e91819c4e8512a.tar.gz tk-9ad15b7decd323c998eec03344e91819c4e8512a.tar.bz2 | |
* library/demos/mclist.tcl: Aqua GOOBE.
* library/demos/tree.tcl:
* library/demos/ttknote.tcl:
* library/demos/widget:
Diffstat (limited to 'library/demos/ttknote.tcl')
| -rw-r--r-- | library/demos/ttknote.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/library/demos/ttknote.tcl b/library/demos/ttknote.tcl index 397de24..c737d3a 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.3 2007/11/02 14:28:24 dkf Exp $ +# RCS: @(#) $Id: ttknote.tcl,v 1.4 2007/11/04 10:38:09 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -55,6 +55,10 @@ 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" -ttk::scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview" +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" +} 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} |