Rahmenelement und Skalen Widget
•#!/usr/bin/perl
•use strict;
•use warnings;
•use Tk;
•my $mw = MainWindow->new();
•
•my $f1 = $mw->Frame(-relief      => 'sunken',
•                    -width       => '50',
•                    -height      => '50',
•                    -borderwidth => '1',
•                   )
•             ->pack();
•
•$f1->Scale(-from   => 0,
•           -to     => 100,
•           -orient => "vertical",
•           -label  => "Schieb mich",
•          )
•    ->pack();
•
•MainLoop();