[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera ontem eu tinha criado um tutorial de tk em perl eu ia colocar esse codigo como exemplo mais fiquei com preguiça de terminar ele ontem entao so terminei hj para nao desperdiçar a source to postando ^^
bom galera ontem eu tinha criado um tutorial de tk em perl eu ia colocar esse codigo como exemplo mais fiquei com preguiça de terminar ele ontem entao so terminei hj para nao desperdiçar a source to postando ^^
- Código:
#!/usr/bin/perl
#autor: hacker fts315
#contato: www.facebook.com/hacker.fts315
#data 30/04/2013
use Tk;
my $d = "c";
$fts = MainWindow->new;
$fts->title("by hacker fts315");
$titulo = $fts->Label(-text=>"FTS Geometric Design",-fg=>"red")->pack;
$label0 = $fts->Label(-text=>"nome salvar")->pack;
$entry0 = $fts->Entry(-text=>"f_log.txt")->pack;
$label1 = $fts->Label(-text=>"x inicio")->pack;
$entry1 = $fts->Entry(-text=>100)->pack;
$label2 = $fts->Label(-text=>"y inicio")->pack;
$entry2 = $fts->Entry(-text=>100)->pack;
$label3 = $fts->Label(-text=>"x final")->pack;
$entry3 = $fts->Entry(-text=>200)->pack;
$label4 = $fts->Label(-text=>"y final")->pack;
$entry4 = $fts->Entry(-text=>200)->pack;
$label5 = $fts->Label(-text=>"cor")->pack;
$entry5 = $fts->Entry(-text=>"red")->pack;
$vish = $fts->Frame->pack;
$op1 = $vish->Radiobutton(-text=>"circulo",-variable=>\$d,-value=>"c")->pack;
$op2 = $vish->Radiobutton(-text=>"quadrado",-variable=>\$d,-value=>"q")->pack;
$op3 = $vish->Radiobutton(-text=>"linha",-variable=>\$d,-value=>"l")->pack;
$button1 = $fts->Button(-text=>"Desenhar",-command=>\&fts)->pack;
$button2 = $fts->Button(-text=>"limpar",-command=>\&hack)->pack;
$lol = $fts->Frame->pack;
$hack = $lol->Canvas->pack;
MainLoop;
sub fts
{
if($d eq "c")
{
$hack->createOval($entry1->get,$entry2->get,$entry3->get,$entry4->get,-fill=>$entry5->get);
}
elsif($d eq "q")
{
$hack->createRectangle($entry1->get,$entry2->get,$entry3->get,$entry4->get,-fill=>$entry5->get);
}
elsif($d eq "l")
{
$hack->createLine($entry1->get,$entry2->get,$entry3->get,$entry4->get,-fill=>$entry5->get);
}
open(FTSS,">>".$entry0->get);
print FTSS $entry1->get . "," . $entry2->get . "," . $entry3->get . "," . $entry4->get . "," . $entry5->get . "," . $d . "\n";
close(FTSS);
}
sub hack
{
$hack->destroy;
$hack = $lol->Canvas->pack;
}