Common lisp 如何使用QTools创建QTreeWidget？

我想创建一个QTreeWidget，其中包含简单的行（无层次结构）、一个包含图像的列，以及其他包含文本信息的列

我正在看，虽然他们的示例很好，但我找不到TreeView示例，也不知道如何处理所有这些Qt机制

我确实发现存在正确的类

(org.shirakumo.qtools+common-lisp:find-qt-class-name "qtreewidget")
"QTreeWidget"
t

编辑：grep确实在Qtools源中找到QTreeWidget，但没有make QTreeWidget

不用说我是新来的

---

欢迎任何例子

下面是QTreeWidget的一个最小示例：

(defpackage #:qtools-tree
  (:use #:cl+qt)
  (:export #:main))

(in-package #:qtools-tree)
(in-readtable :qtools)

(define-widget main-window (QWidget)
  ())

(define-subwidget (main-window tree) (q+:make-qtreewidget main-window)
  (setf (q+:column-count tree) 3)
  (mapc (lambda (item)
          (q+:add-top-level-item tree
                                 (q+:make-qtreewidgetitem tree (list item))))
        '("Sun" "Mercury" "Venus" "Earth" "Mars"))
  (q+:resize-column-to-contents tree 0))

(define-subwidget (main-window layout) (q+:make-qvboxlayout main-window)
  (q+:add-widget layout tree))

(defun main ()
  (with-main-window (window (make-instance 'main-window))))

---

对于我得到的第一个define小部件，我不知道qtools最古老的SBCL版本是什么…您是否快速加载ql:quickload'qtools qtcore qtgui？您是否尝试了qtools存储库中的示例？他们在你的系统上工作吗？我没有快速加载他们三个，现在它工作了！是的，这些例子很有效