Gast+2007-09-12 09:11:10--

ptk+2007-09-11 21:32:33--

Ach, falscher Aufruf. Versuch mal stattdessen

Code: (dl )

$mw->MouseWheelBind("Tk::Canvas")

.
Alternativ auch nur "Canvas" oder "canvas".

ich gebs auf :(

Es geht leider nicht. Selbst hier:

Code (perl): (dl )

$mw->bind($c, '<MouseWheel>', sub { print "Test\n"; });

gehts nicht. Keine Reaktion...

Ich vermute mal das liegt an Maustreiber. Es gibt hier so einige Programme, wo bei bestimmten Widgets Scrollen einfach nicht funktioniert. Bspw. VBA-Editor von M$. Da kann man auch nichts machen

1
2
3

$mw->bind($mw, '<MouseWheel>', 
        sub { $c->yviewScroll(1 => 'units'); }
);