(define my-frame% (class frame% (label . args) (sequence (apply super-init (cons label args))) (rename (super-on-subwindow-event on-subwindow-event)) (public (msg (make-object text-field% "" this void))) (override (on-subwindow-event (lambda (rec ev) (let ((me (when (is-a? ev mouse-event%) ev))) (if me (cond ((eq? 'enter (send me get-event-type)) (send msg set-value "The mouse entered the area")) ((eq? 'leave (send me get-event-type)) (send msg set-value "The mouse left the area")) (else (void)))))))))) (define (frame-example) (let* ((frame (make-object my-frame% "Beispiel" #f 500 200 100 100))) (send (ivar frame msg) min-width 200) (send (ivar frame msg) min-height 20) (send frame show #t)))