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

...

Browse Source 
original commit: 592a31fcd19620a694ef6dd6df7839ebbf2fd6f5
This commit is contained in:
Robby Findler 2001-07-01 01:00:17 +00:00
parent d5823039c6
commit c967661e8b
3 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -93,7 +93,6 @@
(override on-superwindow-show) (override on-superwindow-show)
(rename [super-on-superwindow-show on-superwindow-show]) (rename [super-on-superwindow-show on-superwindow-show])
(define (on-superwindow-show shown?) (define (on-superwindow-show shown?)
(printf "on-superwindow-show ~s~n" shown?)
(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?))

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

@ -57,7 +57,6 @@
eq?))))] eq?))))]
[define (update-windows-menus) [define (update-windows-menus)
(printf "update-windows-menus~n")
(let* ([windows (length windows-menus)] (let* ([windows (length windows-menus)]
[default-name "Untitled"] [default-name "Untitled"]
[get-name [get-name
@ -132,7 +131,6 @@
[define frame-shown/hidden [define frame-shown/hidden
(lambda (frame) (lambda (frame)
(printf "frame-shown/hidden: ~s~n" frame)
(when (member frame (map frame-frame frames)) (when (member frame (map frame-frame frames))
(update-windows-menus)))] (update-windows-menus)))]

1
collects/framework/private/preferences.ss
View File

@ -177,7 +177,6 @@
(hash-table-put! saved-defaults p (make-pref pref)) (hash-table-put! saved-defaults p (make-pref pref))
pref)] pref)]
[(pref? saved-default) [(pref? saved-default)
(printf "3~n")
(pref-value saved-default)])))] (pref-value saved-default)])))]
[default-okay? (checker default-value)]) [default-okay? (checker default-value)])
(unless default-okay? (unless default-okay?