You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by oe...@apache.org on 2013/04/16 11:15:37 UTC
svn commit: r1468330 - /tcl/rivet/trunk/rivet/packages/form/form2.tcl
Author: oehhar
Date: Tue Apr 16 09:15:37 2013
New Revision: 1468330
URL: http://svn.apache.org/r1468330
Log:
corrected spurious 'unset 0' and reverted 'return '''
Modified:
tcl/rivet/trunk/rivet/packages/form/form2.tcl
Modified: tcl/rivet/trunk/rivet/packages/form/form2.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/form/form2.tcl?rev=1468330&r1=1468329&r2=1468330&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/form/form2.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/form/form2.tcl Tue Apr 16 09:15:37 2013
@@ -149,7 +149,7 @@ package provide form 2.0
return [default_value_get $name]
}
} else {
- return ""
+ return
}
}
2 { # Set default value
@@ -158,7 +158,7 @@ package provide form 2.0
if {[info exists isList]} {
set DefaultValues(__$name) 1
} else {
- unset -nocomplain DefaultValues(__$name) 0
+ unset -nocomplain DefaultValues(__$name)
}
}
default { error "wrong argument count" }
@@ -217,7 +217,7 @@ package provide form 2.0
# if only one argument was specified
if {[lempty $args]} {
- if {![info exists DefaultArgs($type)]} { return ""}
+ if {![info exists DefaultArgs($type)]} { return }
return $DefaultArgs($type)
}
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org