Thread Beschriftung von Buttons (5 answers)
Opened by Gast at 2007-03-05 23:50

renee
 2007-03-06 11:26
#46256 #46256
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das hättest Du gleich sagen sollen ;-)

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
$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);


=>

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(my $text = readini(NAMEN, NAME1, 'text.ini')) =~ s/\\n/\n/g;

$button1 = $mw->Button( -text => $text,
                       -relief => "raised",
               
         -font => readini(SCHRIFT, FONT, 'text.ini'),
               
         -background => "#FFFF00",
               
         -activebackground => "#FFFF00",
                       -command => sub { &print; }
               
               
            }
                        )->place( -x => 55, -y => 50, -height => 100, -width => 200);
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Beschriftung von Buttons