tests/project-16828.ss
#lang scheme/gui

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

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

(require
 framework
 )

(provide project-16828-init frame-16838 button-22006)

(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-16838 #f)
(define button-22006 #f)
(define (project-16828-init
         #:button-22006-callback
         (button-22006-callback
          (lambda (button control-event) (void))))
  (set! frame-16838
    (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-22006
    (new
     button%
     (parent frame-16838)
     (label
      (label-bitmap-proc
       (list
        "Button"
        #t
        "../images/hierarchy-show.png")))
     (callback button-22006-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-16838 show #t))