From 65163abd23565c74d80923b9a3cbd0b36b58a202 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 Jan 2004 14:29:17 +0000 Subject: [PATCH] .. original commit: f547c9ac864d3fa1e19ecf26ce4839d0f5e0e506 --- collects/framework/decorated-editor-snip.ss | 4 ---- 1 file changed, 4 deletions(-) diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss index 07a91ffc..f97e2206 100644 --- a/collects/framework/decorated-editor-snip.ss +++ b/collects/framework/decorated-editor-snip.ss @@ -179,7 +179,6 @@ (define decorated-editor-snip% (class (decorated-editor-snip-mixin editor-snip%) - (printf "decorated-editor-snip% created\n") (inherit get-editor get-style) ;; make-snip : -> this% @@ -195,11 +194,9 @@ (send (get-editor) write-to-file stream-out 0 'eof))) (define/override (copy) - (printf "decorated editor snip copy called\n") (let ([snip (make-snip)]) (send snip set-editor (send (get-editor) copy-self)) (send snip set-style (get-style)) - (printf "decorated editor snip copy returning ~s\n" snip) snip)) (super-new @@ -213,7 +210,6 @@ (define/public (make-snip stream-in) (make-object decorated-editor-snip%)) (define/override (read stream-in) - (printf "decoarated-edito-snipclass read\n") (let ([snip (make-snip stream-in)]) (send (send snip get-editor) read-from-file stream-in #f) snip))