suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

upped the min sizes for the same score controls

Browse Source
This commit is contained in:
Robby Findler 2011-01-15 05:41:38 -06:00
parent d2aa1c1138
commit 4ffb16905e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/games/same/same.rkt
View File

@ -309,11 +309,11 @@
(define hp (new horizontal-panel% [parent panel] [stretchable-height #f]))
(new message% [label "Total Score: "] [parent hp])
(define score-message (new message%
[label "1000 + 1000 = 2000"] ;; get a reasonable min size
[label "10000 + 10000 = 20000"] ;; get a reasonable min size
[parent hp] [stretchable-width #t]))
(new message% [label "This Score: "] [parent hp])
(define this-score-message (new message%
[label "100"] ;; get a reasonable min size
[label "10000"] ;; get a reasonable min size
[parent hp]
[stretchable-width #t]))
(define button (make-object button% "New Game" hp (lambda x (new-game-callback #t))))