Tkx forground color nach g_pack() ändern? (Graphische Oberflächen)

[thread]15829[/thread]

Tkx forground color nach g_pack() ändern?

Leser: 15

Articles: hide open all | hide show old branches

mickele40

2011-01-10 15:37
User since
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:
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)

View all threads created 2011-01-10 15:37.