Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

tk no perl - 2º parte

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 tk no perl - 2º parte em Dom Abr 21, 2013 3:50 am

Moedas Moedas : 201
Mensagens Mensagens : 92
Humor Humor : *-*
Reputação Reputação : 5
Quebra de regras:
0 / 1000 / 100

avatar

hacker fts315

Moderador Informática

Moderador Informática

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



[center]


Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Ask: [Você precisa estar registrado e conectado para ver este link.]
Ver perfil do usuário https://www.facebook.com/hacker.fts315

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum