new definitions get proper owned count (1)

This commit is contained in:
kiefac 2024-05-04 11:25:30 -04:00
parent 36c9f2a7f7
commit 850a71b247

View file

@ -51,7 +51,7 @@
(let* ([button-panel (new horizontal-panel% [parent tab])]
[counter-msg (new message%
[parent button-panel]
[label "Owned: 0"]
[label (~a "Owned: " (clicker-count cl))]
[auto-resize #t])])
(new button% [parent button-panel]
[label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢, " (clicker-cps cl) "CPS)")]