diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2008-05-11 00:44:07 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-05-11 00:44:07 (GMT) |
| commit | 4ae9901aa2f631ac42deb3d94991a0ab9ec51664 (patch) | |
| tree | 9df3a858f38229d35be516e38f08e8f7473ccb8d /library/tk.tcl | |
| parent | dd5b49b71b4faf956168e3bb8de662a3f418c239 (diff) | |
| download | tk-4ae9901aa2f631ac42deb3d94991a0ab9ec51664.zip tk-4ae9901aa2f631ac42deb3d94991a0ab9ec51664.tar.gz tk-4ae9901aa2f631ac42deb3d94991a0ab9ec51664.tar.bz2 | |
Support for ttk widgets in AmpWidget
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index f675263..23b5b93 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -3,7 +3,7 @@ # Initialization script normally executed in the interpreter for each # Tk-based application. Arranges class bindings for widgets. # -# RCS: @(#) $Id: tk.tcl,v 1.73.2.1 2008/04/11 19:00:48 dgp Exp $ +# RCS: @(#) $Id: tk.tcl,v 1.73.2.2 2008/05/11 00:44:07 patthoyts Exp $ # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -355,7 +355,7 @@ if {![llength [info command tk_chooseDirectory]]} { # Define the set of common virtual events. #---------------------------------------------------------------------- -switch -- [tk windowingsystem] { +switch -exact -- [tk windowingsystem] { "x11" { event add <<Cut>> <Control-Key-x> <Key-F20> event add <<Copy>> <Control-Key-c> <Key-F16> @@ -510,7 +510,7 @@ proc ::tk::AmpWidget {class path args} { } } set result [$class $path {*}$options] - if {$class eq "button"} { + if {[string match "*button" $class]} { bind $path <<AltUnderlined>> [list $path invoke] } return $result @@ -539,8 +539,8 @@ proc ::tk::AmpMenuArgs {widget add type args} { # proc ::tk::FindAltKeyTarget {path char} { switch -- [winfo class $path] { - Button - - Label { + Button - Label - + TButton - TLabel - TCheckbutton { if {[string equal -nocase $char \ [string index [$path cget -text] [$path cget -underline]]]} { return $path |