From 60beaea81676802d360fe16914493dd782115ef8 Mon Sep 17 00:00:00 2001
From: polos <polos.ruetz@gmail.com>
Date: Wed, 18 Oct 2017 11:32:01 +0200
Subject: [PATCH] restart dialog (see -qtpl): use ':q' as default (not ':r1')

---
 lib/restart-dialog.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/restart-dialog.lisp b/lib/restart-dialog.lisp
index 6516aac..789bb02 100644
--- a/lib/restart-dialog.lisp
+++ b/lib/restart-dialog.lisp
@@ -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