#lang scheme/gui
(require
framework
)
(provide frame-16334
button-16361
frame-16754
check-box-16781
radio-box-16785)
(define frame-16334 #f)
(define button-16361 #f)
(define frame-16754 #f)
(define check-box-16781 #f)
(define radio-box-16785 #f)
(define (project-16326-init
#:button-16361-callback
(button-16361-callback
(lambda (button control-event) (void)))
#:check-box-16781-callback
(check-box-16781-callback
(lambda (button control-event) (void)))
#:radio-box-16785-callback
(radio-box-16785-callback
(lambda (radio-box control-event) (void))))
(set! frame-16334
(new
frame%
(parent #f)
(label "Frame")
(width #f)
(height #f)
(x 475)
(y 357)
(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-16361
(new
button%
(parent frame-16334)
(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-16361-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! frame-16754
(new
frame%
(parent #f)
(label "Frame")
(width #f)
(height #f)
(x 511)
(y 242)
(style '())
(enabled #t)
(border 0)
(spacing 0)
(alignment (list 'center 'top))
(min-width 70)
(min-height 30)
(stretchable-width #t)
(stretchable-height #t)))
(set! check-box-16781
(new
check-box%
(parent frame-16754)
(label
((λ (l)
(or (and (second l) (or (third l) "Bad Image"))
(first l)))
(list
((λ (v) (if (string=? v "") #f v)) "Ckeck Box")
#f
((λ (v)
(and v
(let ((bmp (make-object bitmap% v)))
(and (send bmp ok?) bmp))))
#f))))
(callback check-box-16781-callback)
(style '())
(value #t)
(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! radio-box-16785
(new
radio-box%
(parent frame-16754)
(label "Radio Box")
(choices (list "&First" "&Second"))
(callback radio-box-16785-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)))
(send frame-16334 show #t)
(send frame-16754 show #t))