From 2801b152eee04182c81a98a233455edf91b7fc76 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 6 Apr 2003 00:17:34 +0000 Subject: [PATCH] .. original commit: 9e31cb139de87623e9b006bee05ccc87da3c506e --- collects/framework/private/panel.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index 54470c6a..077d3902 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -77,20 +77,21 @@ (list x y this-width this-height))) l)))] - (inherit get-children) + (inherit get-children begin-container-sequence end-container-sequence) [define current-active-child #f] - (public active-child) - [define active-child + (define/public active-child (case-lambda [() current-active-child] [(x) (unless (memq x (get-children)) (error 'active-child "got a panel that is not a child: ~e" x)) (unless (eq? x current-active-child) + (begin-container-sequence) (for-each (lambda (x) (send x show #f)) (get-children)) (set! current-active-child x) - (send current-active-child show #t))])] + (send current-active-child show #t) + (end-container-sequence))])) (super-instantiate ()))) (define single-window<%> (interface (single<%> window<%>)))