Foro - Perl en Español

por **natxo** » 2010-03-14 14:28 @644

Hola:

Quiero crear una interfaz gráfica con curses y he visto que existe el módulo Curses::UI.

Esto funciona (crea un 'navegador´ para elegir un archivo):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Curses::UI;
my$cui= Curses::UI->new();
my$file=$cui->loadfilebrowser();

if(defined$file){
$cui->dialog("you selected $file");
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y esto me saca un calendario:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$date=$cui->calendardialog();

if(defined$date){
$cui->dialog("you selected $date");
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me interesaría también sacar una caja en la que se pudiera introducir texto. Según la documentación, lo que necesito es Curses::UI::TextEditor.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$cui=new Curses::UI;
my$win=$cui->add('window_id','Window');

my$editor=$win->add(
'myeditor','TextEditor',
-vscrollbar => 1,
-wrapping   => 1,
);

$editor->focus();
my$text=$editor->get();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Este código no funciona, no da errores, simplemente no sucede nada al ejecutarlo y me devuelve a mi prompt.

No sé dónde está el error. ¿Alguna idea?

#!/usr/bin/perl
use Curses::UI;
 
my $cui = Curses::UI->new();
 
my $texto_a_editar = "Un ejemplo de texto a editar";
 
## Menú
# Definición
my @menu = (
    {
        -label => 'File',
        -submenu => [
            { -label => 'Exit      ^Q', -value => \&exit_dialog  }
        ]
    },
);
 
# Objeto menú, lo añadimos al UI
my $menu = $cui->add(
    'menu','Menubar',
    -menu => \@menu,
    -fg  => "blue",
);
 
## Ventana
my $win1 = $cui->add(
    'win1', 'Window',
    -border => 1,
    -y    => 1,
    -bfg  => 'red',
);
 
# Objeto texto editable, lo añadimos a la ventana
my $texteditor = $win1->add("text", "TextEditor",
    -text => $texto_a_editar,
);
 
## Definición de teclas
$cui->set_binding(sub {$menu->focus()}, "\cX"); # activa el menú
$cui->set_binding( \&exit_dialog , "\cQ");      # termina
 
 
$texteditor->focus();                           # foco en el texto
 
$cui->mainloop();                               # ¡Adelante!
 
sub exit_dialog {                               # en caso de salir...
    my $return = $cui->dialog(
        -message   => "¿Realmente quiere salir?",
        -title     => "¿Está seguro?",
        -buttons   => ['yes', 'no'],
    );
 
    $cui->dialog( $texteditor->get() );         # presentamos el texto editado
 
    exit(0) if $return;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

mainloop() es la que que encarga de repartir los eventos. En este ejemplo, captura dos combinaciones de teclado (control-X y control-Q) para activar dos subrutinas. Y todo lo demás se lo pasa al objeto TextEditor.

Cuando pulsas control-Q, se ejecuta la subrutina exit_dialog(), que primero muestra una confirmación al usuario, y luego muestra, en otra caja de diálogo, el texto hasta ahora introducido.

(Ejemplo sacado de Curses::UI::Tutorial)

por **natxo** » 2010-03-16 16:33 @731

Ok, gracias por tu respuesta y tus comentarios. Este Curses::UI es un módulo muy bonito. A ver si tengo tiempo de estudiarlo con más tranquilidad (ahora estoy a tope de curro y no tengo la tranquilidad necesaria para ponerme a trastear con él, por desgracia).

Foro - Perl en Español

Curses::UI

Curses::UI

Publicidad

Re: Curses::UI

Re: Curses::UI

¿Quién está conectado?