diff options
| author | treectrl <treectrl> | 2006-11-15 23:53:30 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-11-15 23:53:30 (GMT) |
| commit | b85025fe97712d77ccfd2fe88a582b707bedbe72 (patch) | |
| tree | 992fa3e2f4a325b63feea025e1f011c24934e0a5 /generic/tkTreeItem.c | |
| parent | 76a855857013ba3236b81220e381e91dffad38b1 (diff) | |
| download | tktreectrl-b85025fe97712d77ccfd2fe88a582b707bedbe72.zip tktreectrl-b85025fe97712d77ccfd2fe88a582b707bedbe72.tar.gz tktreectrl-b85025fe97712d77ccfd2fe88a582b707bedbe72.tar.bz2 | |
Avoid creating an empty list object in the [item ancestors] command.
Diffstat (limited to 'generic/tkTreeItem.c')
| -rw-r--r-- | generic/tkTreeItem.c | 4 |
1 files changed, 3 insertions, 1 deletions
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, |