Changeset 912aabe in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Mar 6, 2012, 7:32:16 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

e4cddd7

Parents:

e976171

Message:

refs #1457, portando la solucion desde 3.1, hay que mencionar que este error se manifestaba solo en windows.

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

File:

• tolbase/lib/toltk/tolinspe.tcl (modified) (5 diffs)

tolbase/lib/toltk/tolinspe.tcl

@@ -647 +647 @@
 #
 #/////////////////////////////////////////////////////////////////////////////
-  eval InsertChild [lrange $args 0 3] [list [list [lindex $args 4]]] [lrange $args 5 end]
+    eval InsertChild [lrange $args 0 3] [list [list [lindex $args 4]]] [lrange $args 5 end]
 }
 
@@ -703 +703 @@
     NameBlock -
     Set {
-      puts "HTItem, ref = '$ref' '$args'"
+      #puts "HTItem, ref = '$ref' '$args'"
       # args[5] is the index of the set object
       # args[6] is the flag file
@@ -808 +808 @@
       set data [lreplace $data 9 9 $objRef]  
       #(pgea) se utiliza la informacon de instancia
-      puts "Tol_ClassOfFromReference $objRef"
+      #puts "Tol_ClassOfFromReference $objRef"
       set classOf [Tol_ClassOfFromReference $objRef]
-      puts "Tol_InstanceContentFromReference $objRef"
+      #puts "Tol_InstanceContentFromReference $objRef"
       set insCont [Tol_InstanceContentFromReference $objRef]
       if {$insCont ne ""} {
@@ -1371 +1371 @@
 #
 #/////////////////////////////////////////////////////////////////////////////
+
   #Tolcon_Trace "LLAMADA A SELECTOBJECT"
   variable w_tabset
@@ -2036 +2037 @@
 
 proc Tol_StructOfFromReference { objReference } {
+  # WATCH!!!!
+  # when Tol_StructOfFromReference is invoken on {File xxx} xxx is
+  # decompiled!!!!
   if { [ llength $objReference ] == 2 && 
        [ lindex $objReference 0 ] eq "File" } {