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

...

Browse Source 
original commit: 24fe6a1fd8169dd676c1969846b08783f1edc98e
This commit is contained in:
Robby Findler 2001-10-24 04:30:26 +00:00
parent e895f3890c
commit 79f880d7bb
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -142,9 +142,8 @@
[define frame-shown/hidden
(lambda (frame)
(let ([frame-frames (map frame-frame frames)])
(when (memq frame frame-frames)
(update-windows-menus))))]
(when (memq frame (map frame-frame frames))
(update-windows-menus)))]
[define for-each-frame
(lambda (f)
@ -244,13 +243,6 @@
(super-instantiate ())))
(define (in-list? ele lst)
(let loop ([lst lst])
(cond
[(null? lst) #f]
[else (or (eq? (car lst) ele)
(loop (cdr lst)))])))
(define (choose-a-frame parent)
(letrec ([sorted-frames
(quicksort