1 tk no perl Sex Abr 19, 2013 1:27 pm
Moedas : 201
Mensagens : 92
Humor : *-*
Reputação : 5
Mensagens : 92
Humor : *-*
Reputação : 5
hacker fts315
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)
agora vamos criar nossa janela, para isso basta instanciar MainWindow
tambem usamos MainLoop para evitar dela fechar
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
mais isso nao e suficiente para aparecer o botao entao usamos pack()
agente tambem poderia colocar o pack assim
para mudar a cor usamos -fg
para mudar cor do fundo -bg
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
tambem usamos o atributo command seguido de uma funçao para quando clicarmos nele ele chamar a funçao
para agente digitar um texto (uma especie de edit) usamos Entry
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
bom galera isso e o basico de tk em perl, mais pra frente espero poder fazer mais tutoriais para vcs ^^
by hacker fts315
- 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;
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;
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;
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)
}
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;
}
bom galera isso e o basico de tk em perl, mais pra frente espero poder fazer mais tutoriais para vcs ^^
by hacker fts315