Opened by pktm at 2005-01-28 16:39
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Hallo!
Ich erzeuge ein Optionmenu mittels einer Sub:
Dieser übergebe ich das Widget in dem das Menu erzeugt werden soll, die beiden Variablen in denen der jeweils aktuelle Wert gespeichert werden soll und die Auswahlmöglichkeiten.
Nur bleiben die der Sub übergebenen Variablen leer.
Mache ich bei der übergabe was falsch (bitte nicht auf perldoc sub oder so verweisen, thx)?
Ich mein, natürlich könnte man sowas auch mit dem command-parameter machen, aber das ist glaube ich nicht Sinn und Zweck der Sache.
mfg pktm
Ich erzeuge ein Optionmenu mittels einer Sub:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub defineDBFieldsOptionMenu {
my ($top, $bindSelectedValue, $bindSelectedTextlabel, $optionSet) = @_;
my $opt = $top->Optionmenu(
-options => $optionSet,
-command => sub {
print "got: ", shift, "\n", "val: $bindSelectedValue\n";
print "hashval: " . $obj->{'entryFrame'}->{'feld'}->{'bindSelectedValue'} . "\n";
},
-variable => \$bindSelectedValue,
-textvariable => \$bindSelectedTextlabel
);
return $opt;
} # /defineDBFieldsOptionMenuDieser übergebe ich das Widget in dem das Menu erzeugt werden soll, die beiden Variablen in denen der jeweils aktuelle Wert gespeichert werden soll und die Auswahlmöglichkeiten.
Nur bleiben die der Sub übergebenen Variablen leer.
Mache ich bei der übergabe was falsch (bitte nicht auf perldoc sub oder so verweisen, thx)?
Ich mein, natürlich könnte man sowas auch mit dem command-parameter machen, aber das ist glaube ich nicht Sinn und Zweck der Sache.
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )