From 8f0f4aacf34399e93fdfad6bc87958317040245d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 Jun 2006 19:18:03 +0000 Subject: [PATCH] removed printout svn: r3189 --- collects/drscheme/private/unit.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 35616075d7..e404cbc7e6 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -1,3 +1,4 @@ + #| closing: @@ -1419,8 +1420,7 @@ module browser threading seems wrong. (toggle-show/hide-interactions) (update-shown))) - (override get-editor%) - [define get-editor% (λ () (drscheme:get/extend:get-definitions-text))] + (define/override (get-editor%) (drscheme:get/extend:get-definitions-text)) (define/public (still-untouched?) (and (= (send definitions-text last-position) 0) (not (send definitions-text is-modified?)) @@ -2254,6 +2254,7 @@ module browser threading seems wrong. (define/private (update-close-tab-menu-item-shortcut item) (let ([just-one? (and (pair? tabs) (null? (cdr tabs)))]) (send item set-shortcut (if just-one? #f #\w)))) + (define/private (update-close-menu-item-shortcut item) (let ([just-one? (and (pair? tabs) (null? (cdr tabs)))]) (send item set-shortcut (if just-one? #\w #f))))