6 lines
163 B
Tcl
6 lines
163 B
Tcl
|
package require Tcl 8.5
|
||
|
|
package require Tk
|
||
|
|
|
||
|
|
pack [canvas .c -width 320 -height 240 -bg #fff] -anchor nw
|
||
|
|
.c create rectangle 100 100 100 100 -fill #f00 -outline ""
|