SoloCodigo

...puedo crear las lineas pero no se como hacer que sean uno solo con las imagenes. porfa como puedo haceer esto.

Esta parte no la entendi, aun asi sugiero que veas los demos o la documentacion.

Gracias -Su- por responderme y perdon por repetir el tema.

Bueno aqui te envio el codigo en el archivo adjunto que subi.

Aqui puedes ver lo que te digo tambien temuestro dos capturas de pantalla del programa corriendo.

Se puede añadir items y estos items quiero unirlos con lineas y que las lineas se redimensionen su tamaño al mover los items.
Y otro problema que tengo, es que el ToogleButton no se puede desactivar haz correr el programa y veras.
gracias y espero tu respuesta.

Te podria dar el codigo completo, pero no lo hare para que puedas aprender (metodo raro pero funciona   )

Primero que todo, en la primera linea ("#/usr/bin/perl -w") sobra el -w y seria mejor si pones #!/usr/bin/env perl

Segundo: haces muchos subs inecesarios, _init(), crear_ventana, crear_botones y crear frame sobran.

Tercero: cada vez que creas una variable y usas strict (el pragma) o tus codigos son grandes debes de usar el declarador lexico "my"

Cuato: "Dibujar" deberia ser un boto comun y corriente.

Cada item debe de tener un signal_connect miralos en la pagina que te puse.

Usa el pragma strict que te ayudara mucho y el resto, depronto te subo un codigo

Bueno, este es el codigo medio arreglado solo falta arreglar lo de dibujo:

El desactivar el boton de dibujo, el sigue dibujando y no se porque (es que no uso cosas de Gnome ) pero a nivel general el codigo ya es trabajable  

Hola -su- pudiste probar unir las imagenes con las lineas?

Hola -su- Sabes donde puedo encontrar codigo de programas hechos en gnome donde utilizan canvas?

Hola -su- Sabes algo de Gnome2::Canvas::Pathdef, donde hay ejemplos?

EN este momento lo he arrglado    


Asi debe ser esa funcion...

Teniendo en cuenta esto:

sub toogle_activation{
   my $doit = shift;
   if (defined $doit) {
  $drag = TRUE;
  $canvas->signal_connect(event => \&event_mouse);
   }
   else {
  $drag = FALSE;
   }
}