RE: Tk::Scale issue

Confirm that the script below works here as well
(perl 5.8.8, sparc/solaris 8 and RH linux 3.0, tk 804.027).

-Marek

> -----Original Message-----
> From: [email protected] 
> [mailto:[email protected]] On Behalf Of Steve Lidie
> Sent: Friday, August 18, 2006 2:17 AM
> To: Brian Jackson
> Cc: [email protected]
> Subject: 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
> 
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk