Changeset 9661

Timestamp:

12/13/09 03:05:13 (2 years ago)

Author:

submersible_toaster

Message:

window dressing and label changes. fix warning due to misplaced next

File:

• trunk/Padre-Plugin-Swarm/lib/Padre/Wx/Swarm/Chat.pm (modified) (6 diffs)

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

@@ -107 +107 @@
 }
 
+sub plugin { Padre::Plugin::Swarm->instance };
+
 sub bottom {
     $_[0]->GetParent;
@@ -116 +118 @@
 
 sub gettext_label {
-    Wx::gettext('Swarm - Chat');
+    Wx::gettext('Chat');
 }
 
@@ -136 +138 @@
     my $bottom   = $self->bottom;
     my $position = $bottom->GetPageCount;
-    $bottom->InsertPage( $position, $self, gettext_label(), 0 );
+    my $pos = $bottom->InsertPage( $position, $self, gettext_label(), 0 );
+
+    my $icon = $self->plugin->plugin_icon;  
+    $bottom->SetPageBitmap($pos, $icon );
+    
     $self->Show;
     $bottom->SetSelection($position);
@@ -232 +238 @@
 sub accept_promote {
     my ($self,$message) = @_;
-    next unless $message->{service} =~ m/chat/i;
+    return unless $message->{service} =~ m/chat/i;
     
     my $text = sprintf '%s promotes a chat service', $message->from;
@@ -254 +260 @@
         $self->write_user_styled( $message->from , $message->from );
         $self->write_unstyled( ' ran' . $message->{filename}
-            . ' in YOUR editor but failed!! ' . $@ );
+            . ' in YOUR editor but failed!! ' . $@. "\n" );
     }
     else {
@@ -260 +266 @@
         $self->write_unstyled( ' ran ' . $message->{filename}
             . ' in YOUR editor successfully, returning '
-            . join ', ' , @result
+            . join (', ' , @result)
+            . "\n"
         );