From 6afc9d5e8c354dbe444e6f8bf16c6a87c4bc7191 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 3 Apr 2012 18:01:30 -0600 Subject: [PATCH] racket/gui: fix `reparent' with a `pane%' target --- collects/mred/private/wxpanel.rkt | 3 ++- collects/tests/gracket/item.rkt | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxpanel.rkt b/collects/mred/private/wxpanel.rkt index 5a216333d1..1f58423fee 100644 --- a/collects/mred/private/wxpanel.rkt +++ b/collects/mred/private/wxpanel.rkt @@ -55,7 +55,8 @@ [get-x (lambda () pos-x)] [get-y (lambda () pos-y)] [get-width (lambda () width)] - [get-height (lambda () height)]) + [get-height (lambda () height)] + [adopt-child (lambda (c) (send (get-parent) adopt-child c))]) (sequence (super-init)))) (define tab-h-border (if (eq? (system-type) 'unix) diff --git a/collects/tests/gracket/item.rkt b/collects/tests/gracket/item.rkt index 2cf0f51695..c30498c6e2 100644 --- a/collects/tests/gracket/item.rkt +++ b/collects/tests/gracket/item.rkt @@ -519,7 +519,10 @@ (let ([v (send c get-selection)]) (when (positive? v) (define f (new frame% [label "New Parent"])) - (send (list-ref items (sub1 v)) reparent f) + (define p (if (zero? (random 2)) + (new vertical-pane% [parent f]) + f)) + (send (list-ref items (sub1 v)) reparent p) (send f show #t) (send c set-selection 0))))) (cons (make-object popup-test-canvas%