the button can not change its form

[waistcoat]

Hi,all
I want to draw a picture on the button,but the button in the program can not change its form .
The width(height) can not change.
set w .main
toplevel $w
button $w.1 -width 20 -height 5 -relief ridge -text ""
set c $w.1.frame.c
frame $w.1.frame
pack $w.1.frame
canvas $c -width 10 -height 5 -bg yellow -relief raised
$c create oval 1 2 3 4 -fill blue
grid $c
grid columnconfigure $c 0 -weight 1
pack $w.1
Another question can tcl\tk draw a picture easily and
beautiful.
Thanks!

 

[ulis]

To design a button with a canvas see:

http://mini.net/tcl/canvas

And more precisely:

http://mini.net/tcl/1349

Making a canvas a subwindow of a button doesn't do the trick. The parent button and the child canvas do not share the events they receive.

HTH

ulis