#!/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;