diff options
Diffstat (limited to 'deskutils/ical/files/patch-pref.tcl')
| -rw-r--r-- | deskutils/ical/files/patch-pref.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/deskutils/ical/files/patch-pref.tcl b/deskutils/ical/files/patch-pref.tcl new file mode 100644 index 000000000000..09337cafcfb9 --- /dev/null +++ b/deskutils/ical/files/patch-pref.tcl @@ -0,0 +1,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 |