canvas .c -width 100 -height 50 set myline [.c create line 20 10 90 40 -fill blue -width 4] grid .c -row 0 -column 0
linea.tcl
