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

..

Browse Source 
original commit: c6987f1218e74c1b6bd0a1ae3cd159c719c794e8
This commit is contained in:
Robby Findler 2002-11-07 03:46:53 +00:00
parent ee1377af03
commit 978f2f96d6
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -131,8 +131,9 @@
(rename [super-show show]) (rename [super-show show])
(define/override (show on?) (define/override (show on?)
(when on? (if on?
(send (group:get-the-frame-group) insert-frame this)) (send (group:get-the-frame-group) insert-frame this)
(send (group:get-the-frame-group) remove-frame this))
(super-show on?)) (super-show on?))
(define/override (can-exit?) (define/override (can-exit?)
@ -160,7 +161,6 @@
(send (group:get-the-frame-group) frame-shown/hidden this) (send (group:get-the-frame-group) frame-shown/hidden this)
(super-on-superwindow-show shown?)) (super-on-superwindow-show shown?))
(rename [super-can-close? can-close?] (rename [super-can-close? can-close?]
[super-on-close on-close] [super-on-close on-close]
[super-on-focus on-focus]) [super-on-focus on-focus])

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

@ -192,9 +192,7 @@
(send mdi-parent show #t)) (send mdi-parent show #t))
mdi-parent)] mdi-parent)]
(define (get-frames) (define (get-frames) (map frame-frame frames))
(filter (lambda (x) (send x is-shown?))
(map frame-frame frames)))
[define frame-label-changed [define frame-label-changed
(lambda (frame) (lambda (frame)