From 95a7041a3a1cb46b9cb7c5b8459d95d8ecc62d87 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 14 Feb 2006 14:26:06 +0000 Subject: [PATCH] make simple-graphics frame non-resizable svn: r2223 --- collects/graphics/graphics-posn-less-unit.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/graphics/graphics-posn-less-unit.ss b/collects/graphics/graphics-posn-less-unit.ss index d412109e3a..893bf9e1a3 100644 --- a/collects/graphics/graphics-posn-less-unit.ss +++ b/collects/graphics/graphics-posn-less-unit.ss @@ -317,7 +317,10 @@ (close-viewport (send canvas get-viewport)) (send the-time stop) (inner (void) on-close)) - (super-instantiate ()))) + (super-instantiate () + [stretchable-height #f] + [stretchable-width #f] + [style '(no-resize-border)]))) (define repaint (lambda (viewport)