;;; Fichier gui1.drs / 30 avril 2001

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

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

(define (action o e)
  (display (send o get-label)) (display " ") (display (send e get-event-type)) (display " / "))

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