From 6e1620deaf7fd450db6aece4c96b278feee1b672 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Fri, 22 Sep 2006 23:27:23 +0000
Subject: Use new Tree_StateFromListObj for getting state flags from a list
 object.

---
 generic/tkTreeStyle.c | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/generic/tkTreeStyle.c b/generic/tkTreeStyle.c
index 3ab81b0..613a186 100644
--- a/generic/tkTreeStyle.c
+++ b/generic/tkTreeStyle.c
@@ -5,7 +5,7 @@
  *
  * Copyright (c) 2002-2006 Tim Baker
  *
- * RCS: @(#) $Id: tkTreeStyle.c,v 1.47 2006/09/05 21:56:20 treectrl Exp $
+ * RCS: @(#) $Id: tkTreeStyle.c,v 1.48 2006/09/22 23:27:23 treectrl Exp $
  */
 
 #include "tkTreeCtrl.h"
@@ -4546,8 +4546,6 @@ TreeElementCmd(
 	case COMMAND_PERSTATE:
 	{
 	    Element *elem;
-	    int i, listObjc;
-	    Tcl_Obj **listObjv;
 	    int states[3];
 	    ElementArgs args;
 
@@ -4560,16 +4558,9 @@ TreeElementCmd(
 	    if (Element_FromObj(tree, objv[3], &elem) != TCL_OK)
 		return TCL_ERROR;
 
-	    if (Tcl_ListObjGetElements(interp, objv[5], &listObjc,
-		&listObjv) != TCL_OK)
-		return TCL_ERROR;
-
-	    states[0] = states[1] = states[2] = 0;
-	    for (i = 0; i < listObjc; i++) {
-		if (Tree_StateFromObj(tree, listObjv[i], states, NULL,
+	    if (Tree_StateFromListObj(tree, objv[5], states,
 		    SFO_NOT_OFF | SFO_NOT_TOGGLE) != TCL_OK)
 		return TCL_ERROR;
-	    }
 
 	    args.tree = tree;
 	    args.elem = elem;
-- 
cgit v0.12