Changeset 507bd60 in tol for tolbase/lib/toltk/ImageManager.tcl

Timestamp:

Jul 27, 2010, 10:24:27 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

67c21bf

Parents:

a363f08

Message:

refs #945, fixed a bug raised when GuiTools is not loaded

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

File:

• tolbase/lib/toltk/ImageManager.tcl (modified) (2 diffs)

tolbase/lib/toltk/ImageManager.tcl

@@ -8 +8 @@
   set tolExpr [ string map [ list %N $imageName %RV $rvar ] {
     Text %RV = {
-      Real test = ObjectExist( "Code", "GuiTools::ImageManager::getImageResourceId" );
+      Real test = ObjectExist( "Code", 
+                               "GuiTools::ImageManager::getImageResourceId" );
       Text If( test, GuiTools::ImageManager::getImageResourceId( "%N" ), "" )
     }
@@ -23 +24 @@
   set tolExpr [ string map [ list %A $objAddress %RV $rvar ] {
     Text %RV = {
-      Real test = ObjectExist( "Code", "GuiTools::ImageManager::getIconForInstance" );
-      // obtengo el nombre del imagen
-      Text imageName = If( test, {
-                           NameBlock obj = GetObjectFromAddress( "%A" );
-                           Text GuiTools::ImageManager::getIconForInstance( obj )
-                          }, "" );
-      // obtengo el id del recurso que es el id de la imagen Tk
-      Text GuiTools::ImageManager::getImageResourceId( imageName )
+      Real test = ObjectExist( "Code", 
+                               "GuiTools::ImageManager::getIconForInstance" );
+      Text If( test, {
+        NameBlock obj = GetObjectFromAddress( "%A" );
+        // obtengo el nombre del imagen
+        Text imageName = GuiTools::ImageManager::getIconForInstance( obj );
+        // obtengo el id del recurso que es el id de la imagen Tk
+        Text GuiTools::ImageManager::getImageResourceId( imageName )
+      }, "" )
     }
   } ]