e ae galera essa e o 4º parte do tutorial de tk em perl, para começar vamos fazer uma janela simples
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
agente pode criar os botoes, entry, label, etc no frame
veja o exemplo com dois frames
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
no caso podemos criar um botao q vai checar a variavel para ver qual valor
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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
usamos uma funçao para comparar
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera tanto o radiobutton quanto o checkbutton vc pode colocar o valor padrao para isso basta criar a variavel com o valor
bom galera pode ser q eu faça mais alguns tuto sobre tk em perl ^^
by hacker fts315
- 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;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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 '-'");
}
}
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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 *-*");
}
}
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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