Changeset a566515 in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Feb 15, 2012, 2:53:26 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

0d88c15

Parents:

699b7d8

Message:

fixes #1433, cuando el conjunto es estructurado se incluye la definición de la estructura en el panel info

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

File:

• tolbase/lib/toltk/tolinspe.tcl (modified) (1 diff)

tolbase/lib/toltk/tolinspe.tcl

@@ -2012 +2012 @@
   set addr [ ::tol::info address $objReference ]
   return [ Tol_ClassOf $addr ]
+}
+
+proc Tol_StructOf { obj_addr } {
+  set tolcode [ string map [ list %A $obj_addr ]  {
+    Text {
+      Anything obj = GetObjectFromAddress( "%A" );
+      // WriteLn( "Tol_StructOf " << Grammar( obj ) );
+      Text If( Grammar( obj ) == "Set", StructName( obj ), "" )
+    }
+  } ]
+  return [ lindex [ toltcl::eval $tolcode ] 0 ]
+}
+
+proc Tol_StructOfFromReference { objReference } {
+  set addr [ ::tol::info address $objReference ]
+  return [ Tol_StructOf $addr ]
 }