Foro - Perl en Español

por **LeoSevilla** » 2014-02-01 15:52 @703

Hola, quiero hacer un script para Xchat usando Gtk y Glade. El problema es que llego a mostrar la ventana, pero cuando la cierro, esta me cierra también el Xchat.

Aquí la interfaz gráfica:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<glade-interface>
  <!-- interface-requires gtk+ 2.24 -->
  <!-- interface-naming-policy project-wide -->
  <widget class="GtkWindow" id="ventana">
    <property name="can_focus">False</property>
    <child>
      <widget class="GtkButton" id="boton">
        <property name="label" translatable="yes">button</property>
        <property name="visible">True</property>
        <property name="can_focus">True</property>
        <property name="receives_default">True</property>
        <property name="use_action_appearance">False</property>
        <signal name="clicked" handler="salir" swapped="no"/>
      </widget>
    </child>
  </widget>
</glade-interface>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El código perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
use Gtk2 -init;
use Gtk2::GladeXML;
 
Xchat::register( "Prog" , "0.1" , "Test" );
Xchat::print( "Loading script..\n" );
Xchat::hook_command( "cmd" , "win" );
 
sub win{
    my($programa, $ventana_principal, $boton_cerrar);
    $programa = Gtk2::GladeXML->new('glade.glade');
    $ventana_principal = $programa->get_widget('ventana');
    $boton_cerrar = $programa->get_widget('boton');
    $ventana_principal->show_all();
    $boton_cerrar->signal_connect(clicked => \&salir);
    Gtk2->main;
    return Xchat::EAT_XCHAT;
}
 
sub salir {Gtk2->main_quit;}
 
Xchat::print( "\0033Cargado con exito!\003\n" );
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Al cargarlo, mando el comando /cmd y se abre la ventana, pero para cerrar hay que pulsar dos veces sobre el botón (primer problema) y cuando se cierra, me cierra también el Xchat (el segundo).

Saludos, LeoSevilla.

cuando arranque el script, sé que se produce una vez, inmediatamente después de arrancar XChat. Entonces, lo que voy a hacer en ese momento es crear la estructura de la ventana, ya que solo necesito hacerlo una vez
luego, cuando se invoca el comando, lo que hago es mostrar la ventana
si el usuario pulsa el botón de cierre o quiere cerrar la ventana, lo que hago es cerrarla, pero no cierro la aplicación

Sería algo así (no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use Gtk2 -init;
use Gtk2::GladeXML;
 
Xchat::register( "Prog" , "0.1" , "Test" );
Xchat::print( "Loading script..\n" );
Xchat::hook_command( "cmd" , "win" );
 
# creación de la aplicación
my $programa          = Gtk2::GladeXML->new('glade.glade');
my $ventana_principal = $programa->get_widget('ventana');
 
# eventos
$ventana_principal->signal_connect (destroy => sub { close_event($ventana_principal) } );
 
# mostrar la ventana
sub win{
    $ventana_principal->show_all();
    return Xchat::EAT_XCHAT;
}
 
Xchat::print( "\0033Cargado con exito!\003\n" );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me he basado en lo que he visto en otros scripts XChat, como por ejemplo el LogViewer.

Fíjate que capturamos el evento de cierre de la ventana (el botón de cerrar en la barra de título de la ventana) y le decimos a la aplicación, no que cierre la aplicación, sino que cierre la ventana. Cuando el usuario vuelva a ejecutar el comando, debería volver a aparecer.

También, no está la llamada Gtk2->main, porque realmente ya estamos dentro de una aplicación Gtk2 (el XChat). Y esa es la causa de que cerrabas la aplicación al pulsar salir: había un Gtk2->main_quit, con lo que le estabas diciendo a XChat que se cerrara.

por **LeoSevilla** » 2014-02-01 19:53 @870

Muchas gracias.

Vi el código del xchat_logviewer y también por tus explicaciones pude que funcionara.

Comentar que probé tu código y funcionó pero con algunos errores, y en cuanto a la estructura de la ventana hay que cargarla cada vez que se ejecuta el comando, porque sino solo aparece bien la primera vez que se ejecuta el comando /cmd, las siguientes solo aparece una ventana básica sin el botón. Hice varias pruebas y pego el código que funciona ahora siempre, y aclarar que para probarlo hay que meter el xml en la carpeta raíz del Xchat, lo digo porque yo tengo los scripts en un subdirectorio de éste para que no se carguen en el inicio del Xchat.

archivo glade.glade

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<glade-interface>
  <!-- interface-requires gtk+ 2.24 -->
  <!-- interface-naming-policy project-wide -->
  <widget class="GtkWindow" id="ventana">
    <property name="can_focus">False</property>
    <child>
      <widget class="GtkHBox" id="hbox1">
        <property name="visible">True</property>
        <property name="can_focus">False</property>
        <child>
          <widget class="GtkButton" id="boton">
            <property name="label" translatable="yes">Salir</property>
            <property name="visible">True</property>
            <property name="can_focus">True</property>
            <property name="receives_default">True</property>
            <property name="use_action_appearance">False</property>
          </widget>
          <packing>
            <property name="expand">True</property>
            <property name="fill">True</property>
            <property name="position">0</property>
          </packing>
        </child>
        <child>
          <widget class="GtkButton" id="boton2">
            <property name="label" translatable="yes">Hola!</property>
            <property name="visible">True</property>
            <property name="can_focus">True</property>
            <property name="receives_default">True</property>
            <property name="use_action_appearance">False</property>
          </widget>
          <packing>
            <property name="expand">True</property>
            <property name="fill">True</property>
            <property name="position">1</property>
          </packing>
        </child>
      </widget>
    </child>
  </widget>
</glade-interface>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y el código perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use Gtk2 -init;
use Gtk2::GladeXML;
  
Xchat::register( "Prog" , "0.1" , "Test" );
Xchat::print( "Loading script..\n" );
Xchat::hook_command( "cmd" , "win" );
 
sub win{
    my $programa = Gtk2::GladeXML->new('glade.glade');
    my $ventana_principal = $programa->get_widget('ventana');
    my $boton_cerrar = $programa->get_widget('boton');
    my $boton_mostrar = $programa->get_widget('boton2');
    $ventana_principal->signal_connect (destroy => sub { close_event($ventana_principal) } );
    $boton_cerrar->signal_connect(clicked => sub { close_event($ventana_principal) } );
    $boton_mostrar->signal_connect(clicked => \&hacer_algo);
    $ventana_principal->show_all();
    return Xchat::EAT_XCHAT;
}
 
sub hacer_algo{
  Xchat::print( "\0033Hola!!!\n" );
}
 
sub close_event {
        my ($w) = @_;
        $w->destroy();
}
     
Xchat::print( "\0033Cargado con exito!\003\n" );
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sin más, de nuevo muchas gracias. Salu2 LeoSevilla

Foro - Perl en Español

Script para XChat con Gtk y Glade

Script para XChat con Gtk y Glade

Publicidad

Re: Script para XChat con Gtk y Glade

Re: Script para XChat con Gtk y Glade

¿Quién está conectado?