.
original commit: a83722fd5d78afd1da2d20f96924102489f4179b
This commit is contained in:
parent
f609f455a9
commit
dc8c541117
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user