[Bug 3534137]: $tcl_platform(platform) != [tk windowingsystem]

1 files changed, 3 insertions, 3 deletions

diff --git a/library/demos/text.tcl b/library/demos/text.tcl
index e1b3a0c..785e9e6 100644
--- a/library/demos/text.tcl
+++ b/library/demos/text.tcl
@@ -92,11 +92,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"
     }
 }