use strict;
use warnings;
use Win32::GUI();

my $mainWindow = new Win32::GUI::Window(
  -name => 'mainWindow',
  -title => 'sample window',
  -size => [1200, 800],
  -minsize => [1200, 800],
  -onTerminate => sub { return -1; },
);

$mainWindow->AddLabel(
  -name => 'label1',
  -text => 'string in label 1',
  -background => 0x00ff00,
  -size => [500, 300],
  -pos => [300, 300],
);

$mainWindow->AddButton(
  -name => 'b1',
  -text => 'label 1',
  -pos => [100, 0],
  -onClick => sub { 
    $mainWindow->label1->Animate( 
      -show => !$mainWindow->label1->IsVisible(), 
      -activate => 1, 
      -time => 600,
      -direction => 'lr',
      -animation => 'roll',
    ); 
    
  },
);

$mainWindow->Show();

Win32::GUI::Dialog();