From cb4d3444cd7c0815d675b5d1d29f614e02ea5e56 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Sep 2004 22:17:48 +0000 Subject: [PATCH] . original commit: a287643db600e64d53cac52e1fcd6eafd2f5568b --- collects/framework/private/text.ss | 6 +++++- collects/mrlib/cache-image-snip.ss | 4 ++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 0fb1f512..b8904eed 100644 --- a/collects/framework/private/text.ss +++ b/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")]) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index f019f53f..2eef39c3 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/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)))