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

...

Browse Source 
original commit: f882fbeb24100d5c212d840e788111cb39a4687a
This commit is contained in:
Robby Findler 2001-10-24 04:28:14 +00:00
parent e437f0c414
commit e895f3890c
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,13 +137,14 @@
[define frame-label-changed
(lambda (frame)
(when (member frame (map frame-frame frames))
(when (memq frame (map frame-frame frames))
(update-windows-menus)))]
[define frame-shown/hidden
(lambda (frame)
(when (member frame (map frame-frame frames))
(update-windows-menus)))]
(let ([frame-frames (map frame-frame frames)])
(when (memq frame frame-frames)
(update-windows-menus))))]
[define for-each-frame
(lambda (f)
@ -243,6 +244,13 @@
(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