;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktree.lisp,v 1.28 2007-08-20 10:33:05 espen Exp $
+;; $Id: gtktree.lisp,v 1.30 2007-09-06 14:32:03 espen Exp $
(in-package "GTK")
location))
(defun %tree-path-to-vector (location)
- (let ((indices (%tree-path-get-indices location))
- (depth (%tree-path-get-depth location)))
- (if (null-pointer-p indices)
- #()
- (map-c-vector 'vector #'identity indices 'int depth))))
+ (unless (null-pointer-p location)
+ (let ((indices (%tree-path-get-indices location))
+ (depth (%tree-path-get-depth location)))
+ (if (null-pointer-p indices)
+ #()
+ (map-c-vector 'vector #'identity indices 'int depth)))))
(defmacro %with-tree-path ((var path) &body body)
(let* ((pointer-offset (adjust-offset (size-of 'int) 'pointer))
(coerce
(loop
with iter = (ensure-tree-iter model row)
- for index from 0 to (tree-model-n-columns model)
+ for index from 0 below (tree-model-n-columns model)
collect (tree-model-value model iter index))
'vector))