# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 852471780 -3600
# Node ID ccbc84af922cfefb4e475912d54032429b4d1a64
# Parent  927e36f25eacf14d03597e176c217eb080fc041a
oops - dont delay update if occurring during startup;
dont offer definition menu-item for autoloaded classes.

diff -r 927e36f25eac -r ccbc84af922c BrowserView.st
--- a/BrowserView.st	Sun Jan 05 03:22:50 1997 +0100
+++ b/BrowserView.st	Sun Jan 05 14:43:00 1997 +0100
@@ -359,7 +359,7 @@
 !
 
 update:something with:someArgument from:changedObject
-    |argList|
+    |argList sensor|
 
     (changedObject == ObjectMemory) ifTrue:[
         (something == #earlyRestart 
@@ -377,6 +377,12 @@
         ^ self
     ].
 
+    (sensor := self sensor) isNil ifTrue:[
+        "/ mhmh - an update, but I am not yet visible
+
+        ^ self delayedUpdate:something with:someArgument from:changedObject
+    ].
+
     "/
     "/ if such an update is already in the queue, ignore it.
     "/ Otherwise push it as an event, to be handled when I am back
@@ -1856,7 +1862,6 @@
     ] ifFalse:[
         currentClass isLoaded ifFalse:[
             labels :=    #(
-                           'definition'
                            'documentation'
                            '-'
                            'class refs'
@@ -1866,7 +1871,6 @@
                            'load'
                          ).
             selectors := #(
-                           classDefinition
                            classDocumentation
                            nil
                            classRefs
@@ -2008,7 +2012,7 @@
     m subMenuAt:#otherMenu put:specialMenu.
     ^ m
 
-    "Modified: 4.1.1997 / 15:48:15 / cg"
+    "Modified: 5.1.1997 / 14:32:56 / cg"
 !
 
 classNewClass
@@ -9055,6 +9059,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.244 1997-01-05 02:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.245 1997-01-05 13:43:00 cg Exp $'
 ! !
 BrowserView initialize!
diff -r 927e36f25eac -r ccbc84af922c BrwsrView.st
--- a/BrwsrView.st	Sun Jan 05 03:22:50 1997 +0100
+++ b/BrwsrView.st	Sun Jan 05 14:43:00 1997 +0100
@@ -359,7 +359,7 @@
 !
 
 update:something with:someArgument from:changedObject
-    |argList|
+    |argList sensor|
 
     (changedObject == ObjectMemory) ifTrue:[
         (something == #earlyRestart 
@@ -377,6 +377,12 @@
         ^ self
     ].
 
+    (sensor := self sensor) isNil ifTrue:[
+        "/ mhmh - an update, but I am not yet visible
+
+        ^ self delayedUpdate:something with:someArgument from:changedObject
+    ].
+
     "/
     "/ if such an update is already in the queue, ignore it.
     "/ Otherwise push it as an event, to be handled when I am back
@@ -1856,7 +1862,6 @@
     ] ifFalse:[
         currentClass isLoaded ifFalse:[
             labels :=    #(
-                           'definition'
                            'documentation'
                            '-'
                            'class refs'
@@ -1866,7 +1871,6 @@
                            'load'
                          ).
             selectors := #(
-                           classDefinition
                            classDocumentation
                            nil
                            classRefs
@@ -2008,7 +2012,7 @@
     m subMenuAt:#otherMenu put:specialMenu.
     ^ m
 
-    "Modified: 4.1.1997 / 15:48:15 / cg"
+    "Modified: 5.1.1997 / 14:32:56 / cg"
 !
 
 classNewClass
@@ -9055,6 +9059,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.244 1997-01-05 02:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.245 1997-01-05 13:43:00 cg Exp $'
 ! !
 BrowserView initialize!