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 (define basic-mixin
(mixin ((class->interface frame%)) (basic<%>) (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?) (define/override (can-exit?)
(exit:set-exiting #t) (exit:set-exiting #t)
(let ([res (exit:can-exit?)]) (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" "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) (public get-area-container% get-menu-bar% make-root-area-container close)
[define get-area-container% (lambda () vertical-panel%)] [define get-area-container% (lambda () vertical-panel%)]
[define get-menu-bar% (lambda () menu-bar%)] [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! most-recent-window-box (make-weak-box active-frame)))
(set! active-frame f))] (set! active-frame f))]
[define insert-frame [define insert-frame
(lambda (f) (lambda (new-frame)
(set! frame-counter (add1 frame-counter)) (unless (memf (lambda (fr) (eq? (frame-frame fr) new-frame))
(let ([new-frames (cons (make-frame f frame-counter) frames)
frames)]) (set! frame-counter (add1 frame-counter))
(set! frames new-frames) (let ([new-frames (cons (make-frame new-frame frame-counter)
(update-close-menu-item-state) frames)])
(insert-windows-menu f) (set! frames new-frames)
(update-windows-menus)) (update-close-menu-item-state)
(todo-to-new-frames f))] (insert-windows-menu new-frame)
(update-windows-menus))
(todo-to-new-frames new-frame)))]
[define remove-frame [define remove-frame
(lambda (f) (lambda (f)