suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: d6be7e535cd675167c18f7bb8a5e7f2a2f239218
This commit is contained in:
Robby Findler 2005-03-13 02:33:19 +00:00
parent 55e4f4c7aa
commit 4cdc36eaae
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/framework/private/panel.ss
View File

@ -147,21 +147,19 @@
(λ () (λ ()
(split (get-horizontal%)))] (split (get-horizontal%)))]
(public collapse) (define/public (collapse)
(define collapse (let ([canvas (send (send parent get-top-level-window) get-edit-target-window)]
(λ () [ec% (get-editor-canvas%)])
(let ([canvas (send (send parent get-top-level-window) get-edit-target-window)] (when (and canvas
[ec% (get-editor-canvas%)]) (is-a? canvas ec%)
(when (and canvas (eq? (send canvas get-editor) editor))
(is-a? canvas ec%) (let ([p (send canvas get-parent)])
(eq? (send canvas get-editor) editor)) (if (eq? p this)
(let ([p (send canvas get-parent)]) (bell)
(if (eq? p this) (let* ([sp (send p get-parent)]
(bell) [p-to-remain (send sp get-parent)])
(let* ([sp (send p get-parent)] (send p-to-remain change-children (λ (x) null))
[p-to-remain (send sp get-parent)]) (send (make-object ec% p-to-remain editor) focus)))))))
(send p-to-remain change-children (λ (x) null))
(send (make-object ec% p-to-remain editor) focus))))))))
(super-instantiate () (parent parent)) (super-instantiate () (parent parent))