Changeset 301385f in tol for tolbase/lib/toltk/ImageManager.tcl

Timestamp:

Jul 21, 2010, 11:31:08 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

32f8c8f

Parents:

a183248

Message:

refs #933, Tolbase is now aware of custom icons defined for classes. See test_0004 in GuiTools.

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

File:

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

tolbase/lib/toltk/ImageManager.tcl

@@ -5 +5 @@
   set rvar "__getImageResourceId__"
   set tolExpr [ string map [ list %N $imageName %RV $rvar ] {
-    Text %RV = GuiTools::ImageManager::getImageResourceId( "%N" );
+    Text %RV = {
+      Real test = ObjectExist( "Code", "GuiTools::ImageManager::getImageResourceId" );
+      Text If( test, GuiTools::ImageManager::getImageResourceId( "%N" ), "" )
+    }
   } ]
   tol::console eval $tolExpr
@@ -13 +16 @@
   return $value
 }
+
+proc ::ImageManager::getIconForClass { className } {
+  set rvar "__getIconForClass__"
+  set tolExpr [ string map [ list %N $className %RV $rvar ] {
+    Text %RV = {
+      Real test = ObjectExist( "Code", "GuiTools::ImageManager::getIconForClass" );
+      Text imageName = If( test, 
+                           GuiTools::ImageManager::getIconForClass( "%N" ), 
+                           "" );
+      Text GuiTools::ImageManager::getImageResourceId( imageName )
+    }
+  } ]
+  tol::console eval $tolExpr
+  set info [ tol::info variable [ list Text $rvar ] ]
+  set value [ string trim [ lindex $info 2 ] \" ]
+  tol::console stack release $rvar
+  return $value
+}