# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 939468949 -7200
# Node ID ca6590dae7383782435de0237080524589994b3c
# Parent  9b66c237df0a565e75ff65f865ac354c4ed5df69
checkin from browser

diff -r 9b66c237df0a -r ca6590dae738 ProjectBrowser.st
--- a/ProjectBrowser.st	Sat Oct 09 12:01:56 1999 +0200
+++ b/ProjectBrowser.st	Sat Oct 09 13:35:49 1999 +0200
@@ -3445,6 +3445,8 @@
 !ProjectBrowser methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
+    |cls sel oldMthd newMthd prj package|
+
     something == #name ifTrue:[
         "/ a project was renamed - update my tree
         self projectTree children do:[:pNode |
@@ -3456,16 +3458,64 @@
         ^ self.
     ].
 
-    changedObject == self currentProject ifTrue:[
+    prj := self currentProject.
+    prj isNil ifTrue:[^ self].
+
+    package := prj package.
+
+    changedObject == prj ifTrue:[
         self readAspectsFromProject.
     ].
 
+    changedObject == Smalltalk ifTrue:[
+        something == #newClass ifTrue:[
+            aParameter isBehavior ifTrue:[
+                aParameter wasAutoloaded ifTrue:[
+                    self listOfAllClassesInPrerequisites add:something name.
+                    ^ self.
+                ].
+                aParameter package = package ifTrue:[
+                    self halt.
+                ]
+            ]
+        ].
+
+        something == #methodInClass ifTrue:[
+            cls := aParameter first.
+            sel := aParameter second.
+            oldMthd := aParameter third.
+            newMthd := cls compiledMethodAt:sel.
+
+            cls package ~= package ifTrue:[
+                "/ method removed from project ?
+                (oldMthd notNil and:[oldMthd package = package]) ifTrue:[
+                    (newMthd notNil and:[newMthd package ~= package]) ifTrue:[
+                        "/ remove from methodList
+                    ]
+                ].
+
+                "/ method added to project ?
+                (oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[
+                    (newMthd notNil and:[newMthd package = package]) ifTrue:[
+                        "/ add to methodList
+                    ]
+                ]
+            ]
+        ].
+    ].
+
     "Modified: / 26.4.1999 / 23:39:04 / cg"
 ! !
 
 !ProjectBrowser methodsFor:'initialization'!
 
+closeDownViews
+    Smalltalk removeDependent:self.
+    super closeDownViews.
+!
+
 postBuildWith:aBuiler
+    Smalltalk addDependent:self.
     self modifiedChannel value:false.
 
     self updateRightCanvas.