Foro - Perl en Español

por **proxy_lainux** » 2009-05-10 20:38 @901

Hola

Una pregunta... ¿cómo puedo hacer esto en un TextView?

Código: Seleccionar todo: "\n"

Es que todo me aparece así

Código: Seleccionar todo: holamundoadiosmundo

y quisiera que me apareciera así en el textview

Código: Seleccionar todo: hola mundo adios mundo

También quisiera saber si puedo aumentar el tamaño a un TextEntry tanto vertical como horizontal.

salu2

Ok, lo siento.

Esto fue con lo que aprendí a hacer un textview

TextView

Para lidiar con regiones de texto ( + 1 linea) tendremos que jugar, como mínimo, con dos widgets: Gtk2::TextView y Gtk2::TextBuffer. Hay muchos mas (Gtk2::TextIter, Gtk2::TextTag, Gtk2::TextMark ...), pero para visualizar poco texto, es suficiente con estos dos. Con el widget Gtk2::TextBuffer administraremos el texto.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Creamos un buffer de texto
$buffer= Gtk2::TextBuffer->new;
# Insertamos el texto de la variable texto en la posición del cursor
$buffer->insert_at_cursor($texto);
# Creamos el widget visor de texto y lo llenamos con el contenido de $buffer
$visor=new Gtk2::TextView();
$visor->set_buffer($buffer)Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Es como una caja de texto para Gtk2.

El problema es que cuando le agrego información, todo me aparece así:

Código: Seleccionar todo: holamundoadiosmundo

y quisiera saber si es posible que me aparezca así

Código: Seleccionar todo: hola mundo adios mundo

Ya intenté agregándole un scroll, pero se sigue visualizando igual.

Aunque tengo una duda...

widgets: Gtk2::TextView y Gtk2::TextBuffer...pero para visualizar poco texto, es suficiente con estos dos.

Y lo quiero para visualizar todo el mensaje de un mail, pero no sé si textview me sirve para lo que necesito ¿o sería mejor utilizar otra cosa?, ¿ustedes qué me recomiendan y/o cómo puedo hacer que el mensaje me aparezca en vertical cuando entre en textview?

salu2

por **explorer** » 2009-05-11 11:55 @538

Encontré, en los tutoriales que hay por Internet, dos formas de trabajar.

En http://forgeftp.novell.com//gtk2-perl-s ... x2553.html

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 43                     my$tview= Gtk2::TextView->new();

 44                             my$content=`cat ./lyrics.txt`;

 45                     my$buffer=$tview->get_buffer();

 46                     $buffer->set_text($content);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

ves que el texto se lee desde un fichero y se mete directamente al control TextView.

En http://www.mogaal.com/articulos/perl-gl ... html#toc13

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

### Declaro un buffer que contendrá la información, estará vacío
### pero ya al menos tenemos una referencia a él para luego 
### poder introducir información.

$buffer_de_texto= Gtk2::TextBuffer->new;
my$archivo_seleccionado=$ventana_selector_de_archivos->get_filename;
open(LISTA,"$archivo_seleccionado")||die('No pude abrir el archivo');
while(<LISTA>){
### Se lee cada línea del archivo y a su vez se introduce 
### al buffer que declaramos anteriormente.
$buffer_de_texto->insert_at_cursor("$_");
}
close(LISTA);

### Ahora le asigno a la vista de texto el buffer ya atestado
### de información.
$vista_de_texto->set_buffer($buffer_de_texto);
$ventana_selector_de_archivos->hide;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aquí ves como se van agregando las líneas, una a una a un ojeto TextBuffer. Y al final, se asigna a un objeto $vista_de_texto (TreeView).

Parece que hay varias formas de hacerlo...

por **proxy_lainux** » 2009-05-11 14:47 @657

Hola

No puedo creerlo, solo hice esto y ya lo logré:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach($reco->Body(1)){
$buff->insert_at_cursor("$_\n");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Únicamente incluí "\n" junto a $_, y lo había hecho pero en el buffer y así: && "\n" ó (,"\n") y pues ninguno me funcionaba...

Ahora, tengo unas dudas con esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

/^(Subject):\s+/Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me imagino que /^ busca en una cadena Subject, ¿no?

¿Por qué después de (Subject) se agrega esto: :?

Después \s busca una separación, ¿no?

pero ¿por qué después se agrega esto: +/. Esto, ¿qué significa?

También tengo este problema... al crear un label y un TextEntry, me aparecen así:

Código: Seleccionar todo: label <------------------------------> TextEntry

TextEntry es como una caja de texto (Gtk2::Entry).

Pero como mencioné me aparecen así, el label muy separado del borde de la ventana (Gtk2::WIndow) y también el label y el textentry están muy separados...

Código: Seleccionar todo: <----------> Subject <---------------------------> |_____________________|

y me gustaría que me aparecieran así, el label más cerca del borde de la ventana y el label junto con el textentry más unidos... algo así:

Código: Seleccionar todo: Subject |______________________|

Ya intenté moverle a HBox(Gtk2::HBox) pero solo logro separarlos más, y unirlos no puedo, y tampoco con set_justify; también intente buscar un poco sobre label en Gtk, pero no sé si no entendí o no encontré algo que me sirviera, aunque vi que colocaban labels en frames y les aparecían más unidas las cosas, ¿pero alguien sabe algo de esto...?

salu2

por **explorer** » 2009-05-11 15:10 @674

Sí, suele pasar que si no enseñas el código, no podemos ver los errores más evidentes

Sobre la expresión regular

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

/^(Subject):\s+/Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

quiere decir: Busca, al comienzo de la línea (^) la palabra Subject, y la guardas en $1 (por efecto de los paréntesis de captura), que esté seguida del carácter ':', y seguida por uno o más (+) caracteres espacio en blanco (\s).

En cuanto a la posición de los componentes gráficos, creo que hay que ajustar las banderas de espaciado a la hora de colocarles en el componente padre.

por **proxy_lainux** » 2009-05-11 17:21 @764

No entendí bien: ¿cómo que acomodar las banderas de espaciado?... ¿hay alguna función para buscar en Google sobre eso?

Mientras les dejo este código... ya me fijé y el problema creo que está en esta parte del código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$tree->set_size_request(700,300);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

si lo quitan queda todo mas unido, pero si lo colocan de nuevo... los labels se separan mucho

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use Glib qw/TRUE FALSE/;
use Gtk2 '-init';

$win= Gtk2::Window->new('toplevel');
$win->set_title('Belial & Grimoire');
$win->set_border_width(5);
$win->signal_connect(delete_event =>sub{Gtk2->main_quit()});

$box1= Gtk2::HBox->new(FALSE,1);
$box= Gtk2::HBox->new(FALSE,1);
$vbox= Gtk2::VBox->new(FALSE,5);

my$lab= Gtk2::Label->new;
$lab->set_text('subject');

my$te= Gtk2::Entry->new;
$te->append_text('holaa');
my$lab2= Gtk2::Label->new;
$lab2->set_text('subject');

my$te2= Gtk2::Entry->new;
$te2->append_text('holaaa');

$tree= Gtk2::TreeView->new;
$tree->set_size_request(700,300);
my$scr= Gtk2::ScrolledWindow->new(undef,undef);
$scr->set_policy('always','always');
$scr->set_shadow_type('in');
$scr->add($tree);

$box1->add($lab);
$box1->add($te);
$box->add($lab2);
$box->add($te2);

$vbox->pack_end($scr,FALSE,FALSE,1);
$vbox->pack_end($sep= Gtk2::HSeparator->new,FALSE,FALSE,1);
$vbox->pack_end($box,FALSE,FALSE,1);
$vbox->pack_end($sep= Gtk2::HSeparator->new,FALSE,FALSE,1);
$vbox->pack_end($box1,FALSE,FALSE,1);

$win->add($vbox);
$win->show_all;


Gtk2->main;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

También con ScrolledWindow lo coloca así

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$scr= Gtk2::ScrolledWindow->new;
$scr->set_policy('never','always');
$scr->set_shadow_type('in');Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y le meten información a TreeView, se hace grande automáticamente, pero las cosas se separan también...

Y necesito hacer que TreeView esté grande y que lo demás se quede unido, ¿hay alguna forma de hacer eso?

por **explorer** » 2009-05-11 18:38 @818

Mirando el ejemplo, y usando pack_start en lugar de pack_end, sí que sale como quieres:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#use strict;
#use warnings;
#use diagnostics;

use Glib qw/TRUE FALSE/;
use Gtk2 '-init';

$win= Gtk2::Window->new('toplevel');
$win->set_title('Belial & Grimoire');
$win->set_border_width(5);
$win->signal_connect(delete_event =>sub{Gtk2->main_quit()});

my$vbox= Gtk2::VBox->new(FALSE, 0);

my$hbox1= Gtk2::HBox->new(FALSE,0);

my$label1= Gtk2::Label->new('subject1');
#        $label1->set_alignment(0.0, 0.0);
my$entry1= Gtk2::Entry->new;
$entry1->append_text('hola1');
$entry1->set_alignment(0.0);

$hbox1->pack_start($label1, FALSE, FALSE, 10);
$hbox1->pack_start($entry1, FALSE, FALSE, 0);

$vbox->pack_start($hbox1, FALSE, FALSE, 0);
$vbox->pack_start(Gtk2::HSeparator->new(),FALSE,FALSE,3);

my$hbox2= Gtk2::HBox->new(FALSE,0);

my$label2= Gtk2::Label->new('subject2');
#        $label2->set_alignment(0.0, 0.0);
my$entry2= Gtk2::Entry->new;
$entry2->append_text('hola2');
$entry2->set_alignment(0.0);

$hbox2->pack_start($label2, FALSE, FALSE, 10);
$hbox2->pack_start($entry2, FALSE, FALSE, 0);

$vbox->pack_start($hbox2, FALSE, FALSE, 0);
$vbox->pack_start(Gtk2::HSeparator->new(),FALSE,FALSE,3);

my$scr= Gtk2::ScrolledWindow->new(undef,undef);
$scr->set_policy('always','always');
$scr->set_shadow_type('in');

my$tree= Gtk2::TreeView->new;
$tree->set_size_request(700,300);

$scr->add($tree);

$vbox->pack_start($scr, FALSE, FALSE, 0);


$win->add($vbox);
$win->show_all;


Gtk2->main;

__END__Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **proxy_lainux** » 2009-05-11 21:41 @945

Hola.

Muchas gracias por la ayuda... espero no te esté molestando con tantas preguntas... jeje XD

Entonces, debo cambiar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$box->add()Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por pack_start(), ¿cierto?... así voy colocando las cosas en horizontal, y por lo que veo lo coloca pack_start() en la parte izquierda... y ya después con vbox le digo en qué parte verticalmente se va a colocar, ¿cierto?

O por lo menos espero haber entendido...

Una pregunta... ¿existe algo parecido a TreeView en Perl?

por **explorer** » 2009-05-12 03:32 @189

Sí, en efecto, cambiando add() por pack_start() ya funciona.

En cuanto a TreeView en Perl, no. Aunque se parece mucho a un arreglo de arreglos.

Foro - Perl en Español

Ayuda con TextView y TextEntry

Ayuda con TextView y TextEntry

Publicidad

¿Quién está conectado?