From a74c59186167f81a7b3fee555d872673f3f4844a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 15 Apr 1999 21:58:35 +0000 Subject: [PATCH] ... original commit: 684e3180b07fa00532536fe5091f1d77fd990f2b --- collects/framework/canvas.ss | 1 + collects/framework/editor.ss | 2 +- collects/framework/text.ss | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/canvas.ss b/collects/framework/canvas.ss index 9d587908..5ccf58da 100644 --- a/collects/framework/canvas.ss +++ b/collects/framework/canvas.ss @@ -17,6 +17,7 @@ [tall-snips null] [update-snip-size (lambda (width?) + (printf "update-snip-size: ~a~n" width?) (lambda (s) (let* ([width (box 0)] [height (box 0)] diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss index e662b8d9..0d8f8eb4 100644 --- a/collects/framework/editor.ss +++ b/collects/framework/editor.ss @@ -36,7 +36,7 @@ (inherit get-filename save-file refresh-delayed? get-canvas - get-max-width get-admin set-filename) + get-max-width get-admin) (private [has-focus #f]) (rename [super-on-focus on-focus]) diff --git a/collects/framework/text.ss b/collects/framework/text.ss index 84d1fa05..ad110942 100644 --- a/collects/framework/text.ss +++ b/collects/framework/text.ss @@ -355,6 +355,7 @@ (if (eq? direction 'forward) 'after-or-none 'before-or-none))]) + (printf "searching snips: ~a~n" current-snip) (let ([next-loop (lambda () (if (eq? direction 'forward)