#
# [0001][#!/usr/bin/perl            ][^]
# [0002][                           ][ ]
# [0003][=head1 NAME                ][ ]
# [0004][                           ][ ]
# [....][...........................][ ]
#
# In pEdit version 0.7 (beta release)
# replace the
#
#       my $t = $mw->Scrolled("Text", ...
#
# line with the following

my $foy = $mw->Frame->pack(
    -fill => 'both',
    -expand => 1,
);

my $linenumbers = $foy->ROText(
    -width => 4,
    -font => ['Courier New', '10'],
    -background => '#c0c0c0',
)->pack(
    -pady => 0,
    -padx => 0,
    -ipady => 0,
    -ipadx => 0,
    -side => 'left',
    -fill=> 'y',
    -expand =>0,
);#Tk::ROText

$linenumbers->insert('end', join "\n", map {sprintf "%4d", $_ } 1 .. 120);

my $t = $foy->Text(
    -font => ['Courier New', '10'],
)->pack(
    -pady => 0,
    -padx => 0,
    -ipady => 0,
    -ipadx => 0,
    -side => 'right',
    -fill => 'both',
    -expand => 1,
);

my $scroll = $t->Scrollbar(
#    -orient => 'vertical',
    -command => sub {
        my(@foo)= @_;
        $t->yview(@foo);
        $linenumbers->yview(@foo);
    },
);


$t->configure( -yscrollcommand => [ set => $scroll ], );
$linenumbers->configure( -yscrollcommand => [ set => $scroll ], );



$scroll->pack(
    -side => 'right',
    -fill => 'y',
);