equal
deleted
inserted
replaced
21 |
21 |
22 Project comment:' |
22 Project comment:' |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.23 1995-08-03 01:16:24 claus Exp $ |
26 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.24 1995-08-08 00:48:30 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !Project class methodsFor:'documentation'! |
29 !Project class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.23 1995-08-03 01:16:24 claus Exp $ |
47 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.24 1995-08-08 00:48:30 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
247 only methods are returned which are not contained in the |
247 only methods are returned which are not contained in the |
248 projects class set." |
248 projects class set." |
249 |
249 |
250 |classes methods| |
250 |classes methods| |
251 |
251 |
252 classes := self classes asIdentitySet. |
252 classes := self classes. |
|
253 classes notNil ifTrue:[ |
|
254 classes := classes asIdentitySet. |
|
255 ] ifFalse:[ |
|
256 classes := #() |
|
257 ]. |
253 |
258 |
254 methods := IdentitySet new. |
259 methods := IdentitySet new. |
255 Smalltalk allBehaviorsDo:[:cls | |
260 Smalltalk allBehaviorsDo:[:cls | |
256 (classes isNil or:[(classes includes:cls) not]) ifTrue:[ |
261 (classes isNil or:[(classes includes:cls) not]) ifTrue:[ |
257 cls methodArray do:[:m | |
262 cls methodArray do:[:m | |