Ticket #195: padre.diff

PluginManager.pm

@@ -407 +407 @@
     my $name   = shift;
     my $plugin = $self->plugins->{$name}->{object};
 
+    # Provide the plugin with access to the output panel
+    # Patch by Richard Hainsworth
+    my $panel = $self->parent->wx->main_window->{gui}->{output_panel};
+    $plugin->{_say} = sub { $panel->AppendText($_[0]."\n")};
+    $plugin->{_clear} = sub {$panel->clear()};
+
     # Call the plugin's own enable method
     $plugin->plugin_enable;
 

Plugin.pm

@@ -432 +432 @@
     return 1;
 }
 
+
+=pod
+
+=head2 Access to results panel
+  Call two methods added to plugin object.
+  $self->say($string); # prints a string to the output_panel appending a \n
+  $self->clear; # clears the results panel.
+  These subs just tidy up the normal method calling syntax, calling code references
+  in the plugin object.
+  The idea of providing code references to the plugin object is to prevent the 
+  plugin from obtaining direct access to the Wx tree,
+  Patch by Richard Hainsworth
+  
+  sub say {
+    my ($self, $string) = @_;
+    &{$self->{_say}}($string);
+  };
+  
+  sub clear {
+    my $self = shift;
+    &{$self->{_clear}};
+  };
+
+=cut
+
+  sub say {
+    my ($self, $string) = @_;
+    &{$self->{_say}}($string);
+  };
+  
+  sub clear {
+    my $self = shift;
+    &{$self->{_clear}};
+  };
+
 1;
 
 =pod