48e5beb0ae
Patch from upstream cvs repository to allow exmh to function correctly with tcl 8.5 (or any earlier version). This patch will not be needed after the next exmh upgrade. No PKGREVISION bump since no uservisible changes.
25 lines
845 B
Text
25 lines
845 B
Text
$NetBSD: patch-td,v 1.1 2010/09/01 09:23:18 wiz Exp $
|
|
|
|
patch from upstream cvs repository to allow exmh to function
|
|
correctly with tcl 8.5 (or any earlier version). This patch
|
|
will not be needed after the next exmh upgrade.
|
|
|
|
|
|
--- exmh-2.7.2/lib/html_links.tcl 2001-05-15 00:51:38.000000000 +0700
|
|
+++ lib/html_links.tcl 2010-08-27 03:50:58.000000000 +0700
|
|
@@ -79,13 +81,13 @@
|
|
}
|
|
proc Url_Hit {win x y} {
|
|
dputs Url_Hit $x $y
|
|
- lassign {href name} [UrlGetLink $win $x $y]
|
|
+ exmh_lassign {href name} [UrlGetLink $win $x $y]
|
|
Html_HistoryAdd $win $href
|
|
Frame_Display $win $name $href
|
|
}
|
|
# This is like Url_Hit for regular hits, but it opens a new window.
|
|
proc Url_HitNew {win x y} {
|
|
- lassign {href target} [UrlGetLink $win $x $y]
|
|
+ exmh_lassign {href target} [UrlGetLink $win $x $y]
|
|
Url_DisplayNew $href $win
|
|
}
|
|
|