[PATCH 4/6] set correct dialog properties in GTK demo

[Patrick Bernaud]

* gtk/examples/guile-gtk-demo/demos/appwindow.scm: Set the correct
  properties on dialogs.
---
 gtk/examples/guile-gtk-demo/demos/appwindow.scm |    8 ++++----
 gtk/examples/guile-gtk-demo/demos/dialog.scm    |    5 +++--
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/gtk/examples/guile-gtk-demo/demos/appwindow.scm 
b/gtk/examples/guile-gtk-demo/demos/appwindow.scm
index d422f25..1c9f6b5 100644
--- a/gtk/examples/guile-gtk-demo/demos/appwindow.scm
+++ b/gtk/examples/guile-gtk-demo/demos/appwindow.scm
@@ -14,8 +14,8 @@
 (define (activate-action action)
   (let* ((name     (get-name action))
         (dialog   (make <gtk-message-dialog> 
-                    :parent window
-                    :flags 'destroy-with-parent
+                     :transient-for window
+                     :destroy-with-parent #t
                     :message-type 'info
                     :buttons 'close
                     :text (format 
@@ -31,8 +31,8 @@
 (define (activate-radio-action action current)
   (if (get-active current)
       (let ((dialog (make <gtk-message-dialog>
-                     :parent window
-                     :flags 'destroy-with-parent
+                      :transient-for window
+                      :destroy-with-parent #t
                      :message-type 'info
                      :buttons 'close
                      :text (format 
diff --git a/gtk/examples/guile-gtk-demo/demos/dialog.scm 
b/gtk/examples/guile-gtk-demo/demos/dialog.scm
index c8458dd..d8d840c 100644
--- a/gtk/examples/guile-gtk-demo/demos/dialog.scm
+++ b/gtk/examples/guile-gtk-demo/demos/dialog.scm
@@ -11,8 +11,9 @@
   (let ((i 0))
     (lambda (parent)
       (let ((dialog (make <gtk-message-dialog> 
-                     :parent parent
-                     :flags '(modal destroy-with-parent)
+                      :transient-for parent
+                      :destroy-with-parent #t
+                      :modal #t
                      :message-type 'info
                      :buttons 'ok
                      :text (string-append