Opened by alexus-777 at 2004-06-06 02:03
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Bei mir kommt da:
(achja, hab den Code so abgewandelt:
Code: (dl
)
1
2
3
4
0x1003a0 at C:\Daten\perl\tk-Programm-in-Programm.pl line 10.
24341b8 is not a hash at C:/Perl/site/lib/Tk/MainWindow.pm line 55.
abnormal program termination
(achja, hab den Code so abgewandelt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = new MainWindow;
$mw->Label(-text => "Hier kommt das eingebettete Fenster:")->pack();
my $f = $mw->Frame(-container => 1)->pack();
my $id = $f->id;
warn $id;
$mw->update; # wichtig, Fenster muss gemappt sein!
if (fork == 0) {
my $mw2 = MainWindow->new(-use => $id);
$mw2->Label(-text => "Das andere Fenster")->pack();
MainLoop();
CORE::exit();
}
MainLoop();
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite