find out which row in a tree view is currently selected

OlafMerkert · Oct 3, 2012 · 41fd636 · 41fd636
1 parent 7600e41
commit 41fd636
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/packages.lisp b/packages.lisp
@@ -17,4 +17,5 @@
    :define-custom-store
    :make-store
    :setup-tree-view
-   :add-tree-view-column))
+   :add-tree-view-column
+   :tree-view-selected-row))
diff --git a/stores-and-views.lisp b/stores-and-views.lisp
@@ -82,3 +82,10 @@ entries, and signals for the insertion of all the new entries."
     (tree-view-column-pack-start     column renderer)
     (tree-view-column-add-attribute  column renderer "text" col-index)
     (tree-view-append-column view    column)))
+
+(defun tree-view-selected-row (view)
+  "Return the selected row index from tree-view, which presents a
+list-store."
+  (let ((row-paths (tree-selection-selected-rows (tree-view-selection view))))
+    (when row-paths
+      (first (tree-path-indices (first row-paths))))))