--- a/WinBuilder.st	Mon Mar 03 11:15:07 1997 +0100
+++ b/WinBuilder.st	Mon Mar 03 16:36:10 1997 +0100
@@ -11,7 +11,7 @@
 "
 
 Object subclass:#WindowBuilder
-	instanceVariableNames:'window application bindings focusSequence namedComponents
+	instanceVariableNames:'window application bindings visuals focusSequence namedComponents
 		componentCreationHook applicationClass'
 	classVariableNames:''
 	poolDictionaries:''
@@ -172,6 +172,34 @@
     "Modified: 17.1.1997 / 19:03:57 / cg"
 !
 
+visualAt:name
+    visuals isNil ifTrue:[^ nil].
+    ^ visuals at:name asSymbol ifAbsent:nil
+
+    "Created: 3.3.1997 / 16:24:17 / cg"
+!
+
+visualAt:name put:aVisual
+    visuals isNil ifTrue:[
+        visuals := IdentityDictionary new.
+    ].
+    visuals at:name asSymbol put:aVisual
+
+    "Created: 3.3.1997 / 16:24:41 / cg"
+!
+
+visuals
+    ^ visuals
+
+    "Created: 3.3.1997 / 16:24:00 / cg"
+!
+
+visuals:aDictionary
+    visuals := aDictionary
+
+    "Created: 3.3.1997 / 16:24:06 / cg"
+!
+
 window
     "return the top window (view), for which an interface
      is (being) built"
@@ -502,5 +530,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.29 1997-03-03 10:14:14 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.30 1997-03-03 15:36:10 cg Exp $'
 ! !