#!/usr/bin/perl -w
use
strict;
use
warnings;
use
Gapp;
{
# basic test
use_ok
'GappX::Notice'
;
my
$w
= GappX::Notice->new;
ok
$w
,
'created gapp window'
;
ok
$w
->gobject,
'created gtk widget'
;
}
{
# basic test
use_ok
'GappX::NoticeBox'
;
my
$w
= GappX::NoticeBox->new;
ok
$w
,
'created gapp window'
;
ok
$w
->gobject,
'created gtk widget'
;
my
$notice
= GappX::Notice->new(
text
=>
'Hello World!'
,
action
=> Gapp::Action->new(
code
=>
sub
{
qq[action\n]
} ),
);
$w
->display(
$notice
);
Glib::Timeout->add(5000,
sub
{
$w
->hide;
});
}