From 0ed6d0e0d15a2fa601570f630d702ea802ba7bad Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 1 Sep 2023 20:46:27 -0700
Subject: [PATCH] periodic-table: bigger fonts, legend stays still

---
 extra/periodic-table/periodic-table.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/extra/periodic-table/periodic-table.factor b/extra/periodic-table/periodic-table.factor
index 45c72fc1fb..9b60342dea 100644
--- a/extra/periodic-table/periodic-table.factor
+++ b/extra/periodic-table/periodic-table.factor
@@ -163,9 +163,9 @@ CONSTANT: periodic-table {
 :: <element> ( atomic-number symbol name -- gadget )
     vertical <track>
     atomic-number number>string <label>
-        [ 8 >>size ] change-font f track-add
+        [ 10 >>size ] change-font f track-add
     symbol <label> [ t >>bold? ] change-font f track-add
-    name <label> [ 6 >>size ] change-font f track-add ;
+    name <label> [ 8 >>size ] change-font f track-add ;
 
 : <legend> ( -- gadget )
     horizontal <track> { 3 3 } >>gap
@@ -195,9 +195,8 @@ CONSTANT: periodic-table {
             "" <label> { 20 20 } >>pref-dim f track-add
         ] if*
         f track-add
-    ] each
-    <legend> { 0 10 } <border> f track-add ;
+    ] each <legend> f track-add ;
 
 MAIN-WINDOW: periodic-table-window
     { { title "Periodic Table" } }
-    <periodic-table> >>gadgets ;
+    <periodic-table> { 5 5 } <border> >>gadgets ;
-- 
2.34.1