(define make-window
  (lambda (title)
    (let ((e (make-eventspace)))
      (parameterize
       ((current-eventspace e))
       (new frame% (label title) (alignment '(center center)))))))

(define edit-window-title
  (lambda (w name)
    (send w set-label name)))

(define window-show
  (lambda (w)
    (send w show #t)))