summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-05-11 00:44:07 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-05-11 00:44:07 (GMT)
commit4ae9901aa2f631ac42deb3d94991a0ab9ec51664 (patch)
tree9df3a858f38229d35be516e38f08e8f7473ccb8d /library
parentdd5b49b71b4faf956168e3bb8de662a3f418c239 (diff)
downloadtk-4ae9901aa2f631ac42deb3d94991a0ab9ec51664.zip
tk-4ae9901aa2f631ac42deb3d94991a0ab9ec51664.tar.gz
tk-4ae9901aa2f631ac42deb3d94991a0ab9ec51664.tar.bz2
Support for ttk widgets in AmpWidget
Diffstat (limited to 'library')
-rw-r--r--library/tk.tcl10
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