aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/flext/source
diff options
context:
space:
mode:
authorThomas Grill <xovo@users.sourceforge.net>2003-07-26 02:32:42 +0000
committerThomas Grill <xovo@users.sourceforge.net>2003-07-26 02:32:42 +0000
commitfa635a3d2a3c6a27a0259658f586d490fa0dad20 (patch)
treeeef906c63a952de4172b95191d90f752a061a90a /externals/grill/flext/source
parent6ce33fd36eaaebfe3df5d262785ab2fe74499252 (diff)
""
svn path=/trunk/; revision=798
Diffstat (limited to 'externals/grill/flext/source')
-rw-r--r--externals/grill/flext/source/flattr_ed.cpp18
1 files changed, 10 insertions, 8 deletions
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"