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

.

Browse Source 
original commit: 133027748c8f9b1539a8911304dbb422f2657b22
This commit is contained in:
Matthew Flatt 1999-06-04 20:56:54 +00:00
parent e77684783f
commit b7bfca9be1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mred/wrap/mred.ss
View File

@ -637,7 +637,7 @@
(set! already-trying? #t) (set! already-trying? #t)
(set-size -1 -1 correct-w correct-h) (set-size -1 -1 correct-w correct-h)
(set! already-trying? #f) (set! already-trying? #f)
(when was-bad? (resized)))))))))]) (resized))))))))])
(override (override
; show: add capability to set perform-updates ; show: add capability to set perform-updates
@ -687,8 +687,9 @@
; independently. ; independently.
[on-size [on-size
(lambda (bad-width bad-height) (lambda (bad-width bad-height)
(unless already-trying?
(parameterize ([wx:current-eventspace eventspace]) (parameterize ([wx:current-eventspace eventspace])
(wx:queue-callback resized #t)))]) (wx:queue-callback resized #t))))])
(public (public
[handle-traverse-key [handle-traverse-key