• Publicidad

Capturar el texto de un Label en Tk

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Capturar el texto de un Label en Tk

Notapor BigBear » 2010-12-16 15:28 @686

Hola a todos.

Ando teniendo una duda porque quiero capturar el texto de un label en
Tk y no sé cómo hacerlo.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Tk;
  2.  
  3. my $new = MainWindow->new;
  4. $new->Label(-text=>"hola")->pack();
  5.  
  6. MainLoop
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4



¿Alguien me podría ayudar a sacar ese simple "hola"?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Capturar el texto de un Label en Tk

Notapor explorer » 2010-12-16 15:43 @697

En este hilo tienes un ejemplo de la función get() para una etiqueta.

que-boton-se-active-con-un-enter-t5167.html


(Usa el sistema de búsqueda para buscar más ejemplos de Tk en estos foros).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Capturar el texto de un Label en Tk

Notapor BigBear » 2010-12-16 17:03 @752

No sé si me expliqué mal o leí mal, pero no quiero modificar el valor de hola; solo quiero tener en una variable el texto de ese botón. Perdón si me equivoco.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Capturar el texto de un Label en Tk

Notapor explorer » 2010-12-16 18:12 @800

Entonces el ejemplo que te he mandado no vale, porque ahí se ve como se obtiene el valor de un campo de texto, no de una label.

En ese caso, debes usar el método cget(). Sería algo así (probado):

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Tk;
  2. my $new = MainWindow->new;
  3.  
  4. my $etiqueta = $new->Label(-text=>"hola")->pack();
  5.  
  6. print $etiqueta->cget('-text'), "\n";
  7.  
  8. MainLoop;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

En este caso, como es muy simple, no hemos creado capturadores de eventos, por lo que necesitamos pintar el valor de la etiqueta antes de entrar en el bucle sin fin del MainLoop.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 52 invitados