Changeset 55e561e in tol

Timestamp:

Sep 22, 2009, 11:54:53 AM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

13374b7

Parents:

fa673db

Message:

at functions TolObj2TclObj: triming " from Text values

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1424 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/byswidget/bfunctions/bftoltcl.tcl (modified) (2 diffs)

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -689 +689 @@
     set result
   } else {
-    lindex $vinfo 2
-  }
-}
-
+    if { $grammar eq "Text" } {
+      string trim [ lindex $vinfo 2 ] \"
+    } else {
+      lindex $vinfo 2
+    }
+  }
+}
 
 #///////////////////////////////////////////////////////////////////////////
@@ -731 +734 @@
     set value [ TolSet2TclListNamed $obj ]
   } else {
-    set value [ lindex $vinfo 2 ]
+    if { $grammar eq "Text" } {
+      set value [ string trim [ lindex $vinfo 2 ] \" ]
+    } else {
+      set value [ lindex $vinfo 2 ]
+    }
   }
   list [ lindex $vinfo 1 ] $value