Opened by Kean at 2007-04-25 17:01
User since
2004-08-18
463 Artikel
BenutzerIn
2004-08-18
463 Artikel
BenutzerIn
Also ich steig da nicht so durch. Ich will ja nicht über die id auf den Button zugreifen sondern über den button und das Sub auf eine Funktion und dort eben die id übergeben.
Hab es auch mal ausprobiert wie du es vorgeschlagen hast:
Hier kommt aber folgende Fehlermedlung:
Hab es auch mal ausprobiert wie du es vorgeschlagen hast:
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
42
43
for (my $button=0; $button < readini(PRODUKTE, ANZAHL, 'produkte.ini'); $button++)
{
$produktnr[$button] = 'PRODUKT'.$button;
($textbutton = readini($produktnr[$button], NAMEDISPLAY, 'produkte.ini')) =~ s/\\n/\n/g;
$fontface = readini($produktnr[$button], FONTDISPLAY, 'produkte.ini');
$buttoncolor = readini($produktnr[$button], BUTTONCOLOR, 'produkte.ini');
$placex=readini($produktnr[$button], X, 'produkte.ini');
$placey=readini($produktnr[$button], Y, 'produkte.ini');
$placeh=readini($produktnr[$button], H, 'produkte.ini');
$placew=readini($produktnr[$button], W, 'produkte.ini');
my $buttons{$button} = $mw->Button( -text => $textbutton,
-relief => "raised",
-font => $fontface,
-background => $buttoncolor,
-activebackground => $buttoncolor,
-command => sub { print $produktnr[$button];if (readini($produktnr[$button], AKTIV, 'produkte.ini') == 1) {
print "bindrin";$wahl = readini($produktnr[$button], NAMEBON, 'produkte.ini');
$wert = readini($produktnr[$button], PREIS, 'produkte.ini');
$pfand_kz = readini($produktnr[$button], PFAND, 'produkte.ini');
$pfand_wert = readini($produktnr[$button], PFANDWERT, 'produkte.ini');
$pid = 0; for($i=0;$i<$menge_wahl;$i++) { &ausgabesumme; &print;}
$storno_kz = 0; $menge_wahl = 1;}
}
)->place( -x => $placex, -y => $placey, -height => $placeh, -width => $placew);
}
Hier kommt aber folgende Fehlermedlung:
Code: (dl
)
1
2
3
4
5
C:\Dokumente und Einstellungen\Kai\Desktop\BonPlus>Bonplus_test2.pl
syntax error at C:\Dokumente und Einstellungen\Kai\Desktop\BonPlus\Bonplus_test2
.pl line 77, near "$buttons{"
Execution of C:\Dokumente und Einstellungen\Kai\Desktop\BonPlus\Bonplus_test2.pl
aborted due to compilation errors.