[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 4/6] set correct dialog properties in GTK demo
From: |
Patrick Bernaud |
Subject: |
[PATCH 4/6] set correct dialog properties in GTK demo |
Date: |
Sun, 11 Dec 2011 17:38:54 +0100 |
User-agent: |
StGit/0.15 |
* 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