Opened by mickele40 at 2011-01-10 15:37
User since
2011-01-10
1 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-01-10
1 Artikel
BenutzerIn
Hallo zusammen.
Nachdem ich jetzt einen Tag lang vergeblich gesucht habe, weiß ich jetzt das TK zwar eine veraltete GUI verwendet, aber für Tkx doch noch zu wenig Dokus im Netz zu finden sind.
OK, hier mein problemchen:
Versuche ich jetzt über -configure
die Textfarbe zu ändern, erhalte ich die Fehlermeldung:
Can't call method "configure" without a package or object reference
Im Debug sieht man auch das die Variable (Objekt) $F4_Label ohne das g_pack noch den Inhalt: "Tkx::widget=SCALAR(0x5a053cc)->'.f.m'" hat.
Mit pack ist diese leer.
Also irgendwie peil ich das nicht, wie ich an die Objekt Attribute von $F4_Label nach dem packen, ran kommen.
Kann mir irgendeiner, hier etwas Klarheit verschaffen?
Vielen Dank im voraus.
Ach ja, ich benutze Perl 5.8.8 (Ja ich weiß, da gibt es Probleme mit dem tkx, die in der 5.12 nicht mehr auftreten)
Aber ich wollte unbedingt, vor der Umstellung das TK durch das Tkx tauschen.
Gruß Micha
Last edited: 2011-01-10 15:45:07 +0100 (CET)
Nachdem ich jetzt einen Tag lang vergeblich gesucht habe, weiß ich jetzt das TK zwar eine veraltete GUI verwendet, aber für Tkx doch noch zu wenig Dokus im Netz zu finden sind.
OK, hier mein problemchen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use warnings;
use strict;
no strict "refs"; #Keine Fehlermeldung bei Benutzung von Symbolischen Referenzen
use Tkx; #!!!
my $Meldungstext = 'Testmeldung';
my $MainWindow = Tkx::widget->new(".");
#*** Frame 4 erzeugen, für Meldungsbereich ***
my $Frame4 = $MainWindow->new_ttk__frame();
my $F4_Label = $Frame4->new_message(
-textvariable=>\$Meldungstext,
-width => 390,
)->g_pack(-anchor=>'w')
;
#Packen
$Frame4->g_pack(-side=>'bottom', -expand=>1, -fill => 'both');
Versuche ich jetzt über -configure
Code: (dl
)
$F4_Label->configure(-foreground => '#00DD00');
die Textfarbe zu ändern, erhalte ich die Fehlermeldung:
Can't call method "configure" without a package or object reference
Im Debug sieht man auch das die Variable (Objekt) $F4_Label ohne das g_pack noch den Inhalt: "Tkx::widget=SCALAR(0x5a053cc)->'.f.m'" hat.
Mit pack ist diese leer.
Also irgendwie peil ich das nicht, wie ich an die Objekt Attribute von $F4_Label nach dem packen, ran kommen.
Kann mir irgendeiner, hier etwas Klarheit verschaffen?
Vielen Dank im voraus.
Ach ja, ich benutze Perl 5.8.8 (Ja ich weiß, da gibt es Probleme mit dem tkx, die in der 5.12 nicht mehr auftreten)
Aber ich wollte unbedingt, vor der Umstellung das TK durch das Tkx tauschen.
Gruß Micha
Last edited: 2011-01-10 15:45:07 +0100 (CET)