#lang scheme/gui
(require
framework
)
(provide frame-53711
pane-53738
gauge-53884
horizontal-pane-53742
radio-box-53905
slider-54102
vertical-pane-53746
choice-53926
panel-53750
list-box-53949
horizontal-panel-53754
combo-field-53972
vertical-panel-53758
text-field-53996
group-box-panel-53762
canvas-54024
grow-box-spacer-pane-53766
tab-panel-53770
tab-53796
message-53825
button-53829
tab-53800
text-field-53854
canvas-53859
menu-bar-54028
menu-54035
menu-item-54050
menu-item-54054
separator-menu-item-54058
menu-item-54062
menu-54039
menu-item-54073)
(define frame-53711 #f)
(define pane-53738 #f)
(define gauge-53884 #f)
(define horizontal-pane-53742 #f)
(define radio-box-53905 #f)
(define slider-54102 #f)
(define vertical-pane-53746 #f)
(define choice-53926 #f)
(define panel-53750 #f)
(define list-box-53949 #f)
(define horizontal-panel-53754 #f)
(define combo-field-53972 #f)
(define vertical-panel-53758 #f)
(define text-field-53996 #f)
(define group-box-panel-53762 #f)
(define canvas-54024 #f)
(define grow-box-spacer-pane-53766 #f)
(define tab-panel-53770 #f)
(define tab-53796 #f)
(define message-53825 #f)
(define button-53829 #f)
(define tab-53800 #f)
(define text-field-53854 #f)
(define canvas-53859 #f)
(define menu-bar-54028 #f)
(define menu-54035 #f)
(define menu-item-54050 #f)
(define menu-item-54054 #f)
(define separator-menu-item-54058 #f)
(define menu-item-54062 #f)
(define menu-54039 #f)
(define menu-item-54073 #f)
(define (project-test-all-init
#:radio-box-53905-callback
(radio-box-53905-callback
(lambda (radio-box control-event) (void)))
#:slider-54102-callback
(slider-54102-callback
(λ (slider control-event) (void)))
#:choice-53926-callback
(choice-53926-callback
(lambda (choice control-event) (void)))
#:list-box-53949-callback
(list-box-53949-callback
(lambda (list-box control-event) (void)))
#:combo-field-53972-callback
(combo-field-53972-callback
(lambda (combo-field control-event) (void)))
#:text-field-53996-callback
(text-field-53996-callback
(lambda (text-field control-event) (void)))
#:canvas-54024-paint-callback
(canvas-54024-paint-callback
(λ (canvas dc) (void)))
#:tab-panel-53770-callback
(tab-panel-53770-callback
(λ (tp e)
(send tp active-child
(send tp get-selection))))
#:button-53829-callback
(button-53829-callback
(lambda (button control-event) (void)))
#:text-field-53854-callback
(text-field-53854-callback
(lambda (text-field control-event) (void)))
#:canvas-53859-paint-callback
(canvas-53859-paint-callback
(λ (canvas dc) (void)))
#:menu-bar-54028-demand-callback
(menu-bar-54028-demand-callback
(lambda (m) (void)))
#:menu-54035-demand-callback
(menu-54035-demand-callback
(lambda (m) (void)))
#:menu-item-54050-callback
(menu-item-54050-callback
(lambda (item event) (void)))
#:menu-item-54050-demand-callback
(menu-item-54050-demand-callback
(lambda (item) (void)))
#:menu-item-54054-callback
(menu-item-54054-callback
(lambda (item event) (void)))
#:menu-item-54054-demand-callback
(menu-item-54054-demand-callback
(lambda (item) (void)))
#:menu-item-54062-callback
(menu-item-54062-callback
(lambda (item event) (void)))
#:menu-item-54062-demand-callback
(menu-item-54062-demand-callback
(lambda (item) (void)))
#:menu-54039-demand-callback
(menu-54039-demand-callback
(lambda (m) (void)))
#:menu-item-54073-callback
(menu-item-54073-callback
(lambda (item event) (void)))
#:menu-item-54073-demand-callback
(menu-item-54073-demand-callback
(lambda (item) (void))))
(set! frame-53711
(new
frame%
(parent #f)
(label "Frame")
(width #f)
(height #f)
(x 394)
(y 371)
(style '())
(enabled #t)
(border 0)
(spacing 0)
(alignment (list 'center 'top))
(min-width 70)
(min-height 30)
(stretchable-width #t)
(stretchable-height #t)))
(set! pane-53738
(new
pane%
(parent frame-53711)
(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! gauge-53884
(new
gauge%
(parent pane-53738)
(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-53742
(new
horizontal-pane%
(parent frame-53711)
(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! radio-box-53905
(new
radio-box%
(parent horizontal-pane-53742)
(label "Radio Box")
(choices (list "&First" "&Second"))
(callback radio-box-53905-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! slider-54102
(new
slider%
(parent horizontal-pane-53742)
(label "Slider")
(min-value 0)
(max-value 100)
(init-value 0)
(callback slider-54102-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! vertical-pane-53746
(new
vertical-pane%
(parent frame-53711)
(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! choice-53926
(new
choice%
(parent vertical-pane-53746)
(label "Choice")
(choices (list "First" "Second"))
(callback choice-53926-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! panel-53750
(new
panel%
(parent frame-53711)
(style '())
(enabled #t)
(vert-margin 0)
(horiz-margin 0)
(border 0)
(spacing 0)
(alignment (list 'center 'center))
(min-width 0)
(min-height 0)
(stretchable-width #t)
(stretchable-height #t)))
(set! list-box-53949
(new
list-box%
(parent panel-53750)
(label "List Box")
(choices (list "First" "Second"))
(callback list-box-53949-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! horizontal-panel-53754
(new
horizontal-panel%
(parent frame-53711)
(style '())
(enabled #t)
(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-53972
(new
combo-field%
(parent horizontal-panel-53754)
(label "Combo Field")
(choices (list "First" "Second"))
(callback combo-field-53972-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! vertical-panel-53758
(new
vertical-panel%
(parent frame-53711)
(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! text-field-53996
(new
text-field%
(parent vertical-panel-53758)
(label "Text Field")
(callback text-field-53996-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! group-box-panel-53762
(new
group-box-panel%
(parent frame-53711)
(label "Group Box Panel")
(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! canvas-54024
(new
canvas%
(parent group-box-panel-53762)
(style '())
(paint-callback canvas-54024-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! grow-box-spacer-pane-53766
(new
grow-box-spacer-pane%
(parent frame-53711)
(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! tab-panel-53770
(new
(class tab-panel%
(super-new)
(define
single-panel
(new panel:single% (parent this)))
(define/public (get-single-panel) single-panel)
(define child-panels '())
(define/public
(add-child-panel p label)
(set! child-panels
(append child-panels (list p)))
(send this append label))
(define/public
(active-child n)
(send single-panel active-child
(list-ref child-panels n))))
(parent frame-53711)
(choices (list))
(callback tab-panel-53770-callback)
(style '())
(enabled #t)
(vert-margin 0)
(horiz-margin 0)
(border 0)
(spacing 0)
(alignment (list 'center 'center))
(min-width 0)
(min-height 0)
(stretchable-width #t)
(stretchable-height #t)))
(set! tab-53796
(new
(class vertical-panel%
(init parent)
(init-field label)
(super-new
(parent (send parent get-single-panel)))
(send parent add-child-panel this label))
(parent tab-panel-53770)
(label "Tab")
(style '())
(enabled #t)
(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! message-53825
(new
message%
(parent tab-53796)
(label
((λ (l)
(or (and (second l) (or (third l) "Bad Image"))
(first l)))
(list
((λ (v) (if (string=? v "") #f v)) "Message")
#f
((λ (v)
(and v
(let ((bmp (make-object bitmap% v)))
(and (send bmp ok?) bmp))))
#f))))
(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)
(auto-resize #f)))
(set! button-53829
(new
button%
(parent tab-53796)
(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-53829-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! tab-53800
(new
(class vertical-panel%
(init parent)
(init-field label)
(super-new
(parent (send parent get-single-panel)))
(send parent add-child-panel this label))
(parent tab-panel-53770)
(label "Tab")
(style '())
(enabled #t)
(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! text-field-53854
(new
text-field%
(parent tab-53800)
(label "Text Field")
(callback text-field-53854-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-53859
(new
canvas%
(parent tab-53800)
(style '())
(paint-callback canvas-53859-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! menu-bar-54028
(new
menu-bar%
(parent frame-53711)
(demand-callback menu-bar-54028-demand-callback)))
(set! menu-54035
(new
menu%
(parent menu-bar-54028)
(label "&Menu")
(help-string "Menu")
(demand-callback menu-54035-demand-callback)))
(set! menu-item-54050
(new
menu-item%
(parent menu-54035)
(label "&Item")
(callback menu-item-54050-callback)
(shortcut #f)
(help-string "Item")
(demand-callback menu-item-54050-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-item-54054
(new
menu-item%
(parent menu-54035)
(label "&Item")
(callback menu-item-54054-callback)
(shortcut #f)
(help-string "Item")
(demand-callback menu-item-54054-demand-callback)
(shortcut-prefix '(ctl))))
(set! separator-menu-item-54058
(new separator-menu-item% (parent menu-54035)))
(set! menu-item-54062
(new
menu-item%
(parent menu-54035)
(label "&Item")
(callback menu-item-54062-callback)
(shortcut #f)
(help-string "Item")
(demand-callback menu-item-54062-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-54039
(new
menu%
(parent menu-bar-54028)
(label "&Menu")
(help-string "Menu")
(demand-callback menu-54039-demand-callback)))
(set! menu-item-54073
(new
menu-item%
(parent menu-54039)
(label "&Item")
(callback menu-item-54073-callback)
(shortcut #f)
(help-string "Item")
(demand-callback menu-item-54073-demand-callback)
(shortcut-prefix '(ctl))))
(send frame-53711 show #t))