#!/usr/bin/perl use strict; use Tk; use Tk::Pane; my $mw = MainWindow->new; $mw->geometry('400x250'); my $mwf = $mw->Scrolled('Pane', -scrollbars=>'ose', -sticky=>'nwse', )->pack(-expand=>1, -fill=>'both'); my $f1 = $mwf->Frame()->pack(); my $f2 = $mwf->Frame()->pack(); my $textTopStart = 328; my $textTop = $textTopStart; my $textHeight = 31; my @textWidth = ("4", "160", "309", "460", "609"); my $dude2 = $mw->Text(-background => 'white', -foreground => 'black' +,-height => 1,-width => 22)->place( -x => $textWidth [0], -y => $textTop); my $dude3 = $mw->Text(-background => 'white', -foreground => 'blac +k',-height => 1,-width => 21)->place( -x => $textWidth[1], -y => $textTop); my $dude4 = $mw->Text(-background => 'white', -foreground => 'blac +k',-height => 1,-width => 21)->place( -x => $textWidth[2], -y => $textTop); my $dude5 = $mw->Text(-background => 'white', -foreground => 'blac +k',-height => 1,-width => 21)->place( -x => $textWidth[3], -y => $textTop); my $dude6 = $mw->Text(-background => 'white', -foreground => 'blac +k',-height => 1,-width => 22)->place( -x => $textWidth[4], -y => $textTop); $textTop += $textHeight; MainLoop();
In reply to Re^2: Window scrollbar
by Aboveyou
in thread Window scrollbar
by Aboveyou
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |