new definitions get proper owned count (1)
This commit is contained in:
parent
36c9f2a7f7
commit
850a71b247
|
@ -51,7 +51,7 @@
|
||||||
(let* ([button-panel (new horizontal-panel% [parent tab])]
|
(let* ([button-panel (new horizontal-panel% [parent tab])]
|
||||||
[counter-msg (new message%
|
[counter-msg (new message%
|
||||||
[parent button-panel]
|
[parent button-panel]
|
||||||
[label "Owned: 0"]
|
[label (~a "Owned: " (clicker-count cl))]
|
||||||
[auto-resize #t])])
|
[auto-resize #t])])
|
||||||
(new button% [parent button-panel]
|
(new button% [parent button-panel]
|
||||||
[label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢, " (clicker-cps cl) "CPS)")]
|
[label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢, " (clicker-cps cl) "CPS)")]
|
||||||
|
|
Loading…
Reference in a new issue