Opened by YAPD at 2015-11-20 19:15
User since
2015-09-20
146 Artikel
BenutzerIn
2015-09-20
146 Artikel
BenutzerIn
Guten Abend,
ich habe eine Frage zu der Deaktivierung der Fenster in einer
TK Umgebung. Und zwar habe ich ein Haupt - Fenster, aus dem
ich ein weiteres Fenster aufrufe. Dies geschieht auf diese
Weise :
Nun ist mein Problem, dass ich beim Aufruf des Unterfensters das
Hauptfenster deaktiveren möchte, bzw. auch das Unterfenster, wenn
ich aus diesem heraus wieder ein Fenster öffne usw.
Ich übergebe ja das Objekt des Hauptfensters & es gibt keine
globalen Variablen in diesem Script.
Habe schon einiges probiert, aber die Dokumenation von TK::grab
brachte mich auch nicht wirklich weiter.
Könnt ihr mir hierbei helfen ?
Vielen Dank & Viele Grüße
YAPD
ich habe eine Frage zu der Deaktivierung der Fenster in einer
TK Umgebung. Und zwar habe ich ein Haupt - Fenster, aus dem
ich ein weiteres Fenster aufrufe. Dies geschieht auf diese
Weise :
Code: (dl
)
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
# -----------------------------------------------------------------------------
sub Haupt_Fenster {
my $Haupt_Fenster = MainWindow -> new;
my $Breite = 3;
my $Hoehe = 3;
$Haupt_Fenster -> geometry( $Breite . 'x' . $Hoehe );
$Haupt_Fenster -> update;
my $Top_Level = $Haupt_Fenster -> toplevel;
&Authentifizierung( $Haupt_Fenster );
MainLoop;
}
# -----------------------------------------------------------------------------
sub Authentifizierung {
my ( $Haupt_Fenster ) = @_;
my $Fenster_Lizenzierung = $Haupt_Fenster -> Toplevel( -title => 'Authentifizierung' );
my $Breite = 400;
my $Hoehe = 180;
$Fenster_Lizenzierung -> geometry( $Breite . 'x' . $Hoehe );
$Fenster_Lizenzierung -> update;
... Weiterer Code
Nun ist mein Problem, dass ich beim Aufruf des Unterfensters das
Hauptfenster deaktiveren möchte, bzw. auch das Unterfenster, wenn
ich aus diesem heraus wieder ein Fenster öffne usw.
Ich übergebe ja das Objekt des Hauptfensters & es gibt keine
globalen Variablen in diesem Script.
Habe schon einiges probiert, aber die Dokumenation von TK::grab
brachte mich auch nicht wirklich weiter.
Könnt ihr mir hierbei helfen ?
Vielen Dank & Viele Grüße
YAPD
Yet Another Perl Developer