# Create a top-level window that displays a horizontal scale.
my($demo) = @_;
$TOP = $MW->WidgetDemo(
-name => $demo,
-text => 'An arrow and a horizontal scale are displayed below. If you click or drag mouse button 1 in the scale, you can change the size of the arrow.',
-title => 'Horizontal Scale Demonstration',
-iconname => 'hscale',
);
my $frame = $TOP->Frame(-borderwidth => 10)->pack(qw/-side top -fill x/);