original commit: a83722fd5d78afd1da2d20f96924102489f4179b
This commit is contained in:
Matthew Flatt 2002-09-16 16:50:59 +00:00
parent f609f455a9
commit dc8c541117

View File

@ -2708,7 +2708,10 @@
"result from place-children is not a list of 4-integer lists with the correct length: "
l))
(panel-redraw children children-info (if hidden-child
(cons (list 0 0 width height)
(cons (list 0 0 width
(if (memq (system-type) '(macos macosx)) ;; Yucky hack
(child-info-y-min (car children-info))
height))
(let ([dy (child-info-y-min (car children-info))])
(map (lambda (i)
(list (+ (car i) 2) ;; hack! 2-pixel border assumed