[Perl] Introduzione alle tk

xero · **Joined:** Fri Jan 26, 2007 1:48 pm **Posts:** 15

ciao questo è il mio primo articolo per questo forum!

Le tk sono librerie grafiche per il perl che io trovo molto intuitive e semplici da usare. (anche se mi dicono :"ma studiari le gtk")

Se non avete la libreria andate sul perl package manager (ppm) e installatela.

Siccome mi piace spiegare sui source inizio a scrivere qualche riga ben commentata:

Code:

use Tk; #includo la libreria
$mw=MainWindow->new(); #creo la nuova finestra
MainLoop; #senza il mainloop il programma non funzionerebbe e deve essere messo sempre alla fine, sarebbe il ciclo di creazione della finestra.

Ecco la vostra gui in 3 righe... (non come in c che devo scriverne 50!).

Si può abbellire la finestra con attributi tipo:

Code:

use Tk;
$mw=MainWindow->new(-background=>"black");#attributo che colora la finestra di nero
$mw->minsize(500,300);#determina la grandezza minima dela finestra, così se l'utente la ridimenziona può diventare piu grande ma non piu piccola di 500 per 300
MainLoop;

Gli oggetti possono essere Frame Label Button MainButton Entry ecc
l'inserimento funziona piu o meno così.
$finestra_o_frame -> NomeOggetto (attributi) -> pack(attributi);
pack aggiunge l'elemento alla finestra, senza di quello l'oggetto non compare.
Per i Frame invece il concetto è un po diverso, il frame è come uno spazio in una finestra e si dichiara così:
$frame = $finestra_o_frame -> Frame-> pack;
si usano frame per creare delle spece di tabelle dove inserire gli oggetti.
per es :
____________________
|1 |
|___________________|
| | |2 |
|______|______|______|
| |
|___________________|
1 ascii di cacca ma rende l'idea lol, sono 5 frame 2 grandi sopra e sotto e 3 in fila al centro , quindi se scrivo un bottone nella finestra in alto a sinistra mi appare al punto 1 mentre se lo scrivo in alto a sinistra di un frame come il 4 mi esce al punto 2, ma non corriamo troppo.
Vediamo un'esempio:

Code:

use Tk;
$mw=MainWindow->new(-background=>"black");
$mw->minsize(500,300);
$mw->Label(-text=>"I'm xero from Nocopy group",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
#con -text=>"testo" scrivo, con foreground e background scelgo i colori dello sfondo del label e del testoe con -anchor indico la posizione (n è nord, posso scrivere "ne"= nord est o "sw"=sud owest.
MainLoop;

Ci son oattributi che vengono usati per cambiare colore quando si passa con il mause sopra l'oggetto ossia -activebackground e -activeforeground.
Esempio con un bottone:

Code:

use Tk;
$mw=MainWindow->new(-background=>"black");
$mw->minsize(500,300);

$mw->Button(-text=>"Chiudimi",
-background=>"black",
-foreground=>"green",
-activebackground=>"green",
-activeforeground=>"black",
-command=>sub{exit(0)})
->pack(-anchor=>"ne");
MainLoop;#ho aggiunto l'opzione -command per creare una funzioncina che ciude il ptogramma.

$mw->Label(-text=>"I'm xero from Nocopy group",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");

(se non serve chiudere il programma ma distruggere solo la finestra senza distruggere tutto si fa $finestra->destroy;)

Ok abbiamo visto i bottoni e come metterci delle istruzioni.
E se volessimo creare un'entry (dove scrivere del testo) e un bottone che se premuto printa il testo in un'altra finestra?

Code:

use Tk;
$mw=MainWindow->new(-background=>"black");
$mw->minsize(250,50);

$mw->Button(-text=>"Chiudimi",
-background=>"black",
-foreground=>"green",
-activebackground=>"green",
-activeforeground=>"black",
-command=>sub{exit(0)})
->pack(-side=>"left",-anchor=>"e");#se non uso side non vanno tutti su una riga

$mw->Button(-text=>"Cliccami",
-background=>"black",
-foreground=>"green",
-activebackground=>"green",
-activeforeground=>"black",
-command=>sub{

$sw=MainWindow->new(-background=>"black");

$sw -> Label(-text=>"$testo",
-background=>"black",
-foreground=>"green")->pack;

})->pack(-side=>"right",-anchor=>"w"); 
$mw->Label(-text=>"I'm xero from Nocopy group",
-background=>"black",
-foreground=>"green")
->pack(-anchor=>"n");

$mw->Entry(-textvariable=>\$testo)#il \ è un bind al testo
->pack(-anchor=>"s");
MainLoop;

Sono stanco ora, le basi ve le ho date ora a chi interessa si trovano tanti libri su emule
cya

xero · **Joined:** Fri Jan 26, 2007 1:48 pm **Posts:** 15

eccolo finito con qualche aggiunta.

Code:

use Tk;

sub main1{
$mw=MainWindow->new(-background=>"black");
$mw->minsize(250,50);

$mw->Button(-text=>"Chiudimi",
-background=>"black",
-foreground=>"green",
-activebackground=>"green",
-activeforeground=>"black",
-command=>sub{exit(0)})
->pack(-side=>"left",-anchor=>"e");#se non uso side non vanno tutti su una riga

$mw->Button(-text=>"Cliccami",
-background=>"black",
-foreground=>"green",
-activebackground=>"green",
-activeforeground=>"black",
-command=>sub{

$sw=MainWindow->new(-background=>"black");

$sw -> Label(-text=>"$testo",
-background=>"black",
-foreground=>"green")->pack;

})->pack(-side=>"right",-anchor=>"w"); 
$mw->Label(-text=>"I'm xero from Nocopy group",
-background=>"black",
-foreground=>"green")
->pack(-anchor=>"n");

$mw->Entry(-textvariable=>\$testo)#il \ è un bind al testo
->pack(-anchor=>"s");

$mw->Label(-text=>"Scrivi qualche cosa e premi cliccami",
-background=>"black",
-foreground=>"green")
->pack(-anchor=>"n");
}


$m = MainWindow -> new(
-background => "cyan");

$b1f = $m->Photo(-file =>"nocopy.bmp");

$b1 = $m -> Button(
-text => "chiudimi",
-background => "black",
-activebackground => "red",
-image => $b1f,
-command => sub {$m -> destroy,main1}
) -> pack();
MainLoop;