summaryrefslogtreecommitdiffstats
path: root/library/ttk/entry.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-10 14:57:13 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-10 14:57:13 (GMT)
commit538cdae2d292a523e1b72613162b236db2a16d08 (patch)
treefe09d282023ed498d42ae5a265d2031085f8fd6f /library/ttk/entry.tcl
parentd965535fda1022e02c618349271e8ec7a26dccde (diff)
parentc8f0062c64f9fc019a92e9bbc8918aa3e4ba1571 (diff)
downloadtk-538cdae2d292a523e1b72613162b236db2a16d08.zip
tk-538cdae2d292a523e1b72613162b236db2a16d08.tar.gz
tk-538cdae2d292a523e1b72613162b236db2a16d08.tar.bz2
[Bug 3534137]: $tcl_platform(platform) != [tk windowingsystem]
Diffstat (limited to 'library/ttk/entry.tcl')
-rw-r--r--library/ttk/entry.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index e60df90..2c9fbc8 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -229,7 +229,7 @@ proc ttk::entry::See {w {index insert}} {
# position following the next end-of-word position.
#
set ::ttk::entry::State(startNext) \
- [string equal $::tcl_platform(platform) "windows"]
+ [string equal [tk windowingsystem] "win32"]
proc ttk::entry::NextWord {w start} {
variable State