#!/usr/bin/perl
use strict;
use warnings;
use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Gtk2::Sexy;
my $window = Gtk2::Window->new();
$window->show();
$window->set_title('Sexy Spell Entry Test');
$window->set_border_width(12);
$window->signal_connect('destroy' => sub { Gtk2->main_quit });
my $hbox = Gtk2::HBox->new(FALSE, 6);
$hbox->show();
$window->add($hbox);
my $label = Gtk2::Label->new('Text:');
$label->show();
$hbox->pack_start($label, FALSE, FALSE, 0);
my $entry = Gtk2::Sexy::SpellEntry->new();
$entry->show();
$hbox->pack_start($entry, TRUE, TRUE, 0);
$entry->set_text('Hello World');
Gtk2->main;