equal
deleted
inserted
replaced
44216 classesInProject := IdentitySet new. |
44216 classesInProject := IdentitySet new. |
44217 environment allClassesDo:[:aClass | |
44217 environment allClassesDo:[:aClass | |
44218 (packageToCheck = aClass package) ifTrue:[ |
44218 (packageToCheck = aClass package) ifTrue:[ |
44219 aClass isPrivate ifFalse:[ |
44219 aClass isPrivate ifFalse:[ |
44220 aClass isObsolete ifTrue:[ |
44220 aClass isObsolete ifTrue:[ |
44221 Transcript showCR:'skipping obsolete class: ' , aClass name. |
44221 Logger debug:'skipping obsolete class: %1' with:aClass displayString. |
44222 ] ifFalse:[ |
44222 ] ifFalse:[ |
44223 classesInProject add:aClass . |
44223 classesInProject add:aClass . |
44224 ] |
44224 ] |
44225 ] |
44225 ] |
44226 ] |
44226 ] |
44293 ] |
44293 ] |
44294 ]. |
44294 ]. |
44295 ]. |
44295 ]. |
44296 self normalLabel |
44296 self normalLabel |
44297 |
44297 |
44298 "Modified: / 12-09-2006 / 14:22:58 / cg" |
|
44299 "Modified (format): / 01-02-2017 / 16:50:49 / stefan" |
44298 "Modified (format): / 01-02-2017 / 16:50:49 / stefan" |
|
44299 "Modified: / 14-03-2017 / 12:06:22 / cg" |
44300 ! |
44300 ! |
44301 |
44301 |
44302 projectPackageDependencyBrowser |
44302 projectPackageDependencyBrowser |
44303 "find methods in a particular release of a set of pacakges |
44303 "find methods in a particular release of a set of pacakges |
44304 called by a set of packages from a particular release in another set of packages. |
44304 called by a set of packages from a particular release in another set of packages. |