You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by ka...@apache.org on 2006/01/25 10:14:55 UTC
svn commit: r372166 - in /tcl/rivet/trunk: ChangeLog
rivet/packages/dio/diodisplay.tcl
Author: karl
Date: Wed Jan 25 01:14:53 2006
New Revision: 372166
URL: http://svn.apache.org/viewcvs?rev=372166&view=rev
Log:
When editing, made select boxes have the current value selected by default.
Modified:
tcl/rivet/trunk/ChangeLog
tcl/rivet/trunk/rivet/packages/dio/diodisplay.tcl
Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewcvs/tcl/rivet/trunk/ChangeLog?rev=372166&r1=372165&r2=372166&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Wed Jan 25 01:14:53 2006
@@ -1,3 +1,7 @@
+2006-01-25 Karl Lehenbauer <ka...@sc.com>
+ * rivet/packages/dio/diodisplay.tcl: When editing, made select boxes
+ have the current value selected by default.
+
2006-01-14 Eckhard Lehmann <ec...@gmx.de>
* configure.ac: edited for 2 directories src/apache-1 and
Modified: tcl/rivet/trunk/rivet/packages/dio/diodisplay.tcl
URL: http://svn.apache.org/viewcvs/tcl/rivet/trunk/rivet/packages/dio/diodisplay.tcl?rev=372166&r1=372165&r2=372166&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/dio/diodisplay.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/dio/diodisplay.tcl Wed Jan 25 01:14:53 2006
@@ -1146,7 +1146,7 @@
set class [get_css_class $tag DIOFormField DIOFormField-$name]
if {$type == "select"} {
- $form select $name -values $values -class $class
+ $form select $name -values $values -value $value -class $class
} else {
eval $form $type $name -value [list $value] $formargs -class $class
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org