Changeset 5597

Timestamp:

06/26/09 07:52:29 (3 years ago)

Author:

submersible_toaster

Message:

add default service to Swarm (Chat) , which will multicast announce when started.
add listener.pl - to watch the transport data
more icon vanity
enable/disable Swarm should send announce/farewell
still no user interface
still no _reading_ from multicast channels and firing Wx::Events

Location:

trunk/Padre-Plugin-Swarm

Files:

• lib/Padre/Plugin/Swarm.pm (modified) (9 diffs)
• lib/Padre/Swarm/Service (added)
• lib/Padre/Swarm/Service/Chat.pm (added)
• listener.pl (added)
• share/icons/padre/128x128 (added)
• share/icons/padre/128x128/status (added)
• share/icons/padre/128x128/status/padre-plugin-swarm.png (added)
• share/icons/padre/16x16/status/padre-plugin-swarm.png (modified) (previous)

trunk/Padre-Plugin-Swarm/lib/Padre/Plugin/Swarm.pm

@@ -8 +8 @@
 use Padre::Plugin   ();
 use Padre::Wx::Icon ();
-use Padre::Swarm::Transport::Multicast ();
+use Padre::Swarm::Service::Chat ();
 use File::Spec      ();
 
@@ -15 +15 @@
         get_config => 'config',
         get_services => 'services',
-        get_transports=>'transports',
     }
     ,
@@ -21 +20 @@
         set_config => 'config',
         set_services=>'services',
-        set_transports=>'transports',
     };
 
@@ -43 +41 @@
     'Swarm!';
 }
+
+sub plugin_icons_directory {
+    return File::Spec->catdir( shift->plugin_share_directory(@_), 'icons');
+}
+
 
 sub plugin_icon {
@@ -53 +56 @@
     Padre::Wx::Icon::find( 
             'status/padre-plugin-swarm',
+            { icons => $class->plugin_icons_directory },
     );
 }
+
+
 
 sub menu_plugins_simple {
@@ -69 +75 @@
     
     $self->_load_everything;
-    
-    $self->_start_transports;
     $self->_start_services;
     
@@ -79 +83 @@
     my $self = shift;
     $self->_shutdown_services;
-    $self->_shutdown_transports;
 }
 
@@ -94 +97 @@
 Surrender to the Swarm!
 END_MESSAGE
-    $about->SetIcon( Padre::Wx::Icon::find( 'status/padre-plugin-swarm' ) );
+    $about->SetIcon( 
+        Padre::Wx::Icon::find( 'status/padre-plugin-swarm',
+            {size => '128x128', icons=>$self->plugin_icons_directory } 
+        ) 
+    );
     # Show the About dialog
     Wx::AboutBox($about);
@@ -109 +116 @@
     my $config = $self->get_config; 
     # TODO bootstrap some config and construct
-    # services/transports. for now just multicast
-    
-    $self->set_transports(
-        {
-            Padre::Swarm::Transport::Multicast->transport_name
-                => Padre::Swarm::Transport::Multicast->new
-        }
-    );
-    
+    # services/transports. for now just chat
+
+    my $chat = Padre::Swarm::Service::Chat->new();
     $self->set_services(
         {
+            $chat->service_name => $chat,
         # Chat, remote cursor/editor damage 
         #  , watch this space.