Leser: 1
![]() |
![]() |
8 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
BEGIN
{
use strict;
use vars qw( $mw $menu $mwm $splash
$bgcolor $benutzer $benutzername $werte
$file
);
use Tk;
use Tk::JPEG;
if (!$^C && !$^P)
{
require Tk::Splash;
$splash = Tk::Splash->Show("data/loader.jpg", 755, 113, "Wird geladen", 1);
}
}
&main;
sub main
{
... # 15 weitere Module Laden
&mainwindow;
}
sub mainwindow
{
$mw = MainWindow->new(-background => $$bgcolor{main});
$mw->title("Blutwert-Analizer");
my $windowHeight = "600";
my $windowWidth = "775";
my $screenHeight = $mw->screenheight();
my $screenWidth = $mw->screenwidth();
$mw->geometry($windowWidth . 'x' . $windowHeight .
'+' . int($screenWidth/2 - $windowWidth/2) .
'+' . int($screenHeight/2 - $windowHeight/2)
);
$mw->resizable( 0, 0 );
$mw->protocol('WM_DELETE_WINDOW', \&ExitApplication);
}
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem![]() |
![]() |
8 Einträge, 1 Seite |