| Gtk2 :: ex :: mentalmapview GTK2 :: EX :: MINDMAPVIEW es un módulo PERL para mostrar mapa mental o esquema en un GNOME2 :: lienzo. |
Descargar ahora |
Gtk2 :: ex :: mentalmapview Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- James Muir
- Sitio web del editor:
- http://search.cpan.org/~hemlock/Gtk2-Ex-MindMapView-0.000001/lib/Gtk2/Ex/MindMapView/ContentFactory.pm
Gtk2 :: ex :: mentalmapview Etiquetas
Gtk2 :: ex :: mentalmapview Descripción
GTK2 :: EX :: MINDMAPVIEW es un módulo PERL para mostrar mapa mental o esquema en un GNOME2 :: lienzo. GTK2 :: EX :: MINDMAPVIEW es un módulo PERL para mostrar mapa mental o esquema en un GNOME2 :: Canvas.Heirarchy Glib :: Objeto + ---- GTK2 :: Objeto + ---- GTK2 :: Widget + - --Gtk2 :: contenedor + ---- gtk2 :: diseño + ---- gnome2 :: lienzo + ---- gtk2 :: ex :: mentalmapviewsnopsis #! / Usr / bin / perl -wuse estricto; Use GTK2 '-init'; Use gnome2 :: lienzo; use gtk2 :: ex :: mightmapview; Use GTK2 :: EX :: MINDMAPVIEW :: ItemFactory; My $ Window = GTK2 :: Ventana-> Nuevo (); My $ Scroller = GTK2 :: ScrolledWindow-> Nuevo (); My $ View = GTK2 :: EX :: MINMMAPVIEW-> Nuevo (AA => 1); MY $ FACTORY = GTK2 :: EX :: MINDMAPVIEW :: ITS ItemFactory-> Nuevo (Ver => $ Ver); $ Ver-> Set_Scroll_region (-350, -325,350,325); $ Scroller-> Agregar ($ Vista); $ Window-> Signal_Connect ('Destroy' => Sub {_CLOSEAPP ($ Vista);}); $ ventana-> set_default_size (900,350); $ ventana-> agregue ($ scroller); My $ Item1 = _Text_Item ($ Fábrica, "¡Hola mundo!"); $ Ver-> Add_Item ($ Item1); My $ Item2 = _Url_Item ($ fábrica, "motor de búsqueda de Google", "http://www.google. com "); $ Ver-> ADD_ITEM ($ Item1, $ Item2); My $ Item3 = _picture_item ($ fábrica," ./monalisa.jpeg");$view-8, ítem_$item1, $ Item3); $ Ver -> Diseño (); $ ventana-> show_all (); gtk2-> principal (); salida 0; sub _CLOSEAPP {MY $ View = Shift (@_); $ vista-> destruir (); Gtk2-> main_quit (); Devolver 0;} Sub _Text_Item {My ($ fábrica, $ texto) = @_; My $ item = $ Factory-> Create_item (frontera => 'gtk2 :: ex :: mentalmapview :: fronteriz :: roundedrect', content => 'gtk2 :: ex :: mighmapapview :: contenido :: ellipsistExt', texto = > $ Texto, Font_Desc => GTK2 :: Pango :: FontdeScription-> FromString ("Ariel Italic 8"), hotspot_color_gdk => gtk2 :: gdk :: color-> analizar ('lightgreen')); $ item-> Signal_Connect (evento => _ test_handler); Devuelva $ artículo;} Sub _Url_Item {My ($ Factory, $ Text, $ URL) = @_; My $ Browser = '/ usr / bin / Firefox'; My $ item = $ Factory-> Create_item (frontera => 'gtk2 :: ex :: mentalmapview :: fronteriz :: roundedrect', content => 'gtk2 :: ex :: mentalmapview :: contenido :: uri', texto = > $ TEXT, URI => $ URL, navegador => $ navegador, text_color_gdk => gtk2 :: gdk :: color-> parse ('azul'), fill_color_gdk => gtk2 :: gdk :: color-> analizar (' blanco')); $ item-> Signal_Connect (evento => _ test_handler); Devuelve $ artículo;} sub _picture_item {my ($ fábrica, $ file) = @_; My $ PIXBUF = GTK2 :: GDK :: PIXBUF-> NEW_FROM_FILE ($ FILO); My $ item = $ Factory-> Create_item (frontera => 'gtk2 :: ex :: mentalmapview :: frontera :: rectángulo', content => 'gtk2 :: ex :: mighmapwview :: contenido ::imagen', pixbuf = > $ PIXBUF, HOTSPOT_COLOR_GDK => GTK2 :: GDK :: Color-> Parsin ('lightGreen'), Fill_Color_gdk => GTK2 :: GDK :: Color-> Parse ('blanco')); $ item-> Signal_Connect (evento => _ test_handler); Devuelve $ artículo;} sub _test_handler {my ($ item, $ event) = @_; My $ Event_Type = $ event-> Type; mis @Coords = $ event-> coords; Imprimir "Evento, Tipo: $ Event_Type Coords: @Coordsn";} 1; Requisitos: · Requisitos de Perl: · Perl
Gtk2 :: ex :: mentalmapview Software relacionado