suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 4608381c902cf8d5ec435342936fd5ed0dbcebf6
This commit is contained in:
Robby Findler 2005-01-19 21:29:12 +00:00
parent 14aad99f3c
commit 5387cd21e0
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/text.ss
View File

@ -885,7 +885,9 @@ WARNING: printf is rebound in the body of the unit to always
get-out-port get-out-port
get-err-port get-err-port
get-value-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 peeker (bytes skip-count pe resp-chan nack) (make-inspector))
(define-struct committer (kr commit-peeker-evt done-evt resp-chan resp-nack)) (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)) (send value-sd set-delta-foreground (make-object color% 0 0 175))
value-sd)) value-sd))
;; called by the port thread
(define/public (on-peek) (void))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; editor integration ;; editor integration
@ -1362,6 +1367,7 @@ WARNING: printf is rebound in the body of the unit to always
peek-chan peek-chan
(lambda (peeker) (lambda (peeker)
(dprintf "i: peek-chan\n") (dprintf "i: peek-chan\n")
(on-peek)
(set! peekers (cons peeker peekers)) (set! peekers (cons peeker peekers))
(loop))) (loop)))
(handle-evt (handle-evt