;;; Fichier gui2.drs / 30 avril 2001

;;; www.cs.rice.edu/CS/PLT/packages/doc/mred/node6.htm

(define frame (make-object frame% "Exemple 2"))
(send frame show #t) 

(define (action o e)
  (cond ((eq? (send e get-event-type) 'text-field-enter)
         (display "STOP: ") (display (send o get-value)) (send o set-value ""))
        (else (display " LETTRE "))))

(make-object text-field% "Toto" frame action)