Changeset 233

Show
Ignore:
Timestamp:
11/27/08 18:58:30 (5 years ago)
Author:
lramirez
Message:

Some functions in the menu "Features" not working because of errors in TclRefToNameTol

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • tolp/trunk/tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

    r154 r233  
    125125  # eval 
    126126  set cmd "::tol::info variable {$obj $args}" 
    127   #puts "cmd: $cmd" 
     127  #puts "TclInfoRef: cmd=$cmd" 
    128128  if {![catch {set lst [eval $cmd]}]} { 
    129129    set lstNam [list GRAMMAR NAME CONTENT PATH DESC ISFILE\ 
     
    202202#                         namVarFat[x][y][z] (variable with father) 
    203203#///////////////////////////////////////////////////////////////////////////// 
    204   Tolcon_Trace "TclRefToNameTol: ref-> $ref" 
    205204  set ref [lindex $ref 0] 
     205  #puts "TclRefToNameTol: ref=$ref" 
    206206  # the object belongs to a set? 
    207207  if {[expr [llength $ref] == 1]} { 
    208208    set namTol $ref 
    209209  } else  { 
    210     array set infRef [TclInfoRef [lrange $ref 0 1]] 
     210    #array set infRef [TclInfoRef [lrange $ref 0 1]] 
     211    array set infRef [TclInfoRef $ref] 
    211212    set namTol $infRef(NAME) 
    212     #Tolcon_Trace "TclRefToNameTol: namTol -> $namTol" 
     213    #puts "TclRefToNameTol: namTol=$namTol" 
    213214    # name ? 
    214     if {[string length $namTol]} { 
     215  #if {[string length $namTol]} { 
    215216      # ckeck parameters 
    216       if {[expr [llength $ref] > 2]} { 
    217         set lstInx [lrange $ref 2 end] 
    218         foreach ind $lstInx { 
    219           set namTol $namTol\[$ind\] 
    220         } 
    221       } 
    222     } else  { 
    223       set namTol {} 
    224     } 
    225   } 
    226   Tolcon_Trace "TclRefToNameTol: Nombre de la variable a usar -> $namTol" 
     217      #if {[expr [llength $ref] > 2]} { 
     218        #set lstInx [lrange $ref 2 end] 
     219        #foreach ind $lstInx { 
     220          #set namTol $namTol\[$ind\] 
     221        #} 
     222      #} 
     223    #} else  { 
     224      #set namTol {} 
     225    #} 
     226  #} 
     227  #puts "TclRefToNameTol: namTol=$namTol" 
    227228  return $namTol 
    228229}