restart dialog (see -qtpl): use ':q' as default (not ':r1')
This commit is contained in:
parent
f78f8d166d
commit
60beaea816
1 changed files with 2 additions and 2 deletions
|
|
@ -67,7 +67,7 @@
|
|||
|
||||
(in-package :restart-dialog)
|
||||
|
||||
(let ((text ":r1"))
|
||||
(let ((text ":q"))
|
||||
(defun command ()
|
||||
(qlet ((dialog "QDialog(QWidget*,Qt::WindowFlags)" nil |Qt.WindowStaysOnTopHint|
|
||||
"windowTitle" (tr "EQL Debug Dialog"))
|
||||
|
|
@ -93,7 +93,7 @@
|
|||
(qlater (lambda () (x:do-with dialog "activateWindow" "raise")))
|
||||
(setf text (if (= |QDialog.Accepted| (! "exec" dialog))
|
||||
(qget command "text")
|
||||
":r1")))))
|
||||
":q")))))
|
||||
|
||||
;;; main
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue