- implementing Versia Peregrine features

tcl/widget-procs.tcl

@@ -563,6 +563,27 @@ ad_proc -public template::widget::checkbox {
 
     upvar $element_reference element
 
+    if { [exists_and_not_null element(custom)] } {
+
+	set params $element(custom)
+
+	# Get the "checked" parameter that defines if the checkbox should
+	# be checked
+        set checked ""
+	set checked_pos [lsearch $params checked]
+	if { $checked_pos >= 0 } {
+	    set checked [lindex $params [expr $checked_pos + 1]]
+	}
+
+	if {"" != $checked} {
+	    lappend tag_attributes checked
+	    lappend tag_attributes $checked
+	}
+    }
+
+    ns_log Notice "template::widget::checkbox: element=[array get element]"
+    ns_log Notice "template::widget::checkbox: tag_attributes=$tag_attributes, elem_ref=$element_reference"
+    
     return [input checkbox element $tag_attributes]
 }