Beschriftung von Buttons - #46254 (Graphische Oberflächen)

Kean

2007-03-06 11:04

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Ich nutze Perl V 5.8.8 und TK 804.027-r6

Ich habe es so vereinfacht wie ich es oben gepostet habe nochmal versucht und es klappt wirklich. In meinem Programm wird der Text aber nicht einfach einer Variable zugewiesen sondern aus einer Ini-Datei eingelesen.

Mit folgender Routine lese ich es ein:

Code: (dl )

use IniConf;
sub readini
{
my $cfg = IniConf->new( -file => $_[2] );
my $value = $cfg->val($_[0], $_[1]);
return $value;
}

und mit diesem Aufruf wird der Button generiert:

Code: (dl )

$button1 = $mw->Button( -text => readini(NAMEN, NAME1, 'text.ini'),
                        -relief => "raised",
               
         -font => readini(SCHRIFT, FONT, 'text.ini'),
               
         -background => "#FFFF00",
               
         -activebackground => "#FFFF00",
                        -command => sub { &print; }
               
               
            }
                         )->place( -x => 55, -y => 50, -height => 100, -width => 200);

in der InI-Datei steht dann folgendes:

Code: (dl )

[NAMEN]
NAME1=Zeile1\nZeile2

[SCHRIFT]
FONT={Arial} 12 {bold}