Changeset 5603

Timestamp:

06/26/09 10:11:17 (3 years ago)

Author:

submersible_toaster

Message:

send and receive from padre via multicast chat...one input widget away

Location:

trunk/Padre-Plugin-Swarm/lib/Padre

Files:

• Swarm/Service/Chat.pm (modified) (2 diffs)
• Wx/Swarm/Chat.pm (modified) (3 diffs)

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

@@ -46 +46 @@
     my ($self,$text) = @_;
     $self->send(
-        { user => getlogin, says=>$text }
+        { user => getlogin, message=>$text }
     );
 }
@@ -53 +53 @@
     my ($self,$text,$entity) = @_;
     $self->send( 
-        { user => getlogin, says=>$text, to=>$entity }
+        { user => getlogin, message=>$text, to=>$entity }
     );
 }

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

@@ -22 +22 @@
         Wx::wxLC_REPORT | Wx::wxLC_SINGLE_SEL
     );
+    
     return $self;
+}
+
+sub service {
+    my $self = shift;
+    # Crikey!
+    $self->main->ide
+        ->plugin_manager->plugins
+            ->{Swarm}->object
+                ->get_services->{chat};
 }
 
@@ -84 +94 @@
 sub poll_service {
     my $self = shift;
-    my $main = $self->main;
-    my $swarm = $main->ide->plugin_manager->plugins->{Swarm}->object;
-    if (my $message = $swarm->get_services->{chat}->receive) {
+    my $service = $self->service;
+    if (my $message = $service->receive) {
         my $user = $message->{user} || 'unknown';
         my $ip   = $message->{client_address} || 'unknown';
@@ -93 +102 @@
             $user, $ip, $content
         );
-        $self->AppendText( $output . "\n" );
+        $self->AppendText( $output );
     }
+}
+
+sub tell_service {
+    my $self = shift;
+    my $body = shift;
+    my $args = shift;
+    my $service = $self->service;
+    $service->chat( $body );
+    
 }
 1;