bom galera continuando a segunda parte do tutorial de tk em perl nesse eu vou ensinar algumas coisas novas, para começar vamos fazer uma janela normal
para agente colocar mudar o titulo da janela usamos o metodo title passamos como argumento o titulo q agente deseja no caso vou colocar "by hacker fts315"
tambem pode ser feito quando instanciamos o MainWindow passamos como argumento o atributo title
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente redimensionar a janela usamos o metodo geometry e passamos como argumento a "larguraxaltura"
tambem podemos mudar a posiçao com geometry para isso depois da largura adicionamos um + e a posiçao para baixo e um + e a posiçao para frente
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente colocar um tamanho minimo para janela usamos o metodo minsize e para um valor maximo maxsize e passamos como argumento o numero da largura e outra da altura
se agente quiser q a janela nao diminua ou aumente basta colocar o minsize e maxsize com o mesmo tamanho
para agente mudar a cor de fundo da janela basta usar o metodo configure e o atributo -bg
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente economizar linhas digamos assim podemos fazer tudo isso quando instancimos o MainWindow
no ultimo tutorial eu mostrei o metodo get para pegar o valor dentro do Entry e mostrar no terminal veja a source e a imagem dele
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
lembra daquele codigo no tutorial anterior melhorando aquele codigo criamos mais um Entry onde vamos adicionar o texto do outro Entry, para agente adicionar um valor no Entry usamos o metodo configure e passamos como argumento o atributo -text
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera esse tutorial nao acaba aq vou fazer a 3º parte dele e outros tutorias *-*
by hacker fts315
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
MainLoop;
para agente colocar mudar o titulo da janela usamos o metodo title passamos como argumento o titulo q agente deseja no caso vou colocar "by hacker fts315"
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->title("by hacker fts315");
MainLoop;
tambem pode ser feito quando instanciamos o MainWindow passamos como argumento o atributo title
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new(-title=>"by hacker fts315");
MainLoop;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente redimensionar a janela usamos o metodo geometry e passamos como argumento a "larguraxaltura"
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->geometry("600x600");
MainLoop;
tambem podemos mudar a posiçao com geometry para isso depois da largura adicionamos um + e a posiçao para baixo e um + e a posiçao para frente
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->geometry("600x600+100+100");
MainLoop;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente colocar um tamanho minimo para janela usamos o metodo minsize e para um valor maximo maxsize e passamos como argumento o numero da largura e outra da altura
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->minsize(100,100);
$fts->maxsize(600,600);
MainLoop;
se agente quiser q a janela nao diminua ou aumente basta colocar o minsize e maxsize com o mesmo tamanho
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->minsize(300,300);
$fts->maxsize(300,300);
MainLoop;
para agente mudar a cor de fundo da janela basta usar o metodo configure e o atributo -bg
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->configure(-bg=>"blue");
MainLoop;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente economizar linhas digamos assim podemos fazer tudo isso quando instancimos o MainWindow
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$fts->destroy;
MainLoop;
no ultimo tutorial eu mostrei o metodo get para pegar o valor dentro do Entry e mostrar no terminal veja a source e a imagem dele
- 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]
lembra daquele codigo no tutorial anterior melhorando aquele codigo criamos mais um Entry onde vamos adicionar o texto do outro Entry, para agente adicionar um valor no Entry usamos o metodo configure e passamos como argumento o atributo -text
- Código:
#!/usr/bin/perl
use Tk;
$fts = MainWindow->new;
$edit1 = $fts->Entry()->pack();
$edit2 = $fts->Entry()->pack();
$botao = $fts->Button(-text=>"escrever no Entry2",-command=>\&fts_fun)->pack();
MainLoop;
sub fts_fun
{
$hack = $edit1->get();
$edit2->configure(-text=>$hack);
}
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera esse tutorial nao acaba aq vou fazer a 3º parte dele e outros tutorias *-*
by hacker fts315