(define (hello-scheme-gui-world) 
  (message-box "Hello World" 
               (format "Hallo schöne ~nScheme-Gui~n Welt~n")
               #f
               '(ok)))


(define (frame-example)
  (let* ((frame (make-object frame% "Beispiel"))
         (msg (make-object message% "Bislang nichts los hier" frame)))
         (send (make-object button% "Drück mich ;-)" frame
                 (lambda (button event) 
                   (send msg set-label "Maus-klick")
                   (send button set-label "Bin gedrückt worden")))
               min-width 200)
    (send frame show #t)))