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

.

Browse Source 
original commit: 06316ea54e0909a8a9b2e0f4f404af6efab8cd49
This commit is contained in:
Matthew Flatt 2004-02-05 15:42:09 +00:00
parent c0bc349aa1
commit bf9ac8a4d1
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/mred/mred.ss
View File

@ -2112,7 +2112,7 @@
(define/override (handles-key-code code alpha? meta?) (define/override (handles-key-code code alpha? meta?)
#f) #f)
(super-instantiate (mred proxy parent -1 -1 -1 -1 null)) (super-instantiate (mred proxy parent -1 -1 -1 -1 '(transparent)))
(set-background-to-gray) (set-background-to-gray)
@ -3017,6 +3017,9 @@
(raise-mismatch-error 'container-redraw (raise-mismatch-error 'container-redraw
"result from place-children is not a list of 4-integer lists with the correct length: " "result from place-children is not a list of 4-integer lists with the correct length: "
l)) l))
(when hidden-child
;; This goes with the hack for macos and macosx below
(send hidden-child set-phantom-size width height))
(panel-redraw children children-info (if hidden-child (panel-redraw children children-info (if hidden-child
(cons (list 0 0 width (cons (list 0 0 width
(if (memq (system-type) '(macos macosx)) ;; Yucky hack (if (memq (system-type) '(macos macosx)) ;; Yucky hack