Posted to tcl by kbk at Wed Jan 09 22:37:24 GMT 2019view raw
- package require Tk
- image create photo scene -width 300 -height 200
- grid [label .l -image scene]
- scene put white -to 0 0 300 200
- for {set i 100} {$i < 200} {incr i} {
- scene put blue -to $i 100 [expr {$i + 1}] 101
- }