From 30da0f4bf49cfee4e2a107acdbbc8e819f9825ef Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 22 Aug 2012 09:03:31 -0600 Subject: [PATCH] fix internal position adjustment for `pane%' Closes PR 13038 --- collects/mred/private/wxitem.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxitem.rkt b/collects/mred/private/wxitem.rkt index 7c647374e5..dee9e4ee27 100644 --- a/collects/mred/private/wxitem.rkt +++ b/collects/mred/private/wxitem.rkt @@ -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))