diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-08 10:41:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-08 10:41:56 (GMT) |
| commit | e87a68b1473a2b0a706ecafa39d5e3195c0a48f3 (patch) | |
| tree | 57b4c8c0b532d974d7e5b9724129e5ad9b4a6b6e /library | |
| parent | 39a51ce7b650bad1478b7f46a10ec22848e2722c (diff) | |
| parent | 6b3ace837fc82f4c7474d30636b0b7ecf8aa4e44 (diff) | |
| download | tk-e87a68b1473a2b0a706ecafa39d5e3195c0a48f3.zip tk-e87a68b1473a2b0a706ecafa39d5e3195c0a48f3.tar.gz tk-e87a68b1473a2b0a706ecafa39d5e3195c0a48f3.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/goldberg.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/demos/goldberg.tcl b/library/demos/goldberg.tcl index 14ddb0b..998af41 100644 --- a/library/demos/goldberg.tcl +++ b/library/demos/goldberg.tcl @@ -77,7 +77,6 @@ set S(mode) $::MSTART # Colors for everything set C(fg) black -set C(bg) gray75 set C(bg) cornflowerblue set C(0) white; set C(1a) darkgreen; set C(1b) yellow @@ -92,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 @@ -1586,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 } @@ -1619,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 |