package require java

java::import org.eclipse.swt.SWT
java::import org.eclipse.swt.widgets.Display
java::import org.eclipse.swt.widgets.Shell
java::import org.eclipse.swt.widgets.Label
java::import org.eclipse.swt.layout.FillLayout

set display [java::new Display]
set shell [java::new Shell $display]
$shell setText "Hello, World"

set layout [java::new FillLayout [java::field SWT VERTICAL]]
$shell setLayout $layout

set label [java::new Label $shell [java::field SWT BORDER]]
$label setText "Hello, SWT World!"

$shell setSize 640 480
$shell open

while { ![$shell isDisposed] } {
    if { ![$display readAndDispatch] } {
        $display sleep
    }
}

$display dispose