[gimp-perl] Use <Toolbox> where appropriate.

[Ed J <edj src gnome org>]

commit 43eb6e3c16ff31e673956eb297c2b1347db36c9f
Author: Ed J <edj src gnome org>
Date:   Sat May 24 00:35:25 2014 +0100

    Use <Toolbox> where appropriate.

 Net/Net.pm                 |    1 +
 examples/Perl-Console      |   23 ++++-------------------
 examples/Perl-Server       |    2 +-
 examples/example-extension |    2 +-
 4 files changed, 7 insertions(+), 21 deletions(-)
---
diff --git a/Net/Net.pm b/Net/Net.pm
index 99e0190..b2edb38 100644
--- a/Net/Net.pm
+++ b/Net/Net.pm
@@ -395,6 +395,7 @@ sub perl_server_run {
      setup_listen_tcp(":$DEFAULT_TCP_PORT") if $use_tcp && $auth;
   }
   Gtk2->main;
+  ();
 }
 
 sub perl_server_quit {
diff --git a/examples/Perl-Console b/examples/Perl-Console
index 54f3daf..e9e8a2a 100644
--- a/examples/Perl-Console
+++ b/examples/Perl-Console
@@ -3,7 +3,7 @@
 use strict;
 #BEGIN { $Gimp::verbose = 1; }
 use Gimp;
-use Gimp::Pod;
+use Gimp::Fu;
 use Gtk2::Gdk::Keysyms;
 
 my $INIT_TEXT = "Gimp-Perl Console v1.0\n\n";
@@ -20,10 +20,7 @@ my %KEYVAL2HANDLER = (
 my @history;
 my $history_index = 0;
 
-my $pod = Gimp::Pod->new;
-my ($proc, $blurb) = $pod->section('NAME') =~ /(.*?)\s*-\s*(.*)/;
-
-Gimp::register_callback $proc => sub {
+podregister {
   Gimp::gtk_init;
   my $window = Gtk2::Window->new('toplevel');
   $window->signal_connect('delete_event' => sub { Gtk2->main_quit; });
@@ -34,19 +31,7 @@ Gimp::register_callback $proc => sub {
   Gtk2->main;
 };
 
-Gimp::on_net { Gimp::callback($proc); };
-
-Gimp::on_query {
-  Gimp->install_procedure(
-    $proc, $blurb,
-    (map $pod->section($_), qw(DESCRIPTION AUTHOR LICENSE DATE SYNOPSIS)),
-    undef, &Gimp::PLUGIN,
-    [[PDB_INT32, 'run_mode', "Run-mode"]],
-    [],
-  );
-};
-
-exit Gimp::main;
+exit main;
 
 sub key_return {
   my ($e, $buffer) = @_;
@@ -140,7 +125,7 @@ perl_fu_console - Gimp-Perl console
 
 =head1 SYNOPSIS
 
-<Image>/Filters/Languages/_Perl/_Console
+<Toolbox>/Filters/Languages/_Perl/_Console
 
 =head1 DESCRIPTION
 
diff --git a/examples/Perl-Server b/examples/Perl-Server
index 50ab9f2..8b8ee20 100755
--- a/examples/Perl-Server
+++ b/examples/Perl-Server
@@ -19,7 +19,7 @@ extension_perl_server - Gimp-Perl scripts net server
 
 =head1 SYNOPSIS
 
-<Image>/Filters/Languages/_Perl/_Server
+<Toolbox>/Filters/Languages/_Perl/_Server
 
 =head1 DESCRIPTION
 
diff --git a/examples/example-extension b/examples/example-extension
index b0d3e77..0f21701 100755
--- a/examples/example-extension
+++ b/examples/example-extension
@@ -18,7 +18,7 @@ extension_demo - Demo extension showing persistent data
 
 =head1 SYNOPSIS
 
-<Image>/Filters/Languages/_Perl/_Extension Demo
+<Toolbox>/Filters/Languages/_Perl/_Extension Demo
 
 =head1 DESCRIPTION