set t .demo
destroy $t
toplevel $t
set _paint(top) $t
set _paint(width) 800
set _paint(height) 600
set _paint(bg) white
set _paint(color) black
# Canvas
set _paint(can) [canvas $t.c \
-width $_paint(width) \
-height $_paint(height) \
-background $_paint(bg) \
]
grid $_paint(can) -row 0 -column 0
# Image
set _paint(image) [image create photo \
-width $_paint(width) \
-height $_paint(height) \
-palette 256/256/256 \
]
# Canvas image item
set _paint(image_id) [$_paint(can) create image \
0 0 \
-anchor nw \
-image $_paint(image) \
]
# Paint pixel at a X,Y coord
proc Paint {x y} {
global _paint
if {$x >= 0 && $y >= 0} {
$_paint(image) put $_paint(color) \
-to $x $y \
[expr {$x + 1}] [expr {$y + 1}]
}
}
bind $_paint(can) <1> {Paint %x %y}
bind $_paint(can) <B1-Motion> {Paint %x %y}
# Button 3 will select a new paint color
proc ChangeColor {} {
global _paint
set _paint(color) [tk_chooseColor]
raise $_paint(top)
}
bind $_paint(can) <3> {ChangeColor}if 0 {
Asier Burgoa González [email protected] Éniac, Sistemas Informáticos S.A. LOGROÑO (La Rioja) SPAIN +34 941 28 28 28}
