Re: Tk::Scale issue

> > 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  :(

Fails under 800.025 too. Slider jumps to the right when clicked and stays 
there.

> 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;

No-go on 800.025
On start-up, the slider shows up on the right hand side and can't be moved.

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