No, Tk dosn't have transparency yet. Tk::Zinc will allow window shaping (round windows, etc), but not transparency. You can run Tk and Gtk2 simultaneously in the same script, with a master loop and a timer for the second loop. So you could pop your splashscreen, then remove the Gtk2 and run your Tk. Here is a simple example, just stop the timer after the splashscreen is closed, and undef Gtk2 stuff.
#!/usr/bin/perl -w
use strict;
use Gtk2;
use Tk;
my $mw = MainWindow->new(-title=>'Tk Window');
Gtk2->init;
my $window = Gtk2::Window->new('toplevel');
$window->set_title('Gtk2 Window');
my $glabel = Gtk2::Label->new("This is a Gtk2 Label");
$window->add($glabel);
$window->show_all;
my $tktimer = $mw->repeat(10, sub{
Gtk2->main_iteration while Gtk2->events_pending;
#manually pump the Gtk2 eventloop as a slave
});
my $tktimer1 = $mw->after(1000, sub{
$window->destroy;
Gtk2->main_iteration while Gtk2->events_pending;
$tktimer->cancel;
});
$mw->Button(-text=>' Quit ',
-command => sub{exit}
)->pack();
MainLoop;
| [reply]
[d/l] |