Ondrej Koala Vacha <koala@xxxxxx> writes:
>On Mon, 10 May 2004 slaven@xxxxxxxx wrote:
>
>> cj.bj.bj@xxxxxxxx wrote:
>> >
>> > Is there a way to be able to use a mouse scroller in a text widget?
>> >
>>
>> Upgrade Perl/Tk to 800.025 or 804.027.
>>
>
>or
>
>my $t = $top->Scrolled('Text')->pack;
> $t->bind("<4>", sub{ $t->yview('scroll', $t->cget(-height)*-.5,
> 'units')});
> $t->bind("<5>", sub{ $t->yview('scroll', $t->cget(-height)*.5,
> 'units')});
Which is a different scaling than Tk804 bindings use.
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx
|
