ad_process_color_widgets (public, deprecated)
ad_process_color_widgets [ args... ]
Defined in packages/acs-tcl/tcl/widgets-procs.tcl
Deprecated. Invoking this procedure generates a warning.
Sets variables corresponding to the color widgets named in $args. DEPRECATED: HTML now has a native color widget that requires no custom implementation.
- See Also:
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: ad_log_deprecated proc ad_process_color_widgets foreach field $args { upvar $field var set var [ns_queryget "$field.list"] if { $var eq "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 "" } }XQL Not present: PostgreSQL, Oracle Generic XQL file: packages/acs-tcl/tcl/widgets-procs.xql