mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-04 02:08:49 -04:00
19 lines
687 B
Plaintext
19 lines
687 B
Plaintext
$NetBSD: patch-tb,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_formtag.tcl 1999-03-27 01:02:56.000000000 +0700
|
|
+++ lib/html_formtag.tcl 2010-08-27 03:50:58.000000000 +0700
|
|
@@ -690,7 +690,7 @@
|
|
upvar #0 HM[Window_GetMaster $win] var $formVar form
|
|
foreach w [array names form widgets,*] {
|
|
regsub ^widgets, $w {} w
|
|
- lassign {htag param} $form(widgets,$w)
|
|
+ exmh_lassign {htag param} $form(widgets,$w)
|
|
if {"$htag" == "input"} {
|
|
set type text
|
|
HMextract_param $param type
|