X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.high-level.lisp;h=1e84c6f56fdd618b883f8425cfa65af269f638f8;hb=abf0a60a3ad24f0241af6cc94f8cb1d39f3b727a;hp=4d427e4a42609c7f94ef54cff3c0e4000d7743a9;hpb=e47f55fdba89d198a3eb42f31799d641e292e089;p=cl-gtk2.git

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)