checking gtkdbi into cvsHEADSTARTmaster

1 files changed, 76 insertions, 0 deletions

diff --git a/gtkdbi.oldtry b/gtkdbi.oldtry
new file mode 100755
index 0000000..ddb6d99
--- /dev/null
+++ b/gtkdbi.oldtry
@@ -0,0 +1,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);
+}
+
+