#lang scheme/gui

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

(require
 framework
 )


(provide frame-17154
         button-17183
         gauge-17791
         radio-box-17795
         list-box-17799
         combo-field-17803
         text-field-17808
         canvas-17813
         slider-17817
         message-17821)
(define (label-bitmap-proc l)
  (let ((label (first l))
        (image? (second l))
        (file (third l)))
    (or (and image?
             (or (and file
                      (let ((bmp (make-object bitmap% file)))
                        (and (send bmp ok?) bmp)))
                 "<Bad Image>"))
        label)))

(define (font-proc l)
  (send/apply the-font-list find-or-create-font l))

(define frame-17154 #f)
(define button-17183 #f)
(define gauge-17791 #f)
(define radio-box-17795 #f)
(define list-box-17799 #f)
(define combo-field-17803 #f)
(define text-field-17808 #f)
(define canvas-17813 #f)
(define slider-17817 #f)
(define message-17821 #f)
(define (project-17146-init
         #:button-17183-callback
         (button-17183-callback
          (lambda (button control-event) (void)))
         #:radio-box-17795-callback
         (radio-box-17795-callback
          (lambda (radio-box control-event) (void)))
         #:list-box-17799-callback
         (list-box-17799-callback
          (lambda (list-box control-event) (void)))
         #:combo-field-17803-callback
         (combo-field-17803-callback
          (lambda (combo-field control-event) (void)))
         #:text-field-17808-callback
         (text-field-17808-callback
          (lambda (text-field control-event) (void)))
         #:canvas-17813-paint-callback
         (canvas-17813-paint-callback (λ (canvas dc) (void)))
         #:slider-17817-callback
         (slider-17817-callback
          (λ (slider control-event) (void))))
  (set! frame-17154
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width 412)
     (height 302)
     (x 405)
     (y 423)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! button-17183
    (new
     button%
     (parent frame-17154)
     (label (label-bitmap-proc (list "Button" #t #f)))
     (callback button-17183-callback)
     (style '())
     (font
      (font-proc
       (list 8 'default 'normal 'bold #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-17791
    (new
     gauge%
     (parent frame-17154)
     (label "Gauge")
     (range 100)
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'horizontal 'horizontal-label '())))
     (font
      (font-proc
       (list 8 'roman '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-17795
    (new
     radio-box%
     (parent frame-17154)
     (label "Radio Box")
     (choices (list "&First" "&Second"))
     (callback radio-box-17795-callback)
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'vertical 'horizontal-label '())))
     (font
      (font-proc
       (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-17799
    (new
     list-box%
     (parent frame-17154)
     (label "List Box")
     (choices (list "First" "Second"))
     (callback list-box-17799-callback)
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'single 'horizontal-label '())))
     (font
      (font-proc
       (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! combo-field-17803
    (new
     combo-field%
     (parent frame-17154)
     (label "Combo Field")
     (choices (list "First" "Second"))
     (callback combo-field-17803-callback)
     (init-value "Text")
     (style
      ((λ (l) (list* (first l) (second l)))
       (list 'horizontal-label '())))
     (font
      (font-proc
       (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-17808
    (new
     text-field%
     (parent frame-17154)
     (label "Text Field")
     (callback text-field-17808-callback)
     (init-value "Text")
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'single 'horizontal-label '())))
     (font
      (font-proc
       (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-17813
    (new
     canvas%
     (parent frame-17154)
     (style '())
     (paint-callback canvas-17813-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! slider-17817
    (new
     slider%
     (parent frame-17154)
     (label "Slider")
     (min-value 0)
     (max-value 100)
     (init-value 0)
     (callback slider-17817-callback)
     (style
      ((λ (l) (list* (first l) (second l) (third l)))
       (list 'horizontal 'horizontal-label '())))
     (font
      (font-proc
       (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! message-17821
    (new
     message%
     (parent frame-17154)
     (label (label-bitmap-proc (list "Message" #f #f)))
     (style '())
     (font
      (font-proc
       (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)))
  (send frame-17154 show #t))