rv82

---

Если кто знает, подскажите пожалуйста, можно ли назначить callback'и элементам интерфейса после того, как интерфейс собран?

---

#lang racket/gui

 

(define my-button%

  (class button%

    (init-field [callback (lambda (btn event) (void))])

    (super-new [callback (lambda (btn event) (callback btn event))])))

 

(define test%

  (class frame%

    (super-new [label  "Test"]

               [width  200]

               [height 100])

 

    (define btn (new my-button%

                     [parent       this]

                     [label        "Click Me"]

                     [vert-margin  50]	 

                     [horiz-margin 50]))

 

    (define (btn-event btn event)

      (message-box "Button" "  Hello!      " this))

 

    (set-field! callback btn btn-event)))

 

(send (new test%) show #t)