tests/project-222820.ss
#lang scheme/gui

;;==========================================================================
;;===                Code generated with MrEd Designer 3.0               ===
;;===                 http://mred-designer.origo.ethz.ch                 ===
;;==========================================================================

(require
 framework
 )

(provide frame-222988
         group-box-panel-form
         text-field-first-name
         text-field-last-name
         radio-box-sex
         horizontal-panel-100362
         button-form-ok
         button-form-cancel
         menu-bar-99582
         menu-file
         menu-item-open
         menu-item-save
         menu-item-save-as
         separator-menu-item-99622
         menu-item-exit
         menu-edit
         menu-item-cut
         menu-item-copy
         menu-item-paste
         separator-menu-item-99686
         menu-item-pref
         menu-help
         menu-item-about)
(define frame-222988 #f)
(define group-box-panel-form #f)
(define text-field-first-name #f)
(define text-field-last-name #f)
(define radio-box-sex #f)
(define horizontal-panel-100362 #f)
(define button-form-ok #f)
(define button-form-cancel #f)
(define menu-bar-99582 #f)
(define menu-file #f)
(define menu-item-open #f)
(define menu-item-save #f)
(define menu-item-save-as #f)
(define separator-menu-item-99622 #f)
(define menu-item-exit #f)
(define menu-edit #f)
(define menu-item-cut #f)
(define menu-item-copy #f)
(define menu-item-paste #f)
(define separator-menu-item-99686 #f)
(define menu-item-pref #f)
(define menu-help #f)
(define menu-item-about #f)
(define (project-222820-init
         #:text-field-first-name-callback
         (text-field-first-name-callback
          (lambda (text-field control-event)
            (void)))
         #:text-field-last-name-callback
         (text-field-last-name-callback
          (lambda (text-field control-event)
            (void)))
         #:radio-box-sex-callback
         (radio-box-sex-callback
          (lambda (radio-box control-event)
            (void)))
         #:button-form-ok-callback
         (button-form-ok-callback
          (lambda (button control-event) (void)))
         #:button-form-cancel-callback
         (button-form-cancel-callback
          (lambda (button control-event) (void)))
         #:menu-bar-99582-demand-callback
         (menu-bar-99582-demand-callback
          (lambda (m) (void)))
         #:menu-file-demand-callback
         (menu-file-demand-callback
          (lambda (m) (void)))
         #:menu-item-open-callback
         (menu-item-open-callback
          (lambda (item event) (void)))
         #:menu-item-open-demand-callback
         (menu-item-open-demand-callback
          (lambda (item) (void)))
         #:menu-item-save-callback
         (menu-item-save-callback
          (lambda (item event) (void)))
         #:menu-item-save-demand-callback
         (menu-item-save-demand-callback
          (lambda (item) (void)))
         #:menu-item-save-as-callback
         (menu-item-save-as-callback
          (lambda (item event) (void)))
         #:menu-item-save-as-demand-callback
         (menu-item-save-as-demand-callback
          (lambda (item) (void)))
         #:menu-item-exit-callback
         (menu-item-exit-callback
          (lambda (item event) (void)))
         #:menu-item-exit-demand-callback
         (menu-item-exit-demand-callback
          (lambda (item) (void)))
         #:menu-edit-demand-callback
         (menu-edit-demand-callback
          (lambda (m) (void)))
         #:menu-item-cut-callback
         (menu-item-cut-callback
          (lambda (item event) (void)))
         #:menu-item-cut-demand-callback
         (menu-item-cut-demand-callback
          (lambda (item) (void)))
         #:menu-item-copy-callback
         (menu-item-copy-callback
          (lambda (item event) (void)))
         #:menu-item-copy-demand-callback
         (menu-item-copy-demand-callback
          (lambda (item) (void)))
         #:menu-item-paste-callback
         (menu-item-paste-callback
          (lambda (item event) (void)))
         #:menu-item-paste-demand-callback
         (menu-item-paste-demand-callback
          (lambda (item) (void)))
         #:menu-item-pref-callback
         (menu-item-pref-callback
          (lambda (item event) (void)))
         #:menu-item-pref-demand-callback
         (menu-item-pref-demand-callback
          (lambda (item) (void)))
         #:menu-help-demand-callback
         (menu-help-demand-callback
          (lambda (m) (void)))
         #:menu-item-about-callback
         (menu-item-about-callback
          (lambda (item event) (void)))
         #:menu-item-about-demand-callback
         (menu-item-about-demand-callback
          (lambda (item) (void))))
  (set! frame-222988
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width 199)
     (height 206)
     (x 477)
     (y 279)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! group-box-panel-form
    (new
     group-box-panel%
     (parent frame-222988)
     (label "Fill in the form")
     (style '())
     (font
      ((λ (l)
         (send/apply
          the-font-list
          find-or-create-font
          l))
       (list
        8
        'default
        'normal
        'normal
        #f
        'default
        #f)))
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (border 10)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! text-field-first-name
    (new
     text-field%
     (parent group-box-panel-form)
     (label "First Name:")
     (callback text-field-first-name-callback)
     (init-value "")
     (style
      ((λ (l)
         (list* (first l) (second l) (third l)))
       (list 'single 'horizontal-label '())))
     (font
      ((λ (l)
         (send/apply
          the-font-list
          find-or-create-font
          l))
       (list
        8
        'default
        'normal
        'normal
        #f
        'default
        #f)))
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! text-field-last-name
    (new
     text-field%
     (parent group-box-panel-form)
     (label "Last Name:")
     (callback text-field-last-name-callback)
     (init-value "")
     (style
      ((λ (l)
         (list* (first l) (second l) (third l)))
       (list 'single 'horizontal-label '())))
     (font
      ((λ (l)
         (send/apply
          the-font-list
          find-or-create-font
          l))
       (list
        8
        'default
        'normal
        'normal
        #f
        'default
        #f)))
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! radio-box-sex
    (new
     radio-box%
     (parent group-box-panel-form)
     (label "Sex:   ")
     (choices (list "Female" "Male"))
     (callback radio-box-sex-callback)
     (style
      ((λ (l)
         (list* (first l) (second l) (third l)))
       (list 'vertical 'horizontal-label '())))
     (font
      ((λ (l)
         (send/apply
          the-font-list
          find-or-create-font
          l))
       (list
        8
        'default
        'normal
        'normal
        #f
        'default
        #f)))
     (selection 0)
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! horizontal-panel-100362
    (new
     horizontal-panel%
     (parent group-box-panel-form)
     (style '())
     (enabled #t)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'center))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! button-form-ok
    (new
     button%
     (parent horizontal-panel-100362)
     (label
      ((λ (l)
         (or (and (second l)
                  (or (third l) "Bad Image"))
             (first l)))
       (list
        ((λ (v) (if (string=? v "") #f v)) "OK")
        #f
        ((λ (v)
           (and v
                (let ((bmp
                       (make-object bitmap% v)))
                  (and (send bmp ok?) bmp))))
         #f))))
     (callback button-form-ok-callback)
     (style '())
     (font
      ((λ (l)
         (send/apply
          the-font-list
          find-or-create-font
          l))
       (list
        8
        'default
        'normal
        'normal
        #f
        'default
        #f)))
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! button-form-cancel
    (new
     button%
     (parent horizontal-panel-100362)
     (label
      ((λ (l)
         (or (and (second l)
                  (or (third l) "Bad Image"))
             (first l)))
       (list
        ((λ (v) (if (string=? v "") #f v))
         "Cancel")
        #f
        ((λ (v)
           (and v
                (let ((bmp
                       (make-object bitmap% v)))
                  (and (send bmp ok?) bmp))))
         #f))))
     (callback button-form-cancel-callback)
     (style '())
     (font
      ((λ (l)
         (send/apply
          the-font-list
          find-or-create-font
          l))
       (list
        8
        'default
        'normal
        'normal
        #f
        'default
        #f)))
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! menu-bar-99582
    (new
     menu-bar%
     (parent frame-222988)
     (demand-callback
      menu-bar-99582-demand-callback)))
  (set! menu-file
    (new
     menu%
     (parent menu-bar-99582)
     (label "&File")
     (help-string "File")
     (demand-callback menu-file-demand-callback)))
  (set! menu-item-open
    (new
     menu-item%
     (parent menu-file)
     (label "&Open...")
     (callback menu-item-open-callback)
     (shortcut #\O)
     (help-string "Open")
     (demand-callback
      menu-item-open-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-save
    (new
     menu-item%
     (parent menu-file)
     (label "&Save")
     (callback menu-item-save-callback)
     (shortcut #\S)
     (help-string "Save")
     (demand-callback
      menu-item-save-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-save-as
    (new
     menu-item%
     (parent menu-file)
     (label "&Save as...")
     (callback menu-item-save-as-callback)
     (shortcut #f)
     (help-string "Save as")
     (demand-callback
      menu-item-save-as-demand-callback)
     (shortcut-prefix '(ctl shift))))
  (set! separator-menu-item-99622
    (new separator-menu-item% (parent menu-file)))
  (set! menu-item-exit
    (new
     menu-item%
     (parent menu-file)
     (label "E&xit")
     (callback menu-item-exit-callback)
     (shortcut #\Q)
     (help-string "Exit Application")
     (demand-callback
      menu-item-exit-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-edit
    (new
     menu%
     (parent menu-bar-99582)
     (label "&Edit")
     (help-string "Edit")
     (demand-callback menu-edit-demand-callback)))
  (set! menu-item-cut
    (new
     menu-item%
     (parent menu-edit)
     (label "&Cut")
     (callback menu-item-cut-callback)
     (shortcut #\X)
     (help-string "Cut")
     (demand-callback
      menu-item-cut-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-copy
    (new
     menu-item%
     (parent menu-edit)
     (label "&Copy")
     (callback menu-item-copy-callback)
     (shortcut #\C)
     (help-string "Copy")
     (demand-callback
      menu-item-copy-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-paste
    (new
     menu-item%
     (parent menu-edit)
     (label "&Paste")
     (callback menu-item-paste-callback)
     (shortcut #\V)
     (help-string "Paste")
     (demand-callback
      menu-item-paste-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! separator-menu-item-99686
    (new separator-menu-item% (parent menu-edit)))
  (set! menu-item-pref
    (new
     menu-item%
     (parent menu-edit)
     (label "&Preferences...")
     (callback menu-item-pref-callback)
     (shortcut 'f1)
     (help-string "Preferences")
     (demand-callback
      menu-item-pref-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-help
    (new
     menu%
     (parent menu-bar-99582)
     (label "&Help")
     (help-string "Help")
     (demand-callback menu-help-demand-callback)))
  (set! menu-item-about
    (new
     menu-item%
     (parent menu-help)
     (label "&About...")
     (callback menu-item-about-callback)
     (shortcut 'f1)
     (help-string "About")
     (demand-callback
      menu-item-about-demand-callback)
     (shortcut-prefix '())))
  (send frame-222988 show #t))