I removed the uuid dependency from from.tcl in branches/2.0. The patch
is attached to the message.
I hope Harald is OK with my proposal of getting his new, extensively
modified, form package into trunk as form2.tcl. The newly created class
will provide form 2.0 and will coexist with form 1.0, thus enabling the
developer to select which package version to require (sorry for the mess
but definitely package versions and Rivet version don't get along very
well and it's maybe cause of confusion).
With great efforts Harald made the new form 2.0 package error proof
when handling some Tcl syntax pathogenic data and will go into trunk
right away for anyone willing to test it.
I will call a vote on release 2.0.5 next week, whereas monitoring
form2.tcl will be on the TODO list for 2.1.0, to be released hopefully
by September/October.
-- Massimo
Index: rivet/packages/form/form.tcl
===================================================================
--- rivet/packages/form/form.tcl (revision 1344144)
+++ rivet/packages/form/form.tcl (working copy)
@@ -200,9 +200,12 @@
# if there's a label then prepare to output it.
if {[info exists data(label)]} {
- # if there's no id defined, generate something unique so
we can reference it.
+
+ # if there's no id defined, generate something
+ # unique so we can reference it.
+
if {![info exists data(id)]} {
- set data(id) "autogen_[::uuid::uuid generate]"
+ set data(id) "autogen_[incr field_cnt]"
}
set label "<label for=\"$data(id)\">$data(label)</label>"
}
@@ -488,6 +491,7 @@
array set DefaultValues [array get array]
}
+ private variable field_cnt 0
private variable DefaultValues
private variable DefaultArgs
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscr...@tcl.apache.org
For additional commands, e-mail: rivet-dev-h...@tcl.apache.org
