3 use vars qw( $VERSION );
5 use Gtk::Gdk::ImlibImage;
10 init Gtk::Gdk::ImlibImage;
12 Gtk->idle_add(\&new_window);
13 Gtk->idle_add(\&splash);
19 my $kitty = load_image Gtk::Gdk::ImlibImage("420kitty.gif");
20 my $w = $kitty->rgb_width;
21 my $h = $kitty->rgb_height;
23 my $win = new Gtk::Window -dialog;
25 $win->set_title("welcome to _dbi!");
27 $kitty->render($w, $h);
28 my $p = $kitty->move_image();
29 my $m = $kitty->move_mask;
30 my $gtkitty = new Gtk::Pixmap ($p, $m);
32 my $label = new Gtk::Label <<END;
35 keywords: gtk sql perl dbi
39 my $box = new Gtk::HBox 0,0;
40 $box->pack_start( $gtkitty, 0, 0, 0 );
41 $box->pack_start( $label, 0, 0, 0);
47 Gtk->timeout_add( 6000, sub { $win->destroy; 0; } );
48 #Gtk->timeout_add( 6, sub { $win->destroy; 0; } );
55 my $window = _Window->new;
65 my $class = ref($proto) || $proto;
67 'window' => new Gtk::Window -toplevel,
69 $self->{window}->set_usize(640,480);
70 $self->{window}->set_title("gtkdbi: not connected");
71 $self->{window}->set_name("gtkdbi");
72 $self->{window}->show_all;