tk no perl - 4º parte

e ae galera essa e o 4º parte do tutorial de tk em perl, para começar vamos fazer uma janela simples

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
MainLoop

vamos criar um frame, esses frame sao uma especime de janela embutida na mesma e cada frame nao afeta o outro, para criar frame basta usar o metodo Frame

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;

MainLoop;

agente pode criar os botoes, entry, label, etc no frame

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$lol = $hack->Label(-text=>"isso esta em um frame")->pack;
MainLoop;

veja o exemplo com dois frames

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$lol = $fts->Frame()->pack;
$hack->Label(-text=>"isso esta em um frame")->pack;
$lol->Label(-text=>"isso esta em outro frame")->pack;
MainLoop;



frame sao necessario para criar Radiobutton, os radiobutton sao botao que vc seleciona e todos os radiobutton de um frame faz parte de um todo, para agente criar o radiobutton basta agente usar o metodo Radiobutton dentro de um frame, passamos como argumento o atributo -text com um texto

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$radio1 = $hack->Radiobutton(-text=>"white hat")->pack;
$radio2 = $hack->Radiobutton(-text=>"black hat")->pack;

MainLoop;

se agente perceber ainda nao da para selecionar nenhuma opção para isso usamos o atributo -variable para armazenar o valor e o atributo -value para mandar um valor para la

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$radio1 = $hack->Radiobutton(-text=>"white hat",-variable=>\$opcao,-value=>"bom")->pack;
$radio2 = $hack->Radiobutton(-text=>"black hat",-variable=>\$opcao,-value=>"mal")->pack;

MainLoop;

no caso podemos criar um botao q vai checar a variavel para ver qual valor

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$radio1 = $hack->Radiobutton(-text=>"white hat",-variable=>\$opcao,-value=>"bom")->pack;
$radio2 = $hack->Radiobutton(-text=>"black hat",-variable=>\$opcao,-value=>"mal")->pack;
$botao = $hack->Button(-text=>"checar",-command=>\&fts_radiob)->pack;

MainLoop;

sub fts_radiob
{
   if($opcao eq "bom")
   {
      $fts->messageBox(-message=>"voce e um bom garoto vai pro ceu ^^");
   }
   elsif($opcao eq "mal")
   {
      $fts->messageBox(-message=>"voce e mal cuidado para nao ir para o inferno '-'");
   }
   else
   {
      $fts->messageBox(-message=>"escolha uma opcao '-'");
   }
}



tambem existe os checkbox eles sao diferente do radiobutton eles nao fazem parte de um todo sao usados para habilita e desabilitar uma opcao diferente do radio q e usado para escolher uma e tambem nao precisa de um frame, para usar ele basta usar o metodo Checkbutton, passar como argumento o atributo -text com um texto, tambem o atributo -variable, tambem usamos o atributo -onvalue para mandar para variavel determinado valor quando tiver apertado e o atributo offvalue quando tiver desabilitado

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$fts->Checkbutton(-text=>"aparecer msg?",-variable=>\$hack,-onvalue=>"sim",-offvalue=>"nao")->pack;

MainLoop;

usamos uma funçao para comparar

Código:

#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$fts->Checkbutton(-text=>"aparecer msg?",-variable=>\$hack,-onvalue=>"sim",-offvalue=>"nao")->pack;
$fts->Button(-text=>"checar",-command=>\&fts_checkb)->pack;

MainLoop;

sub fts_checkb
{
   if($hack eq "sim")
   {
      $fts->messageBox(-message=>"vc so esta lendo pq ativo aquela bagaça se nao voce nao estaria lendo esse texto agora *-*");
   }
}

bom galera tanto o radiobutton quanto o checkbutton vc pode colocar o valor padrao para isso basta criar a variavel com o valor

Código:

#!/usr/bin/perl

use Tk;

$hack = "sim";

$fts = MainWindow->new;
$fts->Checkbutton(-text=>"aparecer msg?",-variable=>\$hack,-onvalue=>"sim",-offvalue=>"nao")->pack;


bom galera pode ser q eu faça mais alguns tuto sobre tk em perl ^^

by hacker fts315