From 089ba6521dcc4de4868aa5fed0a62895c8983cf0 Mon Sep 17 00:00:00 2001
From: polos <pls.153@protonmail.com>
Date: Sat, 13 Mar 2021 17:48:44 +0100
Subject: [PATCH] revision of 'qml.lisp'

---
 src/lisp/qml.lisp | 35 ++++-------------------------------
 1 file changed, 4 insertions(+), 31 deletions(-)

diff --git a/src/lisp/qml.lisp b/src/lisp/qml.lisp
index f997f1d..37154af 100644
--- a/src/lisp/qml.lisp
+++ b/src/lisp/qml.lisp
@@ -5,35 +5,6 @@
 ;;; * allows to evaluate JS code from Lisp (needs 'objectName' to be set)
 ;;;
 
-(defpackage :qml-lisp
-  (:use :common-lisp :eql)
-  (:nicknames :qml)
-  (:export
-   #:*quick-view*
-   #:*caller*
-   #:children
-   #:file-to-url
-   #:find-quick-item
-   #:ini-quick-view
-   #:js
-   #:js-arg
-   #:qml-call
-   #:qml-get
-   #:qml-set
-   #:qml-set-all
-   #:q!
-   #:q<
-   #:q>
-   #:q>*
-   #:qjs
-   #:paint
-   #:scale
-   #:reload
-   #:root-context
-   #:root-item))
-
-(provide :qml-lisp)
-
 (in-package :qml-lisp)
 
 (defvar *quick-view* nil)
@@ -213,8 +184,10 @@
 
 ;;; ini
 
-(defun ini-quick-view (file)
-  (setf *quick-view* (qnew "QQuickView"))
+(defun ini-quick-view (file &optional widget)
+  (setf *quick-view* (qnew (if widget
+                               "QQuickWidget"  ; needed for 'PaintedItem'
+                               "QQuickView")))
   ;; special settings for mobile, taken from Qt example
   (let ((env (ext:getenv "QT_QUICK_CORE_PROFILE")))
     (when (and (stringp env)