From b85025fe97712d77ccfd2fe88a582b707bedbe72 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Wed, 15 Nov 2006 23:53:30 +0000
Subject: Avoid creating an empty list object in the [item ancestors] command.

---
 generic/tkTreeItem.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/generic/tkTreeItem.c b/generic/tkTreeItem.c
index 7cdde95..8aefd1b 100644
--- a/generic/tkTreeItem.c
+++ b/generic/tkTreeItem.c
@@ -5,7 +5,7 @@
  *
  * Copyright (c) 2002-2006 Tim Baker
  *
- * RCS: @(#) $Id: tkTreeItem.c,v 1.87 2006/11/10 22:31:41 treectrl Exp $
+ * RCS: @(#) $Id: tkTreeItem.c,v 1.88 2006/11/15 23:53:30 treectrl Exp $
  */
 
 #include "tkTreeCtrl.h"
@@ -7178,6 +7178,8 @@ TreeItemCmd(
 	    Tcl_Obj *listObj;
 	    TreeItem parent = item->parent;
 
+	    if (parent == NULL)
+		break; /* empty list */
 	    listObj = Tcl_NewListObj(0, NULL);
 	    while (parent != NULL) {
 		Tcl_ListObjAppendElement(interp, listObj,
-- 
cgit v0.12