port of EQL/Qt4 to Qt5

examples/9-simple-lisp-editor/query-dialog.lisp

@@ -0,0 +1,25 @@
+(defpackage :query-dialog
+  (:use :common-lisp :eql)
+  (:export
+    #:*default-text*
+    #:get-text))
+
+(provide :query-dialog)
+
+(in-package :query-dialog)
+
+(defvar *default-text* "")
+
+(defun get-text (message)
+  (qlet ((dlg "QInputDialog(QWidget*,Qt::WindowFlags)" nil |Qt.WindowStaysOnTopHint|))
+    (x:do-with dlg
+      ("setInputMode" |QInputDialog.TextInput|)
+      ("setWindowTitle" (tr "Query Dialog"))
+      ("setLabelText" message)
+      ("setTextValue" *default-text*)
+      ("resize" '(400 0)))
+    (qlater (lambda () (x:do-with dlg "activateWindow" "raise")))
+    (if (= |QDialog.Accepted| (! "exec" dlg))
+        (! "textValue" dlg)
+        "")))
+