From: Dmitry Kalyanov Date: Mon, 15 Jun 2009 08:31:29 +0000 (+0400) Subject: Add gtk:show-message function X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=82124d0edd81ecb28597726c2b26d0c351c54e0b;p=cl-gtk2.git Add gtk:show-message function --- 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)