mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-11 03:31:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix previous fix

Browse source
This commit is contained in:
polos 2017-09-25 14:18:35 +02:00
parent 8023fb7cbf
commit 12dc770aa9
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lisp/ini.lisp
View file

@ -573,8 +573,7 @@
Convenience function: a simple message box, converting <code>x</code> to a string if necessary.<br>Returns its argument (just like <code>print</code>)."
(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)))