#! /usr/bin/perl -w
use Prima;
use Prima::Buttons;
use Prima::Application;
use Prima::ImageViewer;
use Prima::Label;

my $w = Prima::MainWindow-> create(
  text=> "Glad 1.0 - Modelador 2D",
  size => [ 430, 400],
  centered => 1,
);

$w-> insert(Button=>
       origin => [10,350],
       text => "~Quadrado",
       name=>"bQuadardo",
       hint => 'Objeto Quadrado',
);
$w-> insert(Button=>
       origin =>[10,10],
       text=>"~Sair",
       name=>"bSair",
       hint=>'Sair do Aplicatiovo',
       onClick => sub { $::application-> close},
);

$w-> insert(Label=>
       origin=>[225,80],
       text=>"Pos X: ",
       name=>"LabelX",
);

$w-> insert(Label=>
       origin=>[280,80],
       text=>"Pos Y: ",
       name=>"LabelY"
);

$w-> insert(Label=>
       origin=>[265,80],
       text=>"X",
       name=>"PX",
);

$w-> insert(Label=>
       origin=>[315,80],
       text=>"Y",
       name=>"PY"
);

$w-> insert(ImageViewer=>
       origin=>[130,100],
       borderWidth=>[1],
       size=>[280,280],
       name=>"Image",
);

run Prima;