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

fix internal position adjustment for `pane%'

Browse Source 
Closes PR 13038
This commit is contained in:
Matthew Flatt 2012-08-22 09:03:31 -06:00
parent f95f2fac54
commit 30da0f4bf4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wxitem.rkt
View File

@ -53,8 +53,12 @@
;; Otherwise, does nothing.
[set-size
(lambda (x y width height)
(set! x (+ x (send (area-parent) dx)))
(set! y (+ y (send (area-parent) dy)))
(set! x (if (= x -11111)
(get-x)
(+ x (send (area-parent) dx))))
(set! y (if (= y -11111)
(get-y)
(+ y (send (area-parent) dy))))
(unless (and (same-dimension? x (get-x))
(same-dimension? y (get-y))
(same-dimension? width (get-width))