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

.

Browse Source 
original commit: 4d2fd7987b325d7fa6a826b13fd91cd1fcdab0b5
This commit is contained in:
Robby Findler 2005-05-21 16:48:11 +00:00
parent 55aea597e2
commit 33cbedcae3
2 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,8 +254,8 @@
(when (null? (send (group:get-the-frame-group) get-frames)) (when (null? (send (group:get-the-frame-group) get-frames))
(exit:exit))))) (exit:exit)))))
(define/override (on-focus on?) (define/override (on-activate on?)
(super on-focus on?) (super on-activate on?)
(when on? (when on?
(send (group:get-the-frame-group) set-active-frame this))) (send (group:get-the-frame-group) set-active-frame this)))

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

@ -178,18 +178,16 @@
(set! todo-to-new-frames (set! todo-to-new-frames
(let ([old todo-to-new-frames]) (let ([old todo-to-new-frames])
(λ (frame) (old frame) (f frame)))))] (λ (frame) (old frame) (f frame)))))]
[define get-active-frame (define (get-active-frame)
(λ () (cond
(cond [active-frame active-frame]
[active-frame active-frame] [(null? frames) #f]
[(null? frames) #f] [else (frame-frame (car frames))]))
[else (frame-frame (car frames))]))] (define (set-active-frame f)
[define set-active-frame (when (and active-frame
(λ (f) (not (eq? active-frame f)))
(when (and active-frame (set! most-recent-window-box (make-weak-box active-frame)))
(not (eq? active-frame f))) (set! active-frame f))
(set! most-recent-window-box (make-weak-box active-frame)))
(set! active-frame f))]
[define insert-frame [define insert-frame
(λ (new-frame) (λ (new-frame)
(unless (memf (λ (fr) (eq? (frame-frame fr) new-frame)) (unless (memf (λ (fr) (eq? (frame-frame fr) new-frame))