Common subdirectories: /home/richard/development/Sandbox/padre/DB and /usr/local/share/perl/5.10.0/Padre/DB
Common subdirectories: /home/richard/development/Sandbox/padre/Document and /usr/local/share/perl/5.10.0/Padre/Document
Only in /home/richard/development/Sandbox/padre: padre.diff
Common subdirectories: /home/richard/development/Sandbox/padre/Plugin and /usr/local/share/perl/5.10.0/Padre/Plugin
diff -u /home/richard/development/Sandbox/padre/PluginManager.pm /usr/local/share/perl/5.10.0/Padre/PluginManager.pm
--- /home/richard/development/Sandbox/padre/PluginManager.pm	2009-01-02 13:17:27.000000000 +0300
+++ /usr/local/share/perl/5.10.0/Padre/PluginManager.pm	2009-01-02 15:12:59.000000000 +0300
@@ -407,6 +407,12 @@
 	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;
 
diff -u /home/richard/development/Sandbox/padre/Plugin.pm /usr/local/share/perl/5.10.0/Padre/Plugin.pm
--- /home/richard/development/Sandbox/padre/Plugin.pm	2009-01-02 15:00:37.000000000 +0300
+++ /usr/local/share/perl/5.10.0/Padre/Plugin.pm	2009-01-02 14:53:48.000000000 +0300
@@ -432,6 +432,41 @@
 	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
Common subdirectories: /home/richard/development/Sandbox/padre/Pod and /usr/local/share/perl/5.10.0/Padre/Pod
Common subdirectories: /home/richard/development/Sandbox/padre/Project and /usr/local/share/perl/5.10.0/Padre/Project
Common subdirectories: /home/richard/development/Sandbox/padre/Task and /usr/local/share/perl/5.10.0/Padre/Task
Common subdirectories: /home/richard/development/Sandbox/padre/Wx and /usr/local/share/perl/5.10.0/Padre/Wx