$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