Opened by alexus-777 at 2004-06-06 02:03
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Hier ist ein Beispiel:
Statt des geforkten Prozesses kann man auch ein anderes Skript verwenden, man muss nur die Id uebermitteln.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use Tk;
$mw = MainWindow->new;
$mw->Label(-text => "Hier kommt das eingebettete Fenster:")->pack;
$f = $mw->Frame(-container => 1)->pack;
my $id = $f->id;
warn $id;
$mw->update; # wichtig, Fenster muss gemappt sein!
if (fork == 0) {
$mw2 = MainWindow->new(-use => $id);
$mw2->Label(-text => "Das andere Fenster")->pack;
MainLoop;
CORE::exit();
}
MainLoop;
Statt des geforkten Prozesses kann man auch ein anderes Skript verwenden, man muss nur die Id uebermitteln.