#lang scheme/gui

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

(provide project-test
         frame-9069
         horizontal-panel-9070
         group-box-panel-left
         check-box-9072
         horizontal-panel-9073
         button-9074
         button-9075
         group-box-panel-test
         button-plop
         check-box-plip
         group-box-panel-right
         button-9077
         group-box-panel-9078
         check-box-9079
         group-box-panel-18268
         button-18269
         check-box-18270)
(define project-test #f)
(define frame-9069 #f)
(define horizontal-panel-9070 #f)
(define group-box-panel-left #f)
(define check-box-9072 #f)
(define horizontal-panel-9073 #f)
(define button-9074 #f)
(define button-9075 #f)
(define group-box-panel-test #f)
(define button-plop #f)
(define check-box-plip #f)
(define group-box-panel-right #f)
(define button-9077 #f)
(define group-box-panel-9078 #f)
(define check-box-9079 #f)
(define group-box-panel-18268 #f)
(define button-18269 #f)
(define check-box-18270 #f)
(define (project-test-init
         #:check-box-9072-callback
         (check-box-9072-callback
          (lambda (button control-event) (void)))
         #:button-9074-callback
         (button-9074-callback
          (lambda (button control-event) (void)))
         #:button-9075-callback
         (button-9075-callback
          (lambda (button control-event) (void)))
         #:button-plop-callback
         (button-plop-callback
          (lambda (button control-event) (void)))
         #:check-box-plip-callback
         (check-box-plip-callback
          (lambda (button control-event) (void)))
         #:button-9077-label
         (button-9077-label
          ((λ (l) (ormap (λ (x) x) l))
           (list
            ((λ (v) (if (string=? v "") #f v)) "")
            ((λ (v)
               (let ((bmp (make-object bitmap% v)))
                 (if (send bmp ok?) bmp "Bad Image")))
             "E:\\Projets\\Scheme\\mred-designer\\images\\dots.png"))))
         #:button-9077-callback
         (button-9077-callback
          (lambda (button control-event) (void)))
         #:check-box-9079-callback
         (check-box-9079-callback
          (lambda (button control-event) (void)))
         #:button-18269-callback
         (button-18269-callback
          (lambda (button control-event) (void)))
         #:check-box-18270-callback
         (check-box-18270-callback
          (lambda (button control-event) (void))))
  (set! project-test
    (new
     frame%
     (parent #f)
     (label "")
     (style (list 'no-resize-border 'no-caption))))
  (set! frame-9069
    (new
     frame%
     (parent project-test)
     (label "Frame")
     (width #f)
     (height #f)
     (x 438)
     (y 321)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 70)
     (min-height 30)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! horizontal-panel-9070
    (new
     horizontal-panel%
     (parent frame-9069)
     (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! group-box-panel-left
    (new
     group-box-panel%
     (parent horizontal-panel-9070)
     (label "Left")
     (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! check-box-9072
    (new
     check-box%
     (parent group-box-panel-left)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Do you ?")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback check-box-9072-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! horizontal-panel-9073
    (new
     horizontal-panel%
     (parent group-box-panel-left)
     (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! button-9074
    (new
     button%
     (parent horizontal-panel-9073)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Aïe !")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback button-9074-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-9075
    (new
     button%
     (parent horizontal-panel-9073)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Hoy!")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback button-9075-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! group-box-panel-test
    (new
     group-box-panel%
     (parent group-box-panel-left)
     (label "Test")
     (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! button-plop
    (new
     button%
     (parent group-box-panel-test)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Plop")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback button-plop-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! check-box-plip
    (new
     check-box%
     (parent group-box-panel-test)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Plip")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback check-box-plip-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! group-box-panel-right
    (new
     group-box-panel%
     (parent horizontal-panel-9070)
     (label "Right")
     (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! button-9077
    (new
     button%
     (parent group-box-panel-right)
     (label button-9077-label)
     (callback button-9077-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! group-box-panel-9078
    (new
     group-box-panel%
     (parent group-box-panel-right)
     (label "Down Right")
     (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! check-box-9079
    (new
     check-box%
     (parent group-box-panel-9078)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Not.")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback check-box-9079-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! group-box-panel-18268
    (new
     group-box-panel%
     (parent group-box-panel-right)
     (label "Test")
     (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! button-18269
    (new
     button%
     (parent group-box-panel-18268)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Plop")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback button-18269-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! check-box-18270
    (new
     check-box%
     (parent group-box-panel-18268)
     (label
      ((λ (l) (ormap (λ (x) x) l))
       (list
        ((λ (v) (if (string=? v "") #f v)) "Plip")
        ((λ (v)
           (let ((bmp (make-object bitmap% v)))
             (if (send bmp ok?) bmp "Bad Image")))
         "invalid-quite-long-filename.not-png"))))
     (callback check-box-18270-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)))
  (send project-test show #t)
  (send frame-9069 show #t))