Changeset 865a7b9d in tol for toltcl/generic

Timestamp:

Oct 9, 2009, 8:19:08 AM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

5f10b30

Parents:

1065545

Message:

global functions are shown as returned from FullName() and methods as Name()

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

File:

• toltcl/generic/tolaccess.cpp (modified) (3 diffs)

toltcl/generic/tolaccess.cpp

@@ -71 +71 @@
 BText GetObjectName(const BSyntaxObject * so)
 {
-  return so->HasName() ? so->FullName() : so->LocalName();
+  // antes estaba FullName pero salian cosas como:
+  // estim::cycler::_.sampler::_.buildWorkSpace
+  return so->HasName() ? so->Name() : so->LocalName();
 }
 
 static
 void GetName( const BSyntaxObject * so, BText & res )
+{
+  // antes estaba FullName pero salian cosas como:
+  // estim::cycler::_.sampler::_.buildWorkSpace
+  res = so->Name();
+}
+
+static
+void GetFullName( const BSyntaxObject * so, BText & res )
 {
   res = so->FullName();
@@ -1996 +2006 @@
       // function name
       Tcl_DStringInit(&dstr);
+      // antes estaba FullName
       Tcl_ExternalToUtfDString(NULL, opr->FullName(), -1, &dstr); 
       Tcl_DStringAppend(&dstr_info, Tcl_DStringValue(&dstr), -1);
@@ -2066 +2077 @@
   if (gra) {
     BList * lstOper = gra->GetOperators();
-    if (BList2TclList(interp,lstOper,obj_result,&GetName) != TCL_OK) {
+    if (BList2TclList(interp,lstOper,obj_result,&GetFullName) != TCL_OK) {
       Tcl_AppendObjToObj(obj_result,Tcl_GetObjResult(interp));
       DESTROY(lstOper);