diff options
| author | das <das> | 2007-10-17 18:21:49 (GMT) |
|---|---|---|
| committer | das <das> | 2007-10-17 18:21:49 (GMT) |
| commit | 6a127a690e28a07ba6cd36bdda959bba81570cba (patch) | |
| tree | 91501ba3d2148351db54101f0b32339b2a8d8059 /library/demos/ttkbut.tcl | |
| parent | 06aac43788b42da26dec6e6a57265b232a506c26 (diff) | |
| download | tk-6a127a690e28a07ba6cd36bdda959bba81570cba.zip tk-6a127a690e28a07ba6cd36bdda959bba81570cba.tar.gz tk-6a127a690e28a07ba6cd36bdda959bba81570cba.tar.bz2 | |
* library/demos/widget: Aqua GOOBE, cleanup icons.
* library/demos/ttkbut.tcl:
* library/demos/button.tcl: restore setting of button
highlightbackground on Aqua.
Diffstat (limited to 'library/demos/ttkbut.tcl')
| -rw-r--r-- | library/demos/ttkbut.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/ttkbut.tcl b/library/demos/ttkbut.tcl index 76b23ba..9af0963 100644 --- a/library/demos/ttkbut.tcl +++ b/library/demos/ttkbut.tcl @@ -4,7 +4,7 @@ # simple Ttk widgets, such as labels, labelframes, buttons, checkbuttons and # radiobuttons. # -# RCS: @(#) $Id: ttkbut.tcl,v 1.1 2007/10/17 14:59:27 dkf Exp $ +# RCS: @(#) $Id: ttkbut.tcl,v 1.2 2007/10/17 18:21:49 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -21,7 +21,7 @@ wm iconname $w "ttkbut" positionWindow $w ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Ttk is the new Tk themed widget set. This is a Ttk themed label, and below are three groups of Ttk widgets in Ttk labelframes. The first group are all buttons that set the current application theme when pressed. The second group contains checkbuttons, with a separator widget between the first pair and the second. The third group has a collection of linked radiobuttons." -pack $w.msg -side top +pack $w.msg -side top -fill x ## See Code / Dismiss pack [addSeeDismiss $w.seeDismiss $w {cheese tomato basil oregano happyness}]\ |