#! perl -slw
use strict;
use Win32::GUI;

my $main = Win32::GUI::Window->new(
    -width => 800, -height => 600,
    -name => 'Main',
);
my $re = $main->AddRichEdit(
    -width => $main->ScaleWidth,
    -height => $main->ScaleHeight,
    -hscroll => 1, -vscroll => 1,
);

$re->Load( $ARGV[ 0 ]||die( 'No file' ), 1 );
$re->SetSel( ( $re->TextLength() ) x 2 );
$re->Scroll( 'bottom' );
$re->Scroll( -10 );
$re->SetFocus;

$main->Show();
Win32::GUI::Dialog();

exit;

sub Main_Resize {
    $re->Resize( $main->ScaleWidth, $main->ScaleHeight );
}