[gimp-perl/xsmulti: 1/3] partial for progressbar

[Ed J <edj src gnome org>]

commit 1cb1b68290ccc86edc3266aed700bf2a59ba63ff
Author: Ed J <edj src gnome org>
Date:   Thu Jan 8 19:19:18 2015 +0000

    partial for progressbar

 UI/UI.pm |    1 +
 UI/UI.xs |    8 ++++++++
 2 files changed, 9 insertions(+), 0 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index bbf7842..bcc864a 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -711,6 +711,7 @@ sub interact {
   $mainloop->run;
   die $exception_text if $exception_text;
   my @input_vals = map {&$_} @getvals if $res;
+  Gimp::on_proc(sub { warn "proc(@_)" });
   my @return_vals = $code->(@$silent_vals, @input_vals) if $res and $code;
   $w->destroy;
   return (0, \ input_vals, []) unless $res;
diff --git a/UI/UI.xs b/UI/UI.xs
index 3d770aa..44cdb47 100644
--- a/UI/UI.xs
+++ b/UI/UI.xs
@@ -443,6 +443,14 @@ BOOT:
 #void        gimp_pixmap_set      (GimpPixmap  *pixmap,
 #                                gchar      **xpm_data);
 
+MODULE = Gimp::UI PACKAGE = Gimp::UI::ProgressBar PREFIX = gimp_progress_bar_
+
+BOOT:
+       gperl_register_object (GIMP_TYPE_PROGRESS_BAR, "Gimp::UI::ProgressBar");
+
+GtkWidget * gimp_progress_bar_new (SV *unused_class)
+       C_ARGS:
+
 MODULE = Gimp::UI      PACKAGE = Gimp::UI::SizeEntry   PREFIX = gimp_size_entry_
 
 BOOT: