#!/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);
}