1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/perl
use vars qw( $VERSION );
use Gtk;
use Gtk::Gdk::ImlibImage;
$VERSION = "0.1";
init Gtk;
init Gtk::Gdk::ImlibImage;
Gtk->idle_add(\&new_window);
Gtk->idle_add(\&splash);
main Gtk;
#exit;
sub splash {
my $kitty = load_image Gtk::Gdk::ImlibImage("420kitty.gif");
my $w = $kitty->rgb_width;
my $h = $kitty->rgb_height;
my $win = new Gtk::Window -dialog;
$win->set_title("welcome to _dbi!");
$kitty->render($w, $h);
my $p = $kitty->move_image();
my $m = $kitty->move_mask;
my $gtkitty = new Gtk::Pixmap ($p, $m);
my $label = new Gtk::Label <<END;
welcome to gtkdbi
version $VERSION
keywords: gtk sql perl dbi
http://420.am/gtkdbi
END
my $box = new Gtk::HBox 0,0;
$box->pack_start( $gtkitty, 0, 0, 0 );
$box->pack_start( $label, 0, 0, 0);
$win->add( $box );
$win->show_all;
Gtk->timeout_add( 6000, sub { $win->destroy; 0; } );
#Gtk->timeout_add( 6, sub { $win->destroy; 0; } );
0;
}
sub new_window {
my $window = _Window->new;
0;
}
#--
package _Window;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {
'window' => new Gtk::Window -toplevel,
};
$self->{window}->set_usize(640,480);
$self->{window}->set_title("gtkdbi: not connected");
$self->{window}->set_name("gtkdbi");
$self->{window}->show_all;
bless($self, $class);
}
|
