Hack de ce site!

[ Advertise With HackThisSite.org :: Hide These Ads ] [Publicité HackThisSite.org:: cacher ces annonces]

"The nationalist not only does not disapprove of atrocities committed by his own side, but he has a remarkable capacity for not even hearing about them." "Le nationaliste non seulement ne désapprouve pas les atrocités commises par son propre camp, mais il a une capacité remarquable de même pas entendu à leur sujet." - George Orwell - George Orwell

HTS costs up to $300 a month to operate. HTS frais jusqu'à 300 $ par mois pour fonctionner. We need your help! Nous avons besoin de votre aide!

Donors also receive special recognition on our donors page. Les donateurs ont également recevoir une reconnaissance spéciale sur nos donateurs page.

FR DE ES IT PT FR DE ES IT PT

Link to us! Lien vers notre site!

phoenix free shells Phoenix libre obus
hackergames.net hackergames.net
PullThePlug PullThePlug

GUI's in perl De l'interface graphique en perl
Published by: eljonto , on 2008-01-13 19:04:49 Publié par: eljonto, le 2008-01-13 19:04:49
\|A guide to writing event-driven GUI applications in Perl using the Tk module. \| Un guide de rédaction dirigée par les événements d'applications GUI en Perl en utilisant le module Tk. \| \|Wirtten by ELJONTO\Cyb3r_Shad0w (Both are me). \| Wirtten par ELJONTO \ Cyb3r_Shad0w (les deux sont-moi). \| ________________________________________________________________________________ Contents: Table des matières: -Introduction -Notes on global/local variables -Notes sur global / local variables -Mainwindow/widget and argument syntax -Mainwindow/widget Argument et syntaxe -Geometry managers Géométrie-gestionnaires -Structure of a Perl Tk program -Structure d'un Perl Tk program -Common widgets and widget arguments -Commune widget widgets et arguments -Configuring widgets Configuration-widgets -Example of a perl Tk application Exemple d'une application Perl Tk -Anatomy of example application -Anatomie de l'application exemple -Example programs using different widgets Exemple-programs en utilisant différents widgets -Label, Entry Fields, Buttons and Text-Areas -Label, champs d'entrée, les boutons et les zones de texte -Dropdown boxes Dropdown-boîtes -Listbox -Scrollbars embedded within Text-Areas -Les barres de défilement intégrée dans les zones de texte -Menus Menus - -Using multiple windows (Toplevels) -Utiliser plusieurs fenêtres (Toplevels) -Outro INTRODUCTION: People always assume perl to be a simple scripting language with basic acess to web scripting, however this is not so. Population perl toujours assumer d'être un simple langage de script de base avec accès à Internet de script, mais ce n'est pas le cas. Perl is so much more, and with the use of user-written modules can have amazing capabilities on a variety of topics. Perl est tellement plus, et avec l'usage de l'utilisateur modules peuvent avoir des capacités étonnantes sur une variété de sujets. In this article i'll show you how to make use of the Perl::Tk module to create event-orientated GUI applications. Dans cet article, je vais vous montrer comment faire usage de Perl:: Tk module pour créer un événement orienté vers les applications GUI. NOTES ON GLOBAL AND LOCAL VARIABLES: Note à l'échelon global et des variables locales: Before we begin, you'll notice most variables have 'my' in front of them. Avant de commencer, vous remarquerez la plupart des variables ont «mon» devant eux. This is to make the variables 'local'. C'est pour faire les variables «locales». 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'. Cela signifie que si une variable a 'mon' en face d'elle, il ne sera en mesure d'être utilisés dans la fonction à laquelle il est po Cela signifie que vous pouvez utiliser un grand nombre de variables avec les mêmes noms dans les différentes fonctions aussi longtemps que vous déclarer qu'ils soient «locales». 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'. En Perl, ce n'est pas une erreur de redeclare une variable, assurez-vous de savoir si vous voulez variables à "local" ou "mondial". Global means the variable can be acessed and used by all functions. Mondial, on entend la variable peut être acessed et utilisé par toutes les fonctions. To make a variable 'global' just omit the 'my' in front of it. Pour faire une variable "globale" simplement omettre le «mon» en face d'elle. MAINWINDOW/WIDGET AND ARGUMENT SYNTAX: MAINWINDOW / widget argument et syntaxe: Good, now with that out the way we can begin. Bon, maintenant que de la manière dont nous pouvons commencer. To make your main window, you need to assign it a variable so that it can incorporate widgets (Things like labels, buttons etc). Pour que votre fenêtre principale, vous devez l'assigner à une variable de sorte qu'il peut intégrer des widgets (Les choses comme les étiquettes, les boutons, etc.) And all widgets need to be assigned to a variable so that you can access them. Et tous les widgets doivent être affectés à une variable de sorte que vous puissiez y accéder. To make a new mainwindow and assign it to a variable you follow this syntax: Pour faire une nouvelle mainwindow et de l'assigner à une variable, vous suivez la syntaxe suivante: CODE : CODE: `$mainwindow=new MainWindow();` `mainwindow $ = new MainWindow ();` To make a new widget and assign it to a variable you folow this syntax: Pour faire un nouveau gadget et de l'assigner à une variable, vous folow cette syntaxe: CODE : CODE: `$variable=$frame/mainwindow->Widget(arguments)->geometrymanager(arguments);` `$ variable = $ frame/mainwindow-> Widget (arguments) -> geometrymanager (arguments);` widgets can take as many arguments as they can allow, and arguments follow this syntax and are separated by commas: widgets peut prendre comme beaucoup d'arguments, car ils peuvent permettre, et de suivre les arguments et la syntaxe sont séparés par des virgules: CODE : CODE: `-argument=>value,` `-argument => valeur,` There are many, many widgets available so in this article i'll only cover a few most commonly used ones. Il ya beaucoup, beaucoup de widgets disponibles dans cet article, je vais seulement quelques couvrir plus couramment utilisées. GEOMETRY MANAGERS: GEOMETRY gestionnaires: Geometry managers are how your Mainwindow is formatted to accommodate all of your widgets. La géométrie de la manière dont les gestionnaires sont vos Mainwindow est formaté pour accueillir tous vos widgets. The four types of most commonly-used geometry managers are: pack(), grid(), place() and form(). Les quatre types de plus communément utilisées sont les gestionnaires de géométrie: pack (), le GRID (), place () et la forme (). 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 gestionnaire de géométrie pack de widgets dans une fenêtre en remplissant le widget dans certaines positions dans un certain ordre ou dans l'ordre de déclaration. grid(): A geometry manager to arrange all of your widgets into an imaginary 'grid'. grille (): Un gestionnaire de géométrie à faire de tous vos widgets dans un imaginaire de «Grid». so all you widgets are positioned in a cell according to a row/column. si vous avez tous les widgets sont placés dans une cellule selon une ligne / colonne. place():A geometry manager to situate widgets at given x,y co-ordinates. place (): Un gestionnaire de la géométrie de situer les widgets donné x, y coordonnées. form(): A geometry manager that combines use of pack() and place() to create a very powerful method of arranging your Tk window. forme (): Un gestionnaire de géométrie qui combine utiliser de pack () et lieu () pour créer une méthode très puissante d'assurer taka votre fenêtre. 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. Je suis presque toujours utiliser la grille (), simplement parce qu'il est très simple à apprendre et à tenir compte de toutes les utilisations très puissant et simple ou pour des applications avancées. However if you are creating a large-scale perl Tk GUI app (unlikely) you should probably use place() or form(). Toutefois, si vous créez une grande échelle perl Tk GUI app (peu probable), vous devriez probablement utiliser place () ou la forme (). For smaller apps pack() or grid() are just fine. Pour de plus petites applications pack () ou grille () sont très bien. Because this is a beginners guide- I will only show you the use of grid().The basic arguments for grid include: Comme il s'agit d'un guide-débutants, je vais seulement vous montrer le recours à la grille (). Les arguments de base pour le réseau comprennent: -row=>x, -ligne => x, -column=>x, -column => x, -rowspan=>x, (how many rows should accommodate widget) -rowspan => x (nombre de lignes devrait accueillir widget) -columnspan=>x, (how many columns should accommodate widget) columnspan-=> x (nombre de colonnes doivent tenir compte 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). collante => x, (utilisée pour coller à la côté de la cellule, le widget est en postioned, la valeur peut être 'n', 's',' e ',' W ',' ne ',' O ', «ns», «SE», «SW», «EW». Pour les «ns» et «EW», elle s'étendra le widget dans ce sens pour s'adapter à la cellule). There are more arguments, which you can read up about, but those are the only neccessary basics. Il ya plusieurs arguments, dont vous pouvez lire sur place, mais ce sont là les seules bases nécessaires. STRUCTURE OF A PERL TK PROGRAM: Une structure de perl tk program: All perl Tk applications are structured as follows: Tous perl Tk applications sont structurés comme suit: CODE : CODE: `GUI building code` `Code de construction d'interface graphique` `MainLoop;` `Mainloop;` `functions and subroutines` `les fonctions et les sous-routines` All perl Tk applications MUST have a 'MainLoop', otherwise they won't work. Toutes les applications perl Tk devez disposer d'un «mainloop ', sinon ils ne fonctionneront pas. MainLoop; separates the GUI building code from the subroutines and functions that get called by user-interaction with the widgets when run. Mainloop; sépare l'interface graphique du code du bâtiment de la sous-routines et fonctions qui sont appelés par l'utilisateur l'interaction avec les widgets lorsqu'il est exécuté. Above MainLoop; you write all GUI building code, the mainwindows, the frames, the widgets. Mainloop ci-dessus, vous écrire tous les codes de construction d'interface graphique, le mainwindows, les cadres, les widgets. Below the MainLoop; you have all functions and subroutines that get called by user-interaction. Au-dessous de la mainloop, vous avez toutes les fonctions et les sous-routines qui sont appelés par l'interaction avec l'utilisateur. COMMON WIDGETS AND WIDGET ARGUMENTS: Commun et widgets widget arguments: Below are a few of the most commonly used widgets in GUI applications, please note that capitaliasation is important: Ci-dessous sont quelques-uns des plus couramment utilisés dans les widgets d'applications GUI, s'il vous plaît noter que capitaliasation est important: Label() -display some text Label ()-affichage du texte Button() -display a button (duh) Button ()-un bouton d'affichage (duh) Entry() -display a field to enter text D'entrée (de)-affichage d'un champ pour saisir du texte Text() -display a textarea Texte ()-afficher un textarea Menu() -configure a menu for you application Menu ()-configurer un menu pour vous demande Optionmenu() -display a drop-down box of options Optionmenu ()-afficher une liste déroulante d'options ProgressBar() -display a graphical aid of progress completed (loading bar etc) ProgressBar ()-afficher un graphique de l'aide progrès achevé (chargement bar etc) getOpenFile() -displays the default navigation window to a location and file to open getOpenFile () affiche la fenêtre de navigation par défaut à un endroit et de fichier pour l'ouvrir getSaveFile() -displays the default navigation window to a location and file to save getSaveFile () affiche la fenêtre de navigation par défaut à un emplacement de fichier et de mettre Scrollbar() -displays a scroll bar to be embedded into a text-area or other compatible widget Barre de défilement () affiche une barre de défilement pour être intégré dans une zone de texte ou d'autres widget compatible Below are some arguments that can be used with most widgets: Voici quelques arguments qui peuvent être utilisés avec la plupart des widgets: -bg=>'x', or -background=>x, Can take arguments as 'black' or '#000000' etc -bg => 'x', ou-background => X, peut prendre des arguments comme «noir» ou «# 000000 ', etc -fg=>x, or -foreground=>x, Same follows as background -fg => x,-ou l'avant-plan => x, suit de même que de la -activebackground=>'x', or '#000000' etc. Colour of background when cursor is hovering over it. activebackground-=> 'x', ou '# 000000' etc Couleur de fond lorsque le curseur est en vol stationnaire au-dessus. -activeforegroud=>'x', or '#000000' etc. Colour of foreground when cursor is hovering over it. activeforegroud-=> 'x', ou '# 000000' etc Couleur de premier plan lorsque le curseur est en vol stationnaire au-dessus. -text=>"x", -text => "x", -width=>x, -width => x, -height=>x, -height => x, -command=>\&subfunction, or -command=>sub{statements;}, -command => \ & subfunction, ou-commande => sub (déclarations;), -variable=>\$var, -variable => \ $ var, CONFIGURING WIDGETS: CONFIGURATION widgets: Once widgets have been initialised, you can change or configure the widget without having to create it again. Une fois les widgets ont été initialisé, vous pouvez modifier ou configurer le widget, sans avoir à créer de nouveau. You do this as follows: Vous le faites comme suit: CODE : CODE: `$widgetvar->configure(re-declare arguments you want to change);` `$ widgetvar-> configure (déclarer à nouveau les arguments que vous voulez changer);` Some widgets allow the program to enter information as well as the user, widgets such as a textarea or an entry field. Certains widgets permettre l'émission pour entrer les informations ainsi que l'utilisateur, les widgets comme un textarea ou un champ d'entrée. This is done as follows: Ceci est fait comme suit: CODE : CODE: `$widgetvar->insert('postion',"to insert");` `$ widgetvar-> insert ( 'position', "d'insérer");` The position can be numerical- 1.0 for the beginning etc, or text- 'end' etc. La position peut-être numérique 1.0 pour le début etc, texte ou «fin» etc EXAMPLE OF A PERL TK APPLICATION: Un exemple d'application perl tk: Ok, here I will show you how to use what you know and create a basic perl tk application. Ok, ici je vais vous montrer comment utiliser ce que vous savez et de créer une base perl tk application. 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. Cet exemple suivant vous montre comment faire une fenêtre, d'ajouter des widgets de base, et de widget données recueillies à l'aide de get () à l'intérieur d'une sous-routine. CODE : CODE: `use Tk;` `utiliser Tk;` `my $mw=new MainWindow();` `my $ mw = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> grille ();` `my $label=$frm->Label(-text=>"Enter your name:")->grid(-row=>0,-column=>0,-sticky=>'w');` `my $ label = $ frm-> Label (-text => "Entrez votre nom :")-> réseau (rangée => 0,-column => 0, collante => 'w');` `my $entrybox=$frm->Entry()->grid(-row=>0,-column=>1);` `my $ entrybox = $ frm-> Entrée () -> réseau (rangée => 0,-column => 1);` `my $gobutton=$frm->Button(-text=>"go",-command=>\&function1)->grid(-row=>0,-column=>2,-sticky=>'e');` `my $ gobutton = $ frm-> Button (-text => "go",-command => \ & FUNCTION1) -> réseau (rangée => 0,-column => 2, collante => 'e');` `my $textarea=$frm->Text(-width=>30,-height=>5)->grid(-row=>2,-column=>0,-columnspan=>3);` `my $ textarea = $ frm-> Text (-width => 30,-height => 5) -> réseau (rangée => 2,-column => 0,-columnspan => 3);` `MainLoop;` `Mainloop;` `sub function1{` `sous FUNCTION1 (` `my $name=$entrybox->get();` `my $ nom = $ entrybox-> get ();` `$textarea->insert('end',"Hello $name\n");` `$ textarea-> insert ( 'end', "Bonjour $ nom \ n");` `}` `)` ANATOMY OF EXAMPLE APPLICATION: Anatomie de l'application exemple: line 1: Tells compiler that we need to use the Tk module. Ligne 1: Indique compilateur que nous avons besoin d'utiliser le module Tk. line 2: Creates a new Tk window and binds it to a variable. Ligne 2: Crée une nouvelle taka fenêtre et il se lie à une variable. line 3: Creates a new frame to hold widgets and stores the frame inside our new window. ligne 3: Crée un nouveau cadre de tenir des widgets et des magasins dans le cadre de notre nouvelle fenêtre. line 4: Creates a label to dislay text, places it to grid co-ords and places the label inside of our frame. Ligne 4: Crée une étiquette à dislay texte, le place sur la grille de co-ORDS lieux et l'étiquette à l'intérieur de notre cadre. line 5: Creates an entry field to input text, places it to grid co-ords and places the entry inside of our frame. Ligne 5: Crée un champ d'entrée pour saisir du texte, le place sur la grille de co-ORDS et les lieux de l'entrée à l'intérieur de notre cadre. 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. Ligne 6: Crée un bouton pour afficher le texte et d'engager notre sous-routine, le place sur la grille de co-ORDS et place le bouton à l'intérieur de notre cadre. 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. Ligne 7: Crée une zone de texte à dislay texte que lui, le place sur la grille de co-ORDS lieux et la zone de texte à l'intérieur de notre cadre. line 8: Signifies GUI base-building code complete. Ligne 8: Signifie-GUI de base du code du bâtiment complet. line 9: Creates subroutine "function1". ligne 9: Crée sous-routine "FUNCTION1". line 10:Uses get() to collect data from entrybox and saves it into variable $name. ligne 10: utilisations get () afin de recueillir des données de entrybox et l'enregistre dans la variable $ nom. line 11:Inserts "helo $name" into our text-area widget. ligne 11: Inserts "HELO $ nom" dans notre texte, la zone widget. line 12:Ends subroutine "function1". Ligne 12: fin subroutine "FUNCTION1". EXAMPLE PROGRAMS USING DIFFERENT WIDGETS: Programs exemple en utilisant différents widgets: Here are a few very short programs making use of some of the widgets we've talked about. Voici quelques très courtes faisant usage de certains des widgets que nous avons parlé. ==Label, Entry Fields, Buttons and Text-Areas: == Label, champs d'entrée, les boutons et les zones de texte: See "Example of a perl Tk application" above. Voir «Exemple d'une application Perl Tk" ci-dessus. ==Dropdown boxes: == Déroulant cases: CODE : CODE: `use Tk;` `utiliser Tk;` `my $mw=new MainWindow;` `my $ mw = new MainWindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> grille ();` `my $lab=$frm->Label(-text=>"Choose option:")->grid(-row=>0,-column=>0);` `mon laboratoire $ = $ frm-> Label (-text => "Choisissez l'option :")-> réseau (rangée => 0,-column => 0);` `my $dropdownbox=$frm->Optionmenu(-options=>["Male", "Female"],-variable=>\$var)->grid(-row=>1,-column=>0);` `my $ dropdownbox = $ frm-> Optionmenu (-options => [ "Homme", "Femme"],-variable => \ $ var) -> réseau (rangée => 1,-column => 0);` `my $txt=$frm->Text(-width=>20,-height=>10)->grid(-row=>2,-column=>0);` `my $ txt = $ frm-> Text (-width => 20,-height => 10) -> réseau (rangée => 2,-column => 0);` `my $button=$frm->Button(-text=>"Go",-command=>\&maleorfemale)->grid(-row=>3,-column=>0);` `my $ bouton = $ frm-> Button (-text => "Go",-command => \ & maleorfemale) -> réseau (rangée => 3,-column => 0);` `MainLoop;` `Mainloop;` `sub maleorfemale {` `sous maleorfemale (` `if($var eq 'Male'){$txt->insert('end',"You are Male")}else{$txt->insert('end',"You are female")}` `if ($ var eq 'Homme') ($ txt-> insert ( 'fin', "vous êtes un homme")) else ($ txt-> insert ( 'fin', "Vous êtes des femmes"))` `}` `)` ==Listbox: == Liste: CODE : CODE: `use Tk;` `utiliser Tk;` `my $mw=new MainWindow();` `my $ mw = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> grille ();` `my $lab=$frm->Label(-text=>"Gender:")->grid(-row=>0,-column=>0);` `mon laboratoire $ = $ frm-> Label (-text => "L'égalité des genres :")-> réseau (rangée => 0,-column => 0);` `my $lst=$frm->Listbox(-selectmode=>'single',-width=>30,-height=>5)->grid(-row=>1,-column=>0);` `my $ lst = $ frm-> Listbox (-selectmode => 'unique',-width => 30,-height => 5) -> réseau (rangée => 1,-column => 0);` `my $but=$frm->Button(-text=>"Go",-command=>\&button_push)->grid(-row=>2,-column=>0);` `mais mon $ = $ frm-> Button (-text => "Go",-command => \ & button_push) -> réseau (rangée => 2,-column => 0);` `my $txt=$frm->Text(-width=>30,-height=>5)->grid(-row=>3,-column=>0);` `my $ txt = $ frm-> Text (-width => 30,-height => 5) -> réseau (rangée => 3,-column => 0);` `$lst->insert('end',"Male");` `$ lst-> insert ( 'fin', "Homme");` `$lst->insert('end',"Female");` `$ lst-> insert ( 'fin', "Femme");` `MainLoop;` `Mainloop;` `sub button_push{` `sous button_push (` `my $selected=$lst->curselection();` `my $ selected = $ lst-> curselection ();` `my $gender=$lst->get($selected);` `my $ sexe = $ lst-> get ($ sélectionné);` `$txt->insert('end',"You selected $gender.\n");` `$ txt-> insert ( 'fin', "Vous avez sélectionné $ sexe. \ n");` `}` `)` ==Scrollbars embedded within Text-Areas: == Intégré dans les barres de défilement de texte Domaines: CODE : CODE: `use Tk;` `utiliser Tk;` `my $mw=new MainWindow;` `my $ mw = new MainWindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> grille ();` `my $txt=$frm->Text(-wrap=>'none',-width=>40,-height=>10)->grid(-row=>0,-column=>0);` `my $ txt = $ frm-> Text (-wrap => 'none',-width => 40,-height => 10) -> réseau (rangée => 0,-column => 0);` `my $srl_y=$frm->Scrollbar(-orient=>'v',-command=>[yview => $txt])->grid(-row=>0,-column=>1,-sticky=>"ns");` `my $ srl_y = $ frm-> Scrollbar (-Orient => 'V',-command => [yview => $ txt]) -> réseau (rangée => 0,-column => 1, collante => "NS");` `my $srl_x=$frm->Scrollbar(-orient=>'h',-command=>[xview => $txt])->grid(-row=>1,-column=>0,-sticky=>"ew");` `my $ srl_x = $ frm-> Scrollbar (-Orient => 'H',-command => [Xview => $ txt]) -> réseau (rangée => 1,-column => 0, collante => "EW");` `$txt -> configure(-yscrollcommand=>['set', $srl_y],-xscrollcommand=>['set',$srl_x]);` `$ txt -> configure (-yscrollcommand => [ 'set', $ srl_y], xscrollcommand-=> [ 'set', $ srl_x]);` `MainLoop;` `Mainloop;` ==Menus: == Menus: CODE : CODE: `use Tk;` `utiliser Tk;` `$mw = new MainWindow;` `mw $ = new MainWindow;` `my $frm = $mw -> Frame() -> grid();` `my $ frm = $ mw -> Frame () -> grille ();` `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 -> cascade (-label => "Fichier", soulignent-=> 0,-tearoff => 0);` `my $edt = $mbar -> cascade(-label =>"Edit", -underline=>0, -tearoff => 0);` `my $ = $ HAE mbar -> cascade (-label => "Modifier", soulignent-=> 0,-tearoff => 0);` `my $hlp = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);` `my $ = $ hlp mbar -> cascade (-label => "Aide", soulignent-=> 0,-tearoff => 0);` `$file -> command(-label => "New", -underline=>0,-command=>\&default);` `$ file -> commande (-label => "Nouveau", soulignent-=> 0,-command => \ par défaut);` `$file -> command(-label => "Open", -underline=>0,-command=>\&default);` `$ file -> commande (-label => "Ouvrir", soulignent-=> 0,-command => \ par défaut);` `$file -> command(-label => "Save", -underline=>0,-command=>\&default);` `$ file -> commande (-label => "Enregistrer", soulignent-=> 0,-command => \ par défaut);` `$file -> separator();` `$ file -> séparateur ();` `$file -> command(-label =>"Exit", -underline => 1,-command => sub { exit } );` `$ file -> commande (-label => "Exit", soulignent-=> 1,-command => sortie sous ());` `$edt -> command(-label=>'Search',-underline=>0,-command=>\&default);` `$ Paris -> commande (-label => 'Rechercher', soulignent-=> 0,-command => \ par défaut);` `$edt -> command(-label=>'Find and replace',-underline=>0,-command=>\&default);` `$ Paris -> commande (-label => "Rechercher et remplacer", soulignent-=> 0,-command => \ par défaut);` `my $helpoptions=$hlp -> cascade(-label=>"Help", -underline=>0, -tearoff => 0);` `my $ = $ helpoptions hlp -> cascade (-label => "Aide", soulignent-=> 0,-tearoff => 0);` `$helpoptions -> command(-label => "About", -underline=>0,-command=>\&default);` `helpoptions $ -> commande (-label => "À propos", soulignent-=> 0,-command => \ par défaut);` `$helpoptions -> command(-label => "Usage", -underline=>0,-command=>\&default);` `helpoptions $ -> commande (-label => "Usage", soulignent-=> 0,-command => \ par défaut);` `MainLoop;` `Mainloop;` `sub default{` `par défaut sous (` `}` `)` ==Using multiple windows (Toplevels): == En utilisant de multiples fenêtres (Toplevels): CODE : CODE: `use Tk;` `utiliser Tk;` `my $mw=new MainWindow();` `my $ mw = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> grille ();` `my $but=$frm->Button(-text=>">>Click to open a toplevel window<<",-command=>\&toplevel)->grid(-row=>1,-column=>0);` `mais mon $ = $ frm-> Button (=>">>-texte Cliquez pour ouvrir une fenêtre toplevel <<",- command => \ & toplevel) -> réseau (rangée => 1,-column => 0) ;` `MainLoop;` `Mainloop;` `sub toplevel{` `toplevel sous (` `my $toplevel=new MainWindow();` `my $ toplevel = new MainWindow ();` `my $toplevelfrm=$toplevel->Frame()->grid();` `my $ toplevelfrm = $ toplevel-> Frame () -> grille ();` `my $lab=$toplevelfrm->Label(-text=>"A Toplevel window!")->grid(-row=>1,-column=>0);` `mon laboratoire $ = $ toplevelfrm-> Label (-text => "Une fenêtre Toplevel !")-> réseau (rangée => 1,-column => 0);` `MainLoop;` `Mainloop;` `}` `)` OUTRO: 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 Eh bien, c'est tout-Espoir vous avez aimé ce guide les débutants, je pourrais écrire des articles portant sur un peu plus complexe domaines de la programmation Perl Tk -ELJONTO \|\| Cyb3r_Shad0w -ELJONTO \| \| Cyb3r_Shad0w
Cast your vote on this article Voter sur cet article Note: the order of the votes has been reversed. Note: l'ordre des votes a été inversée.

Comments: Commentaires:
Published: 10 comments. Publié le: 10 commentaires.

frag4lot - 03:59 am Tuesday January 15th, 2008 frag4lot - 03h59 Mardi Janvier 15, 2008

weird, I was just looking in which language i\'d write an app for a company in,.. bizarre, je regarde, c'est la langue dans laquelle I \ 'd écrire une application pour une entreprise en, .. might just aswell do it in perl :D pourrait tout aussi bien le faire en perl: D

gj on this tutorial ;) GJ sur cette tutoriel;)

eljonto - 04:26 am Tuesday January 15th, 2008 eljonto - 04:26 Mardi Janvier 15, 2008

Thanks :) Merci:)
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. Son très simple et ultra-rapide de code pour les petites applications en temps, même si, pour à plus grande échelle d'applications et applications qui reposent fortement sur la vitesse et la performance, je ne voudrais pas utiliser Perl, mais j'ai écrit cet article de toute façon à montrer perl contraste.

liuyuan - 11:57 am Tuesday January 15th, 2008 Liuyuan - 11:57 Mardi Janvier 15, 2008

I\'m quite impressed by this article, a good read. I \ 'm très impressionné par le présent article, une bonne lecture.

eljonto - 04:22 pm Tuesday January 15th, 2008 eljonto - 04:22 h Mardi, Janvier 15, 2008

thanks liuyuan :) Liuyuan merci:)

Kage - 02:56 pm Thursday February 07th, 2008 Kage - 02:56 h Jeudi 07e Février, 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 \ 'ai utilisé Perl pour environ une décennie maintenant, et jamais écrit une interface graphique pour aucune de mes applications (I \' ai connu sur le Tk modules, mais jamais essayé \ 'em). A very good article, indeed. Un très bon article, en effet. May just have to try this. Mai, à l'essayer.

eljonto - 04:25 am Friday February 08th, 2008 eljonto - 04:25 h Vendredi Février 08e, 2008

thanks, very easy to get the hang of Merci, très facile d'obtenir le blocage des

cleverhacker - 05:28 am Sunday March 09th, 2008 cleverhacker - 05:28 h dimanche 09e Mars, 2008

no it good pas bon

eljonto - 12:39 am Wednesday March 19th, 2008 eljonto - 12:39 Mercredi Mars 19, 2008

thanks for the constructive comment 'clever' hacker merci pour le commentaire constructif 'intelligent' hacker

fookyourshist - 07:45 pm Monday April 14th, 2008 fookyourshist - 07:45 h, du lundi 14 avril, 2008

Thats Awsome, it looks a bit similar to python's gui: jython. Thats Awsome, il ressemble un peu similaire à l'interface graphique python: Jython. Neat tutorial man! Neat tutoriel homme! xDDDD

eljonto - 02:56 am Tuesday April 22nd, 2008 eljonto - 02:56 Mardi 22 avril 2008

Thanks, as far as I know python also has its own Tk module which i would imagine being similar to perls Merci, pour autant que je sache python a également son propre module Tk qui je pense être semblable à Perls

This site is the collective work of the HackThisSite staff. Ce site est le travail collectif de la HackThisSite personnel. Please don't reproduce in part or whole without permission. S'il vous plaît ne pas reproduire en partie ou en totalité sans permission.
Page Generated: Mon, 01 Dec 2008 20:18:54 -0500 Exec: 10 Page générée: Mon, 01 Dec 2008 20:18:54 -0500 Exec: 10
_{Page loaded in 0.11686 seconds!} _{Page chargée en 0.11686 secondes!}

Donate Faire un don

Challenges Défis

Get Informed Informez-vous

Get Involved Impliquez-vous!

Communicate Communiquer

About HTS À propos de HTS

Translate Traduire

Partners Partenaires