diff options
| author | David E. O'Brien <obrien@FreeBSD.org> | 2004-10-29 03:46:01 +0000 |
|---|---|---|
| committer | David E. O'Brien <obrien@FreeBSD.org> | 2004-10-29 03:46:01 +0000 |
| commit | 50832123ad104a36492c75a9461513494e80f6ad (patch) | |
| tree | 5fa76c5be3f6bff4ae0cdce41b322e9babc08543 /deskutils/ical/files/patch-pref.tcl | |
| parent | 1b9ee0e7dd5696bfef43321c8d82b22516b4f484 (diff) | |
| download | ports-50832123ad104a36492c75a9461513494e80f6ad.tar.gz ports-50832123ad104a36492c75a9461513494e80f6ad.zip | |
Notes
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 |