Changeset 2c6ecee in tol for tolbase/lib/byswidget/bfunctions

Timestamp:

Oct 5, 2009, 7:04:40 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

f3e971a

Parents:

634aaf1

Message:

TolObj2TclObjNamed & TolObj2TclObj should trim only the first and last
" from Text elements

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

File:

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

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -690 +690 @@
   } else {
     if { $grammar eq "Text" } {
-      string trim [ lindex $vinfo 2 ] \"
+      #string trim [ lindex $vinfo 2 ] \"
+      set contents [ lindex $vinfo 2 ]
+      regexp {^"(.*)"$} $contents ==> contents
+      set contents
     } else {
       lindex $vinfo 2
@@ -735 +738 @@
   } else {
     if { $grammar eq "Text" } {
-      set value [ string trim [ lindex $vinfo 2 ] \" ]
+      set value [ lindex $vinfo 2 ]
+      regexp {^"(.*)"$} $value ==> value
     } else {
       set value [ lindex $vinfo 2 ]
@@ -742 +746 @@
   list [ lindex $vinfo 1 ] $value
 }
+
+# -------------------------------- SOME TESTS --------------------------
 
 proc loadtt { } {