Index: tolbase/lib/toltk/ImageManager.tcl
===================================================================
--- tolbase/lib/toltk/ImageManager.tcl	(revision ab2f6942f6cc27a5b2fcb74a996098cc0ec2dbeb)
+++ tolbase/lib/toltk/ImageManager.tcl	(revision ab2f6942f6cc27a5b2fcb74a996098cc0ec2dbeb)
@@ -0,0 +1,14 @@
+namespace eval ::ImageManager {
+}
+
+proc ::ImageManager::getImageResourceId { imageName } {
+  set rvar "__getImageResourceId__"
+  set tolExpr [ string map [ list %N $imageName %RV $rvar ] {
+    Text %RV = GuiTools::ImageManager::getImageResourceId( "%N" );
+  } ]
+  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
+}