mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-25 11:21:08 -08:00
Code Issues Projects Releases Packages Wiki Activity

tiny revision

Browse source
This commit is contained in:
polos 2017-02-21 13:32:09 +01:00
parent b180403c3b
commit f2c429b7ae
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lisp/qselect.lisp
View file

@ -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"))