14 lines
416 B
Tcl
14 lines
416 B
Tcl
package require Tk
|
|
set tileWidth 50
|
|
set wallWidth 10
|
|
|
|
canvas .c11 -width $::tileWidth -height $::tileWidth
|
|
.c11 create line 0 0 0 $::tileWidth -fill black -width $::wallWidth
|
|
|
|
#canvas .c12 -width $::wallWidth -height $::tileWidth -bg black
|
|
canvas .c12 -width $::tileWidth -height $::tileWidth
|
|
.c12 create line 0 0 0 $::tileWidth -fill black -width $::wallWidth
|
|
|
|
grid .c11 -row 1 -column 1
|
|
grid .c12 -row 1 -column 2
|