GTK2 :: Ex :: MindmapView GTK2 :: Ex :: MindMapView ist ein Perl-Modul, um Mind Map oder Gliederung auf einem Gnome2 :: Canvas anzuzeigen.
Jetzt downloaden

GTK2 :: Ex :: MindmapView Ranking & Zusammenfassung

GTK2 :: Ex :: MindmapView Stichworte

Geist Perl-Modul Anzeige Mindmap

GTK2 :: Ex :: MindmapView Beschreibung

GTK2 :: Ex :: MindMapView ist ein Perl-Modul, um Mind Map oder Gliederung auf einem Gnome2 :: Canvas anzuzeigen. GTK2 :: EX :: MindMapView ist ein Perl-Modul, um Mind Map oder Gliederung auf einem Gnome2 :: canvas.heicchy glib :: object + ---- gtk2 :: widget + - --GTK2 :: Container + ---- GTK2 :: Layout + ---- GNOME2 :: Canvas + ---- GTK2 :: EX :: mindmapViewSynopsis #! / Usr / bin / perl -wusse streng; Verwenden Sie GTK2 '-Init'; Verwenden Sie GNOME2 :: Canvas; Verwenden Sie GTK2 :: Ex :: MindmapView; Verwenden Sie GTK2 :: Ex :: MindMapView :: ItemFactory; mein $ window = gtk2 :: fenster-> neu (); mein $ scroller = gtk2 :: scroldwindow-> neu (); mein $ view = gtk2 :: ex :: MindMapView-> NEU (AA => 1); My $ Factory = GTK2 :: EX :: MindmapView :: ItemFactory-> NEU (Ansicht => $ View); $ View-> set_scroll_region (-350, -325,350,325); $ Scroller-> Hinzufügen ($ Ansicht); $ window-> signal_connect ('destren' => sub {_closeApp ($ View);}); $ window-> set_default_size (900,350); $ window-> add ($ scroller); My $ item1 = _text_item ($ Factory, "Hallo World!"); $ View-> add_item ($ item1); My $ item2 = _url_item ($ Factory, "Google-Suchmaschine", "http://www.google". comp "); -> layout (); $ window-> show_all (); gtk2-> main (); EXIT 0; SUB _CloseApp {My $ View = Shift (@_); $ View-> Zerstörung (); Gtk2-> main_quit (); Rückgabe 0;} sub _text_item {My ($ werks, $ text) = @_; Mein $ item = $ factory-> create_item (Border => 'gtk2 :: ex :: mindmapView :: rand :: loundedrect', content => 'gtk2 :: ex :: mindmapView :: content :: ellipSistext', text = > $ Text, Font_DESC => GTK2 :: Pango :: FontDecription-> from_string ("Ariel Italic 8"), HotSpot_Color_GDK => GTK2 :: GDK :: Color-> Parse ('lichtgreen')); $ item-> signal_connect (Ereignis => _ test_handler); Rückkehr $ Artikel;} sub _url_item {My ($ werks, $ text, $ url) = @_; mein $ browser = '/ usr / bin / firefox'; Mein $ item = $ factory-> create_item (Border => 'gtk2 :: ex :: mindmapView :: rand :: loundedrect', content => 'gtk2 :: ex :: mindmapview :: content :: uri', text = > $ Text, URI => $ URL, Browser => $ Browser, Text_color_gdk => GTK2 :: GDK :: Color-> Analyse ('blau'), fill_color_gdk => gtk2 :: gdk :: color-> parse (' Weiß')); $ item-> signal_connect (Ereignis => _ test_handler); Rückkehr $ Artikel;} sub _picture_item {My ($ werks, $ file) = @_; Mein $ pixbuf = gtk2 :: gdk :: pixbuf-> new_from_file ($ datei); Mein $ item = $ factory-> create_item (grenz => 'gtk2 :: ex :: mindmapView :: rand :: rechteck', content => 'gtk2 :: ex :: mindmapView :: content :: bild', pixbuf = > $ pixbuf, hotspot_color_gdk => gtk2 :: gdk :: color-> parse ('lichtgreen'), fill_color_gdk => gtk2 :: gdk :: color-> parse ('weiß')); $ item-> signal_connect (Ereignis => _ test_handler); Rücksendung $ Artikel;} sub _test_Handler {My ($ item, $ Event) = @_; mein $ event_type = $ Event-> Typ; meine @coords = $ Event-> -Oords; Drucken "Ereignis, Typ: $ Event_Type-Koordinome: @coordsn";} 1; Anforderungen: · Perl Anforderungen: · Perl.

GTK2 :: Ex :: MindmapView Zugehörige Software