.

original commit: a287643db600e64d53cac52e1fcd6eafd2f5568b

collects/framework/private/text.ss

@@ -1061,7 +1061,11 @@ WARNING: printf is rebound in the body of the unit to always
                    (loop (cdr txts))]))
               (set! allow-edits? #f)
               (lock locked?)
-              (end-edit-sequence)))
+              (end-edit-sequence)
+              (unless (null? txts)
+                (after-io-insertion))))
+          
+          (define/public (after-io-insertion) (void))
           
           (define output-buffer-thread
             (let ([converter (bytes-open-converter "UTF-8-permissive" "UTF-8")])

collects/mrlib/cache-image-snip.ss

@@ -131,6 +131,10 @@
                                  py))])
           (send f put str)))
       
+      (define/override (get-num-scroll-steps) (+ (quotient height 20) 1))
+      (define/override (find-scroll-step y) (/ y 20))
+      (define/override (get-scroll-step-offset offset) (* offset 20))
+      
       (super-new)
       (inherit set-snipclass)
       (set-snipclass snip-class)))