summaryrefslogtreecommitdiffstats
path: root/library/button.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/button.tcl')
-rw-r--r--library/button.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/button.tcl b/library/button.tcl
index b817b76..d095b8a 100644
--- a/library/button.tcl
+++ b/library/button.tcl
@@ -39,7 +39,7 @@ if {[tk windowingsystem] eq "aqua"} {
tk::ButtonLeave %W
}
}
-if {"windows" eq $tcl_platform(platform)} {
+if {"win32" eq [tk windowingsystem]} {
bind Checkbutton <equal> {
tk::CheckRadioInvoke %W select
}
@@ -131,7 +131,7 @@ bind Radiobutton <Leave> {
tk::ButtonLeave %W
}
-if {"windows" eq $tcl_platform(platform)} {
+if {"win32" eq [tk windowingsystem]} {
#########################
# Windows implementation