(define top-frame (make-object frame% "Test"))

(define (btn-callback btn evt) (send top-frame on-exit))

(define t-list `("Button" ,btn-callback))

(define (make-button)
  (make-object button% (car t-list) top-frame
      (cadr t-list)))

(define a-button (make-button))
                  



(send top-frame show #t)