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

more frame-sizing fixes

Browse Source 
original commit: 88d8a8c39d0b82dc7369ba3d12e3ebcab59ae9f0
This commit is contained in:
Matthew Flatt 1999-06-05 13:13:19 +00:00
parent b7bfca9be1
commit bc19a8116e
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -609,8 +609,17 @@
[set-panel-size [set-panel-size
(lambda () (lambda ()
(when panel (when panel
(let-values ([(f-client-w f-client-h) (get-two-int-values get-client-size)]) (let-values ([(f-client-w f-client-h) (get-two-int-values get-client-size)]
(send panel set-size 0 0 f-client-w f-client-h) [(panel-info) (send panel get-info)]
[(sel) (lambda (nsize psize stretch?)
(if stretch?
(max nsize psize)
psize))])
(send panel set-size 0 0
(sel f-client-w (child-info-x-min panel-info)
(child-info-x-stretch panel-info))
(sel f-client-h (child-info-y-min panel-info)
(child-info-y-stretch panel-info)))
(set! pending-redraws? #f) (set! pending-redraws? #f)
(send panel on-container-resize))))] (send panel on-container-resize))))]
@ -687,7 +696,7 @@
; independently. ; independently.
[on-size [on-size
(lambda (bad-width bad-height) (lambda (bad-width bad-height)
(unless already-trying? (unless (and already-trying? (not (eq? 'unix (system-type))))
(parameterize ([wx:current-eventspace eventspace]) (parameterize ([wx:current-eventspace eventspace])
(wx:queue-callback resized #t))))]) (wx:queue-callback resized #t))))])