Cross Reference: /ast/src/lib/libtk/library/clrpick.tcl

Lines Matching refs:green
35     set data(lines,green,start) 0
36     set data(lines,green,last) -1
160     set data(green,intensity) [expr [lindex $rgb 1]/0x100]
307     bind $w <Alt-g> "focus $data(green,entry)"
325     set data(green,intensity) [lindex $color 1]
331     foreach color { red green blue } {
428 			   $data(green,intensity) \
430 	} elseif { $c == "green" } {
438 			   $data(green,intensity) \
485 	$data(green,intensity) $data(blue,intensity)]
492 	$data(green,intensity) \
499 # Params: color of colorstrip that changed. If color is not [red|green|blue]
507 	    tkColorDialog_DrawColorScale $w green
510 	green {
516 	    tkColorDialog_DrawColorScale $w green
520 	    tkColorDialog_DrawColorScale $w green
553 # Params: sel is the selector canvas, c is [red|green|blue]
605     foreach color { red green blue } {
640     foreach c {red green blue} {
655     tkColorDialog_SetRGBValue $w "$data(red,intensity) $data(green,intensity) \