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

..

Browse Source 
original commit: 9e31cb139de87623e9b006bee05ccc87da3c506e
This commit is contained in:
Robby Findler 2003-04-06 00:17:34 +00:00
parent 95bf680dc8
commit 2801b152ee
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,20 +77,21 @@
(list x y this-width this-height))) (list x y this-width this-height)))
l)))] l)))]
(inherit get-children) (inherit get-children begin-container-sequence end-container-sequence)
[define current-active-child #f] [define current-active-child #f]
(public active-child) (define/public active-child
[define active-child
(case-lambda (case-lambda
[() current-active-child] [() current-active-child]
[(x) [(x)
(unless (memq x (get-children)) (unless (memq x (get-children))
(error 'active-child "got a panel that is not a child: ~e" x)) (error 'active-child "got a panel that is not a child: ~e" x))
(unless (eq? x current-active-child) (unless (eq? x current-active-child)
(begin-container-sequence)
(for-each (lambda (x) (send x show #f)) (for-each (lambda (x) (send x show #f))
(get-children)) (get-children))
(set! current-active-child x) (set! current-active-child x)
(send current-active-child show #t))])] (send current-active-child show #t)
(end-container-sequence))]))
(super-instantiate ()))) (super-instantiate ())))
(define single-window<%> (interface (single<%> window<%>))) (define single-window<%> (interface (single<%> window<%>)))