[tutorial] tk no perl

bom galera nesse tutorial vou ensinar como usar tk no perl, para isso vamos declarar ele no caso Tk (eu to fazendo esse tutorial no linux nao tenho certeza se funciona com os interpretador do windows)

Código:

#!/usr/bin/perl

use Tk;

agora vamos criar nossa janela, para isso basta instanciar MainWindow

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;

tambem usamos MainLoop para evitar dela fechar

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
MainLoop;

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

agora vamos colocar um texto escrito ai, para isso usamos o Label passamos como argumento -text e o nosso texto, tabem atribuimos a mesma a uma variavel para poder manipular depois

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315");
MainLoop;

mais isso nao e suficiente para aparecer o botao entao usamos pack()

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315")->pack();
MainLoop;

agente tambem poderia colocar o pack assim

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315");
$texto->pack();
MainLoop;

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

para mudar a cor usamos -fg

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315", -fg=>"red")->pack();
MainLoop;

para mudar cor do fundo -bg

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315", -fg=>"red", -bg=>"black")->pack();
MainLoop;

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

existe outras dezenas de atributos para manipular o label agora vamos criar um botao para isso usamos Button, ele e mesma coisa so moda o label para Button veja

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$botao = $fts->Button(-text=>"aperte-me")->pack();
MainLoop;

tambem usamos o atributo command seguido de uma funçao para quando clicarmos nele ele chamar a funçao

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$botao = $fts->Button(-text=>"sair", -command=>\&fts_fun)->pack();
MainLoop;

sub fts_fun
{
   exit(0)
}

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

para agente digitar um texto (uma especie de edit) usamos Entry

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$edit1 = $fts->Entry()->pack();
MainLoop;

para pegar o valor de um Entry basta usar get na variavel do Entry, vou fazer um exemplo mais complexo vou pegar o texto do Entry e exibir na tela do terminal quando eu apertar no botao

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$edit1 = $fts->Entry()->pack();
$botao = $fts->Button(-text=>"escrever no terminal",-command=>\&fts_fun)->pack();
MainLoop;

sub fts_fun
{
   $hack = $edit1->get();
   print $hack;
}

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

bom galera isso e o basico de tk em perl, mais pra frente espero poder fazer mais tutoriais para vcs ^^

by hacker fts315