#!/usr/bin/perl --

use strict;
use warnings;
use Win32::GUI;

my $mw = new Win32::GUI::DialogBox(
  -text   => 'Test',
  -left   => 300,
  -top    => 100,
  -left   => 60,
  -width  => 200,
  -height => 200,
);

$mw->Show();

my $result = $mw->AddTextfield(
  -left      => 0,
  -top       => 40,
  -size      => [ 180, 100 ],
  -vscroll   => 1,
  -multiline => 1,
);

my $button = $mw->AddButton(
  -name    => 'button',
  -text    => 'Go',
  -left    => 120,
  -top     => 10,
  -visible => 1,
);

Win32::GUI::Dialog;

sub button_Click {

  while (<DATA>) {
    $result->Append("$_\r\n");
  }
  $result->Append("Checking the basics\n");
  $result->Append( __FILE__ . "\n" );
  $result->Append( __PACKAGE__ . "\n" );
  $result->Append( __LINE__ . "\n" );
  $result->Append( "(-s DATA) " . ( -s DATA ) . "\n" );
  $result->Append( "tell(DATA) " . tell(DATA) . "\n" );
  $result->Append( "fileno(DATA) " . fileno(DATA) . "\n" );

  if ( fileno DATA ) {
    $result->Append( "seek DATA,0 ==> " . seek( DATA, 0, 0 ) . "\n" );

    while (<DATA>) {
      $result->Append("$_\r\n");
    }
  } ## end if ( fileno DATA )

  return;
} ## end sub button_Click

__DATA__
This is LINE1
This is LINE2
This is LINE3
[download]