tests/project-test-all.ss
#lang scheme/gui

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

(require
 framework
 )

(provide frame-53711
         pane-53738
         gauge-53884
         horizontal-pane-53742
         radio-box-53905
         slider-54102
         vertical-pane-53746
         choice-53926
         panel-53750
         list-box-53949
         horizontal-panel-53754
         combo-field-53972
         vertical-panel-53758
         text-field-53996
         group-box-panel-53762
         canvas-54024
         grow-box-spacer-pane-53766
         tab-panel-53770
         tab-53796
         message-53825
         button-53829
         tab-53800
         text-field-53854
         canvas-53859
         menu-bar-54028
         menu-54035
         menu-item-54050
         menu-item-54054
         separator-menu-item-54058
         menu-item-54062
         menu-54039
         menu-item-54073)
(define frame-53711 #f)
(define pane-53738 #f)
(define gauge-53884 #f)
(define horizontal-pane-53742 #f)
(define radio-box-53905 #f)
(define slider-54102 #f)
(define vertical-pane-53746 #f)
(define choice-53926 #f)
(define panel-53750 #f)
(define list-box-53949 #f)
(define horizontal-panel-53754 #f)
(define combo-field-53972 #f)
(define vertical-panel-53758 #f)
(define text-field-53996 #f)
(define group-box-panel-53762 #f)
(define canvas-54024 #f)
(define grow-box-spacer-pane-53766 #f)
(define tab-panel-53770 #f)
(define tab-53796 #f)
(define message-53825 #f)
(define button-53829 #f)
(define tab-53800 #f)
(define text-field-53854 #f)
(define canvas-53859 #f)
(define menu-bar-54028 #f)
(define menu-54035 #f)
(define menu-item-54050 #f)
(define menu-item-54054 #f)
(define separator-menu-item-54058 #f)
(define menu-item-54062 #f)
(define menu-54039 #f)
(define menu-item-54073 #f)
(define (project-test-all-init
         #:radio-box-53905-callback
         (radio-box-53905-callback
          (lambda (radio-box control-event) (void)))
         #:slider-54102-callback
         (slider-54102-callback
          (λ (slider control-event) (void)))
         #:choice-53926-callback
         (choice-53926-callback
          (lambda (choice control-event) (void)))
         #:list-box-53949-callback
         (list-box-53949-callback
          (lambda (list-box control-event) (void)))
         #:combo-field-53972-callback
         (combo-field-53972-callback
          (lambda (combo-field control-event) (void)))
         #:text-field-53996-callback
         (text-field-53996-callback
          (lambda (text-field control-event) (void)))
         #:canvas-54024-paint-callback
         (canvas-54024-paint-callback
          (λ (canvas dc) (void)))
         #:tab-panel-53770-callback
         (tab-panel-53770-callback
          (λ (tp e)
            (send tp active-child
              (send tp get-selection))))
         #:button-53829-callback
         (button-53829-callback
          (lambda (button control-event) (void)))
         #:text-field-53854-callback
         (text-field-53854-callback
          (lambda (text-field control-event) (void)))
         #:canvas-53859-paint-callback
         (canvas-53859-paint-callback
          (λ (canvas dc) (void)))
         #:menu-bar-54028-demand-callback
         (menu-bar-54028-demand-callback
          (lambda (m) (void)))
         #:menu-54035-demand-callback
         (menu-54035-demand-callback
          (lambda (m) (void)))
         #:menu-item-54050-callback
         (menu-item-54050-callback
          (lambda (item event) (void)))
         #:menu-item-54050-demand-callback
         (menu-item-54050-demand-callback
          (lambda (item) (void)))
         #:menu-item-54054-callback
         (menu-item-54054-callback
          (lambda (item event) (void)))
         #:menu-item-54054-demand-callback
         (menu-item-54054-demand-callback
          (lambda (item) (void)))
         #:menu-item-54062-callback
         (menu-item-54062-callback
          (lambda (item event) (void)))
         #:menu-item-54062-demand-callback
         (menu-item-54062-demand-callback
          (lambda (item) (void)))
         #:menu-54039-demand-callback
         (menu-54039-demand-callback
          (lambda (m) (void)))
         #:menu-item-54073-callback
         (menu-item-54073-callback
          (lambda (item event) (void)))
         #:menu-item-54073-demand-callback
         (menu-item-54073-demand-callback
          (lambda (item) (void))))
  (set! frame-53711
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width #f)
     (height #f)
     (x 394)
     (y 371)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! pane-53738
    (new
     pane%
     (parent frame-53711)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! gauge-53884
    (new
     gauge%
     (parent pane-53738)
     (label "Gauge")
     (range 100)
     (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! horizontal-pane-53742
    (new
     horizontal-pane%
     (parent frame-53711)
     (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! radio-box-53905
    (new
     radio-box%
     (parent horizontal-pane-53742)
     (label "Radio Box")
     (choices (list "&First" "&Second"))
     (callback radio-box-53905-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! slider-54102
    (new
     slider%
     (parent horizontal-pane-53742)
     (label "Slider")
     (min-value 0)
     (max-value 100)
     (init-value 0)
     (callback slider-54102-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! vertical-pane-53746
    (new
     vertical-pane%
     (parent frame-53711)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! choice-53926
    (new
     choice%
     (parent vertical-pane-53746)
     (label "Choice")
     (choices (list "First" "Second"))
     (callback choice-53926-callback)
     (style
      ((λ (l) (list* (first l) (second l)))
       (list '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! panel-53750
    (new
     panel%
     (parent frame-53711)
     (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! list-box-53949
    (new
     list-box%
     (parent panel-53750)
     (label "List Box")
     (choices (list "First" "Second"))
     (callback list-box-53949-callback)
     (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)))
     (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-53754
    (new
     horizontal-panel%
     (parent frame-53711)
     (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! combo-field-53972
    (new
     combo-field%
     (parent horizontal-panel-53754)
     (label "Combo Field")
     (choices (list "First" "Second"))
     (callback combo-field-53972-callback)
     (init-value "Text")
     (style
      ((λ (l) (list* (first l) (second l)))
       (list '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! vertical-panel-53758
    (new
     vertical-panel%
     (parent frame-53711)
     (style '())
     (enabled #t)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! text-field-53996
    (new
     text-field%
     (parent vertical-panel-53758)
     (label "Text Field")
     (callback text-field-53996-callback)
     (init-value "Text")
     (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! group-box-panel-53762
    (new
     group-box-panel%
     (parent frame-53711)
     (label "Group Box Panel")
     (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 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! canvas-54024
    (new
     canvas%
     (parent group-box-panel-53762)
     (style '())
     (paint-callback canvas-54024-paint-callback)
     (label "Canvas")
     (gl-config #f)
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! grow-box-spacer-pane-53766
    (new
     grow-box-spacer-pane%
     (parent frame-53711)
     (vert-margin 0)
     (horiz-margin 0)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! tab-panel-53770
    (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-53711)
     (choices (list))
     (callback tab-panel-53770-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-53796
    (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-53770)
     (label "Tab")
     (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! message-53825
    (new
     message%
     (parent tab-53796)
     (label
      ((λ (l)
         (or (and (second l) (or (third l) "Bad Image"))
             (first l)))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Message")
        #f
        ((λ (v)
           (and v
                (let ((bmp (make-object bitmap% v)))
                  (and (send bmp ok?) bmp))))
         #f))))
     (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)
     (auto-resize #f)))
  (set! button-53829
    (new
     button%
     (parent tab-53796)
     (label
      ((λ (l)
         (or (and (second l) (or (third l) "Bad Image"))
             (first l)))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Button")
        #f
        ((λ (v)
           (and v
                (let ((bmp (make-object bitmap% v)))
                  (and (send bmp ok?) bmp))))
         #f))))
     (callback button-53829-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! tab-53800
    (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-53770)
     (label "Tab")
     (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! text-field-53854
    (new
     text-field%
     (parent tab-53800)
     (label "Text Field")
     (callback text-field-53854-callback)
     (init-value "Text")
     (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! canvas-53859
    (new
     canvas%
     (parent tab-53800)
     (style '())
     (paint-callback canvas-53859-paint-callback)
     (label "Canvas")
     (gl-config #f)
     (enabled #t)
     (vert-margin 2)
     (horiz-margin 2)
     (min-width 0)
     (min-height 0)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! menu-bar-54028
    (new
     menu-bar%
     (parent frame-53711)
     (demand-callback menu-bar-54028-demand-callback)))
  (set! menu-54035
    (new
     menu%
     (parent menu-bar-54028)
     (label "&Menu")
     (help-string "Menu")
     (demand-callback menu-54035-demand-callback)))
  (set! menu-item-54050
    (new
     menu-item%
     (parent menu-54035)
     (label "&Item")
     (callback menu-item-54050-callback)
     (shortcut #f)
     (help-string "Item")
     (demand-callback menu-item-54050-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-54054
    (new
     menu-item%
     (parent menu-54035)
     (label "&Item")
     (callback menu-item-54054-callback)
     (shortcut #f)
     (help-string "Item")
     (demand-callback menu-item-54054-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! separator-menu-item-54058
    (new separator-menu-item% (parent menu-54035)))
  (set! menu-item-54062
    (new
     menu-item%
     (parent menu-54035)
     (label "&Item")
     (callback menu-item-54062-callback)
     (shortcut #f)
     (help-string "Item")
     (demand-callback menu-item-54062-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-54039
    (new
     menu%
     (parent menu-bar-54028)
     (label "&Menu")
     (help-string "Menu")
     (demand-callback menu-54039-demand-callback)))
  (set! menu-item-54073
    (new
     menu-item%
     (parent menu-54039)
     (label "&Item")
     (callback menu-item-54073-callback)
     (shortcut #f)
     (help-string "Item")
     (demand-callback menu-item-54073-demand-callback)
     (shortcut-prefix '(ctl))))
  (send frame-53711 show #t))