#lang scheme/gui

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

;;; Call (project-14678-init) with optional arguments to this module

(require
 framework
 )

(provide project-14678-init frame-14710)

(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 (list->font l)
  (with-handlers
   ((exn:fail?
     (λ (e)
       (send/apply
        the-font-list
        find-or-create-font
        (cons (first l) (rest (rest l)))))))
   (send/apply the-font-list find-or-create-font l)))

(define frame-14710 #f)
(define button-14742 #f)
(printf "plop!\n")
(define (project-14678-init
         #:button-14742-callback
         (button-14742-callback
          (lambda (button control-event) (void))))
  (set! frame-14710
    (new
     frame%
     (parent #f)
     (label "Frame")
     (width #f)
     (height #f)
     (x #f)
     (y #f)
     (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-14742
    (new
     button%
     (parent frame-14710)
     (label
      (label-bitmap-proc
       (list
        "Button"
        #t
        "../images/hierarchy-delete.png")))
     (callback button-14742-callback)
     (style '())
     (font
      (list->font
       (list
        8
        #f
        '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 frame-14710 show #t))