![]() |
|< 1 2 >| | ![]() |
16 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use Win32::GUI;
$W1 = new Win32::GUI::Window(
-name => "W1",
-title => "Main Window",
-pos => [ 100, 100 ],
-size => [ 300, 200 ],
);
$W1->Show();
Win32::GUI::Dialog();
# hier das wichtige...
sub W1_Terminate { print "Ich will mich nicht schliessen";}
1
2
3
4
Win32::GUI::Dialog();
# hier das wichtige...
sub W1_Terminate { print "Ich will mich nicht schliessen";}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Win32::GUI;
$W1 = new Win32::GUI::Window(
-name => "W1",
-title => "Main Window",
-pos => [ 100, 100 ],
-size => [ 300, 200 ],
);
$W1->Show();
$W2 = new Win32::GUI::Window(
-name => "W1",
-title => "Main Window",
-pos => [ 100, 100 ],
-size => [ 300, 200 ],
);
$W2->Show();
Win32::GUI::Dialog();
# hier das wichtige...
sub W1_Terminate { print "Ich will mich nicht schliessen"; return -1;}
![]() |
|< 1 2 >| | ![]() |
16 Einträge, 2 Seiten |