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

* 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