--- a/TopView.st	Fri Apr 02 18:49:34 2004 +0200
+++ b/TopView.st	Fri Apr 02 19:33:17 2004 +0200
@@ -393,7 +393,7 @@
     "define the sequence for stepping through my components."
 
     windowGroup isNil ifTrue:[
-        windowGroup := WindowGroup new.
+	windowGroup := self windowGroupClass new.
     ].
     windowGroup focusSequence:aCollectionOfSubcomponents.
 
@@ -1023,7 +1023,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.87 2004-04-02 16:21:46 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.88 2004-04-02 17:33:17 werner Exp $'
 ! !
 
 TopView initialize!