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

..

Browse Source 
original commit: ea71ad86d9dc33cc86ef1acc000efffa4ed667e3
This commit is contained in:
Robby Findler 2002-10-18 15:12:13 +00:00
parent 0c4a60ec11
commit afc44445b9
2 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/frame.ss
View File

@ -129,6 +129,12 @@
(define basic-mixin
(mixin ((class->interface frame%)) (basic<%>)
(rename [super-show show])
(define/override (show on?)
(when on?
(send (group:get-the-frame-group) insert-frame this))
(super-show on?))
(define/override (can-exit?)
(exit:set-exiting #t)
(let ([res (exit:can-exit?)])
@ -200,7 +206,6 @@
"do not add children directly to a frame:basic (unless using make-root-area-container); use the get-area-container method instead"
)))]
(inherit show)
(public get-area-container% get-menu-bar% make-root-area-container close)
[define get-area-container% (lambda () vertical-panel%)]
[define get-menu-bar% (lambda () menu-bar%)]

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

@ -222,15 +222,17 @@
(set! most-recent-window-box (make-weak-box active-frame)))
(set! active-frame f))]
[define insert-frame
(lambda (f)
(set! frame-counter (add1 frame-counter))
(let ([new-frames (cons (make-frame f frame-counter)
frames)])
(set! frames new-frames)
(update-close-menu-item-state)
(insert-windows-menu f)
(update-windows-menus))
(todo-to-new-frames f))]
(lambda (new-frame)
(unless (memf (lambda (fr) (eq? (frame-frame fr) new-frame))
frames)
(set! frame-counter (add1 frame-counter))
(let ([new-frames (cons (make-frame new-frame frame-counter)
frames)])
(set! frames new-frames)
(update-close-menu-item-state)
(insert-windows-menu new-frame)
(update-windows-menus))
(todo-to-new-frames new-frame)))]
[define remove-frame
(lambda (f)