Hack este sitio!

[ Advertise With HackThisSite.org :: Hide These Ads ] [Anúnciate con HackThisSite.org:: Ocultar estos anuncios]

Nerds don't just happen to dress informally. Nerds no sólo a pasar con vestido informalmente. They do it too consistently. Lo hacen demasiado coherente. Consciously or not, they dress informally as a prophylactic measure against stupidity. Conscientemente o no, vestido informalmente como una medida profiláctica contra la estupidez.

HTS costs up to $300 a month to operate. HTS gastos de hasta $ 300 al mes para funcionar. We need your help! Necesitamos tu ayuda!

Donors also receive special recognition on our donors page. Los donantes también recibirán un reconocimiento especial a nuestros donantes página.

FR DE ES IT PT FR DE ES IT PT

Link to us! Enlace con nosotros!

phoenix free shells Phoenix libre de los depósitos
hackergames.net hackergames.net
PullThePlug PullThePlug

GUI's in perl GUI en perl
Published by: eljonto , on 2008-01-13 19:04:49 Publicado por: eljonto, sobre 2008-01-13 19:04:49
\|A guide to writing event-driven GUI applications in Perl using the Tk module. \| Una guía para la escritura evento-impulsados por las aplicaciones GUI en Perl utilizando el módulo Tk. \| \|Wirtten by ELJONTO\Cyb3r_Shad0w (Both are me). \| Wirtten por ELJONTO \ Cyb3r_Shad0w (Ambos están conmigo). \| ________________________________________________________________________________ Contents: Sumario: -Introduction -Introducción -Notes on global/local variables -Notas sobre el global / local variables -Mainwindow/widget and argument syntax -Mainwindow/widget Argumento y sintaxis -Geometry managers -Geometría administradores -Structure of a Perl Tk program -Estructura de un programa Perl Tk -Common widgets and widget arguments -Común y widgets widget argumentos -Configuring widgets -Configuración de widgets -Example of a perl Tk application -Ejemplo de una aplicación perl Tk -Anatomy of example application -Anatomía de ejemplo de aplicación -Example programs using different widgets -Ejemplo utilizando diferentes programas de widgets -Label, Entry Fields, Buttons and Text-Areas -Label, campos, botones y áreas de texto -Dropdown boxes -Desplegable cajas -Listbox -De lista -Scrollbars embedded within Text-Areas -Incrustado en las barras de desplazamiento de áreas de texto -Menus -Menús -Using multiple windows (Toplevels) -Uso de múltiples ventanas (Toplevels) -Outro INTRODUCTION: INTRODUCCIÓN: People always assume perl to be a simple scripting language with basic acess to web scripting, however this is not so. La gente siempre asumirá perl a ser un simple lenguaje de scripting con acceso a base de secuencias de comandos web, sin embargo esto no es así. Perl is so much more, and with the use of user-written modules can have amazing capabilities on a variety of topics. Perl es mucho más, y con el uso de usuario escrito módulos pueden tener capacidades sorprendentes en una variedad de temas. In this article i'll show you how to make use of the Perl::Tk module to create event-orientated GUI applications. En este artículo te mostraré cómo hacer uso de la Perl:: módulo Tk para crear eventos orientados a las aplicaciones GUI. NOTES ON GLOBAL AND LOCAL VARIABLES: Notas sobre el mundial y las variables locales: Before we begin, you'll notice most variables have 'my' in front of them. Antes de comenzar, verás que hay más variables' mi 'delante de ellos. This is to make the variables 'local'. Esto es para que las variables' 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'. Esto significa que si una variable tiene 'mi' delante de ella, sólo podrán ser utilizados en la función que es pulg Esto significa que usted puede utilizar muchas variables con los mismos nombres en distintas funciones, siempre y cuando declare a ser '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'. En perl, no es un error redeclare a una variable, por lo que asegúrate de saber si desea que las variables a ser 'local' o 'global'. Global means the variable can be acessed and used by all functions. Mundial de la variable medio puede ser acessed y utilizados por todas las funciones. To make a variable 'global' just omit the 'my' in front of it. Para hacer una variable "global" sólo omitir el 'mi' delante de ella. MAINWINDOW/WIDGET AND ARGUMENT SYNTAX: MainWindow / widget y argumento de sintaxis: Good, now with that out the way we can begin. Bueno, ahora que, con la forma en que puede comenzar. To make your main window, you need to assign it a variable so that it can incorporate widgets (Things like labels, buttons etc). Para hacer que su ventana principal, es necesario asignarle una variable a fin de que pueda incorporar widgets (Cosas como etiquetas, botones, etc.) And all widgets need to be assigned to a variable so that you can access them. Y todos los artilugios deben ser asignados a una variable de modo que usted pueda acceder a ellos. To make a new mainwindow and assign it to a variable you follow this syntax: Para hacer un nuevo MainWindow y asignar a una variable de seguir esta sintaxis: CODE : CÓDIGO: `$mainwindow=new MainWindow();` `$ MainWindow MainWindow = new ();` To make a new widget and assign it to a variable you folow this syntax: Para hacer un nuevo artilugio y asignar a una variable que Siga esta sintaxis: CODE : CÓDIGO: `$variable=$frame/mainwindow->Widget(arguments)->geometrymanager(arguments);` `$ variable = $ frame/mainwindow-> Widget (argumentos) -> geometrymanager (argumentos);` widgets can take as many arguments as they can allow, and arguments follow this syntax and are separated by commas: widgets pueden tomar como muchos argumentos, ya que puede permitir, y los argumentos siguen esta sintaxis y están separados por comas: CODE : CÓDIGO: `-argument=>value,` `-argumento => valor,` There are many, many widgets available so in this article i'll only cover a few most commonly used ones. Hay muchos, muchos widgets disponibles para en este artículo voy a cubrir sólo unos pocos más comúnmente utilizadas. GEOMETRY MANAGERS: GEOMETRÍA GESTORES: Geometry managers are how your Mainwindow is formatted to accommodate all of your widgets. Geometría son los administradores de la forma en que su formato es MainWindow para dar cabida a todos sus widgets. The four types of most commonly-used geometry managers are: pack(), grid(), place() and form(). Los cuatro tipos de la mayoría de los comúnmente utilizados son los administradores de la geometría: pack (), red (), lugar () y 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 gestor de la geometría para empacar widgets en una ventana llenando el widget en ciertas posiciones en un cierto orden o con el fin de la declaración. grid(): A geometry manager to arrange all of your widgets into an imaginary 'grid'. red (): Un gestor de la geometría para organizar todos tus widgets en un imaginario 'grid'. so all you widgets are positioned in a cell according to a row/column. para que todos los widgets que se colocan en una celda de acuerdo con una fila / columna. place():A geometry manager to situate widgets at given x,y co-ordinates. lugar (): Un gestor de la geometría a situar a los widgets en x, y coordina. form(): A geometry manager that combines use of pack() and place() to create a very powerful method of arranging your Tk window. formulario (): Un gestor de la geometría que combina el uso de pack () y lugar () para crear un método muy poderoso de la organización de sus conocimientos tradicionales ventana. 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. Yo casi siempre uso la red (), simplemente porque es muy fácil de aprender y adaptarse para todos los usos, y muy de gran alcance para los simples o aplicaciones avanzadas. However if you are creating a large-scale perl Tk GUI app (unlikely) you should probably use place() or form(). Sin embargo, si usted está creando una gran escala perl-Tk aplicación GUI (poco probable) probablemente deba utilizar el lugar () o forma (). For smaller apps pack() or grid() are just fine. Para aplicaciones más pequeñas pack () o red () son sólo multa. Because this is a beginners guide- I will only show you the use of grid().The basic arguments for grid include: Debido a que esta es una guía de los principiantes-I sólo mostrará el uso de la red (). Los argumentos básicos de la red incluyen: -row=>x, fila => x, -column=>x, columna => x, -rowspan=>x, (how many rows should accommodate widget) -rowspan => x (número de filas debe acomodar widget) -columnspan=>x, (how many columns should accommodate widget) -columnspan => x (número de columnas debe acomodar 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). -pegajoso => x, (utilizado para pegar al lado de la celda es el widget en postioned, el valor puede ser 'n', 's',' e ',' w ',' ne ',' NW ', 'ns',' se ',' SW ',' EW '. Para' ns' y 'EW' que se extenderá el widget en esa dirección para adaptarse a la celda). There are more arguments, which you can read up about, but those are the only neccessary basics. Hay más argumentos, que usted puede leer, pero esos son los únicos elementos básicos necesarios. STRUCTURE OF A PERL TK PROGRAM: Estructura de un programa de los conocimientos tradicionales de perl: All perl Tk applications are structured as follows: Todas las aplicaciones de Perl Tk se estructuran de la siguiente manera: CODE : CÓDIGO: `GUI building code` `GUI de construcción` `MainLoop;` `Mainloop;` `functions and subroutines` `funciones y subrutinas` All perl Tk applications MUST have a 'MainLoop', otherwise they won't work. Todas las aplicaciones de Perl Tk DEBE tener un "mainloop ', de lo contrario no funcionará. MainLoop; separates the GUI building code from the subroutines and functions that get called by user-interaction with the widgets when run. Mainloop; separa a la construcción de la GUI del código de la subrutinas y las funciones que son llamados por los usuarios la interacción con los widgets cuando se ejecuta. Above MainLoop; you write all GUI building code, the mainwindows, the frames, the widgets. Sobre mainloop; escribir todos los códigos de construcción GUI, el mainwindows, los marcos, los widgets. Below the MainLoop; you have all functions and subroutines that get called by user-interaction. Debajo de la mainloop; usted tiene todas las funciones y subrutinas que son llamados por interacción por parte del usuario. COMMON WIDGETS AND WIDGET ARGUMENTS: Común y widgets widget argumentos: Below are a few of the most commonly used widgets in GUI applications, please note that capitaliasation is important: A continuación se presentan algunos de los más comúnmente utilizados widgets en aplicaciones GUI, por favor, nota que capitaliasation es importante: Label() -display some text Label ()-pantalla de texto Button() -display a button (duh) Botón ()-mostrar un botón (duh) Entry() -display a field to enter text Entrada ()-mostrar un campo para introducir texto Text() -display a textarea Texto ()-una pantalla de texto Menu() -configure a menu for you application Menú ()-configurar un menú para su solicitud Optionmenu() -display a drop-down box of options Optionmenu ()-mostrar un cuadro desplegable de opciones ProgressBar() -display a graphical aid of progress completed (loading bar etc) ProgressBar ()-una pantalla gráfica de la ayuda de los progresos terminado (la barra de carga etc) getOpenFile() -displays the default navigation window to a location and file to open getOpenFile ()-muestra la ventana de navegación por defecto en una ubicación y un archivo para abrir getSaveFile() -displays the default navigation window to a location and file to save getSaveFile ()-muestra la ventana de navegación por defecto en una ubicación y un archivo para guardar Scrollbar() -displays a scroll bar to be embedded into a text-area or other compatible widget Barra de desplazamiento ()-muestra una barra de desplazamiento para ser empotrado en un área de texto u otro compatible widget Below are some arguments that can be used with most widgets: A continuación se presentan algunos argumentos que pueden utilizarse con la mayoría de widgets: -bg=>'x', or -background=>x, Can take arguments as 'black' or '#000000' etc -bg => 'x', o de fondo => x, se puede tener argumentos como "negro" o "# 000000", etc -fg=>x, or -foreground=>x, Same follows as background -fg => x,-o adquiridos => x, el mismo sigue como antecedentes -activebackground=>'x', or '#000000' etc. Colour of background when cursor is hovering over it. -activebackground => 'x', o '# 000000' etc Color de fondo cuando el cursor se cierne sobre él. -activeforegroud=>'x', or '#000000' etc. Colour of foreground when cursor is hovering over it. -activeforegroud => 'x', o '# 000000' etc color de primer plano cuando el cursor se cierne sobre él. -text=>"x", -text => "x", -width=>x, -width => x, -height=>x, -height => x, -command=>\&subfunction, or -command=>sub{statements;}, -comando => \ & subfunction, o mando => sub (declaraciones;), -variable=>\$var, -variable => \ $ var, CONFIGURING WIDGETS: CONFIGURACIÓN WIDGETS: Once widgets have been initialised, you can change or configure the widget without having to create it again. Una vez que los widgets se han inicializado, puede cambiar o configurar el widget sin tener que crear de nuevo. You do this as follows: Usted puede hacer esto de la siguiente manera: CODE : CÓDIGO: `$widgetvar->configure(re-declare arguments you want to change);` `$ widgetvar-> Configurar (re-declarar los argumentos que desea cambiar);` Some widgets allow the program to enter information as well as the user, widgets such as a textarea or an entry field. Algunos widgets permitir que el programa para introducir la información, así como el usuario, widgets, como un texto o un campo de entrada. This is done as follows: Esto se hace de la siguiente manera: CODE : CÓDIGO: `$widgetvar->insert('postion',"to insert");` `$ widgetvar-> insertar ( 'posición', "insertar");` The position can be numerical- 1.0 for the beginning etc, or text- 'end' etc. La posición puede ser numérico-1.0 para el comienzo etc, o texto "final" etc EXAMPLE OF A PERL TK APPLICATION: Un ejemplo de aplicación los conocimientos tradicionales de perl: Ok, here I will show you how to use what you know and create a basic perl tk application. Ok, aquí voy a mostrar cómo utilizar lo que sabes y crear una base perl tk aplicación. 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. Este siguiente ejemplo le mostrará cómo hacer una ventana, añadir widgets básicos, y los datos recogidos widget con el uso de get () dentro de una subrutina. CODE : CÓDIGO: `use Tk;` `uso de los conocimientos tradicionales;` `my $mw=new MainWindow();` `my $ MW = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ MW-> Frame () -> red ();` `my $label=$frm->Label(-text=>"Enter your name:")->grid(-row=>0,-column=>0,-sticky=>'w');` `my $ etiqueta = $ frm-> Label (-text => "Escriba su nombre :")-> red (-fila => 0, columna => 0,-pegajoso => 'w');` `my $entrybox=$frm->Entry()->grid(-row=>0,-column=>1);` `mi entrybox $ = $ frm-> Entrada () -> red (-fila => 0, columna => 1);` `my $gobutton=$frm->Button(-text=>"go",-command=>\&function1)->grid(-row=>0,-column=>2,-sticky=>'e');` `mi gobutton $ = $ frm-> Botón (-text => "ir", y mando => \ & FUNCTION1) -> red (-fila => 0, columna => 2,-pegajoso => 'e');` `my $textarea=$frm->Text(-width=>30,-height=>5)->grid(-row=>2,-column=>0,-columnspan=>3);` `my $ texto = $ frm-> Texto (-width => 30,-height => 5) -> red (-fila => 2, columna => 0,-columnspan => 3);` `MainLoop;` `Mainloop;` `sub function1{` `FUNCTION1 sub (` `my $name=$entrybox->get();` `my $ nombre = $ entrybox-> get ();` `$textarea->insert('end',"Hello $name\n");` `$ texto-> insertar ( "end", "Hola $ nombre \ n");` `}` `)` ANATOMY OF EXAMPLE APPLICATION: Anatomía de aplicación de ejemplo: line 1: Tells compiler that we need to use the Tk module. Línea 1: Indica el compilador que tenemos que utilizar el módulo Tk. line 2: Creates a new Tk window and binds it to a variable. Línea 2: Crea una nueva ventana Tk y se une a una variable. line 3: Creates a new frame to hold widgets and stores the frame inside our new window. Línea 3: Crea un nuevo marco para celebrar widgets y tiendas dentro del marco de nuestra nueva ventana. line 4: Creates a label to dislay text, places it to grid co-ords and places the label inside of our frame. línea 4: Crea una etiqueta de texto dislay, lugares a la red co-ords y lugares dentro de la etiqueta de nuestro marco. line 5: Creates an entry field to input text, places it to grid co-ords and places the entry inside of our frame. línea 5: Crea un campo de entrada de texto de entrada, lo coloca a la red co-ords y lugares de la entrada dentro de nuestro marco. 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. Línea 6: Crea un botón para mostrar texto e iniciar nuestra subrutina, los lugares a la red co-ords y lugares en el botón dentro de nuestro marco. 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. Línea 7: Crea una zona de texto a dislay texto que se le da, lo coloca a la red co-ords lugares y el área de texto dentro de nuestro marco. line 8: Signifies GUI base-building code complete. Línea 8: Significa GUI base de la creación de código completo. line 9: Creates subroutine "function1". línea 9: Crea subrutina "FUNCTION1". line 10:Uses get() to collect data from entrybox and saves it into variable $name. línea 10: Utilización get () para recoger datos de entrybox y la guarda en la variable $ nombre. line 11:Inserts "helo $name" into our text-area widget. línea 11: Inserta "helo $ name" en nuestro texto-zona widget. line 12:Ends subroutine "function1". línea 12: Fin subrutina "FUNCTION1". EXAMPLE PROGRAMS USING DIFFERENT WIDGETS: Programas de ejemplo utilizando diferentes artilugios: Here are a few very short programs making use of some of the widgets we've talked about. Aquí hay muy pocos programas de corto haciendo uso de algunos de los widgets que hemos hablado. ==Label, Entry Fields, Buttons and Text-Areas: == Label, campos, botones y áreas de texto: See "Example of a perl Tk application" above. Consulte la sección "Ejemplo de una aplicación perl Tk" por encima. ==Dropdown boxes: == Desplegable casillas: CODE : CÓDIGO: `use Tk;` `uso de los conocimientos tradicionales;` `my $mw=new MainWindow;` `my $ MW = new MainWindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ MW-> Frame () -> red ();` `my $lab=$frm->Label(-text=>"Choose option:")->grid(-row=>0,-column=>0);` `mi laboratorio $ = $ frm-> Label (-text => "Seleccione la opción :")-> red (-fila => 0, columna => 0);` `my $dropdownbox=$frm->Optionmenu(-options=>["Male", "Female"],-variable=>\$var)->grid(-row=>1,-column=>0);` `mi dropdownbox $ = $ frm-> Optionmenu (-options => [ "Hombres", "Mujeres"],-variable => \ $ var) -> red (-fila => 1, columna => 0);` `my $txt=$frm->Text(-width=>20,-height=>10)->grid(-row=>2,-column=>0);` `my $ txt = $ frm-> Texto (-width => 20,-height => 10) -> red (-fila => 2, columna => 0);` `my $button=$frm->Button(-text=>"Go",-command=>\&maleorfemale)->grid(-row=>3,-column=>0);` `my $ botón = $ frm-> Botón (-text => "Ir", y mando => \ & maleorfemale) -> red (-fila => 3, columna => 0);` `MainLoop;` `Mainloop;` `sub maleorfemale {` `maleorfemale sub (` `if($var eq 'Male'){$txt->insert('end',"You are Male")}else{$txt->insert('end',"You are female")}` `if ($ var eq 'Hombres') ($ txt-> insertar ( "end", "Eres Hombre")) else ($ txt-> insertar ( "end", "Ustedes son mujeres"))` `}` `)` ==Listbox: == De lista: CODE : CÓDIGO: `use Tk;` `uso de los conocimientos tradicionales;` `my $mw=new MainWindow();` `my $ MW = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ MW-> Frame () -> red ();` `my $lab=$frm->Label(-text=>"Gender:")->grid(-row=>0,-column=>0);` `mi laboratorio $ = $ frm-> Label (-text => "El género :")-> red (-fila => 0, columna => 0);` `my $lst=$frm->Listbox(-selectmode=>'single',-width=>30,-height=>5)->grid(-row=>1,-column=>0);` `LST my $ = $ frm-> de lista (-selectmode => 'single',-width => 30,-height => 5) -> red (-fila => 1, columna => 0);` `my $but=$frm->Button(-text=>"Go",-command=>\&button_push)->grid(-row=>2,-column=>0);` `pero mi $ = $ frm-> Botón (-text => "Ir", y mando => \ & button_push) -> red (-fila => 2, columna => 0);` `my $txt=$frm->Text(-width=>30,-height=>5)->grid(-row=>3,-column=>0);` `my $ txt = $ frm-> Texto (-width => 30,-height => 5) -> red (-fila => 3, columna => 0);` `$lst->insert('end',"Male");` `$ LST-> insertar ( "end", "Hombres");` `$lst->insert('end',"Female");` `$ LST-> insertar ( "end", "Mujeres");` `MainLoop;` `Mainloop;` `sub button_push{` `button_push sub (` `my $selected=$lst->curselection();` `my $ seleccionado = $ LST-> curselection ();` `my $gender=$lst->get($selected);` `my $ = $ género LST-> get ($ seleccionado);` `$txt->insert('end',"You selected $gender.\n");` `$ txt-> insertar ( "end", "Ha seleccionado $ género. \ n");` `}` `)` ==Scrollbars embedded within Text-Areas: == Incrustados en las barras de desplazamiento de áreas de texto: CODE : CÓDIGO: `use Tk;` `uso de los conocimientos tradicionales;` `my $mw=new MainWindow;` `my $ MW = new MainWindow;` `my $frm=$mw->Frame()->grid();` `my $ frm = $ MW-> Frame () -> red ();` `my $txt=$frm->Text(-wrap=>'none',-width=>40,-height=>10)->grid(-row=>0,-column=>0);` `my $ txt = $ frm-> Texto (-wrap => 'ninguno',-width => 40,-height => 10) -> red (-fila => 0, columna => 0);` `my $srl_y=$frm->Scrollbar(-orient=>'v',-command=>[yview => $txt])->grid(-row=>0,-column=>1,-sticky=>"ns");` `mi srl_y $ = $ frm-> barra de desplazamiento (-orientar => 'v',-command => [yview => $ txt]) -> red (-fila => 0, columna => 1,-pegajoso => "ns");` `my $srl_x=$frm->Scrollbar(-orient=>'h',-command=>[xview => $txt])->grid(-row=>1,-column=>0,-sticky=>"ew");` `mi srl_x $ = $ frm-> barra de desplazamiento (-orientar => 'h',-command => [xview => $ txt]) -> red (-fila => 1, columna => 0,-pegajoso => "EW");` `$txt -> configure(-yscrollcommand=>['set', $srl_y],-xscrollcommand=>['set',$srl_x]);` `$ txt -> configurar (-yscrollcommand => [ 'conjunto', $ srl_y],-xscrollcommand => [ 'conjunto', $ srl_x]);` `MainLoop;` `Mainloop;` ==Menus: == Menús: CODE : CÓDIGO: `use Tk;` `uso de los conocimientos tradicionales;` `$mw = new MainWindow;` `$ MW = new MainWindow;` `my $frm = $mw -> Frame() -> grid();` `my $ frm = $ MW -> Marco () -> red ();` `my $mbar = $mw -> Menu();` `my $ mbar = $ MW -> Menu ();` `$mw -> configure(-menu => $mbar);` `$ MW -> configurar (menú => $ mbar);` `my $file = $mbar -> cascade(-label=>"File", -underline=>0, -tearoff => 0);` `my $ archivo = $ mbar -> cascada (-label => "Archivo", subrayan-=> 0,-tearoff => 0);` `my $edt = $mbar -> cascade(-label =>"Edit", -underline=>0, -tearoff => 0);` `mi edt $ = $ mbar -> cascada (-label => "Editar", subrayan-=> 0,-tearoff => 0);` `my $hlp = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);` `my $ = $ hlp mbar -> cascada (-label => "Ayuda", subrayan-=> 0,-tearoff => 0);` `$file -> command(-label => "New", -underline=>0,-command=>\&default);` `$ archivo -> comando (-label => "Nuevo", subrayan-=> 0, y mando => \ & por defecto);` `$file -> command(-label => "Open", -underline=>0,-command=>\&default);` `$ archivo -> comando (-label => "Abrir", subrayan-=> 0, y mando => \ & por defecto);` `$file -> command(-label => "Save", -underline=>0,-command=>\&default);` `$ archivo -> comando (-label => "Guardar", subrayan-=> 0, y mando => \ & por defecto);` `$file -> separator();` `$ archivo -> separador ();` `$file -> command(-label =>"Exit", -underline => 1,-command => sub { exit } );` `$ archivo -> comando (-label => "Salir", subrayan-=> 1, y mando => sub () salida);` `$edt -> command(-label=>'Search',-underline=>0,-command=>\&default);` `$ edt -> comando (-label => 'Buscar', subrayan-=> 0, y mando => \ & por defecto);` `$edt -> command(-label=>'Find and replace',-underline=>0,-command=>\&default);` `$ edt -> comando (-label => 'Buscar y reemplazar ", subrayan-=> 0, y mando => \ & por defecto);` `my $helpoptions=$hlp -> cascade(-label=>"Help", -underline=>0, -tearoff => 0);` `my $ = $ helpoptions hlp -> cascada (-label => "Ayuda", subrayan-=> 0,-tearoff => 0);` `$helpoptions -> command(-label => "About", -underline=>0,-command=>\&default);` `$ helpoptions -> comando (-label => "Acerca de", subrayan-=> 0, y mando => \ & por defecto);` `$helpoptions -> command(-label => "Usage", -underline=>0,-command=>\&default);` `$ helpoptions -> comando (-label => "Uso", subrayan-=> 0, y mando => \ & por defecto);` `MainLoop;` `Mainloop;` `sub default{` `por defecto sub (` `}` `)` ==Using multiple windows (Toplevels): == Uso de múltiples ventanas (Toplevels): CODE : CÓDIGO: `use Tk;` `uso de los conocimientos tradicionales;` `my $mw=new MainWindow();` `my $ MW = new MainWindow ();` `my $frm=$mw->Frame()->grid();` `my $ frm = $ MW-> Frame () -> red ();` `my $but=$frm->Button(-text=>">>Click to open a toplevel window<<",-command=>\&toplevel)->grid(-row=>1,-column=>0);` `pero mi $ = $ frm-> Botón (texto =>">> Haga clic aquí para abrir una ventana TopLevel <<",- comando => \ & TopLevel) -> red (-fila => 1, columna => 0) ;` `MainLoop;` `Mainloop;` `sub toplevel{` `TopLevel sub (` `my $toplevel=new MainWindow();` `my $ TopLevel MainWindow = new ();` `my $toplevelfrm=$toplevel->Frame()->grid();` `my $ = $ toplevelfrm TopLevel-> Frame () -> red ();` `my $lab=$toplevelfrm->Label(-text=>"A Toplevel window!")->grid(-row=>1,-column=>0);` `mi laboratorio $ = $ toplevelfrm-> Label (-text => "Una ventana TopLevel !")-> red (-fila => 1, columna => 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 Bueno, eso es todo-Espero que hayan disfrutado de esta guía de principiantes, yo podría escribir artículos que abarcan más tarde un poco más complejas áreas de programación Perl Tk -ELJONTO \|\| Cyb3r_Shad0w -ELJONTO \| \| Cyb3r_Shad0w
Cast your vote on this article Emitir su voto sobre este artículo Note: the order of the votes has been reversed. Nota: el orden de los votos se ha invertido.

Comments: Comentarios:
Published: 10 comments. Publicado: 10 comentarios.

frag4lot - 03:59 am Tuesday January 15th, 2008 frag4lot - 03:59 horas Martes 15 de enero, 2008

weird, I was just looking in which language i\'d write an app for a company in,.. raro, yo estaba buscando el idioma en el que i \ 'd escribir una aplicación para una empresa en, .. might just aswell do it in perl :D podría muy bien hacerlo en perl: D

gj on this tutorial ;) GJ sobre este tutorial;)

eljonto - 04:26 am Tuesday January 15th, 2008 eljonto - 04:26 horas Martes 15 de enero, 2008

Thanks :) Gracias:)
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. Su muy simple y ultra-rápido a código para las pequeñas aplicaciones de tiempo, aunque de mayor escala de aplicaciones y aplicaciones que dependen en gran medida de la velocidad y el rendimiento, yo no uso perl-, pero escribí este artículo de todas maneras para mostrar el contraste perl.

liuyuan - 11:57 am Tuesday January 15th, 2008 liuyuan - 11:57 horas Martes 15 de enero, 2008

I\'m quite impressed by this article, a good read. I \ 'm muy impresionado por este artículo, una buena lectura.

eljonto - 04:22 pm Tuesday January 15th, 2008 eljonto - 04:22 PM martes 15 de enero, 2008

thanks liuyuan :) liuyuan gracias:)

Kage - 02:56 pm Thursday February 07th, 2008 Kage - 02:56 pm Jueves 07 de febrero, 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 \ 'he utilizado Perl para alrededor de una década, y nunca por escrito una GUI para cualquiera de mis aplicaciones (I \' ve sabe acerca de los conocimientos tradicionales módulos, pero nunca intentó \ 'em). A very good article, indeed. Un muy buen artículo, de hecho. May just have to try this. Mayo sólo tienes que probar esto.

eljonto - 04:25 am Friday February 08th, 2008 eljonto - 04:25 horas Viernes 08 de febrero, 2008

thanks, very easy to get the hang of gracias, muy fácil de colgar la

cleverhacker - 05:28 am Sunday March 09th, 2008 cleverhacker - 05:28 horas del domingo 09 de marzo, 2008

no it good no es buena

eljonto - 12:39 am Wednesday March 19th, 2008 eljonto - 12:39 horas Miércoles 19 de marzo, 2008

thanks for the constructive comment 'clever' hacker gracias por el comentario constructivo 'inteligente' hacker

fookyourshist - 07:45 pm Monday April 14th, 2008 fookyourshist - 07:45 pm de lunes 14 de abril, 2008

Thats Awsome, it looks a bit similar to python's gui: jython. Thats Awsome, parece un poco similar a la gui python: jython. Neat tutorial man! Ligero tutorial hombre! xDDDD

eljonto - 02:56 am Tuesday April 22nd, 2008 eljonto - 02:56 horas Martes 22 de abril, 2008

Thanks, as far as I know python also has its own Tk module which i would imagine being similar to perls Gracias, por lo que sé python también tiene su propio módulo Tk que me imagino que similar a Perls

This site is the collective work of the HackThisSite staff. Este sitio es el trabajo colectivo de la HackThisSite personal. Please don't reproduce in part or whole without permission. Por favor, no reproducir en parte o su totalidad sin permiso.
Page Generated: Mon, 01 Dec 2008 20:13:36 -0500 Exec: 10 Página de creación: Lunes, 01 diciembre 2008 20:13:36 -0500 Ejec: 10
_{Page loaded in 0.11648 seconds!} _{Page cargado en 0,11648 segundos!}

Donate Donar

Challenges Retos

Get Informed Infórmese

Get Involved ¡Participa!

Communicate Comunicar

About HTS Acerca de HTS

Translate Traducir

Partners Socios