From ad70df7399f4e56773f7df4dc027dbaf2a002c35 Mon Sep 17 00:00:00 2001 From: "pls.153" Date: Mon, 11 Apr 2022 11:41:08 +0200 Subject: [PATCH] example 'cl-repl': fix message box --- examples/cl-repl/lisp/editor.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/examples/cl-repl/lisp/editor.lisp b/examples/cl-repl/lisp/editor.lisp index c324961..e9874f7 100644 --- a/examples/cl-repl/lisp/editor.lisp +++ b/examples/cl-repl/lisp/editor.lisp @@ -848,7 +848,8 @@ (setf *file* dialogs:*file-name*) (q> |text| ui:*edit* (read-file *file*)) (reset-line-count)))) - (qmsg (format nil "File does not exist:~%~%~S" dialogs:*file-name*)))) + (qjs |message| ui:*dialogs* + (format nil "File does not exist:~%~%~S" dialogs:*file-name*)))) (qsingle-shot 250 (lambda () (q! |forceActiveFocus| ui:*edit*)))) ;;; save-file @@ -861,8 +862,9 @@ (write-sequence (q< |text| ui:*edit*) s) (qt:clear-undo-redo-stacks qt:*cpp* *qml-document-edit*)) t) - (qmsg (format nil "File not saved. Please ensure you have write permissions in:~%~%~S" - file)))) + (qjs |message| ui:*dialogs* + (format nil "File not saved. Please ensure you have write permissions in:~%~%~S" + file)))) (defun confirm-dialog (title text callback) (qjs |confirm| ui:*dialogs*