print "Jetzt werden die Bindings hinzugefuegt...\n";

        $c            -> Tk::bind    ("<Button-1>", [
        sub {
            shift;
            my @op = @{$r->{pos}};
            my @np = @_;

            print " OP: @op\n NP: @np\n";

            newpos($r, [$np[0]-$op[0], $np[1]-$op[1]]);
            @{$r->{pos}} = (getXY(@_));
        }, Ev("x"), Ev("y") ]);