StandardSystemView.st
changeset 4125 e8b878a4e8ab
parent 4060 3de2582320a0
child 4128 c8b677256664
--- a/StandardSystemView.st	Thu Mar 25 18:04:48 2004 +0100
+++ b/StandardSystemView.st	Mon Mar 29 15:43:20 2004 +0200
@@ -1500,6 +1500,17 @@
     "Created: 24.7.1997 / 18:11:26 / cg"
 !
 
+preRealize
+    "invoked right before the view is realized.
+     preRealize actions - tell the application (if any)."
+
+    super preRealize.
+
+    application notNil ifTrue:[
+        application aboutToOpen:self.
+    ].
+!
+
 recreate
     "recreate the view after a snap-in or a migration"
 
@@ -1525,7 +1536,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.154 2004-03-02 18:47:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.155 2004-03-29 13:43:20 cg Exp $'
 ! !
 
 StandardSystemView initialize!