blob: 09337cafcfb936f6e3f655497f3c731b1d9f34fd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- pref.tcl.orig 1997-06-13 00:50:36.000000000 +0200
+++ pref.tcl 2003-04-28 18:46:04.000000000 +0200
@@ -118,7 +118,12 @@ proc pref_init {} {
# XXX People do not seem to like the motif-style popup behavior
global tk_strictMotif
if {!$tk_strictMotif} {
- bind Menubutton <Any-ButtonRelease-1> {tkMenuUnpost {}}
+ set tv [info tclversion]
+ if {[package vcompare $tv 8.4] >= 0} {
+ bind Menubutton <Any-ButtonRelease-1> {::tk::MenuUnpost {}}
+ } else {
+ bind Menubutton <Any-ButtonRelease-1> {tkMenuUnpost {}}
+ }
}
# Handle command line preferences
|
