see plug-ins/perl/Changes

plug-ins/perl/examples/example-oo

@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+# this extension shows some oo-like calls
+
+# it's really easy
+
+use Gimp;
+
+# the extension that's called.
+sub plug_in_example_oo {
+  my $img=new Image(300,200,RGB);
+
+  my $bg=new Layer($img,300,200,RGB_IMAGE,"Background",100,NORMAL_MODE);
+
+  Palette->set_background([200,200,100]);
+
+  $bg->fill(BG_IMAGE_FILL);
+#  Palette->set_background([200,100,200]);
+#  gimp_drawable_fill ($bg,BG_IMAGE_FILL);
+  $img->add_layer($bg,1);
+
+  new Display($img);
+}
+
+Gimp::on_run {
+  plug_in_example_oo;
+};
+
+Gimp::on_query {
+  gimp_install_procedure("plug_in_example_oo", "a test plug-in in perl",
+                         "try it out", "Marc Lehmann", "Marc Lehmann", "1998-04-27",
+                         N_"<Toolbox>/Xtns/Perl Example Plug-in", "*", PROC_EXTENSION,
+                         [[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
+};
+
+exit main;
+