From c967661e8b0d5784f9a9c77a8d029d650346921c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 1 Jul 2001 01:00:17 +0000 Subject: [PATCH] ... original commit: 592a31fcd19620a694ef6dd6df7839ebbf2fd6f5 --- collects/framework/private/frame.ss | 1 - collects/framework/private/group.ss | 2 -- collects/framework/private/preferences.ss | 1 - 3 files changed, 4 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 6027980a..a51f560f 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -93,7 +93,6 @@ (override on-superwindow-show) (rename [super-on-superwindow-show on-superwindow-show]) (define (on-superwindow-show shown?) - (printf "on-superwindow-show ~s~n" shown?) (send (group:get-the-frame-group) frame-shown/hidden this) (super-on-superwindow-show shown?)) diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index bdcfa9f6..f29c7d46 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -57,7 +57,6 @@ eq?))))] [define (update-windows-menus) - (printf "update-windows-menus~n") (let* ([windows (length windows-menus)] [default-name "Untitled"] [get-name @@ -132,7 +131,6 @@ [define frame-shown/hidden (lambda (frame) - (printf "frame-shown/hidden: ~s~n" frame) (when (member frame (map frame-frame frames)) (update-windows-menus)))] diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.ss index bd328a3b..44276f91 100644 --- a/collects/framework/private/preferences.ss +++ b/collects/framework/private/preferences.ss @@ -177,7 +177,6 @@ (hash-table-put! saved-defaults p (make-pref pref)) pref)] [(pref? saved-default) - (printf "3~n") (pref-value saved-default)])))] [default-okay? (checker default-value)]) (unless default-okay?