From f2c429b7aea138b1f46ba0ba9aed754cf3fefe5a Mon Sep 17 00:00:00 2001
From: polos <polos.ruetz@gmail.com>
Date: Tue, 21 Feb 2017 13:32:09 +0100
Subject: [PATCH] tiny revision

---
 src/lisp/qselect.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lisp/qselect.lisp b/src/lisp/qselect.lisp
index 7c23878..63a25a1 100644
--- a/src/lisp/qselect.lisp
+++ b/src/lisp/qselect.lisp
@@ -124,14 +124,14 @@
                     (! "grab" parent)                                   ; QQuickWidget
                     (! "fromImage" "QPixmap" (! "grabWindow" parent)))) ; QQuickView
            (dark (to-dark pix)))
-      (! "setPixmap" indicate (set-highlight* indicate pix dark child)))
+      (! "setPixmap" indicate (set-highlight* pix dark child)))
     (qlater (lambda () (! "show" indicate)))
     (qsingle-shot 800 (lambda () (qdel indicate)))))
 
 (defun highlight* (child)
   (! "mapRectToScene" child (list 0 0 (! "width" child) (! "height" child))))
 
-(defun set-highlight* (indicate pixmap dark child)
+(defun set-highlight* (pixmap dark child)
   (let ((rect (highlight* child)))
     (qlet ((painter "QPainter(QPixmap*)" dark)
            (pen "QPen(QColor)" "white"))