2011-09-28T09:59:08 pktm

Du kannst sie als Argument übergeben:

Code: (dl )

1
2
3
4
5
6
7
8
9
10

my $sb = $mw->Spinbox(
	-text => 1,
	-validate => 'all',
);
$sb->configure(
	-validatecommand => [sub{
		my $spinbox = shift;
                ..............
	}, $sb],
);

Vielen Dank. Daran habe ich mich vor Kurzem versucht, hab's aber nicht hingekriegt (Brett vor'm Kopf).

Gruß

GUIfreund