--- a/WindowBuilder.st	Thu Feb 26 21:47:01 1998 +0100
+++ b/WindowBuilder.st	Fri Feb 27 13:52:54 1998 +0100
@@ -11,9 +11,9 @@
 "
 
 Object subclass:#WindowBuilder
-	instanceVariableNames:'window application bindings visuals focusSequence namedComponents
-		helpKeys componentCreationHook applicationClass keyboardProcessor
-		subCanvasSpecs'
+	instanceVariableNames:'window application bindings visuals labels focusSequence
+		namedComponents helpKeys componentCreationHook applicationClass
+		keyboardProcessor subCanvasSpecs'
 	classVariableNames:'StopOnError'
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -300,6 +300,22 @@
     "Modified: 3.3.1997 / 18:32:27 / cg"
 !
 
+labelAt:name
+    labels isNil ifTrue:[^ nil].
+    ^ labels at:name asSymbol ifAbsent:nil
+
+    "Created: / 27.2.1998 / 13:52:28 / cg"
+!
+
+labelAt:name put:aLabelString
+    labels isNil ifTrue:[
+        labels := IdentityDictionary new.
+    ].
+    labels at:name asSymbol put:aLabelString
+
+    "Created: / 27.2.1998 / 02:30:54 / cg"
+!
+
 menuAt:aKey
     "Find a binding for the menu named aKey, either in the bindings 
      or from the source"
@@ -978,5 +994,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.60 1998-02-25 14:28:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.61 1998-02-27 12:52:54 cg Exp $'
 ! !