Changeset 2c6ecee in tol for tolbase


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

    r634aaf1 r2c6ecee  
    690690  } else {
    691691    if { $grammar eq "Text" } {
    692       string trim [ lindex $vinfo 2 ] \"
     692      #string trim [ lindex $vinfo 2 ] \"
     693      set contents [ lindex $vinfo 2 ]
     694      regexp {^"(.*)"$} $contents ==> contents
     695      set contents
    693696    } else {
    694697      lindex $vinfo 2
    … …  
    735738  } else {
    736739    if { $grammar eq "Text" } {
    737       set value [ string trim [ lindex $vinfo 2 ] \" ]
     740      set value [ lindex $vinfo 2 ]
     741      regexp {^"(.*)"$} $value ==> value
    738742    } else {
    739743      set value [ lindex $vinfo 2 ]
    … …  
    742746  list [ lindex $vinfo 1 ] $value
    743747}
     748
     749# -------------------------------- SOME TESTS --------------------------
    744750
    745751proc loadtt { } {
Note: See TracChangeset for help on using the changeset viewer.