diff options
| -rw-r--r-- | library/demos/goldberg.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/demos/goldberg.tcl b/library/demos/goldberg.tcl index 8fe7ddd..7bedfa9 100644 --- a/library/demos/goldberg.tcl +++ b/library/demos/goldberg.tcl @@ -91,6 +91,7 @@ set C(17) \#A65353; set C(18) $C(fg); set C(19) gray50 set C(20) cyan; set C(21) gray65; set C(22) $C(20) set C(23a) blue; set C(23b) red; set C(23c) yellow set C(24a) red; set C(24b) white; +set C(24c) black; set C(26) $C(0); proc DoDisplay {w} { global S C @@ -1585,6 +1586,7 @@ proc Move24 {w {step {}}} { -width 10 -smooth 1 set msg [subst $S(message)] $w.c create text [Centroid $w I24] -text $msg -tag {I24 I24t} \ + -fill $::C(24c) \ -justify center -font {{Times Roman} 18 bold} return 1 } @@ -1618,6 +1620,7 @@ proc Move26 {w {step {}}} { if {$step >= 3} { $w.c delete I24 I26 $w.c create text 430 755 -anchor s -tag I26 \ + -fill $::C(26) \ -text "click to continue" -font {{Times Roman} 24 bold} bind $w.c <Button-1> [list Reset $w] return 4 |