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.
access methodDictionary instead of the old methodArray
authorClaus Gittinger <cg@exept.de>
Sat, 04 Jan 1997 16:40:42 +0100
changeset 904 df0b2ed7a462
parent 903 843c830fa921
child 905 f246868be4b1
access methodDictionary instead of the old methodArray
ProjectV.st file | annotate | diff | comparison | revisions
ProjectView.st file | annotate | diff | comparison | revisions 
--- a/ProjectV.st	Sat Jan 04 16:01:05 1997 +0100
+++ b/ProjectV.st	Sat Jan 04 16:40:42 1997 +0100
@@ -482,14 +482,14 @@
         |p|
 
         (classesToRemove includes:aClass) ifFalse:[
-            aClass methodArray do:[:aMethod |
+            aClass methodDictionary keysAndValuesDo:[:sel :aMethod |
                 (p := aMethod package) notNil ifTrue:[
                     p = theProject  ifTrue:[
                         methodsToRemove add:aMethod
                     ]
                 ]
             ].
-            aClass class methodArray do:[:aMethod |
+            aClass class methodDictionary keysAndValuesDo:[:sel :aMethod |
                 (p := aMethod package) notNil ifTrue:[
                     p = theProject  ifTrue:[
                         methodsToRemove add:aMethod
@@ -634,5 +634,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.33 1997-01-02 19:28:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.34 1997-01-04 15:40:42 cg Exp $'
 ! !
--- a/ProjectView.st	Sat Jan 04 16:01:05 1997 +0100
+++ b/ProjectView.st	Sat Jan 04 16:40:42 1997 +0100
@@ -482,14 +482,14 @@
         |p|
 
         (classesToRemove includes:aClass) ifFalse:[
-            aClass methodArray do:[:aMethod |
+            aClass methodDictionary keysAndValuesDo:[:sel :aMethod |
                 (p := aMethod package) notNil ifTrue:[
                     p = theProject  ifTrue:[
                         methodsToRemove add:aMethod
                     ]
                 ]
             ].
-            aClass class methodArray do:[:aMethod |
+            aClass class methodDictionary keysAndValuesDo:[:sel :aMethod |
                 (p := aMethod package) notNil ifTrue:[
                     p = theProject  ifTrue:[
                         methodsToRemove add:aMethod
@@ -634,5 +634,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.33 1997-01-02 19:28:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.34 1997-01-04 15:40:42 cg Exp $'
 ! !
hg/stx-libtool