package require java

java::import javax.swing.JFrame
java::import java.awt.Canvas
java::import java.awt.Graphics
java::import java.awt.Graphics2D

set frame [java::new JFrame] 
$frame setDefaultCloseOperation [java::field JFrame EXIT_ON_CLOSE]
$frame setTitle "Hello, World"
$frame setSize 640 480
set canvas [java::new Canvas]
$frame add $canvas
$frame setVisible true

$canvas createBufferStrategy 2
set strategy [$canvas getBufferStrategy]
set g [$strategy getDrawGraphics]
while { true } {
    $g {drawString java.lang.String int int} "Hello, Java 2D World!" 0 16
    $strategy show
}

vwait done