[gimp-perl] Minor tidy-up.

[Ed J <edj src gnome org>]

commit 96841432afe36e5bf86f37189fead4cd0b7b5ee5
Author: Ed J <edj src gnome org>
Date:   Fri May 2 04:14:24 2014 +0100

    Minor tidy-up.

 TODO                 |    4 ++++
 examples/example-net |   24 ++++++++----------------
 2 files changed, 12 insertions(+), 16 deletions(-)
---
diff --git a/TODO b/TODO
index 3a4635e..74324ef 100644
--- a/TODO
+++ b/TODO
@@ -1,5 +1,9 @@
 Items as of 2014-04-29 (by Ed J)
 * possible killer app: https://mail.gnome.org/archives/gimp-developer-list/2014-April/msg00017.html
+* plugin refresh: load is
+  app/plug-in/gimppluginmanager.c:gimp_plug_in_manager_query_new, closedown
+  is ./app/plug-in/gimppluginmanager.c:gimp_plug_in_manager_exit
+  - issue with removing menus, probably stored in _plug_in data
 * <Load> and <Save> need any registration as such done in Gimp::Fu - see pod and e/dataurl
 * Gimp::Fu no -o needs give warning
 * Gimp::UI PF_IMAGE needs "open" button
diff --git a/examples/example-net b/examples/example-net
index 3170555..2273cb3 100755
--- a/examples/example-net
+++ b/examples/example-net
@@ -7,28 +7,20 @@ Gimp::on_lib {
 };
 
 # on_net is called if connecting to an already open Perl-Server, or if
-# spawning a gimp without an interface to run on.
-
+# spawning a GIMP without an interface to run on.
 Gimp::on_net {
-  # simple benchmark ;)
-  $img=new Gimp::Image(600,300,RGB);
-
-# the is the same as $img = new Gimp::Image(600,300,RGB)
-  $bg=$img->layer_new(30,20,RGB_IMAGE,"Background",100,NORMAL_MODE);
-# you have to add a layer after you create it
-  $bg->insert_layer(0,1);
-# Show it (this slows things down)
-  new Gimp::Display($img);
-
+  my $img=Gimp::Image->new(600,300,RGB);
+  my $bg=$img->layer_new(30,20,RGB_IMAGE,"Background",100,NORMAL_MODE);
+  $img->insert_layer($bg,0,1); # you have to add a layer after you create it
+  Gimp::Display->new($img); # Show it (this slows things down)
 # do a bunch of operations just as a speed test, flushing in between
-  Gimp::Context->push();
+  Gimp::Context->push;
   for $i (0..255) {
      Gimp::Context->set_background([$i,255-$i,$i]);
      $bg->edit_fill(BACKGROUND_FILL);
      Gimp::Display->displays_flush();
   }
-  Gimp::Context->pop();
-#  Gimp::Net::server_quit;  # kill the gimp-perl-server-extension (ugly name)
+  Gimp::Context->pop;
 };
 
 exit main;
@@ -40,5 +32,5 @@ example-net - Demonstrate use of Gimp-Perl "net mode"
 
 =head1 LICENSE
 
-Copyright Marc Lehman.
+Copyright Marc Lehmann.
 Distributed under the same terms as Gimp-Perl.