diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:05:12 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:05:12 +0000 |
commit | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (patch) | |
tree | ca0f1101e45347cb24e495326330ba2c231d8612 /Master/tlpkg/tltcl/lib/tk8.6/demos/goldberg.tcl | |
parent | 594dd57e44eba986f00b9f7f0c3f402512f75383 (diff) |
Tcl/Tk 8.6.13
git-svn-id: svn://tug.org/texlive/trunk@69897 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/demos/goldberg.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/demos/goldberg.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/demos/goldberg.tcl b/Master/tlpkg/tltcl/lib/tk8.6/demos/goldberg.tcl index 1cc52c62a89..90815fbd7f7 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/demos/goldberg.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/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 @@ -136,7 +136,7 @@ proc DoCtrlFrame {w} { ttk::labelframe $w.message -text "Message" ttk::entry $w.message.e -textvariable S(message) -justify center ttk::labelframe $w.speed -text "Speed: 0" - ttk::scale $w.speed.scale -orient h -from 1 -to 10 -variable S(speed) + ttk::scale $w.speed.scale -orient horizontal -from 1 -to 10 -variable S(speed) ttk::button $w.about -text About -command [list About $w] grid $w.start -in $w.ctrl -row 0 -sticky ew @@ -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 |