From fa635a3d2a3c6a27a0259658f586d490fa0dad20 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Sat, 26 Jul 2003 02:32:42 +0000 Subject: "" svn path=/trunk/; revision=798 --- externals/grill/flext/source/flattr_ed.cpp | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'externals/grill/flext/source/flattr_ed.cpp') diff --git a/externals/grill/flext/source/flattr_ed.cpp b/externals/grill/flext/source/flattr_ed.cpp index be86e04a..c968fe5f 100644 --- a/externals/grill/flext/source/flattr_ed.cpp +++ b/externals/grill/flext/source/flattr_ed.cpp @@ -71,20 +71,22 @@ void flext_base::SetAttrEditor(t_classid c) // process current value "set len [llength [expr $$var_attr_val]]\n" - // see if it's a list - "if { $len > 1 } {\n" - "set lst [concat $lst {list} $len [expr $$var_attr_val]]\n" - "} else {\n" + "if { $len == 1 } {\n" + // it's an atom "lappend lst [expr $$var_attr_val]\n" + "} else {\n" + // it's a list + "set lst [concat $lst {list} $len [expr $$var_attr_val]]\n" "}\n" // process init value "set len [llength [expr $$var_attr_init]]\n" - // see if it's a list - "if { $len > 1 } {\n" - "set lst [concat $lst {list} $len [expr $$var_attr_init]]\n" - "} else {\n" + "if { $len == 1 } {\n" + // it's an atom "lappend lst [expr $$var_attr_init]\n" + "} else {\n" + // it's a list + "set lst [concat $lst {list} $len [expr $$var_attr_init]]\n" "}\n" "lappend lst [eval concat $$var_attr_save]\n" -- cgit v1.2.1