#lang scheme/gui
(require
framework
)
(provide frame-21115
vertical-pane-21146
button-21167
slider-21171
gauge-21175
horizontal-pane-21179
combo-field-21212
text-field-21217
canvas-21222
radio-box-21183
list-box-21187
choice-21191
frame-21142
menu-bar-21249
menu-21256
menu-item-21267
menu-item-21271)
(define frame-21115 #f)
(define vertical-pane-21146 #f)
(define button-21167 #f)
(define slider-21171 #f)
(define gauge-21175 #f)
(define horizontal-pane-21179 #f)
(define combo-field-21212 #f)
(define text-field-21217 #f)
(define canvas-21222 #f)
(define radio-box-21183 #f)
(define list-box-21187 #f)
(define choice-21191 #f)
(define frame-21142 #f)
(define menu-bar-21249 #f)
(define menu-21256 #f)
(define menu-item-21267 #f)
(define menu-item-21271 #f)
(define (project-21107-init
#:button-21167-callback
(button-21167-callback
(lambda (button control-event) (void)))
#:slider-21171-callback
(slider-21171-callback
(λ (slider control-event) (void)))
#:combo-field-21212-callback
(combo-field-21212-callback
(lambda (combo-field control-event) (void)))
#:text-field-21217-callback
(text-field-21217-callback
(lambda (text-field control-event) (void)))
#:canvas-21222-paint-callback
(canvas-21222-paint-callback
(λ (canvas dc) (void)))
#:radio-box-21183-callback
(radio-box-21183-callback
(lambda (radio-box control-event) (void)))
#:list-box-21187-callback
(list-box-21187-callback
(lambda (list-box control-event) (void)))
#:choice-21191-callback
(choice-21191-callback
(lambda (choice control-event) (void)))
#:menu-bar-21249-demand-callback
(menu-bar-21249-demand-callback
(lambda (m) (void)))
#:menu-21256-demand-callback
(menu-21256-demand-callback
(lambda (m) (void)))
#:menu-item-21267-callback
(menu-item-21267-callback
(lambda (item event) (void)))
#:menu-item-21267-demand-callback
(menu-item-21267-demand-callback
(lambda (item) (void)))
#:menu-item-21271-callback
(menu-item-21271-callback
(lambda (item event) (void)))
#:menu-item-21271-demand-callback
(menu-item-21271-demand-callback
(lambda (item) (void))))
(set! frame-21115
(new
frame%
(parent #f)
(label "Frame")
(width #f)
(height #f)
(x 472)
(y 61)
(style '())
(enabled #t)
(border 0)
(spacing 0)
(alignment (list 'center 'top))
(min-width 70)
(min-height 30)
(stretchable-width #t)
(stretchable-height #t)))
(set! vertical-pane-21146
(new
vertical-pane%
(parent frame-21115)
(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-21167
(new
button%
(parent vertical-pane-21146)
(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-21167-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! slider-21171
(new
slider%
(parent vertical-pane-21146)
(label "Slider")
(min-value 0)
(max-value 100)
(init-value 0)
(callback slider-21171-callback)
(style
((λ (l) (list* (first l) (second l) (third l)))
(list 'horizontal 'horizontal-label '())))
(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! gauge-21175
(new
gauge%
(parent vertical-pane-21146)
(label "Gauge")
(range 100)
(style
((λ (l) (list* (first l) (second l) (third l)))
(list 'horizontal 'horizontal-label '())))
(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-pane-21179
(new
horizontal-pane%
(parent vertical-pane-21146)
(vert-margin 0)
(horiz-margin 0)
(border 0)
(spacing 0)
(alignment (list 'left 'center))
(min-width 0)
(min-height 0)
(stretchable-width #t)
(stretchable-height #t)))
(set! combo-field-21212
(new
combo-field%
(parent horizontal-pane-21179)
(label "Combo Field")
(choices (list "First" "Second"))
(callback combo-field-21212-callback)
(init-value "Text")
(style
((λ (l) (list* (first l) (second l)))
(list 'horizontal-label '())))
(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! text-field-21217
(new
text-field%
(parent horizontal-pane-21179)
(label "Text Field")
(callback text-field-21217-callback)
(init-value "Text")
(style
((λ (l) (list* (first l) (second l) (third l)))
(list 'single 'horizontal-label '())))
(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! canvas-21222
(new
canvas%
(parent horizontal-pane-21179)
(style '())
(paint-callback canvas-21222-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! radio-box-21183
(new
radio-box%
(parent vertical-pane-21146)
(label "Radio Box")
(choices (list "&First" "&Second"))
(callback radio-box-21183-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)))
(set! list-box-21187
(new
list-box%
(parent vertical-pane-21146)
(label "List Box")
(choices (list "First" "Second"))
(callback list-box-21187-callback)
(style
((λ (l) (list* (first l) (second l) (third l)))
(list 'single '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)))
(set! choice-21191
(new
choice%
(parent vertical-pane-21146)
(label "Choice")
(choices (list "First" "Second"))
(callback choice-21191-callback)
(style
((λ (l) (list* (first l) (second l)))
(list '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)))
(set! frame-21142
(new
frame%
(parent #f)
(label "Frame")
(width #f)
(height #f)
(x 343)
(y 363)
(style '())
(enabled #t)
(border 0)
(spacing 0)
(alignment (list 'center 'top))
(min-width 70)
(min-height 30)
(stretchable-width #t)
(stretchable-height #t)))
(set! menu-bar-21249
(new
menu-bar%
(parent frame-21142)
(demand-callback menu-bar-21249-demand-callback)))
(set! menu-21256
(new
menu%
(parent menu-bar-21249)
(label "&Menu")
(help-string "Menu")
(demand-callback menu-21256-demand-callback)))
(set! menu-item-21267
(new
menu-item%
(parent menu-21256)
(label "&Item1")
(callback menu-item-21267-callback)
(shortcut #f)
(help-string "Item 1")
(demand-callback menu-item-21267-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-item-21271
(new
menu-item%
(parent menu-21256)
(label "&Item1")
(callback menu-item-21271-callback)
(shortcut #f)
(help-string "Item 1")
(demand-callback menu-item-21271-demand-callback)
(shortcut-prefix '(ctl))))
(send frame-21115 show #t)
(send frame-21142 show #t))