Hallo zusammen,mich würde interessehalber folgendes mal interessieren:
Ich habe versucht, ein kleines Drag'n'Drop zwischen zwei Listboxen zu erstellen, und zwar auf folgende Art:
$lb1->bind("<Button-1>", \&holen);
$lb2->bind("<Button-Release-1>", \&geben);
sub holen
{
$quelle = $_[0];
$index = $quelle->curselection();
$puff = $quelle->get($index);
print "$puff\n";
}
sub geben
{
print "button release vollzogen\n";
my $iam = $_[0];
if ($iam ne $quelle)
{
print "no";
$iam->insert('end', $puff);
$quelle->delete($index);
}
}
Das klappt aber nicht!! Ich kann zwar ein Element aus $lb1 anklicken, die Maustaste gedrückt zu halten und die Taste in $lb2 wieder loslassen, aber dann passiert im ersten Moment gar nichts. Erst wenn ich in $lb2 nochmal klicke, dann wird das Element aus $lb1 gelöscht und in $lb2 eingefügt. Kann mir jemand sagen, warum das nicht schon beim ersten mal funktioniert?
Und noch eine kleine Frage:
$index = $quelle->curselection();
Hier ist bei mir $index ein Pointer auf eine Liste. Wie kann das sein? Ich finde im Internet überall, dass curselection den Index zurückliefert, und nicht einen Pointer auf eine Liste mit dem Index...!!
Datum: 25.07.2005-03:09
Drag&Drop in Perl und Frage zu Curselection
