From 12dc770aa93dfe63e8366d128a3a3a70600fff2a Mon Sep 17 00:00:00 2001 From: polos Date: Mon, 25 Sep 2017 14:18:35 +0200 Subject: [PATCH] fix previous fix --- src/lisp/ini.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/lisp/ini.lisp b/src/lisp/ini.lisp index 2294925..a000bca 100644 --- a/src/lisp/ini.lisp +++ b/src/lisp/ini.lisp @@ -573,8 +573,7 @@ Convenience function: a simple message box, converting x to a string if necessary.
Returns its argument (just like print)." (qlet ((msg "QMessageBox" "icon" |QMessageBox.Information| - "text" (if (stringp x) x (prin1-to-string x)) - "standardButtons" |QMessageBox.Ok|)) + "text" (if (stringp x) x (prin1-to-string x)))) (! "setWindowTitle" msg "EQL5") (dolist (fun '("show" "raise" "exec")) ; "raise" needed in some situations (e.g. OSX) (qfun msg fun)))