From 5387cd21e09fbb06705348ed5207a55adc69100e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 19 Jan 2005 21:29:12 +0000 Subject: [PATCH] . original commit: 4608381c902cf8d5ec435342936fd5ed0dbcebf6 --- collects/framework/private/text.ss | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 353e3ab4..ec835fb2 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -885,7 +885,9 @@ WARNING: printf is rebound in the body of the unit to always get-out-port get-err-port get-value-port - after-io-insertion)) + after-io-insertion + + on-peek)) (define-struct peeker (bytes skip-count pe resp-chan nack) (make-inspector)) (define-struct committer (kr commit-peeker-evt done-evt resp-chan resp-nack)) @@ -1004,6 +1006,9 @@ WARNING: printf is rebound in the body of the unit to always (send value-sd set-delta-foreground (make-object color% 0 0 175)) value-sd)) + ;; called by the port thread + (define/public (on-peek) (void)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; editor integration @@ -1362,6 +1367,7 @@ WARNING: printf is rebound in the body of the unit to always peek-chan (lambda (peeker) (dprintf "i: peek-chan\n") + (on-peek) (set! peekers (cons peeker peekers)) (loop))) (handle-evt