hmm
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
35
sub set_label {
my ( $frame, $use_name, $label, $entry ) = @_;
if ($use_name) {
$frame->Label(%$label)
->grid( -row => '0', -column => '1', -sticky => 'w' );
$frame->Entry(%$entry)
->grid( -row => '0', -column => '2', -sticky => 'w' );
}
else {
my $spacer1 =
$frame->Photo( '-format' => 'png', -file => 'images/spacer1.png' );
$frame->Label( -image => $spacer1, -width => "200", -height => "10" )
->grid(
-row => '0',
-column => '1',
-columnspan => '2',
-sticky => 'w'
);
}
}
my $use_name = $ref_hash_konfig->{nachname} == '1';
set_label(
$frame_kontakte_haupt,
$use_name,
$use_name
? (
{ -text => "Nachname:" },
{
-textvariable => \$ref_hash_haupt->{nachname},
-state => '$ref_hash_berechtigung->{nachname}'
}
)
: ()
);
\n\n
<!--EDIT|esskar|1149248698-->