From: Robert Bruce Findler (robby at cs.uchicago.edu) Date: Tue Jan 14 11:34:02 EST 2003 |
|
I think that you wanted after-insert, not on-insert. on-insert is called before the insertion actually takes place, so the characters aren't yet in the editor. Try this: (define my-text% (class text% (inherit last-position get-text) (define/override after-insert (lambda (start len) (printf "~a" (get-text start (+ start len))))) (super-instantiate ()))) Robby
Posted on the users mailing list. |
|