#lang scheme/gui
(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))