Opened by zipster at 2006-05-09 18:16
User since
2004-09-06
458 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-09-06
458 Artikel
BenutzerIn
@Matze
Der Befehl -variable steht da drin
Den bei BrowseEntry ist er anders als bei Entry. Deswegen mußte ich diesen Weg wählen.
Meinst du so?
@Ptk
Könnte ich auch nehmen. Ich müßte es halt nur irgendwie schaffen das immer nur ein Checkbutton ausgewählt werden kann. Und ehrlich gesagt hab ich keine Ahnung wie ich das machen soll.
Der Befehl -variable steht da drin
Code: (dl
)
$hash_ref_ini->{$feldname}->{'variable'}Den bei BrowseEntry ist er anders als bei Entry. Deswegen mußte ich diesen Weg wählen.
Meinst du so?
Code: (dl
)
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
36
37
38
39
40
41
sub hlist_notebook{
my ( $hash_ref, $hash_ref_ini, $page, $hlist, $befehl, $choices) = @_;
my ( $counter, $choices_for_browse, $choices_befehl, $feld, $feldname);
for $feldname (keys(%{$hash_ref_ini})) {
$counter++;
}
my @choices = lies_tabellen_zeilen($dbh, "adresstyp", "beschreibung");
$hlist = $page->Scrolled("HList",
-header => 1,
-columns => $counter,
-scrollbars => 'oe',
-width => 145,
-height => 20,
-relief => 'flat',
-selectbackground => 'SeaGreen3',
#-background => ''white'',
)
->$befehl();
for my $datensatz_id (sort keys(%{$hash_ref})){
my $e = $hlist->addchild("");
for $feldname (keys(%{$hash_ref_ini})) {
my $browse = $hash_ref_ini->{$feldname}->{'widget'};
$hlist->header('create',
$hash_ref_ini->{$feldname}->{'place'},
-itemtype => 'window',
-widget => $hlist->Button(-text => $hash_ref_ini->{$feldname}->{'buttonname'},
-relief => 'flat',
-command => [ \&MyTk::HList::order, $hash_ref_ini->{$feldname}->{'place'}, 0 ]),
-style => $headerstyle);
$hlist->itemCreate($e,
$hash_ref_ini->{$feldname}->{'place'},
-itemtype => 'window',
(-widget => $feld = $hlist->$browse($hash_ref_ini->{$feldname}->{'variable'} => \$hash_ref->{$datensatz_id}->{$feldname},
-width => $hash_ref_ini->{$feldname}->{'width'})));
if ($browse eq "BrowseEntry"){
$feld->insert('end',$_) for (@choices);
}
}
}
}#hlist_notebook@Ptk
Könnte ich auch nehmen. Ich müßte es halt nur irgendwie schaffen das immer nur ein Checkbutton ausgewählt werden kann. Und ehrlich gesagt hab ich keine Ahnung wie ich das machen soll.
