summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authortmh <tmh>2008-09-09 17:47:18 (GMT)
committertmh <tmh>2008-09-09 17:47:18 (GMT)
commit45f031eb92557a7b997fbe116357b58b19c1f2cb (patch)
tree79dece4c0dd85c93d197e78affccd29cda1c99c7 /library
parentcf4441d4d5df5b592b78fdc4aa4da89ca38a3ace (diff)
downloadtk-45f031eb92557a7b997fbe116357b58b19c1f2cb.zip
tk-45f031eb92557a7b997fbe116357b58b19c1f2cb.tar.gz
tk-45f031eb92557a7b997fbe116357b58b19c1f2cb.tar.bz2
add global commands for tk_strictMotif variable
Diffstat (limited to 'library')
-rw-r--r--library/menu.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/menu.tcl b/library/menu.tcl
index dd3101b..b5524dc 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -4,7 +4,7 @@
# It also implements keyboard traversal of menus and implements a few
# other utility procedures related to menus.
#
-# RCS: @(#) $Id: menu.tcl,v 1.26.2.2 2008/08/27 18:51:07 tmh Exp $
+# RCS: @(#) $Id: menu.tcl,v 1.26.2.3 2008/09/09 17:47:21 tmh Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -243,7 +243,7 @@ proc ::tk::MbLeave w {
proc ::tk::MbPost {w {x {}} {y {}}} {
global errorInfo
variable ::tk::Priv
- global tcl_platform
+ global tcl_platform tk_strictMotif
if {[$w cget -state] eq "disabled" || $w eq $Priv(postedMb)} {
return
@@ -392,7 +392,7 @@ proc ::tk::MbPost {w {x {}} {y {}}} {
# is a posted menubutton.
proc ::tk::MenuUnpost menu {
- global tcl_platform
+ global tcl_platform tk_strictMotif
variable ::tk::Priv
set mb $Priv(postedMb)
@@ -579,7 +579,7 @@ proc ::tk::MenuMotion {menu x y state} {
proc ::tk::MenuButtonDown menu {
variable ::tk::Priv
- global tcl_platform
+ global tcl_platform tk_strictMotif
if {![winfo viewable $menu]} {
return