From 4cdc36eaaea49d33dd2be5676828ccf932ede0eb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 13 Mar 2005 02:33:19 +0000 Subject: [PATCH] . original commit: d6be7e535cd675167c18f7bb8a5e7f2a2f239218 --- collects/framework/private/panel.ss | 28 +++++++++++++--------------- 1 file changed, 13 insertions(+), 15 deletions(-) diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index e4da6112..968fd42c 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -147,21 +147,19 @@ (λ () (split (get-horizontal%)))] - (public collapse) - (define collapse - (λ () - (let ([canvas (send (send parent get-top-level-window) get-edit-target-window)] - [ec% (get-editor-canvas%)]) - (when (and canvas - (is-a? canvas ec%) - (eq? (send canvas get-editor) editor)) - (let ([p (send canvas get-parent)]) - (if (eq? p this) - (bell) - (let* ([sp (send p get-parent)] - [p-to-remain (send sp get-parent)]) - (send p-to-remain change-children (λ (x) null)) - (send (make-object ec% p-to-remain editor) focus)))))))) + (define/public (collapse) + (let ([canvas (send (send parent get-top-level-window) get-edit-target-window)] + [ec% (get-editor-canvas%)]) + (when (and canvas + (is-a? canvas ec%) + (eq? (send canvas get-editor) editor)) + (let ([p (send canvas get-parent)]) + (if (eq? p this) + (bell) + (let* ([sp (send p get-parent)] + [p-to-remain (send sp get-parent)]) + (send p-to-remain change-children (λ (x) null)) + (send (make-object ec% p-to-remain editor) focus))))))) (super-instantiate () (parent parent))