BrowserView.st
changeset 701 45bde553b0eb
parent 694 af82075139a1
child 706 6b4ce4a5075e
--- a/BrowserView.st	Fri Aug 30 01:52:17 1996 +0200
+++ b/BrowserView.st	Fri Aug 30 18:52:08 1996 +0200
@@ -137,6 +137,15 @@
 update:something with:someArgument from:changedObject
     |list selector oldMethod|
 
+    (changedObject == ObjectMemory) ifTrue:[
+        (something == #earlyRestart 
+        or:[something == #restarted
+        or:[something == #returnFromSnapshot]]) ifTrue:[
+            "/ those are to be ignored.
+            ^ self
+        ]
+    ].
+
     "
      avoid update/warn after my own changes
     "
@@ -347,7 +356,7 @@
     (changedObject isMethod) ifTrue:[
     ]
 
-    "Modified: 8.2.1996 / 20:41:05 / cg"
+    "Modified: 30.8.1996 / 18:50:39 / cg"
 ! !
 
 !BrowserView methodsFor:'class category list menu'!
@@ -7372,6 +7381,6 @@
 !BrowserView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.161 1996-08-19 22:20:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.162 1996-08-30 16:52:08 cg Exp $'
 ! !
 BrowserView initialize!