Lines Matching refs:data
29 upvar #0 $w data
33 set data(lines,red,start) 0
34 set data(lines,red,last) -1
35 set data(lines,green,start) 0
36 set data(lines,green,last) -1
37 set data(lines,blue,start) 0
38 set data(lines,blue,last) -1
44 set data(NUM_COLORBARS) 8
48 set data(BARS_WIDTH) 128
53 set data(PLGN_HEIGHT) 10
57 set data(PLGN_WIDTH) 10
66 wm transient $w $data(-parent)
81 wm title $w $data(-title)
91 focus $data(okBtn)
103 unset data
119 upvar #0 $w data
123 set data(intensityIncr) [expr 256 / $data(NUM_COLORBARS)]
126 set data(colorbarWidth) \
127 [expr $data(BARS_WIDTH) / $data(NUM_COLORBARS)]
132 set data(indent) [expr $data(PLGN_WIDTH) / 2]
134 set data(colorPad) 2
135 set data(selPad) [expr $data(PLGN_WIDTH) / 2]
140 set data(minX) $data(indent)
145 set data(maxX) [expr $data(BARS_WIDTH) + $data(indent)-1]
150 set data(canvasWidth) [expr $data(BARS_WIDTH) + \
151 $data(PLGN_WIDTH)]
155 set data(selection) $data(-initialcolor)
156 set data(finalColor) $data(-initialcolor)
157 set rgb [winfo rgb . $data(selection)]
159 set data(red,intensity) [expr [lindex $rgb 0]/0x100]
160 set data(green,intensity) [expr [lindex $rgb 1]/0x100]
161 set data(blue,intensity) [expr [lindex $rgb 2]/0x100]
170 upvar #0 $w data
184 if ![string compare $data(-title) ""] {
185 set data(-title) " "
187 if ![string compare $data(-initialcolor) ""] {
190 set data(-initialcolor) $tkPriv(selectColor)
192 set data(-initialcolor) [. cget -background]
195 if [catch {winfo rgb . $data(-initialcolor)} err] {
200 if ![winfo exists $data(-parent)] {
201 error "bad window path name \"$data(-parent)\""
210 upvar #0 $w data
240 -width $data(BARS_WIDTH) -relief sunken -bd 2
241 canvas $f.sel -height $data(PLGN_HEIGHT) \
242 -width $data(canvasWidth) -highlightthickness 0
248 set data($color,entry) $box.entry
249 set data($color,col) $f.color
250 set data($color,sel) $f.sel
252 bind $data($color,col) <Configure> \
254 bind $data($color,col) <Enter> \
256 bind $data($color,col) <Leave> \
259 bind $data($color,sel) <Enter> \
261 bind $data($color,sel) <Leave> \
277 set data(finalCanvas) [frame $f1.demo -bd 0 -width 100 -height 70]
281 pack $data(finalCanvas) -expand yes -fill both
296 set data(okBtn) $botFrame.ok
297 set data(cancelBtn) $botFrame.cancel
306 bind $w <Alt-r> "focus $data(red,entry)"
307 bind $w <Alt-g> "focus $data(green,entry)"
308 bind $w <Alt-b> "focus $data(blue,entry)"
310 bind $w <KeyPress-Escape> "tkButtonInvoke $data(cancelBtn)"
311 bind $w <Alt-c> "tkButtonInvoke $data(cancelBtn)"
312 bind $w <Alt-o> "tkButtonInvoke $data(okBtn)"
322 upvar #0 $w data
324 set data(red,intensity) [lindex $color 0]
325 set data(green,intensity) [lindex $color 1]
326 set data(blue,intensity) [lindex $color 2]
332 set x [tkColorDialog_RgbToX $w $data($color,intensity)]
333 tkColorDialog_MoveSelector $w $data($color,sel) $color $x 0
342 upvar #0 $w data
344 return [expr ($x * $data(intensityIncr))/ $data(colorbarWidth)]
352 upvar #0 $w data
354 return [expr ($color * $data(colorbarWidth)/ $data(intensityIncr))]
365 upvar #0 $w data
369 set col $data($c,col)
370 set sel $data($c,sel)
375 if { $data(lines,$c,last) > $data(lines,$c,start)} {
376 for {set i $data(lines,$c,start)} \
377 {$i <= $data(lines,$c,last)} { incr i} {
382 if [info exists data($c,index)] {
383 $sel delete $data($c,index)
388 $sel bind $data($c,index) <ButtonPress-1> \
389 "tkColorDialog_StartMove $w $sel $c %x $data(selPad) 1"
390 $sel bind $data($c,index) <B1-Motion> \
391 "tkColorDialog_MoveSelector $w $sel $c %x $data(selPad)"
392 $sel bind $data($c,index) <ButtonRelease-1> \
393 "tkColorDialog_ReleaseMouse $w $sel $c %x $data(selPad)"
398 set data($c,clickRegion) [$sel create rectangle 0 0 \
399 $data(canvasWidth) $height -fill {} -outline {}]
402 "tkColorDialog_StartMove $w $sel $c %x $data(colorPad)"
404 "tkColorDialog_MoveSelector $w $sel $c %x $data(colorPad)"
406 "tkColorDialog_ReleaseMouse $w $sel $c %x $data(colorPad)"
408 $sel bind $data($c,clickRegion) <ButtonPress-1> \
409 "tkColorDialog_StartMove $w $sel $c %x $data(selPad)"
410 $sel bind $data($c,clickRegion) <B1-Motion> \
411 "tkColorDialog_MoveSelector $w $sel $c %x $data(selPad)"
412 $sel bind $data($c,clickRegion) <ButtonRelease-1> \
413 "tkColorDialog_ReleaseMouse $w $sel $c %x $data(selPad)"
416 set l $data(lines,$c,start)
422 for {set i 0} { $i < $data(NUM_COLORBARS)} { incr i} {
423 set intensity [expr $i * $data(intensityIncr)]
424 set startx [expr $i * $data(colorbarWidth) + $highlightW]
428 $data(green,intensity) \
429 $data(blue,intensity)]
432 $data(red,intensity) \
434 $data(blue,intensity)]
437 $data(red,intensity) \
438 $data(green,intensity) \
444 [expr $startx +$data(colorbarWidth)] \
452 $sel raise $data($c,index)
455 set data(lines,$c,last) $index
456 set data(lines,$c,start) [expr $index - $data(NUM_COLORBARS) + 1 ]
465 # $data($c,intensity).
468 upvar #0 $w data
469 set data($c,index) [$sel create polygon \
470 0 $data(PLGN_HEIGHT) \
471 $data(PLGN_WIDTH) $data(PLGN_HEIGHT) \
472 $data(indent) 0]
473 set data($c,x) [tkColorDialog_RgbToX $w $data($c,intensity)]
474 $sel move $data($c,index) $data($c,x) 0
482 upvar #0 $w data
484 set color [format "#%02x%02x%02x" $data(red,intensity) \
485 $data(green,intensity) $data(blue,intensity)]
487 $data(finalCanvas) conf -bg $color
488 set data(finalColor) $color
489 set data(selection) $color
490 set data(finalRGB) [list \
491 $data(red,intensity) \
492 $data(green,intensity) \
493 $data(blue,intensity)]
503 upvar #0 $w data
540 upvar #0 $w data
557 upvar #0 $w data
563 } elseif { $x >= $data(BARS_WIDTH)} {
564 set x [expr $data(BARS_WIDTH) - 1]
566 set diff [expr $x - $data($color,x)]
567 $sel move $data($color,index) $diff 0
568 set data($color,x) [expr $data($color,x) + $diff]
582 upvar #0 $w data
587 set data($color,intensity) [tkColorDialog_XToRgb $w $x]
598 upvar #0 $w data
600 if { ($data(BARS_WIDTH) < $data(NUM_COLORBARS)) ||
601 (($data(BARS_WIDTH) % $data(NUM_COLORBARS)) != 0)} {
602 set data(BARS_WIDTH) $data(NUM_COLORBARS)
606 $data($color,col) conf -width $data(canvasWidth)
616 upvar #0 $w data
618 set text [string trim $data(selection)]
621 set data(selection) $data(finalColor)
630 set data(selection) $text
638 upvar #0 $w data
642 set data($c,intensity) [expr int($data($c,intensity))]
644 set data($c,intensity) 0
647 if {$data($c,intensity) < 0} {
648 set data($c,intensity) 0
650 if {$data($c,intensity) > 255} {
651 set data($c,intensity) 255
655 tkColorDialog_SetRGBValue $w "$data(red,intensity) $data(green,intensity) \
656 $data(blue,intensity)"
662 upvar #0 $w data
664 $data($color,sel) itemconfig $data($color,index) -fill red
670 upvar #0 $w data
672 $data($color,sel) itemconfig $data($color,index) -fill black
679 upvar #0 $w data
681 set tkPriv(selectColor) $data(finalColor)