package require java

java::import java.awt.Frame
java::import java.awt.Label
java::import java.awt.FlowLayout

set frame [java::new Frame] 
java::bind $frame windowClosing exit
$frame setTitle "Hello, World"
$frame setSize 640 480
$frame setLayout [java::new FlowLayout [java::field FlowLayout LEFT]]
set label [java::new Label "Hello, AWT World!"] 
$frame add $label
$frame setVisible true

vwait done