# perl -w
use strict;
use warnings;

use Win32::GUI();
use Win32::GUI::Scintilla;
use Win32::GUI::Scintilla::Perl;

# main Window
my $Window = new Win32::GUI::Window (
    -name  => "Window",
    -title => "Scintilla Perl test",
    -pos   => [100, 100],
    -size  => [400, 400],
) or die "new Window";

# Create Scintilla Edit Window
# $Edit = new Win32::GUI::Scintilla  (
#               -parent  => $Window,
# Or
my $Edit = $Window->AddScintillaPerl  (
    -name => "Edit",
    -pos  => [0, 0],
    -size => [$Window->ScaleWidth(), $Window->ScaleHeight()],
    -text => "my \$Test\n",
) or die "new Edit";

# Call Some method
$Edit->AddText ("if (\$i == 1) {\n \$i++;\n}\n");

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Show();

# Main window event handler
sub Window_Terminate {
    return -1;
}

# Main window resize
sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Edit->Resize ($width, $height);
    }
}

# Scintilla Event Notification
sub Edit_Notify {
  my (%evt) = @_;
  print "Edit Notify = ", %evt, "\n";
}