Changeset 9e3cbcf in tol

Timestamp:

Jul 2, 2009, 1:41:51 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

6f16730

Parents:

aca1089

Message:

merging from 1.1.7, related to #705

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

File:

• tol/stdlib/general/grammars/_anything.tol (modified) (1 diff)

tol/stdlib/general/grammars/_anything.tol

@@ -70 +70 @@
 //////////////////////////////////////////////////////////////////////////////
 
+//////////////////////////////////////////////////////////////////////////////
+Anything GetConsoleObject( Real idx )
+//////////////////////////////////////////////////////////////////////////////
+{
+  Set cmd_info = [[ "tol::info",
+                    "address",
+                    [[ "Console", IntText(idx) ]] ]];
+
+  Set result = Tcl_EvalEx( cmd_info );
+  Anything If( result[ "status" ],
+               GetObjectFromAddress( result[ "result" ] ),
+               Error( "GetConsoleObject: " +
+                      result[ "result" ]   +
+                      "\nevaluating tol::info address'" ) )
+};//////////////////////////////////////////////////////////////////////////////
+PutDescription("Retorna el objeto de consola con indice idx",
+                GetConsoleObject);