--- a/WindowBuilder.st	Wed Jun 10 22:14:05 2009 +0200
+++ b/WindowBuilder.st	Wed Jun 10 22:36:55 2009 +0200
@@ -1161,6 +1161,18 @@
         safelyPerform:#specificationFor:
         with:aKey
         ifNone:[ self aspectFor:aKey ]
+!
+
+visualFor:aKey
+    "return a visual (icon, image) for aKey. This is invoked during window building
+     (by the builder) to ask for some graphical labels.
+     Here, first the local bindings are searched, then the application and
+     finally the applications class is asked for a corresponding action.
+     The returned object is typically an image or form."
+
+    ^ self safelyPerform:#visualFor:
+                    with:aKey
+                  ifNone:[ self aspectAt:aKey ]
 ! !
 
 !WindowBuilder methodsFor:'spec creation callbacks'!
@@ -1532,5 +1544,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.138 2009-03-06 15:09:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.139 2009-06-10 20:36:55 cg Exp $'
 ! !