rexxCloseEH = .RexxCloseAppEventHandler~new
rpCloseEH = BsfCreateRexxProxy(rexxCloseEH,,"java.awt.event.WindowListener")
userData =.directory~new


---Frame

f=.bsf~new("java.awt.Frame","Daten Eingabe")
p=.bsf~new("java.awt.Panel")
f~setLayout(.bsf~new("java.awt.FlowLayout"))

---Erstellen der Eingabefelder und deren Beschriftung
lable1=.bsf~new("java.awt.Button","Vorname") ---Beschriftung f��r Textfeld 1
p~add(lable1)

tf1=.bsf~new("java.awt.TextField","",20) ---Erstellung des Textfelds f��r den Vornamen
userData~tf1=tf1

p~add(tf1)



lable2=.bsf~new("java.awt.Button","Nachname") ---Beschriftung f��r Textfeld 2
p~add(lable2)

tf2=.bsf~new("java.awt.TextField","",20) ---Erstellung des Textfelds f��r den Nachnamen
userData~tf2=tf2

p~add(tf2)


lable3=.bsf~new("java.awt.Button","Geschlecht") ---Beschriftung f��r das Dropdown Feld
p~add(lable3)

MW=.bsf~new("java.awt.Choice") ---Dropdown Feld f��r die Auswahl des Geschlechts
MW~add("m")
MW~add("w")
p~add(MW)

but1=.bsf~new("java.awt.Button","Fertig") ---Button zum Abgeben der Daten

p~add(but1)




g=.bsf~new("java.awt.GridLayout",6,6)
p~setLayout(g)
f~add(p)



-----Konfiguration des Frames

f~addWindowListener(rpCloseEH)
f~setVisible(.true)
f~setSize(600,300)
f~show
f~setLocationRelativeTo(.Nil)



-----Action Listener f��r Button "Fertig"
rp=BsfCreateRexxProxy(.but1click~new, userData, "java.awt.event.ActionListener")
but1~addActionListener(rp)

-----

rexxCloseEH~waitForExit
call BSF.terminateRexxEngine

-----------------

::requires BSF.CLS

-------------

::class but1click
::method actionPerformed
say "Danke, bitte schliesen Sie nun das Fenster"
-------------


::class RexxCloseAppEventHandler
::method init
expose closeApp
closeApp=.false

::method windowClosing
expose closeApp
closeApp=.true
::method unknown
::attribute closeApp

::method waitForExit
expose closeApp
guard on when closeApp=.true