ad_process_color_widgets argsWhat it does:
Sets variables corresponding to the color widgets named in $args.Defined in: /web/philip/packages/acs-core/widgets-procs.tcl
Source code:
foreach field $args { upvar $field var set var [ns_queryget "$field.list"] if { $var == "custom" } { set var "[ns_queryget "$field.c1"],[ns_queryget "$field.c2"],[ns_queryget "$field.c3"]" } if { ![regexp {^([0-9]+),([0-9]+),([0-9]+)$} $var "" r g b] || $r > 255 || $g > 255 || $b > 255 } { set var "" } }