Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 18 Aug 1999 14:44:58 +0200
changeset 2337 145b708186bf
parent 2336 da844d0c3a73
child 2338 0d791a4b518a
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Wed Aug 18 12:59:41 1999 +0200
+++ b/BrowserView.st	Wed Aug 18 14:44:58 1999 +0200
@@ -901,8 +901,9 @@
             "/ its the current class that has changed
             "/
             ((something == #methodDictionary)
+            or:[something == #methodPackage
             or:[something == #methodTrap
-            or:[something == #methodPrivacy]]) ifTrue:[
+            or:[something == #methodPrivacy]]]) ifTrue:[
 
                 "/ new feature: changeArg may be an array consisting of
                 "/ the selector and the oldMethod
@@ -938,7 +939,8 @@
 "/                    ].
 
                     (something == #methodTrap
-                    or:[something == #methodPrivacy]) ifTrue:[
+                    or:[something == #methodPackage
+                    or:[something == #methodPrivacy]]) ifTrue:[
                         selector == currentSelector ifTrue:[
                             self refetchMethod.
                         ].
@@ -9323,7 +9325,8 @@
         ^ self
     ].
 
-    currentMethod package:newPackage
+    currentMethod package:newPackage.
+    currentClass changed:#methodPackage with:currentSelector.
 
     "Created: 23.11.1995 / 11:41:38 / cg"
     "Modified: 6.2.1996 / 16:58:58 / cg"
@@ -13685,6 +13688,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.539 1999-08-18 10:59:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.540 1999-08-18 12:44:58 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Wed Aug 18 12:59:41 1999 +0200
+++ b/BrwsrView.st	Wed Aug 18 14:44:58 1999 +0200
@@ -901,8 +901,9 @@
             "/ its the current class that has changed
             "/
             ((something == #methodDictionary)
+            or:[something == #methodPackage
             or:[something == #methodTrap
-            or:[something == #methodPrivacy]]) ifTrue:[
+            or:[something == #methodPrivacy]]]) ifTrue:[
 
                 "/ new feature: changeArg may be an array consisting of
                 "/ the selector and the oldMethod
@@ -938,7 +939,8 @@
 "/                    ].
 
                     (something == #methodTrap
-                    or:[something == #methodPrivacy]) ifTrue:[
+                    or:[something == #methodPackage
+                    or:[something == #methodPrivacy]]) ifTrue:[
                         selector == currentSelector ifTrue:[
                             self refetchMethod.
                         ].
@@ -9323,7 +9325,8 @@
         ^ self
     ].
 
-    currentMethod package:newPackage
+    currentMethod package:newPackage.
+    currentClass changed:#methodPackage with:currentSelector.
 
     "Created: 23.11.1995 / 11:41:38 / cg"
     "Modified: 6.2.1996 / 16:58:58 / cg"
@@ -13685,6 +13688,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.539 1999-08-18 10:59:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.540 1999-08-18 12:44:58 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool