make simple-graphics frame non-resizable

svn: r2223
2006-02-14 14:26:06 +00:00 · 2006-02-14 14:26:06 +00:00 · 95a7041a3a
commit 95a7041a3a
parent 00eb9bdb78
1 changed files with 4 additions and 1 deletions
--- 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)