--- a/Controller.st	Mon Jul 03 02:35:52 1995 +0200
+++ b/Controller.st	Sun Jul 23 04:29:59 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.22 1995-07-02 16:15:18 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.23 1995-07-23 02:25:33 claus Exp $
 '!
 
 !Controller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.22 1995-07-02 16:15:18 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.23 1995-07-23 02:25:33 claus Exp $
 "
 !
 
@@ -86,7 +86,7 @@
      right before it becomes visible.
      Can be redefined in subclasses to do some startup action."
 
-    ^ self
+    self controlInitialize.
 !
 
 release
@@ -97,6 +97,10 @@
     view notNil ifTrue:[view controller:nil].
     view := nil.
     model := nil
+!
+
+controlInitialize
+    ^ self
 ! !
 
 !Controller methodsFor:'ST-80 compatibility'!