Hugo

Este es un pequeño y sencillo módulo que facilita la inserción de imágenes en nuestros programas Perl-Gtk2, que interactúan ante eventos del ratón al pasar por encima de ellas o al pulsar en ellas. Es muy útil para la creación de botones interactivos, de ahí su nombre.

Su uso es muy sencillo. Se crea el objeto con los argumentos OFF (la imagen que se mostrará por defecto, ON (la que se mostrará al pasar por encima de OFF), CLICK (la que se mostrará al pulsar sobre la imagen) y SUB (la referencia a la subrutina que se ejecutará al pulsar sobre la imagen). El objeto devuelve una Gtk2::EventBox. Ejemplo:

my $eventbox = Botones->new(
      ON => $imagen_on,
      OFF => $imagen_off,
      CLICK => $imagen_click,
      SUB => \&mi_funcion
      );

El módulo: Botones.pm
Un programa de ejemplo: libbotones-perl_0.1.tar.gz
Un archivo .deb para instalar: libbotones-perl_0.1_all.deb