mirror of
https://git.freebsd.org/ports.git
synced 2025-06-08 06:10:30 -04:00
1d32e97a18
- Submitter becomes maintainer - While here add missing dependencies http://beefy11.nyi.freebsd.org/data/head-i386-default/p473790_s335878/logs/ical-2.2_4.log PR: 226799 Reported by: bob@immure.com Submitted by: fbsd@opal.com
16 lines
538 B
Tcl
16 lines
538 B
Tcl
--- pref.tcl.orig 1997-06-12 22:50:36 UTC
|
|
+++ pref.tcl
|
|
@@ -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
|