#lang scheme/gui

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

(require
 framework
 )

(provide frame-16334
         button-16361
         frame-16754
         check-box-16781
         radio-box-16785)
(define frame-16334 #f)
(define button-16361 #f)
(define frame-16754 #f)
(define check-box-16781 #f)
(define radio-box-16785 #f)
(define (project-16326-init
         #:button-16361-callback
         (button-16361-callback
          (lambda (button control-event) (void)))
         #:check-box-16781-callback
         (check-box-16781-callback
          (lambda (button control-event) (void)))
         #:radio-box-16785-callback
         (radio-box-16785-callback
          (lambda (radio-box control-event) (void))))
  (set! frame-16334
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width #f)
     (height #f)
     (x 475)
     (y 357)
     (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-16361
    (new
     button%
     (parent frame-16334)
     (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-16361-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! frame-16754
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width #f)
     (height #f)
     (x 511)
     (y 242)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! check-box-16781
    (new
     check-box%
     (parent frame-16754)
     (label
      ((λ (l)
         (or (and (second l) (or (third l) "Bad Image"))
             (first l)))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Ckeck Box")
        #f
        ((λ (v)
           (and v
                (let ((bmp (make-object bitmap% v)))
                  (and (send bmp ok?) bmp))))
         #f))))
     (callback check-box-16781-callback)
     (style '())
     (value #t)
     (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-16785
    (new
     radio-box%
     (parent frame-16754)
     (label "Radio Box")
     (choices (list "&First" "&Second"))
     (callback radio-box-16785-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)))
  (send frame-16334 show #t)
  (send frame-16754 show #t))