--- a/WinBuilder.st	Tue Feb 11 11:54:23 1997 +0100
+++ b/WinBuilder.st	Tue Feb 11 12:03:30 1997 +0100
@@ -157,6 +157,13 @@
 
 buildFromSpec:aSpec
     ^ self subclassResponsibility
+!
+
+makeTabable:aComponent
+    focusSequence isNil ifTrue:[
+        focusSequence := OrderedCollection new.
+    ].
+    focusSequence add:aComponent
 ! !
 
 !WindowBuilder methodsFor:'spec creation callbacks'!
@@ -293,5 +300,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.15 1997-01-17 20:37:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.16 1997-02-11 11:03:30 ca Exp $'
 ! !