FREEBELL []

if value? 'win [win/setVisible [no]]
win: make java-object! "java.awt.Frame" ["Test"]
win/setSize [300 300]
fun: func [gra] [
     gra/setColor [make java-object! "java.awt.Color" [255 255 255]]
     gra/drawLine [10 30 200 200]
     gra/drawLine [200 30 10 200]
     gra/drawString ["Hello, welcome to the world of Freebell" 10 20]
]
win/add [
    make java-object! "Freebell.Canvas" [to-java-object :fun]
    "Center"
]
win/add [
    tmp: make java-object! "java.awt.Button" ["Close"]
    "South"
]
tmp/addActionListener [make java-object! "Freebell.ActionListener" [to java-object! [
    win/setVisible [no]
]]]


win/setVisible [yes]
()