From 6740eafef18ed987e7f691a37e1a3264ec094c52 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Dec 2002 20:54:39 +0000 Subject: [PATCH] . original commit: b0e9313349fef6f20947c7a9458201f5bdd06b2a --- collects/mred/mred.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 15ac2adc..4f0345a8 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -3221,7 +3221,8 @@ r))))]) (sequence (super-init #f proxy parent (if (memq 'inactive style) '(inactive) null)) - (send (area-parent) add-child this)) + (unless (memq 'inactive style) + (send (area-parent) add-child this))) (private-field [multi? (memq 'multiple style)] [horiz? (eq? (send (send parent get-window) get-label-position) 'horizontal)] @@ -4783,7 +4784,8 @@ (lambda () wx) (lambda () (check-container-ready cwho parent)) #f parent #f) - (send (send wx area-parent) add-child wx))) + (unless (memq 'inactive style) + (send (send wx area-parent) add-child wx)))) (send parent after-new-child this))))) (define vertical-panel% (class100*/kw panel% () [(parent [style null]) panel%-keywords] (sequence (super-init parent style))))