#lang scheme/gui
(require
framework
)
(provide frame-2996
menu-bar-99582
menu-file
menu-item-open
menu-item-save
menu-item-save-as
separator-menu-item-99622
menu-item-exit
menu-edit
menu-item-cut
menu-item-copy
menu-item-paste
separator-menu-item-99686
menu-item-pref
menu-help
menu-item-about
tab-panel-3116
tab-3142
vertical-pane-3198
group-box-panel-form
text-field-first-name
text-field-last-name
radio-box-sex
horizontal-panel-100362
button-form-ok
button-form-cancel
list-box-3599
slider-3661
tab-3146
tab-3150)
(define frame-2996 #f)
(define menu-bar-99582 #f)
(define menu-file #f)
(define menu-item-open #f)
(define menu-item-save #f)
(define menu-item-save-as #f)
(define separator-menu-item-99622 #f)
(define menu-item-exit #f)
(define menu-edit #f)
(define menu-item-cut #f)
(define menu-item-copy #f)
(define menu-item-paste #f)
(define separator-menu-item-99686 #f)
(define menu-item-pref #f)
(define menu-help #f)
(define menu-item-about #f)
(define tab-panel-3116 #f)
(define tab-3142 #f)
(define vertical-pane-3198 #f)
(define group-box-panel-form #f)
(define text-field-first-name #f)
(define text-field-last-name #f)
(define radio-box-sex #f)
(define horizontal-panel-100362 #f)
(define button-form-ok #f)
(define button-form-cancel #f)
(define list-box-3599 #f)
(define slider-3661 #f)
(define tab-3146 #f)
(define tab-3150 #f)
(define (project-2988-init
#:menu-bar-99582-demand-callback
(menu-bar-99582-demand-callback (lambda (m) (void)))
#:menu-file-demand-callback
(menu-file-demand-callback (lambda (m) (void)))
#:menu-item-open-callback
(menu-item-open-callback (lambda (item event) (void)))
#:menu-item-open-demand-callback
(menu-item-open-demand-callback (lambda (item) (void)))
#:menu-item-save-callback
(menu-item-save-callback (lambda (item event) (void)))
#:menu-item-save-demand-callback
(menu-item-save-demand-callback (lambda (item) (void)))
#:menu-item-save-as-callback
(menu-item-save-as-callback (lambda (item event) (void)))
#:menu-item-save-as-demand-callback
(menu-item-save-as-demand-callback (lambda (item) (void)))
#:menu-item-exit-callback
(menu-item-exit-callback (lambda (item event) (void)))
#:menu-item-exit-demand-callback
(menu-item-exit-demand-callback (lambda (item) (void)))
#:menu-edit-demand-callback
(menu-edit-demand-callback (lambda (m) (void)))
#:menu-item-cut-callback
(menu-item-cut-callback (lambda (item event) (void)))
#:menu-item-cut-demand-callback
(menu-item-cut-demand-callback (lambda (item) (void)))
#:menu-item-copy-callback
(menu-item-copy-callback (lambda (item event) (void)))
#:menu-item-copy-demand-callback
(menu-item-copy-demand-callback (lambda (item) (void)))
#:menu-item-paste-callback
(menu-item-paste-callback (lambda (item event) (void)))
#:menu-item-paste-demand-callback
(menu-item-paste-demand-callback (lambda (item) (void)))
#:menu-item-pref-callback
(menu-item-pref-callback (lambda (item event) (void)))
#:menu-item-pref-demand-callback
(menu-item-pref-demand-callback (lambda (item) (void)))
#:menu-help-demand-callback
(menu-help-demand-callback (lambda (m) (void)))
#:menu-item-about-callback
(menu-item-about-callback (lambda (item event) (void)))
#:menu-item-about-demand-callback
(menu-item-about-demand-callback (lambda (item) (void)))
#:tab-panel-3116-callback
(tab-panel-3116-callback
(λ (tp e) (send tp active-child (send tp get-selection))))
#:text-field-first-name-callback
(text-field-first-name-callback
(lambda (text-field control-event) (void)))
#:text-field-last-name-callback
(text-field-last-name-callback
(lambda (text-field control-event) (void)))
#:radio-box-sex-callback
(radio-box-sex-callback (lambda (radio-box control-event) (void)))
#:button-form-ok-callback
(button-form-ok-callback (lambda (button control-event) (void)))
#:button-form-cancel-callback
(button-form-cancel-callback (lambda (button control-event) (void)))
#:list-box-3599-callback
(list-box-3599-callback (lambda (list-box control-event) (void)))
#:slider-3661-callback
(slider-3661-callback (λ (slider control-event) (void))))
(set! frame-2996
(new
frame%
(parent #f)
(label "Frame")
(width 435)
(height 460)
(x 459)
(y 190)
(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-99582
(new
menu-bar%
(parent frame-2996)
(demand-callback menu-bar-99582-demand-callback)))
(set! menu-file
(new
menu%
(parent menu-bar-99582)
(label "&File")
(help-string "File")
(demand-callback menu-file-demand-callback)))
(set! menu-item-open
(new
menu-item%
(parent menu-file)
(label "&Open...")
(callback menu-item-open-callback)
(shortcut #\O)
(help-string "Open")
(demand-callback menu-item-open-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-item-save
(new
menu-item%
(parent menu-file)
(label "&Save")
(callback menu-item-save-callback)
(shortcut #\S)
(help-string "Save")
(demand-callback menu-item-save-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-item-save-as
(new
menu-item%
(parent menu-file)
(label "&Save as...")
(callback menu-item-save-as-callback)
(shortcut #f)
(help-string "Save as")
(demand-callback menu-item-save-as-demand-callback)
(shortcut-prefix '(ctl shift))))
(set! separator-menu-item-99622
(new separator-menu-item% (parent menu-file)))
(set! menu-item-exit
(new
menu-item%
(parent menu-file)
(label "E&xit")
(callback menu-item-exit-callback)
(shortcut #\Q)
(help-string "Exit Application")
(demand-callback menu-item-exit-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-edit
(new
menu%
(parent menu-bar-99582)
(label "&Edit")
(help-string "Edit")
(demand-callback menu-edit-demand-callback)))
(set! menu-item-cut
(new
menu-item%
(parent menu-edit)
(label "&Cut")
(callback menu-item-cut-callback)
(shortcut #\X)
(help-string "Cut")
(demand-callback menu-item-cut-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-item-copy
(new
menu-item%
(parent menu-edit)
(label "&Copy")
(callback menu-item-copy-callback)
(shortcut #\C)
(help-string "Copy")
(demand-callback menu-item-copy-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-item-paste
(new
menu-item%
(parent menu-edit)
(label "&Paste")
(callback menu-item-paste-callback)
(shortcut #\V)
(help-string "Paste")
(demand-callback menu-item-paste-demand-callback)
(shortcut-prefix '(ctl))))
(set! separator-menu-item-99686
(new separator-menu-item% (parent menu-edit)))
(set! menu-item-pref
(new
menu-item%
(parent menu-edit)
(label "&Preferences...")
(callback menu-item-pref-callback)
(shortcut 'f1)
(help-string "Preferences")
(demand-callback menu-item-pref-demand-callback)
(shortcut-prefix '(ctl))))
(set! menu-help
(new
menu%
(parent menu-bar-99582)
(label "&Help")
(help-string "Help")
(demand-callback menu-help-demand-callback)))
(set! menu-item-about
(new
menu-item%
(parent menu-help)
(label "&About...")
(callback menu-item-about-callback)
(shortcut 'f1)
(help-string "About")
(demand-callback menu-item-about-demand-callback)
(shortcut-prefix '())))
(set! tab-panel-3116
(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-2996)
(choices (list))
(callback tab-panel-3116-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-3142
(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-3116)
(label "Form")
(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! vertical-pane-3198
(new
vertical-pane%
(parent tab-3142)
(vert-margin 0)
(horiz-margin 0)
(border 0)
(spacing 15)
(alignment (list 'center 'top))
(min-width 0)
(min-height 0)
(stretchable-width #t)
(stretchable-height #t)))
(set! group-box-panel-form
(new
group-box-panel%
(parent vertical-pane-3198)
(label "Fill in the form")
(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 10)
(spacing 0)
(alignment (list 'center 'top))
(min-width 0)
(min-height 0)
(stretchable-width #f)
(stretchable-height #f)))
(set! text-field-first-name
(new
text-field%
(parent group-box-panel-form)
(label "First Name:")
(callback text-field-first-name-callback)
(init-value "")
(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! text-field-last-name
(new
text-field%
(parent group-box-panel-form)
(label "Last Name:")
(callback text-field-last-name-callback)
(init-value "")
(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 'roman 'italic 'bold #t 'smoothed #f)))
(enabled #t)
(vert-margin 2)
(horiz-margin 2)
(min-width 0)
(min-height 0)
(stretchable-width #f)
(stretchable-height #f)))
(set! radio-box-sex
(new
radio-box%
(parent group-box-panel-form)
(label "Sex: ")
(choices (list "Female" "Male"))
(callback radio-box-sex-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! horizontal-panel-100362
(new
horizontal-panel%
(parent group-box-panel-form)
(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! button-form-ok
(new
button%
(parent horizontal-panel-100362)
(label
((λ (l) (or (and (second l) (or (third l) "Bad Image")) (first l)))
(list
((λ (v) (if (string=? v "") #f v)) "OK")
#t
((λ (v)
(and v
(let ((bmp (make-object bitmap% v)))
(and (send bmp ok?) bmp))))
"E:\\Projets\\Scheme\\mreddesigner-2.2\\images\\icons\\24x24\\button.png"))))
(callback button-form-ok-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! button-form-cancel
(new
button%
(parent horizontal-panel-100362)
(label
((λ (l) (or (and (second l) (or (third l) "Bad Image")) (first l)))
(list
((λ (v) (if (string=? v "") #f v)) "Cancel")
#f
((λ (v)
(and v
(let ((bmp (make-object bitmap% v)))
(and (send bmp ok?) bmp))))
#f))))
(callback button-form-cancel-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! list-box-3599
(new
list-box%
(parent vertical-pane-3198)
(label "Who needs somebody?")
(choices (list "You" "Me" "Everybody"))
(callback list-box-3599-callback)
(style
((λ (l) (list* (first l) (second l) (third l)))
(list 'single 'vertical-label '())))
(font
((λ (l) (send/apply the-font-list find-or-create-font l))
(list 8 'default 'italic 'normal #f 'default #f)))
(selection 0)
(enabled #t)
(vert-margin 2)
(horiz-margin 2)
(min-width 150)
(min-height 0)
(stretchable-width #f)
(stretchable-height #f)))
(set! slider-3661
(new
slider%
(parent vertical-pane-3198)
(label "How much?")
(min-value 0)
(max-value 100)
(init-value 0)
(callback slider-3661-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! tab-3146
(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-3116)
(label "Preferences")
(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! tab-3150
(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-3116)
(label "Editing")
(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)))
(send frame-2996 show #t))