Colour bars/Display: Difference between revisions

Content added Content deleted

Inline

@@ Line 24: / Line 24: @@
 set colors {black red green blue magenta cyan yellow white}
-for {set x 0} {$x < [winfo screenwidth c]} {incr x 8} {
+for {set x 0} {$x < [winfo screenwidth .c]} {incr x 8} {
-    .c create rectangle $x 0 [expr {$x+7}] [winfo screenheight c] \
+    .c create rectangle $x 0 [expr {$x+7}] [winfo screenheight .c] \
             -fill [lindex $colors 0] -outline {}
     set colors [list {*}[lrange $colors 1 end] [lindex $colors 0]]