Tk::Thumbnail in Verbindung mit Drag and Drop: Bitte bitte helft mir weiter... - #44095 (Graphische Oberflächen)

zipster

2005-06-30 13:08

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

Ja habe ich schon vorher versucht.
Bekam aber immer folgende Fehlermeldung.

Code: (dl )

1
2

 error:Can't call method "X" on an undefined value at E:\Testprogramme\Clear up
PDF\Clear_up_PDF_ver.0.02.pl line 135.

Meinst du das mit $w so?

Code: (dl )

my $thumb1 = $frame1->Scrolled('Thumbnail',
               -scrollbars => 'e',
               -iwidth => 200, 
               -iheight => 300, 
               -width => 250,
               -ilabels => '0', 
               #zoombtn => 'right',
               -cols => '1',
               -command => sub {\&StartDrag($_[0])},
               );
sub StartDrag {
        my($token) = @_;
        my $w = $token->parent;
        my $e = $w->XEvent;
        my($X, $Y) = ($e->X, $e->Y);    
    }

Zum Thema $_[0].
Man kann sich so den Bilderpfad rausgeben lassen.

Code: (dl )

-command => sub {
        my $i = $_[0]->cget(-image);
        print "args=@_, \n";
    },

Und das ist ja eigentlich dann das was ich benötige.

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...