[tutorial] tk no perl - 3º parte

continuando o tutorial q eu escrevi mais cedo ^^ , começamos esse escrevendo uma simples janela

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
MainLoop;

agora vamos fazer aparecer uma caixa de message para isso usamos o metodo messageBox e passamos como argumento -message

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$fts->messageBox(-message=>"by hacker fts315");
MainLoop;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

para mudar o icone de alerta usamos o atributo -icon seguido do nome (eu sei q da para colocar outros icones so nao sei como ainda), os icones padrao sao warning, error e info

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$fts->messageBox(-message=>"by hacker fts315",-icon => "error");
MainLoop;

para agente criar uma nova janela usamos o metodo TopLevel

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Toplevel;
MainLoop;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

bom galera esse tutorial vai ter mais uma continuaçao ^^

by hacker fts315