diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-06-10 14:57:13 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-06-10 14:57:13 (GMT) |
| commit | aec62564899347d464381afa8885f157e1e16300 (patch) | |
| tree | fe09d282023ed498d42ae5a265d2031085f8fd6f /library/demos | |
| parent | cd03a3972c973f590c8e8900c48dd9921c26f843 (diff) | |
| parent | 5179bcd06ae08a0146804808156305fb2e0aa32a (diff) | |
| download | tk-aec62564899347d464381afa8885f157e1e16300.zip tk-aec62564899347d464381afa8885f157e1e16300.tar.gz tk-aec62564899347d464381afa8885f157e1e16300.tar.bz2 | |
[Bug 3534137]: $tcl_platform(platform) != [tk windowingsystem]
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/menu.tcl | 2 | ||||
| -rw-r--r-- | library/demos/text.tcl | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index ebd44f7..e19df57 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -56,7 +56,7 @@ menu $m -tearoff 0 $m add command -label "Long entry that does nothing" if {[tk windowingsystem] eq "aqua"} { set modifier Command -} elseif {$tcl_platform(platform) == "windows"} { +} elseif {[tk windowingsystem] == "win32"} { set modifier Control } else { set modifier Meta diff --git a/library/demos/text.tcl b/library/demos/text.tcl index 21ee096..1b5f3b9 100644 --- a/library/demos/text.tcl +++ b/library/demos/text.tcl @@ -67,11 +67,11 @@ cursor. Control-t transposes the two characters on either side of the insertion cursor. Control-z undoes the last editing action performed, and } -switch $tcl_platform(platform) { - "unix" { +switch [tk windowingsystem] { + "aqua" - "x11" { $w.text insert end "Control-Shift-z" } - "windows" { + "win32" { $w.text insert end "Control-y" } } |