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

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

(require
 framework
 )

(provide frame-2996
         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
         tab-panel-3116
         tab-3142
         vertical-pane-3198
         group-box-panel-form
         text-field-first-name
         text-field-last-name
         radio-box-sex
         horizontal-panel-100362
         button-form-ok
         button-form-cancel
         list-box-3599
         slider-3661
         tab-3146
         tab-3150)
(define frame-2996 #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 tab-panel-3116 #f)
(define tab-3142 #f)
(define vertical-pane-3198 #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 list-box-3599 #f)
(define slider-3661 #f)
(define tab-3146 #f)
(define tab-3150 #f)
(define (project-2988-init
         #: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)))
         #:tab-panel-3116-callback
         (tab-panel-3116-callback
          (λ (tp e) (send tp active-child (send tp get-selection))))
         #: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)))
         #:list-box-3599-callback
         (list-box-3599-callback (lambda (list-box control-event) (void)))
         #:slider-3661-callback
         (slider-3661-callback (λ (slider control-event) (void))))
  (set! frame-2996
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width 435)
     (height 460)
     (x 459)
     (y 190)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! menu-bar-99582
    (new
     menu-bar%
     (parent frame-2996)
     (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 '())))
  (set! tab-panel-3116
    (new
     (class tab-panel%
       (super-new)
       (define single-panel (new panel:single% (parent this)))
       (define/public (get-single-panel) single-panel)
       (define child-panels '())
       (define/public
        (add-child-panel p label)
        (set! child-panels (append child-panels (list p)))
        (send this append label))
       (define/public
        (active-child n)
        (send single-panel active-child (list-ref child-panels n))))
     (parent frame-2996)
     (choices (list))
     (callback tab-panel-3116-callback)
     (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! tab-3142
    (new
     (class vertical-panel%
       (init parent)
       (init-field label)
       (super-new (parent (send parent get-single-panel)))
       (send parent add-child-panel this label))
     (parent tab-panel-3116)
     (label "Form")
     (style '())
     (enabled #t)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'left 'center))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! vertical-pane-3198
    (new
     vertical-pane%
     (parent tab-3142)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 15)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! group-box-panel-form
    (new
     group-box-panel%
     (parent vertical-pane-3198)
     (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 'roman 'italic 'bold #t 'smoothed #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")
        #t
        ((λ (v)
           (and v
                (let ((bmp (make-object bitmap% v)))
                  (and (send bmp ok?) bmp))))
         "E:\\Projets\\Scheme\\mreddesigner-2.2\\images\\icons\\24x24\\button.png"))))
     (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! list-box-3599
    (new
     list-box%
     (parent vertical-pane-3198)
     (label "Who needs somebody?")
     (choices (list "You" "Me" "Everybody"))
     (callback list-box-3599-callback)
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'single 'vertical-label '())))
     (font
      ((λ (l) (send/apply the-font-list find-or-create-font l))
       (list 8 'default 'italic 'normal #f 'default #f)))
     (selection 0)
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 150)
     (min-height 0)
     (stretchable-width #f)
     (stretchable-height #f)))
  (set! slider-3661
    (new
     slider%
     (parent vertical-pane-3198)
     (label "How much?")
     (min-value 0)
     (max-value 100)
     (init-value 0)
     (callback slider-3661-callback)
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'horizontal '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! tab-3146
    (new
     (class vertical-panel%
       (init parent)
       (init-field label)
       (super-new (parent (send parent get-single-panel)))
       (send parent add-child-panel this label))
     (parent tab-panel-3116)
     (label "Preferences")
     (style '())
     (enabled #t)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'left 'center))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! tab-3150
    (new
     (class vertical-panel%
       (init parent)
       (init-field label)
       (super-new (parent (send parent get-single-panel)))
       (send parent add-child-panel this label))
     (parent tab-panel-3116)
     (label "Editing")
     (style '())
     (enabled #t)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'left 'center))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (send frame-2996 show #t))