use strict;
use warnings;

use org::eclipse::swt::widgets::Display;
use org::eclipse::swt::widgets::Shell;

my $display = Display->new;
my $shell = Shell->new($display);

$shell.setText('Hello, world!');

$shell.open();

# Set up the event loop.
while (!$shell.isDisposed) {
    if (!display.readAndDispatch) {
        # If no more entries in event queue
        $display.sleep();
    }
}

$display.dispose;