#lang scheme/gui

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

(require
 framework
 )

(provide frame-21115
         vertical-pane-21146
         button-21167
         slider-21171
         gauge-21175
         horizontal-pane-21179
         combo-field-21212
         text-field-21217
         canvas-21222
         radio-box-21183
         list-box-21187
         choice-21191
         frame-21142
         menu-bar-21249
         menu-21256
         menu-item-21267
         menu-item-21271)
(define frame-21115 #f)
(define vertical-pane-21146 #f)
(define button-21167 #f)
(define slider-21171 #f)
(define gauge-21175 #f)
(define horizontal-pane-21179 #f)
(define combo-field-21212 #f)
(define text-field-21217 #f)
(define canvas-21222 #f)
(define radio-box-21183 #f)
(define list-box-21187 #f)
(define choice-21191 #f)
(define frame-21142 #f)
(define menu-bar-21249 #f)
(define menu-21256 #f)
(define menu-item-21267 #f)
(define menu-item-21271 #f)
(define (project-21107-init
         #:button-21167-callback
         (button-21167-callback
          (lambda (button control-event) (void)))
         #:slider-21171-callback
         (slider-21171-callback
          (λ (slider control-event) (void)))
         #:combo-field-21212-callback
         (combo-field-21212-callback
          (lambda (combo-field control-event) (void)))
         #:text-field-21217-callback
         (text-field-21217-callback
          (lambda (text-field control-event) (void)))
         #:canvas-21222-paint-callback
         (canvas-21222-paint-callback
          (λ (canvas dc) (void)))
         #:radio-box-21183-callback
         (radio-box-21183-callback
          (lambda (radio-box control-event) (void)))
         #:list-box-21187-callback
         (list-box-21187-callback
          (lambda (list-box control-event) (void)))
         #:choice-21191-callback
         (choice-21191-callback
          (lambda (choice control-event) (void)))
         #:menu-bar-21249-demand-callback
         (menu-bar-21249-demand-callback
          (lambda (m) (void)))
         #:menu-21256-demand-callback
         (menu-21256-demand-callback
          (lambda (m) (void)))
         #:menu-item-21267-callback
         (menu-item-21267-callback
          (lambda (item event) (void)))
         #:menu-item-21267-demand-callback
         (menu-item-21267-demand-callback
          (lambda (item) (void)))
         #:menu-item-21271-callback
         (menu-item-21271-callback
          (lambda (item event) (void)))
         #:menu-item-21271-demand-callback
         (menu-item-21271-demand-callback
          (lambda (item) (void))))
  (set! frame-21115
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width #f)
     (height #f)
     (x 472)
     (y 61)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! vertical-pane-21146
    (new
     vertical-pane%
     (parent frame-21115)
     (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! button-21167
    (new
     button%
     (parent vertical-pane-21146)
     (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-21167-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! slider-21171
    (new
     slider%
     (parent vertical-pane-21146)
     (label "Slider")
     (min-value 0)
     (max-value 100)
     (init-value 0)
     (callback slider-21171-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! gauge-21175
    (new
     gauge%
     (parent vertical-pane-21146)
     (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-21179
    (new
     horizontal-pane%
     (parent vertical-pane-21146)
     (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-21212
    (new
     combo-field%
     (parent horizontal-pane-21179)
     (label "Combo Field")
     (choices (list "First" "Second"))
     (callback combo-field-21212-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! text-field-21217
    (new
     text-field%
     (parent horizontal-pane-21179)
     (label "Text Field")
     (callback text-field-21217-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-21222
    (new
     canvas%
     (parent horizontal-pane-21179)
     (style '())
     (paint-callback canvas-21222-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! radio-box-21183
    (new
     radio-box%
     (parent vertical-pane-21146)
     (label "Radio Box")
     (choices (list "&First" "&Second"))
     (callback radio-box-21183-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! list-box-21187
    (new
     list-box%
     (parent vertical-pane-21146)
     (label "List Box")
     (choices (list "First" "Second"))
     (callback list-box-21187-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! choice-21191
    (new
     choice%
     (parent vertical-pane-21146)
     (label "Choice")
     (choices (list "First" "Second"))
     (callback choice-21191-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! frame-21142
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width #f)
     (height #f)
     (x 343)
     (y 363)
     (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-21249
    (new
     menu-bar%
     (parent frame-21142)
     (demand-callback menu-bar-21249-demand-callback)))
  (set! menu-21256
    (new
     menu%
     (parent menu-bar-21249)
     (label "&Menu")
     (help-string "Menu")
     (demand-callback menu-21256-demand-callback)))
  (set! menu-item-21267
    (new
     menu-item%
     (parent menu-21256)
     (label "&Item1")
     (callback menu-item-21267-callback)
     (shortcut #f)
     (help-string "Item 1")
     (demand-callback menu-item-21267-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-21271
    (new
     menu-item%
     (parent menu-21256)
     (label "&Item1")
     (callback menu-item-21271-callback)
     (shortcut #f)
     (help-string "Item 1")
     (demand-callback menu-item-21271-demand-callback)
     (shortcut-prefix '(ctl))))
  (send frame-21115 show #t)
  (send frame-21142 show #t))