Hack questo sito!

[ Advertise With HackThisSite.org :: Hide These Ads ] [Pubblicità HackThisSite.org:: Nascondi questi annunci]

"Smart people learn things, geniuses create them." "Smart persone imparano cose, creare loro geni". - TheMindRapist - TheMindRapist

HTS costs up to $300 a month to operate. HTS costi fino a $ 300 al mese per funzionare. We need your help! Abbiamo bisogno del vostro aiuto!

Donors also receive special recognition on our donors page. Anche i donatori ricevono un riconoscimento speciale sui nostri donatori pagina.

FR DE ES IT PT FR DE ES IT PT

Link to us! Link al nostro sito!

phoenix free shells fenice libera gusci
hackergames.net hackergames.net
PullThePlug PullThePlug

GUI's in perl GUI in perl
Published by: eljonto , on 2008-01-13 19:04:49 Pubblicato da: eljonto, su 2008-01-13 19:04:49
\|A guide to writing event-driven GUI applications in Perl using the Tk module. \| Una guida per iscritto event-driven applicazioni GUI in Perl utilizzando il modulo Tk. \| \|Wirtten by ELJONTO\Cyb3r_Shad0w (Both are me). \| Wirtten da ELJONTO \ Cyb3r_Shad0w (entrambi sono me). \| ________________________________________________________________________________ Contents: Sommario: -Introduction -Introduzione -Notes on global/local variables -Note sul globale / variabili locali -Mainwindow/widget and argument syntax -Mainwindow/widget Argomento e sintassi -Geometry managers Geometria-manager -Structure of a Perl Tk program -Struttura di un programma Perl Tk -Common widgets and widget arguments Comune-widget e widget argomenti -Configuring widgets Configurazione widget - -Example of a perl Tk application -Esempio di applicazione perl Tk -Anatomy of example application -Anatomia esempio di applicazione -Example programs using different widgets -Programmi di esempio utilizzando diversi widget -Label, Entry Fields, Buttons and Text-Areas -Label, campi di inserimento, pulsanti e testo-Zone -Dropdown boxes Dropdown-box -Listbox -Scrollbars embedded within Text-Areas -Embedded all'interno di scorrimento del testo-Zone -Menus -Menu -Using multiple windows (Toplevels) -Utilizzo di finestre multiple (Toplevels) -Outro INTRODUCTION: INTRODUZIONE: People always assume perl to be a simple scripting language with basic acess to web scripting, however this is not so. Semper assumere persone in perl ad essere un semplice linguaggio di scripting di base con accesso al web script, tuttavia non è così. Perl is so much more, and with the use of user-written modules can have amazing capabilities on a variety of topics. Perl è molto di più, e con l'uso di user-scritto moduli possono avere sorprendente capacità su una varietà di argomenti. In this article i'll show you how to make use of the Perl::Tk module to create event-orientated GUI applications. In questo articolo vi mostrerò come fare uso del Perl:: Tk modulo per creare eventi orientati applicazioni GUI. NOTES ON GLOBAL AND LOCAL VARIABLES: NOTE globali e locali, le variabili: Before we begin, you'll notice most variables have 'my' in front of them. Prima di cominciare, si noterà più variabili sono 'miei' davanti a loro. This is to make the variables 'local'. Questo è quello di rendere le variabili 'locale'. This means that if a variable has 'my' in front of it, it will only be able to be used in the function that it's in. This means that you can use many variables with the same names in different functions as long as you declare them to be 'local'. Ciò significa che se una variabile è 'mio' di fronte, essa sarà in grado di essere utilizzati per la funzione che è poll Ciò significa che è possibile utilizzare molte variabili con lo stesso nome in diverse funzioni finché dichiarare loro di essere 'locale'. In perl, it is not an error to redeclare a variable, so make sure you know whether you want variables to be 'local' or 'global'. In Perl, non si tratta di un errore di redeclare una variabile, quindi assicuratevi di sapere se si desidera variabili da 'locali' o 'globale'. Global means the variable can be acessed and used by all functions. Global significa che la variabile può essere acessed e utilizzate da tutte le funzioni. To make a variable 'global' just omit the 'my' in front of it. Per effettuare una variabile 'globale' giusto omettere il 'mio' di fronte. MAINWINDOW/WIDGET AND ARGUMENT SYNTAX: Mainwindow / widget argomento e sintassi: Good, now with that out the way we can begin. Bene, ora che con il modo in cui possiamo cominciare. To make your main window, you need to assign it a variable so that it can incorporate widgets (Things like labels, buttons etc). Per rendere il vostro finestra principale, è necessario assegnare una variabile in modo che possa includere widget (cose come le etichette, pulsanti, ecc.) And all widgets need to be assigned to a variable so that you can access them. E tutti i widgets bisogno di essere assegnato a una variabile in modo che tu possa accedere a tali siti. To make a new mainwindow and assign it to a variable you follow this syntax: Per effettuare una nuova Mainwindow e assegnarlo ad una variabile di seguire questa sintassi: CODE : CODICE: `$mainwindow=new MainWindow();` `$ Mainwindow Mainwindow = new ();` To make a new widget and assign it to a variable you folow this syntax: Per effettuare un nuovo widget e assegnarlo ad una variabile si folow questa sintassi: CODE : CODICE: `$variable=$frame/mainwindow->Widget(arguments)->geometrymanager(arguments);` `$ variabile = $ frame/mainwindow-> Widget (argomenti) -> geometrymanager (argomenti);` widgets can take as many arguments as they can allow, and arguments follow this syntax and are separated by commas: widget può prendere come molti argomenti come si può permettere, e gli argomenti seguire questa sintassi e sono separati da virgole: CODE : CODICE: `-argument=>value,` `-argomento => valore,` There are many, many widgets available so in this article i'll only cover a few most commonly used ones. Ci sono molti, molti widget disponibili in questo articolo farò solo qualche coprire la maggior parte quelli comunemente utilizzati. GEOMETRY MANAGERS: GEOMETRIA DIRIGENTI: Geometry managers are how your Mainwindow is formatted to accommodate all of your widgets. Geometria manager sono come i tuoi Mainwindow è formattato per accogliere tutti i tuoi widget. The four types of most commonly-used geometry managers are: pack(), grid(), place() and form(). I quattro tipi di più comunemente utilizzati geometria-manager sono: pack (), griglia (), il luogo () e la forma (). pack(): A geometry manager to pack widgets into a window by filling the widget in certain positions in a certain order or in order of declaration. pack (): Un gestore di geometria pack widget in una finestra compilando il widget in alcune posizioni in un certo ordine o in ordine di dichiarazione. grid(): A geometry manager to arrange all of your widgets into an imaginary 'grid'. griglia (): Una geometria manager per organizzare tutti i tuoi widget in un immaginario 'griglia'. so all you widgets are positioned in a cell according to a row/column. così tutti i widget si sono posizionati in una cella in base a una riga / colonna. place():A geometry manager to situate widgets at given x,y co-ordinates. luogo (): Una geometria manager per situare widget in data x, y coordinate. form(): A geometry manager that combines use of pack() and place() to create a very powerful method of arranging your Tk window. forma (): Un gestore di geometria che combina l'uso di pack () e luogo () per creare un potente metodo di organizzare la vostra finestra Tk. I almost always use grid(), simply because it's very simple to learn and accommodate for all uses and very powerful for simple or advanced applications. Ho quasi l'uso della griglia (), semplicemente perché è molto semplice da imparare e accogliere per tutti gli usi e molto potente per il semplice o applicazioni avanzate. However if you are creating a large-scale perl Tk GUI app (unlikely) you should probably use place() or form(). Tuttavia, se si sta creando una grande scala perl-Tk GUI app (improbabile), si dovrebbero utilizzare probabilmente luogo () o di forma (). For smaller apps pack() or grid() are just fine. Per i più piccoli apps pack () o rete () sono solo belle. Because this is a beginners guide- I will only show you the use of grid().The basic arguments for grid include: Poiché si tratta di un principiante-guida mi limiterò a mostrare l'uso di griglia (). La base per la griglia di argomenti includono: -row=>x, righe => x, -column=>x, -colonna => x, -rowspan=>x, (how many rows should accommodate widget) -rowspan => x, (come il numero di righe dovrebbe ospitare widget) -columnspan=>x, (how many columns should accommodate widget) -columnspan => x, (quante colonne devono ospitare widget) -sticky=>x, (used to stick to the side of the cell the widget is postioned in, the value can be 'n','s','e','w','ne','nw','ns','se','sw','ew'. For 'ns' and 'ew' it will stretch the widget in that direction to fit the cell). colloso => x, (usato per il bastone al lato della cella il widget è postioned, il valore può essere 'n', 's',' e ',' w ',' no ',' N ', 'ns',' SE ',' SW ',' EW '. Per' ns' e 'EW' si tratto il widget in questa direzione per adattarle alla cella). There are more arguments, which you can read up about, but those are the only neccessary basics. Ci sono più argomenti, che potete leggere fino in merito, ma queste sono solo le basi necessarie. STRUCTURE OF A PERL TK PROGRAM: Struttura di un programma perl tk: All perl Tk applications are structured as follows: Tutti i perl Tk applicazioni sono strutturate come segue: CODE : CODICE: `GUI building code` `GUI edificio codice` `MainLoop;` `MainLoop;` `functions and subroutines` `funzioni e subroutine` All perl Tk applications MUST have a 'MainLoop', otherwise they won't work. Tutti i perl Tk domande devono avere un 'MainLoop', altrimenti non funzionerà. MainLoop; separates the GUI building code from the subroutines and functions that get called by user-interaction with the widgets when run. MainLoop; separa la GUI edificio del codice della subroutine e le funzioni che vengono chiamati da utente di interagire con il gadget quando viene eseguito. Above MainLoop; you write all GUI building code, the mainwindows, the frames, the widgets. MainLoop sopra; si scrive tutti i GUI edificio codice, il mainwindows, le cornici, i widget. Below the MainLoop; you have all functions and subroutines that get called by user-interaction. Sotto il MainLoop; avete tutte le funzioni e subroutine che vengono chiamati dal-l'interazione utente. COMMON WIDGETS AND WIDGET ARGUMENTS: Comune widgets e widget argomenti: Below are a few of the most commonly used widgets in GUI applications, please note that capitaliasation is important: Qui di seguito riportiamo alcune delle più comunemente utilizzati nel widget applicazioni GUI, si prega di notare che capitaliasation è importante: Label() -display some text Etichetta ()-visualizzazione del testo Button() -display a button (duh) Button ()-display di un pulsante (duh) Entry() -display a field to enter text Entrata ()-display di un campo per immettere il testo Text() -display a textarea Testo ()-visualizzare una textarea Menu() -configure a menu for you application Menu ()-configurare un menu per voi applicazione Optionmenu() -display a drop-down box of options Optionmenu ()-visualizzare una casella a discesa delle opzioni ProgressBar() -display a graphical aid of progress completed (loading bar etc) ProgressBar ()-visualizzare un grafico dei progressi aiuto completato (carico bar, ecc) getOpenFile() -displays the default navigation window to a location and file to open getOpenFile ()-visualizza la finestra di navigazione di default in una posizione di file e per aprire getSaveFile() -displays the default navigation window to a location and file to save getSaveFile ()-visualizza la finestra di navigazione di default in una posizione di file e di salvare Scrollbar() -displays a scroll bar to be embedded into a text-area or other compatible widget Barra di scorrimento ()-visualizza una barra di scorrimento per essere incorporato in una zona di testo o di altri widget compatibili Below are some arguments that can be used with most widgets: Qui di seguito sono alcuni argomenti che possono essere utilizzati con la maggior parte dei widget: -bg=>'x', or -background=>x, Can take arguments as 'black' or '#000000' etc -bg => 'x', o fondo => x, può assumere argomenti come 'nero' o '# 000000', ecc -fg=>x, or -foreground=>x, Same follows as background -fg => x, o-piano => x, segue la stessa come sfondo -activebackground=>'x', or '#000000' etc. Colour of background when cursor is hovering over it. -activebackground => 'x', o '# 000000' ecc colori di sfondo quando il cursore è oscillando su di esso. -activeforegroud=>'x', or '#000000' etc. Colour of foreground when cursor is hovering over it. -activeforegroud => 'x', o '# 000000' ecc Colore di primo piano quando è hovering cursore su di esso. -text=>"x", -text => "x", -width=>x, -width => x, -height=>x, -height => x, -command=>\&subfunction, or -command=>sub{statements;}, -comando => \ & subfunction, o-comando => sub (dichiarazioni;), -variable=>\$var, variabile => \ $ var, CONFIGURING WIDGETS: CONFIGURAZIONE WIDGETS: Once widgets have been initialised, you can change or configure the widget without having to create it again. Una volta che i widget sono stati inizializzato, è possibile modificare o configurare il widget senza dover creare di nuovo. You do this as follows: Per far ciò, è come segue: CODE : CODICE: `$widgetvar->configure(re-declare arguments you want to change);` `$ widgetvar-> configurare (ri-dichiarare argomenti che si desidera modificare);` Some widgets allow the program to enter information as well as the user, widgets such as a textarea or an entry field. Alcuni widget consentire al programma di inserire le informazioni così come l'utente, gadget, ad esempio un testo o un campo di inserimento. This is done as follows: Questo viene fatto come segue: CODE : CODICE: `$widgetvar->insert('postion',"to insert");` `$ widgetvar-> inserire ( 'posizione', "inserire");` The position can be numerical- 1.0 for the beginning etc, or text- 'end' etc. La posizione può essere numerico-1.0 per l'inizio, ecc, o testo-'fine' ecc EXAMPLE OF A PERL TK APPLICATION: Un esempio di perl tk domanda: Ok, here I will show you how to use what you know and create a basic perl tk application. Ok, qui vi mostrerò come utilizzare ciò che sai e creare una base perl tk domanda. This following example will show you how make a window, add basic widgets, and collected widget data with the use of get() inside of a subroutine. Questo esempio seguente mostra come fare una finestra, aggiungere widget di base, e il widget dati raccolti con l'uso di get () all'interno di una subroutine. CODE : CODICE: `use Tk;` `Tk uso;` `my $mw=new MainWindow();` `my $ mw = new Mainwindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> griglia ();` `my $label=$frm->Label(-text=>"Enter your name:")->grid(-row=>0,-column=>0,-sticky=>'w');` `la mia label = $ $ frm-> Label (-text => "Inserisci il tuo nome :")-> griglia (righe => 0, colonna => 0, appiccicosi => 'w');` `my $entrybox=$frm->Entry()->grid(-row=>0,-column=>1);` `il mio entrybox $ = $ frm-> entrata () -> griglia (righe => 0, colonna => 1);` `my $gobutton=$frm->Button(-text=>"go",-command=>\&function1)->grid(-row=>0,-column=>2,-sticky=>'e');` `il mio gobutton $ = $ frm-> Button (-text => "andare",-command => \ & FUNCTION1) -> griglia (righe => 0, colonna => 2, appiccicosi => 'e');` `my $textarea=$frm->Text(-width=>30,-height=>5)->grid(-row=>2,-column=>0,-columnspan=>3);` `my $ textarea = $ frm-> Testo (-width => 30,-height => 5) -> griglia (righe => 2, colonna => 0,-columnspan => 3);` `MainLoop;` `MainLoop;` `sub function1{` `FUNCTION1 sub (` `my $name=$entrybox->get();` `il mio nome $ = $ entrybox-> get ();` `$textarea->insert('end',"Hello $name\n");` `$ textarea-> inserire ( 'end', "Ciao $ nome \ n");` `}` `)` ANATOMY OF EXAMPLE APPLICATION: Anatomia esempio di applicazione: line 1: Tells compiler that we need to use the Tk module. linea 1: Indica compilatore che abbiamo bisogno di utilizzare il modulo Tk. line 2: Creates a new Tk window and binds it to a variable. linea 2: crea una nuova finestra Tk e si lega a una variabile. line 3: Creates a new frame to hold widgets and stores the frame inside our new window. linea 3: Crea una nuova cornice di tenere widget e memorizza la cornice all'interno della nostra nuova finestra. line 4: Creates a label to dislay text, places it to grid co-ords and places the label inside of our frame. linea 4: Crea una etichetta per dislay testo, lo mette a griglia di co-ords e luoghi l'etichetta all'interno della nostra struttura. line 5: Creates an entry field to input text, places it to grid co-ords and places the entry inside of our frame. linea 5: Crea un campo di inserimento per inserire il testo, lo mette a griglia di co-ords luoghi e l'entrata all'interno della nostra struttura. line 6: Creates a button to display text and initiate our subroutine, places it to grid co-ords and places the button inside of our frame. Linea 6: Crea un pulsante per visualizzare il testo e avviare la nostra subroutine, luoghi di griglia di co-ords e luoghi il pulsante all'interno della nostra struttura. line 7: Creates a text-area to dislay text given to it, places it to grid co-ords and places the text area inside of our frame. Linea 7: Crea un testo-dislay zona di testo ad essa, lo mette a griglia di co-ords e luoghi di testo all'interno della nostra struttura. line 8: Signifies GUI base-building code complete. Linea 8: significa GUI di base costruzione codice completo. line 9: Creates subroutine "function1". linea 9: Crea subroutine "FUNCTION1". line 10:Uses get() to collect data from entrybox and saves it into variable $name. linea 10: Usi get () per raccogliere dati da entrybox e la salva in variabile $ nome. line 11:Inserts "helo $name" into our text-area widget. linea 11: Inserisce "helo $ nome" il nostro testo in zona widget. line 12:Ends subroutine "function1". linea 12: end subroutine "FUNCTION1". EXAMPLE PROGRAMS USING DIFFERENT WIDGETS: Programmi di esempio utilizzando diversi widget: Here are a few very short programs making use of some of the widgets we've talked about. Qui ci sono alcuni molto brevi programmi che si avvalgono di alcuni dei widget che abbiamo parlato. ==Label, Entry Fields, Buttons and Text-Areas: == Etichetta, campi di inserimento, pulsanti e testo-Zone: See "Example of a perl Tk application" above. Vedere "Esempio di applicazione perl Tk" di cui sopra. ==Dropdown boxes: == Dropdown caselle: CODE : CODICE: `use Tk;` `Tk uso;` `my $mw=new MainWindow;` `my $ mw = new Mainwindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> griglia ();` `my $lab=$frm->Label(-text=>"Choose option:")->grid(-row=>0,-column=>0);` `il mio laboratorio $ = $ frm-> Label (-text => "Scegli l'opzione :")-> griglia (righe => 0, colonna => 0);` `my $dropdownbox=$frm->Optionmenu(-options=>["Male", "Female"],-variable=>\$var)->grid(-row=>1,-column=>0);` `il mio dropdownbox $ = $ frm-> Optionmenu (-options => [ "Male", "Femmina"], variabile => \ $ var) -> griglia (righe => 1, colonna => 0);` `my $txt=$frm->Text(-width=>20,-height=>10)->grid(-row=>2,-column=>0);` `my $ txt = $ frm-> Testo (-width => 20,-height => 10) -> griglia (righe => 2, colonna => 0);` `my $button=$frm->Button(-text=>"Go",-command=>\&maleorfemale)->grid(-row=>3,-column=>0);` `il mio tasto $ = $ frm-> Button (-text => "Vai",-command => \ & maleorfemale) -> griglia (righe => 3, colonna => 0);` `MainLoop;` `MainLoop;` `sub maleorfemale {` `(sub maleorfemale` `if($var eq 'Male'){$txt->insert('end',"You are Male")}else{$txt->insert('end',"You are female")}` `if ($ var eq 'Male') ($ txt-> inserire ( 'fine', "Sei Uomo")) else ($ txt-> inserire ( 'end', "Tu sei femmina"))` `}` `)` ==Listbox: == Listbox: CODE : CODICE: `use Tk;` `Tk uso;` `my $mw=new MainWindow();` `my $ mw = new Mainwindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> griglia ();` `my $lab=$frm->Label(-text=>"Gender:")->grid(-row=>0,-column=>0);` `il mio laboratorio $ = $ frm-> Label (-text => "Sesso :")-> griglia (righe => 0, colonna => 0);` `my $lst=$frm->Listbox(-selectmode=>'single',-width=>30,-height=>5)->grid(-row=>1,-column=>0);` `my $ LST = $ frm-> Listbox (-selectmode => 'unico',-width => 30,-height => 5) -> griglia (righe => 1, colonna => 0);` `my $but=$frm->Button(-text=>"Go",-command=>\&button_push)->grid(-row=>2,-column=>0);` `ma il mio $ = $ frm-> Button (-text => "Vai",-command => \ & button_push) -> griglia (righe => 2, colonna => 0);` `my $txt=$frm->Text(-width=>30,-height=>5)->grid(-row=>3,-column=>0);` `my $ txt = $ frm-> Testo (-width => 30,-height => 5) -> griglia (righe => 3, colonna => 0);` `$lst->insert('end',"Male");` `$ LST-> inserire ( 'fine', "Maschio");` `$lst->insert('end',"Female");` `$ LST-> inserire ( 'fine', "Femmina");` `MainLoop;` `MainLoop;` `sub button_push{` `(sub button_push` `my $selected=$lst->curselection();` `my $ selected = $ LST-> curselection ();` `my $gender=$lst->get($selected);` `il mio genere $ = $ LST-> get ($ selezionati);` `$txt->insert('end',"You selected $gender.\n");` `$ txt-> inserire ( 'fine', "Hai selezionato $ genere. \ n");` `}` `)` ==Scrollbars embedded within Text-Areas: == Scorrimento incorporato nel testo-Zone: CODE : CODICE: `use Tk;` `Tk uso;` `my $mw=new MainWindow;` `my $ mw = new Mainwindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> griglia ();` `my $txt=$frm->Text(-wrap=>'none',-width=>40,-height=>10)->grid(-row=>0,-column=>0);` `my $ txt = $ frm-> Testo (-wrap => 'nessuno',-width => 40,-height => 10) -> griglia (righe => 0, colonna => 0);` `my $srl_y=$frm->Scrollbar(-orient=>'v',-command=>[yview => $txt])->grid(-row=>0,-column=>1,-sticky=>"ns");` `il mio srl_y $ = $ frm-> barra di scorrimento (-orientare => 'v',-command => [yview => $ txt]) -> griglia (righe => 0, colonna => 1, appiccicosi => "ns");` `my $srl_x=$frm->Scrollbar(-orient=>'h',-command=>[xview => $txt])->grid(-row=>1,-column=>0,-sticky=>"ew");` `il mio srl_x $ = $ frm-> barra di scorrimento (-orientare => 'h',-command => [xview => $ txt]) -> griglia (righe => 1, colonna => 0, appiccicosi => "EW");` `$txt -> configure(-yscrollcommand=>['set', $srl_y],-xscrollcommand=>['set',$srl_x]);` `$ txt -> configure (-yscrollcommand => [ 'set', $ srl_y],-xscrollcommand => [ 'set', $ srl_x]);` `MainLoop;` `MainLoop;` ==Menus: == Menu: CODE : CODICE: `use Tk;` `Tk uso;` `$mw = new MainWindow;` `$ mw = new Mainwindow;` `my $frm = $mw -> Frame() -> grid();` `my $ frm = $ mw -> Frame () -> griglia ();` `my $mbar = $mw -> Menu();` `my $ mbar = $ mw -> Menu ();` `$mw -> configure(-menu => $mbar);` `$ mw -> configure (menu => $ mbar);` `my $file = $mbar -> cascade(-label=>"File", -underline=>0, -tearoff => 0);` `my $ file = $ mbar -> cascata (-label => "File",-sottolineano => 0,-tearoff => 0);` `my $edt = $mbar -> cascade(-label =>"Edit", -underline=>0, -tearoff => 0);` `my $ = $ CEST mbar -> cascata (-label => "Modifica",-sottolineano => 0,-tearoff => 0);` `my $hlp = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);` `hlp mio $ = $ mbar -> cascata (-label => "Aiuto",-sottolineano => 0,-tearoff => 0);` `$file -> command(-label => "New", -underline=>0,-command=>\&default);` `$ file -> comando (-label => "Nuovo",-sottolineano => 0,-comando => \ & impostazione predefinita);` `$file -> command(-label => "Open", -underline=>0,-command=>\&default);` `$ file -> comando (-label => "Apri",-sottolineano => 0,-comando => \ & impostazione predefinita);` `$file -> command(-label => "Save", -underline=>0,-command=>\&default);` `$ file -> comando (-label => "Salva",-sottolineano => 0,-comando => \ & impostazione predefinita);` `$file -> separator();` `$ file -> separatore ();` `$file -> command(-label =>"Exit", -underline => 1,-command => sub { exit } );` `$ file -> comando (-label => "Esci",-sottolineano => 1,-comando => sub () uscita);` `$edt -> command(-label=>'Search',-underline=>0,-command=>\&default);` `$ CEST -> comando (-label => 'Cerca',-sottolineano => 0,-comando => \ & impostazione predefinita);` `$edt -> command(-label=>'Find and replace',-underline=>0,-command=>\&default);` `$ CEST -> comando (-label => 'Trova e sostituisci',-sottolineano => 0,-comando => \ & impostazione predefinita);` `my $helpoptions=$hlp -> cascade(-label=>"Help", -underline=>0, -tearoff => 0);` `my $ = $ helpoptions hlp -> cascata (-label => "Aiuto",-sottolineano => 0,-tearoff => 0);` `$helpoptions -> command(-label => "About", -underline=>0,-command=>\&default);` `$ helpoptions -> comando (-label => "Informazioni su",-sottolineano => 0,-comando => \ & impostazione predefinita);` `$helpoptions -> command(-label => "Usage", -underline=>0,-command=>\&default);` `$ helpoptions -> comando (-label => "Uso",-sottolineano => 0,-comando => \ & impostazione predefinita);` `MainLoop;` `MainLoop;` `sub default{` `sub predefinito (` `}` `)` ==Using multiple windows (Toplevels): == Utilizzo di finestre multiple (Toplevels): CODE : CODICE: `use Tk;` `Tk uso;` `my $mw=new MainWindow();` `my $ mw = new Mainwindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> griglia ();` `my $but=$frm->Button(-text=>">>Click to open a toplevel window<<",-command=>\&toplevel)->grid(-row=>1,-column=>0);` `ma il mio $ = $ frm-> Button (testo =>">> Fare clic sul pulsante per aprire una finestra toplevel <<",- comando => \ & toplevel) -> griglia (righe => 1, colonna => 0) ;` `MainLoop;` `MainLoop;` `sub toplevel{` `(sub toplevel` `my $toplevel=new MainWindow();` `my $ toplevel = new Mainwindow ();` `my $toplevelfrm=$toplevel->Frame()->grid();` `il mio toplevelfrm $ = $ toplevel-> Frame () -> griglia ();` `my $lab=$toplevelfrm->Label(-text=>"A Toplevel window!")->grid(-row=>1,-column=>0);` `il mio laboratorio $ = $ toplevelfrm-> Label (-text => "Una finestra Toplevel !")-> griglia (righe => 1, colonna => 0);` `MainLoop;` `MainLoop;` `}` `)` OUTRO: Well, that's it- Hope you enjoyed this beginners guide, I might write later articles covering slightly more complex areas of Perl Tk programming Beh, che è tutto-Hope si godono i principianti questa guida, mi permetto di scrivere articoli che coprono più tardi un po 'più complesse zone di programmazione Perl Tk -ELJONTO \|\| Cyb3r_Shad0w ELJONTO-\| \| Cyb3r_Shad0w
Cast your vote on this article Cast il vostro voto su questo articolo Note: the order of the votes has been reversed. Nota: l'ordine delle votazioni è stato invertito.

Comments: Commento:
Published: 10 comments. Pubblicato: 10 commenti.

frag4lot - 03:59 am Tuesday January 15th, 2008 frag4lot - 03:59 am Martedì 15 Gennaio, 2008

weird, I was just looking in which language i\'d write an app for a company in,.. strano, mi è stato solo guardando la lingua in cui i \ 'd scrivere un app per una società, .. might just aswell do it in perl :D così come potrebbe farlo anche in perl: D

gj on this tutorial ;) GJ su questo tutorial;)

eljonto - 04:26 am Tuesday January 15th, 2008 eljonto - 04:26 am Martedì 15 Gennaio, 2008

Thanks :) Grazie:)
Its really simple and ultra-fast to code for small-time apps, although for larger-scale apps and apps that rely heavily on speed and performance, I wouldn't use perl- but I wrote this article anyway to show perl's contrast. La sua davvero semplice e ultra-veloce di codice per le piccole applicazioni in tempo, anche se per le grandi dimensioni, applicazioni e applicazioni che si basano pesantemente sulla velocità e le prestazioni, io non uso perl-ma ho scritto l'articolo e comunque per mostrare il contrasto perl.

liuyuan - 11:57 am Tuesday January 15th, 2008 liuyuan - 11:57 am Martedì 15 Gennaio, 2008

I\'m quite impressed by this article, a good read. I \ 'm molto impressionato da questo articolo, una buona lettura.

eljonto - 04:22 pm Tuesday January 15th, 2008 eljonto - 04:22 pm Martedì 15 Gennaio, 2008

thanks liuyuan :) liuyuan grazie:)

Kage - 02:56 pm Thursday February 07th, 2008 Kage - Giovedi 02:56 pm febbraio 07a, 2008

I\'ve used Perl for around a decade now, and never written a GUI for any of my applications (I\'ve known about the Tk modules, but never tried \'em). I \ 've utilizzato in Perl per circa un decennio ormai, e non ha mai scritto una GUI per nessuna delle mie applicazioni (I \' ve noto circa la Tk moduli, ma mai provato \ 'em). A very good article, indeed. Un ottimo articolo, anzi. May just have to try this. Maggio solo per provare questo.

eljonto - 04:25 am Friday February 08th, 2008 eljonto - 04:25 am Venerdì 08a febbraio, 2008

thanks, very easy to get the hang of grazie, molto facile da ottenere il blocco del

cleverhacker - 05:28 am Sunday March 09th, 2008 cleverhacker - 05:28 am Domenica 09a marzo, 2008

no it good non è buona

eljonto - 12:39 am Wednesday March 19th, 2008 eljonto - 12:39 am Mercoledì March 19th, 2008

thanks for the constructive comment 'clever' hacker grazie per il commento costruttivo 'intelligente' hacker

fookyourshist - 07:45 pm Monday April 14th, 2008 fookyourshist - 07:45 pm Lunedi 14 Aprile 2008

Thats Awsome, it looks a bit similar to python's gui: jython. Thats Awsome, sembra un po 'simile a Python's gui: jython. Neat tutorial man! Neat tutorial uomo! xDDDD

eljonto - 02:56 am Tuesday April 22nd, 2008 eljonto - 02:56 am Martedì aprile 22, 2008

Thanks, as far as I know python also has its own Tk module which i would imagine being similar to perls Grazie, per quanto ne so anche python ha il proprio modulo Tk che vorrei immaginare di essere simile a Perls

This site is the collective work of the HackThisSite staff. Questo sito è il contratto collettivo di lavoro del personale HackThisSite. Please don't reproduce in part or whole without permission. Si prega di non riprodurre in parte o in tutto senza permesso.
Page Generated: Mon, 01 Dec 2008 22:19:28 -0500 Exec: 10 Pagina Generata: lun, 01 dicembre 2008 22:19:28 -0500 Esec: 10
_{Page loaded in 0.12855 seconds!} _{Pagina caricata in 0,12855 secondi!}

Donate Donazioni

Challenges Sfide

Get Informed Get Informed

Get Involved Get Involved

Communicate Comunicare

About HTS A proposito di HTS

Translate Tradurre

Partners Partner