#!/usr/local/bin/perl -W
#tk.scroll.frame.pl
use Tk;
use strict;
use vars qw($top $drop);


$top = new MainWindow;
$top->Label(-text => "Enter the scroll frame")->pack;
$top = $top->Scrolled('Frame', -scrollbars => "osoe",)->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
$top->Label(-text => "Inside the scroll frame")->pack;
MainLoop;