suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make simple-graphics frame non-resizable

Browse Source 
svn: r2223
This commit is contained in:
Matthew Flatt 2006-02-14 14:26:06 +00:00
parent 00eb9bdb78
commit 95a7041a3a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/graphics/graphics-posn-less-unit.ss
View File

@ -317,7 +317,10 @@
(close-viewport (send canvas get-viewport)) (close-viewport (send canvas get-viewport))
(send the-time stop) (send the-time stop)
(inner (void) on-close)) (inner (void) on-close))
(super-instantiate ()))) (super-instantiate ()
[stretchable-height #f]
[stretchable-width #f]
[style '(no-resize-border)])))
(define repaint (define repaint
(lambda (viewport) (lambda (viewport)