Changeset 73cf07b in tol for tolbase/lib/toltk/tolbase.tcl

Timestamp:

Feb 28, 2012, 6:31:39 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

e259ad9

Parents:

649644e

Message:

refs #740, se hace un chequeo más robusto del contenido generado desde tol como definición de la clase.

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

File:

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

tolbase/lib/toltk/tolbase.tcl

@@ -561 +561 @@
       foreach {icon grammar name content path desc objRef} $args {}
       if { $grammar eq "Anything" } {
-        if { [ regexp {/+\sClass\s} $content ] } {
+        if { [ regexp {/\* API for Class (.+) \*/\nClass (@[^ ]+) (.*)$} $content ] } {
           ActivateInfoWidget "text"
           $widgets(tabset,info) setwidget $widgets(info,hltext)