Implement tree-model-iter-children-impl for array-list-store

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 0840b2a..f7f628c 100644 (file)
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -166,6 +166,10 @@
         (tree-iter-user-data iter) n)
   t)
 
+(defmethod tree-model-iter-children-impl ((model array-list-store) iter parent)
+  (declare (ignore iter parent))
+  nil)
+
 (defmethod tree-model-iter-n-children-impl ((model array-list-store) iter)
   (if (null iter)
       (length (store-items model))