Re: Tk::Scale issue

On Aug 17, 2006, at Aug 17, 7:55 PM, Brian Jackson wrote:

> Hello-
>
> I'm migrating one of my apps to Tk 804.027 and having an issue with  
> less
> than 1, but greater than 0 values for my Scale widgets.
>
> Works just fine in Tk 800.024
> $gamma=$buttons->Scale(-orient=>'horizontal',
>                            -from=>3.0, -to=>0.5,
>                            -resolution=>0.1,
>                            -digits=>2,
>                            -variable=>\$imgs->{$img_loc}{gamma},
>                           )->pack(-side=>'left');
>
> but fails in Tk 804.027  :(
>
> What happens is in 804.027, when you click on the slider, it drops the
> entire slider to the lowest value and you can't slide it anymore.


This works for me, how about for you?

#!/usr/local/bin/perl -w
use Tk;
use strict;

my $buttons = MainWindow->new;

my $frog;
my $gamma=$buttons->Scale(-orient=>'horizontal',
                            -from=>3.0, -to=>0.5,
                            -resolution=>0.1,
                            -digits=>2,
                            -variable=>\$frog,
                           )->pack(-side=>'left');
MainLoop;


--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk