...

original commit: 684e3180b07fa00532536fe5091f1d77fd990f2b

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)]

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])

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)