Skip to content

Commit db37318

Browse files
a11cemfelleisen
authored andcommitted
Fix universe inset being too large on two sides
1 parent c29a0b0 commit db37318

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

htdp-lib/2htdp/private/world.rkt

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -258,8 +258,8 @@
258258
(style '(no-hscroll no-vscroll))
259259
(horizontal-inset INSET)
260260
(vertical-inset INSET)))
261-
(send editor-canvas min-client-width (+ width INSET INSET))
262-
(send editor-canvas min-client-height (+ height INSET INSET))
261+
(send editor-canvas min-client-width (sub1 (+ width INSET INSET)))
262+
(send editor-canvas min-client-height (sub1 (+ height INSET INSET)))
263263
(set!-values (enable-images-button disable-images-button)
264264
(inner (values void void) create-frame/universe frame play-back:cust))
265265
(send editor-canvas focus)

0 commit comments

Comments
 (0)