13 lines
279 B
Tcl
13 lines
279 B
Tcl
#package require Tk
|
|
#
|
|
#canvas .board -width 50 -height 50
|
|
#.board create line 0 0 0 50 -fill black -width 10
|
|
|
|
package require Tk
|
|
|
|
set a "-width 10"
|
|
|
|
canvas .board -width 50 -height 50
|
|
#.board create line 0 0 0 50 -fill black $a
|
|
.board create line 0 0 0 50 -fill black {*}[set a]
|