;====================
;created with VScheme


(define tf-name-callback (lambda (text event) (void)))
(define tf-first-name-callback (lambda (text event) (void)))
(define tf-address-callback (lambda (text event) (void)))
(define tf-email-callback (lambda (text event) (void)))
(define button-previous-callback (lambda (button event) (void)))
(define button-next-callback (lambda (button event) (void)))
(define button-quit-callback (lambda (button event) (void)))

(define (make-address-dialog)
;a simple dialog: dlg-address
(define dlg-address (make-object dialog% "Address Output" #f 430 316 80 213 '()))
(send dlg-address show #t)
(send dlg-address stretchable-height #t)
(send dlg-address stretchable-width #t)
(send dlg-address move 80 213)
(send dlg-address resize 430 316)
(send dlg-address set-label-position 'horizontal)
(send dlg-address border 0)
(send dlg-address set-alignment 'center 'top)
;that's i for dlg-address

;a simple horizontal-pane
(define horizontal-pane1 (make-object horizontal-pane% dlg-address))
(send horizontal-pane1 stretchable-height #t)
(send horizontal-pane1 stretchable-width #t)
(send horizontal-pane1 border 0)
(send horizontal-pane1 set-alignment 'left 'center)
;that's it for horizontal-pane1

;a simple vertical-pane
(define vertical-pane1 (make-object vertical-pane% horizontal-pane1))
(send vertical-pane1 stretchable-height #t)
(send vertical-pane1 stretchable-width #t)
(send vertical-pane1 border 0)
(send vertical-pane1 set-alignment 'center 'top)
;that's it for vertical-pane1

;a simple text-field
(define tf-name (make-object text-field% "Name:" vertical-pane1 tf-name-callback "" '(single)))
(send tf-name show #t)
(send tf-name stretchable-height #t)
(send tf-name stretchable-width #t)
(send tf-name horiz-margin 0)
(send tf-name vert-margin 0)
;that's it for tf-name

;a simple text-field
(define tf-first-name (make-object text-field% "First name:" vertical-pane1 tf-first-name-callback "=no-text=" '(single)))
(send tf-first-name show #t)
(send tf-first-name stretchable-height #t)
(send tf-first-name stretchable-width #t)
(send tf-first-name horiz-margin 0)
(send tf-first-name vert-margin 0)
;that's it for tf-first-name

;a simple vertical-pane
(define vertical-pane2 (make-object vertical-pane% horizontal-pane1))
(send vertical-pane2 stretchable-height #t)
(send vertical-pane2 stretchable-width #t)
(send vertical-pane2 border 0)
(send vertical-pane2 set-alignment 'center 'top)
;that's it for vertical-pane2

;a simple text-field
(define tf-address (make-object text-field% "Address:" vertical-pane2 tf-address-callback "=no-text=" '(single)))
(send tf-address show #t)
(send tf-address stretchable-height #t)
(send tf-address stretchable-width #t)
(send tf-address horiz-margin 0)
(send tf-address vert-margin 0)
;that's it for tf-address

;a simple text-field
(define tf-email (make-object text-field% "email:" vertical-pane2 tf-email-callback "" '(multiple hscroll)))
(send tf-email show #t)
(send tf-email stretchable-height #t)
(send tf-email stretchable-width #t)
(send tf-email horiz-margin 0)
(send tf-email vert-margin 0)
;that's it for tf-email

;a simple vertical-pane
(define button-pane (make-object vertical-pane% horizontal-pane1))
(send button-pane stretchable-height #t)
(send button-pane stretchable-width #t)
(send button-pane border 0)
(send button-pane set-alignment 'center 'top)
;that's it for button-pane

;a simple button: button-previous
(define button-previous (make-object button% "previous" button-pane button-previous-callback))
(send button-previous stretchable-height #f)
(send button-previous stretchable-width #f)
(send button-previous show #t)
(send button-previous vert-margin 20)
;that's it for this button (button-previous).

;a simple button: button-next
(define button-next (make-object button% "next" button-pane button-next-callback))
(send button-next stretchable-height #f)
(send button-next stretchable-width #f)
(send button-next show #t)
(send button-next vert-margin 20)
;that's it for this button (button-next).

;a simple button: button-quit
(define button-quit (make-object button% "QUIT" button-pane button-quit-callback))
(send button-quit stretchable-height #f)
(send button-quit stretchable-width #f)
(send button-quit show #t)
(send button-quit vert-margin 20)
;that's it for this button (button-quit).