[gimp-perl] Use gimp_window_set_transient. Bug 727578.

[Ed J <edj src gnome org>]

commit 43c2745ba21b22aca9cb3102cd83abd87562e453
Author: Ed J <edj src gnome org>
Date:   Tue Jun 10 08:52:52 2014 +0100

    Use gimp_window_set_transient. Bug 727578.

 UI/UI.pm |    1 +
 UI/UI.xs |    6 ++++++
 2 files changed, 7 insertions(+), 0 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index 3986cd5..5a8f3f4 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -686,6 +686,7 @@ sub interact($$$$@) {
   can_default $button 1;
   grab_default $button;
   $w->signal_connect(destroy => sub { $mainloop->quit; });
+  set_transient($w);
 
   show_all $table;
   show_all $sw;
diff --git a/UI/UI.xs b/UI/UI.xs
index 0a7c4ae..0315c65 100644
--- a/UI/UI.xs
+++ b/UI/UI.xs
@@ -139,6 +139,12 @@ BOOT:
 
 PROTOTYPES: ENABLE
 
+void
+set_transient(window)
+  GtkWindow *window
+  CODE:
+    gimp_window_set_transient (window);
+
 gint32
 export_image(image_ID, drawable_ID, format_name, capabilities)
        SV *    image_ID