[prev in list] [next in list] [prev in thread] [next in thread] 

List:       racket-users
Subject:    [plt-scheme] (no subject)
From:       michel.pepino () club-internet ! fr (michel ! pepino at club-internet ! fr)
Date:       2002-12-29 23:58:14
Message-ID: mnet1.1041202694.7484.michel.pepino () club-internet ! fr
[Download RAW message or body]

(define my-scheme:text%
  (class scheme:text%
    (override on-char)
    (define on-char
      (lambda (event) 
        (send text-definition insert (send event get-key-code))))
    (super-instantiate ())))
                       

(define definition (instantiate editor-canvas% ($panel-editor)))        
(define text-definition (instantiate my-scheme:text% ()))
(send definition set-editor text-definition)    

this code don't work when i tape on backspace left top ...
any idea?



[prev in list] [next in list] [prev in thread] [next in thread]