Как работать с классами в Racket

#lang racket/gui
;Point dwell in canvas, cavas dwell in frame
(define frame (new frame%
                   [label "Example"]
                   [width 300]
                   [height 300]))
; Add a text fields to the frame
(define dia
(new text-field% [parent frame]
     [label "Diameter"]))
  ;[callback (lambda (value event)
              ;(send dia get-value))])) ;непонятно как тут рабртает
(define b (send dia get-value)) ;does not work
;(send dia get-value) запустил прогу, потом вбиваю 
;"455677"              это в репл, работает

(send frame show #t)
[/code/
Не понятно как вызывать методы класса из окружающего класс кода