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

..

Browse Source 
original commit: 2b6a98814f2f0c03e6e8456ab0698825b20c1de2
This commit is contained in:
Robby Findler 2002-09-05 21:52:15 +00:00
parent befbfb5dfb
commit 2ac8c8747d
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/group.ss
View File

@ -33,6 +33,8 @@
[define frame-counter 0] [define frame-counter 0]
[define frames null] [define frames null]
[define todo-to-new-frames void] [define todo-to-new-frames void]
(define ignore-empty-test? #f)
[define empty-close-down (lambda () (void))] [define empty-close-down (lambda () (void))]
[define empty-test (lambda () #t)] [define empty-test (lambda () #t)]
@ -166,8 +168,6 @@
(set-close-menu-item-state! a-frame #t)) (set-close-menu-item-state! a-frame #t))
frames))))] frames))))]
(field [open-here-frame #f]) (field [open-here-frame #f])
(define/public (set-open-here-frame fr) (set! open-here-frame fr)) (define/public (set-open-here-frame fr) (set! open-here-frame fr))
(define/public (get-open-here-frame) (define/public (get-open-here-frame)
@ -200,6 +200,9 @@
(lambda (test close-down) (lambda (test close-down)
(set! empty-test test) (set! empty-test test)
(set! empty-close-down close-down))] (set! empty-close-down close-down))]
(define/public (set-ignore-empty-test b)
(set! ignore-empty-test? b))
[define get-frames (lambda () (map frame-frame frames))] [define get-frames (lambda () (map frame-frame frames))]
[define frame-label-changed [define frame-label-changed
@ -247,7 +250,8 @@
f frames f frames
(lambda (f fr) (eq? f (frame-frame fr))))]) (lambda (f fr) (eq? f (frame-frame fr))))])
(if (null? new-frames) (if (null? new-frames)
(empty-test) (or ignore-empty-test?
(empty-test))
#t)))] #t)))]
[define remove-frame [define remove-frame
(lambda (f) (lambda (f)
@ -262,7 +266,8 @@
(remove-windows-menu f) (remove-windows-menu f)
(update-windows-menus) (update-windows-menus)
(when (null? frames) (when (null? frames)
(empty-close-down))))] (unless ignore-empty-test?
(empty-close-down)))))]
[define clear [define clear
(lambda () (lambda ()
(and (empty-test) (and (empty-test)