sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix QMSG to work properly on android (see EQL5-Android project)

Browse source
This commit is contained in:
polos 2017-09-25 13:48:19 +02:00
parent 8aa75f1d45
commit 8023fb7cbf
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/lisp/ini.lisp
View file

@ -573,7 +573,9 @@
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))))
"text" (if (stringp x) x (prin1-to-string x))
"standardButtons" |QMessageBox.Ok|))
(! "setWindowTitle" msg "EQL5")
(dolist (fun '("show" "raise" "exec")) ; "raise" needed in some situations (e.g. OSX)
(qfun msg fun)))
x)