mirror of
https://gitlab.com/eql/EQL5.git
synced 2026-02-17 05:11:55 -08:00
33 lines
923 B
Common Lisp
33 lines
923 B
Common Lisp
;;; string-list model
|
|
|
|
#-qt-wrapper-functions ; see README-OPTIONAL.txt
|
|
(load (in-home "src/lisp/all-wrappers"))
|
|
|
|
(qrequire :quick)
|
|
|
|
(require :qml-lisp "qml-lisp")
|
|
|
|
(use-package :qml)
|
|
|
|
(defvar *items* (loop :for i :from 1 :to 5 :collect (format nil "Item ~D" i)))
|
|
|
|
;; list model
|
|
|
|
(defun set-my-model ()
|
|
;; this function needs to be called after every change to *items*
|
|
(qlet ((data (qvariant-from-value *items* "QStringList")))
|
|
(|setContextProperty| (|rootContext| qml:*quick-view*) "myModel" data)))
|
|
|
|
(defun change-items (items)
|
|
(setf *items* items)
|
|
(set-my-model))
|
|
|
|
(defun run ()
|
|
(setf qml:*quick-view* (qnew "QQuickView"))
|
|
(set-my-model) ; add before setting the QML source file
|
|
(|setSource| qml:*quick-view* (|fromLocalFile.QUrl| "qml/list-model.qml"))
|
|
(|setResizeMode| qml:*quick-view* |QQuickView.SizeRootObjectToView|)
|
|
(|resize| qml:*quick-view* '(150 250))
|
|
(|show| qml:*quick-view*))
|
|
|
|
(run)
|