#!/usr/bin/perl 

use strict;
use warnings;
use Tk;

my $top = MainWindow->new();
$top->title("scale tests");

my $f = $top->Frame(
    -relief => 'ridge', 
    -borderwidth => 3,
);

my $s = $top->Scale(
    "-orient" => "horizontal",
    "-length" => 300,
    "-from"   => 0,
    "-to"     => 250,
    "-tickinterval" => 25,
    "-command" => sub {
        my $s; 
        $f->configure(
            '-width' => $s->get
        ) 
    }
);

$s->pack(-side => 'left',  -fill => 'y');
$f->pack(-side => 'right', -fill => 'y');

Tk::MainLoop;
[download]

I don't quite understand the example code and how it relates to my problem. I tried running it but even your example invokes the command when the scale is first displayed before any user interaction (which is what I would like to avoid).

Hi perltux,

Would it be satisfactory to simply ignore the first call?

Using the example Khen1950fx gave (and fixing the scoping issue with $s) you could do it like this:

#!/usr/bin/perl 

use strict;
use warnings;
use Tk;

my $top = MainWindow->new();
$top->title("scale tests");

my $f = $top->Frame(
    -relief => 'ridge', 
    -borderwidth => 3,
);

my $s;
$s = $top->Scale(
    "-orient" => "horizontal",
    "-length" => 300,
    "-from"   => 0,
    "-to"     => 250,
    "-tickinterval" => 25,
    "-command" => sub {
        use feature 'state';
        state $ncalls++ or return;
        printf "Callback: Scale(%d)\n", $_[0];
        $f->configure(
            '-width' => $s->get
        ) 
    }
);

$s->pack(-side => 'left',  -fill => 'y');
$f->pack(-side => 'right', -fill => 'y');

Tk::MainLoop;
[download]

say  substr+lc crypt(qw $i3 SI$),4,5

That is a bug in Tk::Scale, -from/-to should be initialized before the -command is bound, you should report it :)

It is easy to avoid if you don't use -command but use -variable instead :)

I think you are right that it's a bug or at the very least a design flaw. Problem is I need and use both -variable and -command (-variable to store the data and -command to trigger an action when the data changes).