ad_process_color_widgets

one of the documented procedures in this installation of the ACS
Usage:
ad_process_color_widgets   args
What 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 ""
	}
    }


philg@mit.edu