start: use a bigger Title font

benknoble · Jan 7, 2024 · 434d9e5 · 434d9e5
1 parent 88222fa
commit 434d9e5
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/gui/start.rkt b/gui/start.rkt
@@ -7,14 +7,17 @@
                       #:on-player (-> num-players/c any))
                      (is-a?/c view<%>))]))
 
-(require racket/gui/easy
+(require (only-in racket/gui normal-control-font)
+         racket/gui/easy
          racket/gui/easy/contract
-         frosthaven-manager/defns)
+         frosthaven-manager/defns
+         frosthaven-manager/gui/font)
 
 (define (start-view @level @num-players #:on-level [on-level void] #:on-player [on-player void])
   (vpanel
     (spacer)
-    (text "Frosthaven Manager")
+    (text "Frosthaven Manager"
+          #:font (copy-font normal-control-font #:size 50))
     (spacer)
     (group
       "Party Information"