Hack dieser Website!

[ Advertise With HackThisSite.org :: Hide These Ads ] [Werben Sie mit HackThisSite.org:: Hide diese Anzeigen]

"Domestic spying initiatives never die, they just get new acronyms." "Häusliche Spionage Initiativen nie sterben, sie nur neue Abkürzungen." -- Blogger Frank Sennet - Blogger Frank Sennett

HTS costs up to $300 a month to operate. HTS Kosten bis zu 300 Dollar pro Monat zu bedienen. We need your help! Wir brauchen Ihre Hilfe!

Donors also receive special recognition on our donors page. Spender auch eine besondere Anerkennung für unsere Spender Seite.

FR DE ES IT PT FR DE ES IT PT

Link to us! Link zu uns!

phoenix free shells phoenix frei Tanks
hackergames.net hackergames.net
PullThePlug PullThePlug

GUI's in perl GUI's in Perl
Published by: eljonto , on 2008-01-13 19:04:49 Veröffentlicht von: eljonto, auf 2008-01-13 19:04:49
\|A guide to writing event-driven GUI applications in Perl using the Tk module. \| Ein Leitfaden zum Schreiben event-driven GUI-Anwendungen in Perl mit dem Tk-Modul. \| \|Wirtten by ELJONTO\Cyb3r_Shad0w (Both are me). \| Wirtten von ELJONTO \ Cyb3r_Shad0w (Beide sind mir!). \| ________________________________________________________________________________ Contents: Inhalt: -Introduction -Einführung -Notes on global/local variables -Hinweise auf die globale / lokale Variablen -Mainwindow/widget and argument syntax -Mainwindow/widget Und Argument Syntax -Geometry managers Geometrie-Manager -Structure of a Perl Tk program -Struktur eines Perl Tk-Programm -Common widgets and widget arguments -Common Widget Widgets und Argumente -Configuring widgets -Konfiguration von Widgets -Example of a perl Tk application -Beispiel für ein Perl-Tk-Anwendung -Anatomy of example application -Anatomie der Beispiel-Anwendung -Example programs using different widgets Beispiel-Programmen mit verschiedenen Widgets -Label, Entry Fields, Buttons and Text-Areas -Label, Eingabefelder, Buttons und Text-Areas -Dropdown boxes Dropdown-Boxen -Listbox -Listenfeld -Scrollbars embedded within Text-Areas -Scrollbalken eingebettet in Text-Areas -Menus -Menüs -Using multiple windows (Toplevels) -Mit mehreren Fenstern (Toplevel) -Outro INTRODUCTION: EINFÜHRUNG: People always assume perl to be a simple scripting language with basic acess to web scripting, however this is not so. Menschen immer davon ausgehen, Perl zu einer einfachen Skriptsprache mit grundlegenden Zugang zu Web-Scripting, dies ist jedoch nicht so. Perl is so much more, and with the use of user-written modules can have amazing capabilities on a variety of topics. Perl ist so viel mehr, und mit der Verwendung von Benutzer-Module geschrieben haben können erstaunliche Fähigkeiten auf einer Vielzahl von Themen. In this article i'll show you how to make use of the Perl::Tk module to create event-orientated GUI applications. In diesem Artikel werde ich zeigen Ihnen, wie Sie nutzen die Perl:: Tk-Modul zu schaffen Ereignis-orientierte GUI-Anwendungen. NOTES ON GLOBAL AND LOCAL VARIABLES: Stellt fest, auf globale und lokale Variablen: Before we begin, you'll notice most variables have 'my' in front of them. Bevor wir beginnen, werden Sie feststellen, die meisten Variablen haben "meine" vor ihnen. This is to make the variables 'local'. Dies ist, um die Variablen 'local'. 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'. Dies bedeutet, dass, wenn eine Variable hat "meine" vor, wird es nur dann zum Einsatz kommen können in der Funktion, dass es in. Dies bedeutet, dass Sie verwenden können, viele Variablen mit dem gleichen Namen in verschiedenen Funktionen so lange, wie Sie erklären, sie zu 'local'. 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 ist es nicht eine Fehlermeldung an redeclare eine Variable, so stellen Sie sicher, Sie wissen, ob Sie Variablen zu "lokalen" oder "global". Global means the variable can be acessed and used by all functions. Global ist die Variable kann acessed und von allen Funktionen. To make a variable 'global' just omit the 'my' in front of it. Um eine Variable 'global' einfach weglassen 'mein' davor. MAINWINDOW/WIDGET AND ARGUMENT SYNTAX: Mainwindow / Widget und Argument Syntax: Good, now with that out the way we can begin. Gut, jetzt mit, dass die Art, wie wir beginnen können. To make your main window, you need to assign it a variable so that it can incorporate widgets (Things like labels, buttons etc). Um Ihren Hauptfenster, müssen Sie ordnen es eine Variable, so dass sie einbezogen Widgets (Dinge wie Etiketten, Knöpfe etc.). And all widgets need to be assigned to a variable so that you can access them. Und alle Widgets zu einer Variablen zugewiesen werden, so dass Sie darauf zugreifen kann. To make a new mainwindow and assign it to a variable you follow this syntax: Um eine neue Mainwindow und ordnen Sie sie an eine Variable folgen Sie diese Syntax: CODE : CODE: `$mainwindow=new MainWindow();` `$ Mainwindow = new MainWindow ();` To make a new widget and assign it to a variable you folow this syntax: Um ein neues Widget und ordnen Sie sie an eine Variable folow Sie diese Syntax: CODE : CODE: `$variable=$frame/mainwindow->Widget(arguments)->geometrymanager(arguments);` `$ variable = $ frame/mainwindow-> Widget (Argumente) -> geometrymanager (Argumente);` widgets can take as many arguments as they can allow, and arguments follow this syntax and are separated by commas: Widgets können so viele Argumente, wie sie können, und Argumente folgen dieser Syntax und sind durch Kommas getrennt: CODE : CODE: `-argument=>value,` `-Argument => Wert,` There are many, many widgets available so in this article i'll only cover a few most commonly used ones. Es gibt viele, viele Widgets zur Verfügung, damit in diesem Artikel werde ich nur für ein paar am häufigsten verwendet werden. GEOMETRY MANAGERS: GEOMETRY-Manager: Geometry managers are how your Mainwindow is formatted to accommodate all of your widgets. Geometrie-Manager sind, wie Ihr Mainwindow formatiert ist, um alle Ihre Widgets. The four types of most commonly-used geometry managers are: pack(), grid(), place() and form(). Die vier Typen der am häufigsten verwendeten Geometrie-Manager sind: pack (), Raster (), Ort () und Form (). 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 (): A Geometrie-Manager zu packen Widgets in ein Fenster, indem Sie das Widget in bestimmten Positionen in einer bestimmten Reihenfolge oder in der Reihenfolge der Anmeldung. grid(): A geometry manager to arrange all of your widgets into an imaginary 'grid'. Grid (): A Geometrie-Manager, um alle Ihre Widgets in einer imaginären "Gitter". so all you widgets are positioned in a cell according to a row/column. so dass alle Widgets sind Sie positioniert in einer Zelle nach einer Zeile / Spalte. place():A geometry manager to situate widgets at given x,y co-ordinates. Ort (): A Geometrie-Manager zu situieren Widgets zu bestimmten x-, y-Koordinaten. form(): A geometry manager that combines use of pack() and place() to create a very powerful method of arranging your Tk window. Form (): A Geometrie-Manager, die Verwendung von pack () und Ort (), um eine sehr leistungsfähige Methode der Vermittlung Ihrer Tk-Fenster. 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. Ich fast immer mit Gitter (), einfach, denn es ist sehr einfach zu erlernen und Unterbringung für alle Verwendungen und sehr leistungsfähig für einfache und fortgeschrittene Anwendungen. However if you are creating a large-scale perl Tk GUI app (unlikely) you should probably use place() or form(). Allerdings, wenn Sie eine groß angelegte Perl Tk GUI app (unwahrscheinlich), die Sie verwenden, sollten Sie vielleicht Platz () oder Form (). For smaller apps pack() or grid() are just fine. Für kleinere Anwendungen pack () oder Gitter () sind nur in Ordnung. Because this is a beginners guide- I will only show you the use of grid().The basic arguments for grid include: Da es sich um eine Einsteiger-Guide Ich werde nur zeigen Ihnen den Einsatz von Grid (). Die grundlegenden Argumente für Grid umfassen: -row=>x, -row => x, -column=>x, -Spalte => x, -rowspan=>x, (how many rows should accommodate widget) -rowspan => x, (wie viele Zeilen sollten berücksichtigen Widget) -columnspan=>x, (how many columns should accommodate widget) -columnspan => x, (wie viele Spalten sollten berücksichtigen 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). -sticky => x, (verwendet, um an der Seite der Zelle das Widget ist postioned in, der Wert kann 'n', 's',' e ',' w ',' ne ',' nw ', 'ns',' se ',' sw ',' EW '. Für "NS" und "EW" es wird sich das Widget in diese Richtung, um die Zelle). There are more arguments, which you can read up about, but those are the only neccessary basics. Es gibt mehrere Argumente, die Sie lesen können bis zu, aber diese sind die einzigen notwendigen Grundlagen. STRUCTURE OF A PERL TK PROGRAM: Struktur eines Perl-TK-Programm: All perl Tk applications are structured as follows: Alle Perl Tk-Anwendungen sind wie folgt strukturiert: CODE : CODE: `GUI building code` `GUI-Gebäude-Code` `MainLoop;` `Hauptschleife;` `functions and subroutines` `Funktionen und Subroutinen` All perl Tk applications MUST have a 'MainLoop', otherwise they won't work. Alle Perl Tk-Anwendungen unbedingt ein "Hauptschleife", da sie sonst nicht funktionieren wird. MainLoop; separates the GUI building code from the subroutines and functions that get called by user-interaction with the widgets when run. Hauptschleife; trennt die GUI-Gebäude Code aus dem Subroutinen und Funktionen, die sich durch Benutzer-Interaktion mit den Widgets bei der Ausführung. Above MainLoop; you write all GUI building code, the mainwindows, the frames, the widgets. Vor Hauptschleife; Sie schreiben alle Gebäude GUI-Code, der mainwindows, die Frames, die Widgets. Below the MainLoop; you have all functions and subroutines that get called by user-interaction. Unterhalb der Hauptschleife; Sie haben alle Funktionen und Subroutinen, dass sich durch Benutzer-Interaktion. COMMON WIDGETS AND WIDGET ARGUMENTS: Gemeinsamen Widgets und Widget Argumente: Below are a few of the most commonly used widgets in GUI applications, please note that capitaliasation is important: Im Folgenden sind einige der am häufigsten verwendeten Widgets in der GUI-Anwendungen, beachten Sie bitte, dass capitaliasation ist wichtig: Label() -display some text Label ()-Display einen Text Button() -display a button (duh) Button ()-Display zeigt ein Button an (duh) Entry() -display a field to enter text Eintrag ()-Display ein Feld zur Eingabe von Text Text() -display a textarea Text ()-Display ein textarea Menu() -configure a menu for you application Menu ()-Konfiguration ein Menü für Sie Anwendung Optionmenu() -display a drop-down box of options Optionmenu ()-Display ein Dropdown-Feld von Optionen ProgressBar() -display a graphical aid of progress completed (loading bar etc) ProgressBar ()-Display eine grafische Hilfe der Fortschritte vervollständigt (Be-bar etc) getOpenFile() -displays the default navigation window to a location and file to open getOpenFile ()-Displays der Standard-Navigations-Fenster zu einem Ort und Datei zu öffnen getSaveFile() -displays the default navigation window to a location and file to save getSaveFile ()-Displays der Standard-Navigations-Fenster zu einem Ort und Datei zu speichern Scrollbar() -displays a scroll bar to be embedded into a text-area or other compatible widget Scrollbar ()-Displays eine Bildlaufleiste eingebettet werden in eine Text-Bereich oder anderen kompatiblen Widget Below are some arguments that can be used with most widgets: Im Folgenden werden einige Argumente, die verwendet werden können mit den meisten Widgets: -bg=>'x', or -background=>x, Can take arguments as 'black' or '#000000' etc -bg => 'x', oder-background => x, Kann die Argumente als "schwarz" oder "# 000000" etc -fg=>x, or -foreground=>x, Same follows as background -fg => x, oder-Vordergrund => x, Same folgt als Hintergrund -activebackground=>'x', or '#000000' etc. Colour of background when cursor is hovering over it. -activebackground => 'x' oder '# 000000' etc. Farbe der Hintergrund, wenn sich der Cursor über ihm schwebt. -activeforegroud=>'x', or '#000000' etc. Colour of foreground when cursor is hovering over it. -activeforegroud => 'x' oder '# 000000' etc. Farbe des Vordergrund, wenn sich der Cursor über ihm schwebt. -text=>"x", -text => "x", -width=>x, -width => x, -height=>x, -height => x, -command=>\&subfunction, or -command=>sub{statements;}, -Befehl => \ & Unterfunktion, oder-Befehl => sub (Anweisungen;), -variable=>\$var, -variable => \ $ var, CONFIGURING WIDGETS: KONFIGURIEREN WIDGETS: Once widgets have been initialised, you can change or configure the widget without having to create it again. Sobald Widgets wurden initialisiert, können Sie ändern oder konfigurieren das Widget, ohne zu erstellen Sie ihn wieder ein. You do this as follows: Sie tun dies wie folgt: CODE : CODE: `$widgetvar->configure(re-declare arguments you want to change);` `$ widgetvar-> konfigurieren (Wieder-Argumente erklären, die Sie ändern möchten);` Some widgets allow the program to enter information as well as the user, widgets such as a textarea or an entry field. Einige Widgets ermöglichen das Programm zur Eingabe von Informationen sowie der Benutzer, Widgets wie z. B. ein Textfeld oder ein Eingabefeld. This is done as follows: Dies geschieht wie folgt: CODE : CODE: `$widgetvar->insert('postion',"to insert");` `$ widgetvar-> Einfügen ( "Position", "einfügen");` The position can be numerical- 1.0 for the beginning etc, or text- 'end' etc. Die Position kann numerische-1.0 für den Beginn etc, Text-oder 'end' etc. EXAMPLE OF A PERL TK APPLICATION: Beispiel für ein Perl-TK-Anwendung: Ok, here I will show you how to use what you know and create a basic perl tk application. Ok, hier zeige ich dir, wie zu benutzen, was Sie wissen und erstellen Sie eine grundlegende perl tk Anwendung. 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. Das folgende Beispiel zeigt Ihnen, wie Sie ein Fenster, fügen grundlegende Widgets entwickeln, und die Widget-Daten mit der Anwendung von get () innerhalb von ein Unterprogramm. CODE : CODE: `use Tk;` `Verwendung Tk;` `my $mw=new MainWindow();` `my $ mw = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> Raster ();` `my $label=$frm->Label(-text=>"Enter your name:")->grid(-row=>0,-column=>0,-sticky=>'w');` `my $ label = $ frm-> Label (-text => "Geben Sie Ihren Namen :")-> Gitter (-row => 0,-column => 0,-sticky => 'w');` `my $entrybox=$frm->Entry()->grid(-row=>0,-column=>1);` `my $ entrybox = $ frm-> Entry () -> Raster (-row => 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) -> Raster (-row => 0,-column => 2,-sticky => 'e');` `my $textarea=$frm->Text(-width=>30,-height=>5)->grid(-row=>2,-column=>0,-columnspan=>3);` `my $ textarea = $ frm-> Text (-width => 30,-height => 5) -> Raster (-row => 2,-column => 0,-columnspan => 3);` `MainLoop;` `Hauptschleife;` `sub function1{` `Unter function1 (` `my $name=$entrybox->get();` `my $ name = $ entrybox-> get ();` `$textarea->insert('end',"Hello $name\n");` `$ textarea-> insert ( 'end', "hallo $ name \ n");` `}` `)` ANATOMY OF EXAMPLE APPLICATION: Anatomie des Beispiel-Anwendung: line 1: Tells compiler that we need to use the Tk module. Linie 1: Legt fest, dass der Compiler, dass wir die Verwendung der Tk-Modul. line 2: Creates a new Tk window and binds it to a variable. Linie 2: Erstellt eine neue Tk-Fenster und bindet ihn an eine Variable. line 3: Creates a new frame to hold widgets and stores the frame inside our new window. Linie 3: Erzeugt einen neuen Rahmen zu halten Widgets und speichert die Rahmen in unseren neuen Fenster. line 4: Creates a label to dislay text, places it to grid co-ords and places the label inside of our frame. Linie 4: Erstellt ein Label zu dislay Text aus, plaziert es in ein Gitter Co-ORDS und Orten das Etikett innerhalb unserer Rahmen. line 5: Creates an entry field to input text, places it to grid co-ords and places the entry inside of our frame. Linie 5: Erstellt ein Eingabefeld zur Eingabe von Text aus, plaziert es in ein Gitter Co-ORDS und Orte der Eintrag innerhalb unserer Rahmen. 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. Linie 6: Erstellt eine Taste, um Text und leitet unsere Subroutine aus, plaziert es in ein Gitter Co-ORDS und stellt die Schaltfläche innerhalb unserer Rahmen. 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. Linie 7: Erstellt ein Text-Bereich zu dislay Text, die ihm aus, plaziert es in ein Gitter Co-ORDS und Orte der Text Gelände in unserer Rahmen. line 8: Signifies GUI base-building code complete. Linie 8: bedeutet GUI-Basis-Aufbau-Code abgeschlossen. line 9: Creates subroutine "function1". Linie 9: Erzeugt Unterprogramm "function1". line 10:Uses get() to collect data from entrybox and saves it into variable $name. Linie 10: Benutzt get () zur Erhebung von Daten aus entrybox und speichert es in Variable $ name. line 11:Inserts "helo $name" into our text-area widget. Linie 11: Inserts "helo $ name" in unserem Text-Widget-Bereich. line 12:Ends subroutine "function1". Linie 12: Endet Unterprogramm "function1". EXAMPLE PROGRAMS USING DIFFERENT WIDGETS: Beispiel-Programmen mit verschiedenen Widgets: Here are a few very short programs making use of some of the widgets we've talked about. Hier sind ein paar sehr kurzen Programmen nutzen einige der Widgets haben wir darüber gesprochen. ==Label, Entry Fields, Buttons and Text-Areas: == Label, Eingabefelder, Buttons und Text-Areas: See "Example of a perl Tk application" above. Siehe "Beispiel für ein Perl-Tk-Anwendung" weiter oben. ==Dropdown boxes: == Dropdown-Boxen: CODE : CODE: `use Tk;` `Verwendung Tk;` `my $mw=new MainWindow;` `my $ mw = new MainWindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> Raster ();` `my $lab=$frm->Label(-text=>"Choose option:")->grid(-row=>0,-column=>0);` `my $ lab = $ frm-> Label (-text => "Wählen Sie Option :")-> Gitter (-row => 0,-column => 0);` `my $dropdownbox=$frm->Optionmenu(-options=>["Male", "Female"],-variable=>\$var)->grid(-row=>1,-column=>0);` `my $ dropdownbox = $ frm-> Optionmenu (-Optionen => [ "Männlich", "weiblich"],-variable => \ $ var) -> Raster (-row => 1,-column => 0);` `my $txt=$frm->Text(-width=>20,-height=>10)->grid(-row=>2,-column=>0);` `my $ txt = $ frm-> Text (-width => 20,-height => 10) -> Raster (-row => 2,-column => 0);` `my $button=$frm->Button(-text=>"Go",-command=>\&maleorfemale)->grid(-row=>3,-column=>0);` `my $ Button = $ frm-> Button (-text => "Go",-command => \ & maleorfemale) -> Raster (-row => 3,-column => 0);` `MainLoop;` `Hauptschleife;` `sub maleorfemale {` `Unter maleorfemale (` `if($var eq 'Male'){$txt->insert('end',"You are Male")}else{$txt->insert('end',"You are female")}` `if ($ var eq 'Male') ($ txt-> insert ( 'end', "Sie sind männlich")) else ($ txt-> insert ( 'end', "Du bist weiblich"))` `}` `)` ==Listbox: == Listbox: CODE : CODE: `use Tk;` `Verwendung Tk;` `my $mw=new MainWindow();` `my $ mw = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> Raster ();` `my $lab=$frm->Label(-text=>"Gender:")->grid(-row=>0,-column=>0);` `my $ lab = $ frm-> Label (-text => "Gender :")-> Gitter (-row => 0,-column => 0);` `my $lst=$frm->Listbox(-selectmode=>'single',-width=>30,-height=>5)->grid(-row=>1,-column=>0);` `my $ lst = $ frm-> Listbox (-selectmode => 'einzigen',-width => 30,-height => 5) -> Raster (-row => 1,-column => 0);` `my $but=$frm->Button(-text=>"Go",-command=>\&button_push)->grid(-row=>2,-column=>0);` `my $ aber = $ frm-> Button (-text => "Go",-command => \ & button_push) -> Raster (-row => 2,-column => 0);` `my $txt=$frm->Text(-width=>30,-height=>5)->grid(-row=>3,-column=>0);` `my $ txt = $ frm-> Text (-width => 30,-height => 5) -> Raster (-row => 3,-column => 0);` `$lst->insert('end',"Male");` `$ lst-> insert ( 'end', "Male");` `$lst->insert('end',"Female");` `$ lst-> insert ( 'end', "weiblich");` `MainLoop;` `Hauptschleife;` `sub button_push{` `Unter button_push (` `my $selected=$lst->curselection();` `my $ selected = $ LST-> curselection ();` `my $gender=$lst->get($selected);` `my $ Geschlecht = $ LST-> get ($ Auswahl);` `$txt->insert('end',"You selected $gender.\n");` `$ txt-> insert ( 'end', "Sie haben $ Geschlecht. \ n");` `}` `)` ==Scrollbars embedded within Text-Areas: == Scrollbars eingebettet in Text-Areas: CODE : CODE: `use Tk;` `Verwendung Tk;` `my $mw=new MainWindow;` `my $ mw = new MainWindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> Raster ();` `my $txt=$frm->Text(-wrap=>'none',-width=>40,-height=>10)->grid(-row=>0,-column=>0);` `my $ txt = $ frm-> Text (-wrap => "keine",-width => 40,-height => 10) -> Raster (-row => 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]) -> Raster (-row => 0,-column => 1,-sticky => "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]) -> Raster (-row => 1,-column => 0,-sticky => "EW");` `$txt -> configure(-yscrollcommand=>['set', $srl_y],-xscrollcommand=>['set',$srl_x]);` `$ txt -> configure (-yscrollcommand => [ 'set', $ srl_y],-xscrollcommand => [ 'set', $ srl_x]);` `MainLoop;` `Hauptschleife;` ==Menus: == Menüs: CODE : CODE: `use Tk;` `Verwendung Tk;` `$mw = new MainWindow;` `$ mw = new MainWindow;` `my $frm = $mw -> Frame() -> grid();` `my $ frm = $ mw -> Frame () -> Raster ();` `my $mbar = $mw -> Menu();` `my $ mbar = $ mw -> Menü ();` `$mw -> configure(-menu => $mbar);` `$ mw -> configure (-menu => $ mbar);` `my $file = $mbar -> cascade(-label=>"File", -underline=>0, -tearoff => 0);` `my $ file = $ mbar -> Kaskade (-label => "Datei",-unterstreichen => 0,-tearoff => 0);` `my $edt = $mbar -> cascade(-label =>"Edit", -underline=>0, -tearoff => 0);` `edt my $ = $ mbar -> Kaskade (-label => "Bearbeiten", unterstreichen-=> 0,-tearoff => 0);` `my $hlp = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);` `my $ hlp = $ mbar -> Kaskade (-label => "Hilfe",-unterstreichen => 0,-tearoff => 0);` `$file -> command(-label => "New", -underline=>0,-command=>\&default);` `$ file -> Befehl (-label => "New", unterstreichen-=> 0,-command => \ & Standard);` `$file -> command(-label => "Open", -underline=>0,-command=>\&default);` `$ file -> Befehl (-label => "Öffnen", unterstreichen-=> 0,-command => \ & Standard);` `$file -> command(-label => "Save", -underline=>0,-command=>\&default);` `$ file -> Befehl (-label => "Speichern",-unterstreichen => 0,-command => \ & Standard);` `$file -> separator();` `$ file -> Trennzeichen ();` `$file -> command(-label =>"Exit", -underline => 1,-command => sub { exit } );` `$ file -> Befehl (-label => "Exit",-unterstreichen => 1,-command => sub (exit));` `$edt -> command(-label=>'Search',-underline=>0,-command=>\&default);` `$ edt -> Befehl (-label => 'Suchen',-unterstreichen => 0,-command => \ & Standard);` `$edt -> command(-label=>'Find and replace',-underline=>0,-command=>\&default);` `$ edt -> Befehl (-label => "Suchen und Ersetzen", unterstreichen-=> 0,-command => \ & Standard);` `my $helpoptions=$hlp -> cascade(-label=>"Help", -underline=>0, -tearoff => 0);` `my $ helpoptions = $ hlp -> Kaskade (-label => "Hilfe",-unterstreichen => 0,-tearoff => 0);` `$helpoptions -> command(-label => "About", -underline=>0,-command=>\&default);` `$ helpoptions -> Befehl (-label => "Über"-unterstreichen => 0,-command => \ & Standard);` `$helpoptions -> command(-label => "Usage", -underline=>0,-command=>\&default);` `$ helpoptions -> Befehl (-label => "Usage", unterstreichen-=> 0,-command => \ & Standard);` `MainLoop;` `Hauptschleife;` `sub default{` `Unter Standard (` `}` `)` ==Using multiple windows (Toplevels): == Verwendung von mehreren Fenstern (Toplevel): CODE : CODE: `use Tk;` `Verwendung Tk;` `my $mw=new MainWindow();` `my $ mw = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ mw-> Frame () -> Raster ();` `my $but=$frm->Button(-text=>">>Click to open a toplevel window<<",-command=>\&toplevel)->grid(-row=>1,-column=>0);` `my $ aber = $ frm-> Button (-text =>">> Klicken Sie auf, um eine Toplevel-Fenster <<",- command => \ & Toplevel) -> Raster (-row => 1,-column => 0) ;` `MainLoop;` `Hauptschleife;` `sub toplevel{` `Unter Toplevel (` `my $toplevel=new MainWindow();` `my $ Toplevel = new MainWindow ();` `my $toplevelfrm=$toplevel->Frame()->grid();` `my $ toplevelfrm = $ Toplevel-> Frame () -> Raster ();` `my $lab=$toplevelfrm->Label(-text=>"A Toplevel window!")->grid(-row=>1,-column=>0);` `my $ lab = $ toplevelfrm-> Label (-text => "Ein Toplevel-Fenster !")-> Gitter (-row => 1,-column => 0);` `MainLoop;` `Hauptschleife;` `}` `)` 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 Nun, das war's-hoffen, dass Sie dieser Leitfaden Anfänger, ich könnte später schreiben Artikel, die etwas komplexer Bereichen Perl Tk-Programmierung -ELJONTO \|\| Cyb3r_Shad0w -ELJONTO \| \| Cyb3r_Shad0w
Cast your vote on this article Stimmen Sie jetzt zu diesem Artikel Note: the order of the votes has been reversed. Hinweis: Die Reihenfolge der Stimmen wurde rückgängig gemacht.

Comments: Kommentare:
Published: 10 comments. Veröffentlicht: 10 Kommentare.

frag4lot - 03:59 am Tuesday January 15th, 2008 frag4lot - 03.59 Uhr Dienstag 15. Januar, 2008

weird, I was just looking in which language i\'d write an app for a company in,.. seltsam, ich war gerade suchen, in welcher Sprache I \ 'd schreiben Sie eine app für ein Unternehmen in, .. might just aswell do it in perl :D könnte genauso gut kann es in Perl: D

gj on this tutorial ;) GJ auf diesem Tutorial;)

eljonto - 04:26 am Tuesday January 15th, 2008 eljonto - 04.26 Uhr Dienstag 15. Januar, 2008

Thanks :) Vielen Dank:)
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. Seine wirklich einfach und ultra-schnelle auf-Code für kleine Zeit-Anwendungen, wobei für größere Anwendungen und Anwendungen, die stark auf die Geschwindigkeit und Leistung, würde ich nicht verwenden, perl-aber ich diesen Artikel schrieb trotzdem zu zeigen, die Perl-Kontrast.

liuyuan - 11:57 am Tuesday January 15th, 2008 liuyuan - 11.57 Uhr Dienstag 15. Januar, 2008

I\'m quite impressed by this article, a good read. I \ 'm sehr beeindruckt von diesem Artikel, ein gutes lesen.

eljonto - 04:22 pm Tuesday January 15th, 2008 eljonto - 04.22 Uhr Dienstag 15. Januar, 2008

thanks liuyuan :) Dank liuyuan:)

Kage - 02:56 pm Thursday February 07th, 2008 Kage - 02.56 Uhr Donnerstag 07 Februar 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 verwendet Perl für rund ein Jahrzehnt jetzt, und nie schriftlich ein GUI für alle meine Anwendungen (I \' ve bekannt über die Tk-Module, aber nie versucht \ 'em). A very good article, indeed. Ein sehr guter Artikel, in der Tat. May just have to try this. Mai müssen nur versuchen diese.

eljonto - 04:25 am Friday February 08th, 2008 eljonto - 04.25 Uhr Freitag 08. Februar, 2008

thanks, very easy to get the hang of Dank, sehr einfach, die hängen von

cleverhacker - 05:28 am Sunday March 09th, 2008 cleverhacker - 05.28 Uhr Sonntag 09. März, 2008

no it good es keine guten

eljonto - 12:39 am Wednesday March 19th, 2008 eljonto - 12.39 Uhr Mittwoch 19. März, 2008

thanks for the constructive comment 'clever' hacker Vielen Dank für die konstruktive Kommentar "clever" Hacker

fookyourshist - 07:45 pm Monday April 14th, 2008 fookyourshist - 07.45 Uhr Montag 14. April, 2008

Thats Awsome, it looks a bit similar to python's gui: jython. Das ist Awsome sieht es so aus, ein bisschen ähnlich wie Python's gui: Jython. Neat tutorial man! Neat Tutorial Mann! xDDDD

eljonto - 02:56 am Tuesday April 22nd, 2008 eljonto - 02.56 Uhr Dienstag 22. April, 2008

Thanks, as far as I know python also has its own Tk module which i would imagine being similar to perls Vielen Dank, soweit ich weiß python hat auch seine eigenen Tk-Modul, welches Ich könnte mir vorstellen, dass ähnlich wie Perls

This site is the collective work of the HackThisSite staff. Diese Website ist die kollektive Arbeit der HackThisSite Personal. Please don't reproduce in part or whole without permission. Bitte nicht reproduzieren teilweise oder ganz ohne Erlaubnis.
Page Generated: Mon, 01 Dec 2008 20:08:37 -0500 Exec: 10 Page Generated: Mon, 01 Dec 2008 20:08:37 -0500 Exec: 10
_{Page loaded in 0.19996 seconds!} _{Diese Seite wurde geladen in 0,19996 Sekunden!}

Donate Spenden

Challenges Herausforderungen

Get Informed Informieren Sie

Get Involved Get Involved

Communicate Kommunizieren

About HTS Über HTS

Translate Übersetzen

Partners Partner