mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 10:31:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'cl-repl': fix message box

Browse source
This commit is contained in:
pls.153 2022-04-11 11:41:08 +02:00
parent e1dc2222fd
commit ad70df7399
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
examples/cl-repl/lisp/editor.lisp
View file

@ -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*