| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
| 2 | |
2 | |
| 3 | our $VERSION = '1.2'; |
3 | our $VERSION = '1.2'; |
|
|
4 | |
|
|
5 | my $startup_done = sub { }; |
|
|
6 | |
|
|
7 | # do splash-screen thingy on win32 |
|
|
8 | BEGIN { |
|
|
9 | if ($^O eq "MSWin32") { |
|
|
10 | while (my ($filename, $zip) = each %PAR::LibCache) { |
|
|
11 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
|
|
12 | } |
|
|
13 | |
|
|
14 | require Win32::GUI::SplashScreen; |
|
|
15 | |
|
|
16 | Win32::GUI::SplashScreen::Show ( |
|
|
17 | -file => "$ENV{PAR_TEMP}/SPLASH.bmp", |
|
|
18 | ); |
|
|
19 | |
|
|
20 | $startup_done = sub { |
|
|
21 | Win32::GUI::SplashScreen::Done (1); |
|
|
22 | }; |
|
|
23 | } |
|
|
24 | } |
| 4 | |
25 | |
| 5 | BEGIN { |
26 | BEGIN { |
| 6 | if (%PAR::LibCache) { |
27 | if (%PAR::LibCache) { |
| 7 | @INC = grep ref, @INC; # weed out all paths except pars loader refs |
28 | @INC = grep ref, @INC; # weed out all paths except pars loader refs |
| 8 | |
29 | |
| … | |
… | |
| 113 | my $w = GCE::MainWindow->new; |
134 | my $w = GCE::MainWindow->new; |
| 114 | |
135 | |
| 115 | $w->load_layout; |
136 | $w->load_layout; |
| 116 | |
137 | |
| 117 | $w->show_all; |
138 | $w->show_all; |
|
|
139 | |
|
|
140 | $startup_done->(); |
| 118 | |
141 | |
| 119 | Gtk2->main; |
142 | Gtk2->main; |
| 120 | |
143 | |
| 121 | __DATA__ |
144 | __DATA__ |
| 122 | |
145 | |
