Fix universe inset being too large on two sides

racket · Dec 12, 2024 · db37318 · db37318
1 parent c29a0b0
commit db37318
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/htdp-lib/2htdp/private/world.rkt b/htdp-lib/2htdp/private/world.rkt
@@ -258,8 +258,8 @@
                (style '(no-hscroll no-vscroll))
                (horizontal-inset INSET)
                (vertical-inset INSET)))
-        (send editor-canvas min-client-width (+ width INSET INSET))
-        (send editor-canvas min-client-height (+ height INSET INSET))
+        (send editor-canvas min-client-width (sub1 (+ width INSET INSET)))
+        (send editor-canvas min-client-height (sub1 (+ height INSET INSET)))
         (set!-values (enable-images-button disable-images-button)
                      (inner (values void void) create-frame/universe frame play-back:cust))
         (send editor-canvas focus)