update methodList on methodPackage changes
authorClaus Gittinger <cg@exept.de>
Fri, 20 Aug 1999 12:20:43 +0200
changeset 2347 1164de5147ea
parent 2346 a4ffb45a53ea
child 2348 b4fd9d8bb6dc
update methodList on methodPackage changes
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Fri Aug 20 12:14:35 1999 +0200
+++ b/BrowserView.st	Fri Aug 20 12:20:43 1999 +0200
@@ -1155,19 +1155,19 @@
     |argList sensor|
 
     (changedObject == ObjectMemory) ifTrue:[
-	(something == #earlyRestart 
-	or:[something == #restarted
-	or:[something == #returnFromSnapshot]]) ifTrue:[
-	    "/ those are to be ignored.
-	    ^ self
-	]
+        (something == #earlyRestart 
+        or:[something == #restarted
+        or:[something == #returnFromSnapshot]]) ifTrue:[
+            "/ those are to be ignored.
+            ^ self
+        ]
     ].
 
     "/
     "/ avoid update/warn after my own changes
     "/
     lockUpdates == true ifTrue:[
-	^ self
+        ^ self
     ].
 
     "/
@@ -1180,7 +1180,7 @@
 
     (LabelAndIcon isLoaded not
     or:[(sensor := self sensor) isNil]) ifTrue:[
-	^ self delayedUpdate:something with:someArgument from:changedObject
+        ^ self delayedUpdate:something with:someArgument from:changedObject
     ].
 
     "/
@@ -1188,19 +1188,19 @@
     "/ Otherwise push it as an event, to be handled when I am back
     "/
     argList := Array with:something 
-		     with:someArgument 
-		     with:changedObject.
+                     with:someArgument 
+                     with:changedObject.
 
     (sensor 
-	hasEvent:#delayedUpdate:with:from:
-	for:self
-	withArguments:argList) ifTrue:[
-	^ self
+        hasEvent:#delayedUpdate:with:from:
+        for:self
+        withArguments:argList) ifTrue:[
+        ^ self
     ].
     sensor
-	pushUserEvent:#delayedUpdate:with:from:
-	for:self
-	withArguments:argList
+        pushUserEvent:#delayedUpdate:with:from:
+        for:self
+        withArguments:argList
 
     "Modified: 26.3.1997 / 18:29:51 / cg"
 ! !
@@ -13698,6 +13698,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.541 1999-08-18 15:13:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.542 1999-08-20 10:20:43 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Aug 20 12:14:35 1999 +0200
+++ b/BrwsrView.st	Fri Aug 20 12:20:43 1999 +0200
@@ -1155,19 +1155,19 @@
     |argList sensor|
 
     (changedObject == ObjectMemory) ifTrue:[
-	(something == #earlyRestart 
-	or:[something == #restarted
-	or:[something == #returnFromSnapshot]]) ifTrue:[
-	    "/ those are to be ignored.
-	    ^ self
-	]
+        (something == #earlyRestart 
+        or:[something == #restarted
+        or:[something == #returnFromSnapshot]]) ifTrue:[
+            "/ those are to be ignored.
+            ^ self
+        ]
     ].
 
     "/
     "/ avoid update/warn after my own changes
     "/
     lockUpdates == true ifTrue:[
-	^ self
+        ^ self
     ].
 
     "/
@@ -1180,7 +1180,7 @@
 
     (LabelAndIcon isLoaded not
     or:[(sensor := self sensor) isNil]) ifTrue:[
-	^ self delayedUpdate:something with:someArgument from:changedObject
+        ^ self delayedUpdate:something with:someArgument from:changedObject
     ].
 
     "/
@@ -1188,19 +1188,19 @@
     "/ Otherwise push it as an event, to be handled when I am back
     "/
     argList := Array with:something 
-		     with:someArgument 
-		     with:changedObject.
+                     with:someArgument 
+                     with:changedObject.
 
     (sensor 
-	hasEvent:#delayedUpdate:with:from:
-	for:self
-	withArguments:argList) ifTrue:[
-	^ self
+        hasEvent:#delayedUpdate:with:from:
+        for:self
+        withArguments:argList) ifTrue:[
+        ^ self
     ].
     sensor
-	pushUserEvent:#delayedUpdate:with:from:
-	for:self
-	withArguments:argList
+        pushUserEvent:#delayedUpdate:with:from:
+        for:self
+        withArguments:argList
 
     "Modified: 26.3.1997 / 18:29:51 / cg"
 ! !
@@ -13698,6 +13698,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.541 1999-08-18 15:13:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.542 1999-08-20 10:20:43 cg Exp $'
 ! !
 BrowserView initialize!