tk no perl - 2º parte

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

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;

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;

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;

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;
}


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);
}

bom galera esse tutorial nao acaba aq vou fazer a 3º parte dele e outros tutorias *-*

by hacker fts315