--- a/DevWorkst.st	Tue Aug 31 00:17:00 1999 +0200
+++ b/DevWorkst.st	Tue Aug 31 00:18:41 1999 +0200
@@ -6033,6 +6033,16 @@
     "Modified: 2.4.1997 / 19:15:46 / cg"
 !
 
+initializeTopViewHookFor:aView
+    "callBack from topViews initialize method.
+     empty here, but may be useful ..."
+!
+
+realizedTopViewHookFor:aView
+    "callBack from topViews realize method.
+     empty here, but may be useful ..."
+!
+
 removeKnownView:aView withId:aViewId
     "remove aView from the list of known views/id's."
 
@@ -6528,6 +6538,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.324 1999-08-30 17:53:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.325 1999-08-30 22:18:41 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Tue Aug 31 00:17:00 1999 +0200
+++ b/DeviceWorkstation.st	Tue Aug 31 00:18:41 1999 +0200
@@ -6033,6 +6033,16 @@
     "Modified: 2.4.1997 / 19:15:46 / cg"
 !
 
+initializeTopViewHookFor:aView
+    "callBack from topViews initialize method.
+     empty here, but may be useful ..."
+!
+
+realizedTopViewHookFor:aView
+    "callBack from topViews realize method.
+     empty here, but may be useful ..."
+!
+
 removeKnownView:aView withId:aViewId
     "remove aView from the list of known views/id's."
 
@@ -6528,6 +6538,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.324 1999-08-30 17:53:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.325 1999-08-30 22:18:41 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/TopView.st	Tue Aug 31 00:17:00 1999 +0200
+++ b/TopView.st	Tue Aug 31 00:18:41 1999 +0200
@@ -283,10 +283,17 @@
 
     super initialize.
 
+    device initializeTopViewHookFor:self.
+
     screenCenter := device center.
     left := screenCenter x - (width // 2).
     top := screenCenter y - (height // 2).
     type := #normal
+!
+
+postRealize
+    super postRealize.
+    device realizedTopViewHookFor:self
 ! !
 
 !TopView methodsFor:'misc'!
@@ -651,5 +658,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.60 1999-07-21 20:52:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.61 1999-08-30 22:17:58 cg Exp $'
 ! !