From 82124d0edd81ecb28597726c2b26d0c351c54e0b Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Mon, 15 Jun 2009 12:31:29 +0400 Subject: [PATCH] Add gtk:show-message function --- gtk/gtk.high-level.lisp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/gtk/gtk.high-level.lisp b/gtk/gtk.high-level.lisp index 4d427e4..1e84c6f 100644 --- a/gtk/gtk.high-level.lisp +++ b/gtk/gtk.high-level.lisp @@ -132,4 +132,16 @@ (with-progress-bar ("Texts" 10) (loop repeat 10 - do (with-progress-bar-action (sleep 1)))))))) \ No newline at end of file + do (with-progress-bar-action (sleep 1)))))))) + +(defun show-message (message &key (buttons :ok) (message-type :info) (use-markup nil)) + (let ((dialog (make-instance 'message-dialog + :text message + :buttons buttons + :message-type message-type + :use-markup use-markup))) + (prog1 + (dialog-run dialog) + (object-destroy dialog)))) + +(export 'show-message) -- 1.7.10.4