madatao

cursor on the text

5

(define CHAR-CANVAS% (class canvas% (define/override (on-char evt) (let ((c (send evt get-key-code)) (dc(send this get-dc))) (send dc clear) (print c) (cond ((equal? c 'release)(void)) ((member c '( #\a #\i #\u...