equal
deleted
inserted
replaced
308 notifying:requestor |
308 notifying:requestor |
309 ifFail:nil |
309 ifFail:nil |
310 ]. |
310 ]. |
311 |
311 |
312 ignore ifTrue:[ |
312 ignore ifTrue:[ |
313 method setToIgnored |
313 method setPrivacy:#ignore |
314 ] ifFalse:[ |
314 ] ifFalse:[ |
315 privacy notNil ifTrue:[ |
315 privacy notNil ifTrue:[ |
316 privacy == #private ifTrue:[ |
316 method setPrivacy:privacy |
317 method setToPrivate |
|
318 ] ifFalse:[ |
|
319 privacy == #protected ifTrue:[ |
|
320 method setToProtected |
|
321 ] |
|
322 ] |
|
323 ] |
317 ] |
324 ] |
318 ] |
325 ] |
319 ] |
326 ]. |
320 ]. |
327 oneChunkOnly ifTrue:[done := true]. |
321 oneChunkOnly ifTrue:[done := true]. |
328 ] |
322 ] |
329 ] |
323 ] |
330 |
324 |
331 "Modified: 9.9.1995 / 15:29:08 / claus" |
325 "Modified: / 9.9.1995 / 15:29:08 / claus" |
332 "Created: 5.9.1996 / 17:45:45 / cg" |
326 "Created: / 5.9.1996 / 17:45:45 / cg" |
333 "Modified: 14.10.1997 / 16:15:38 / cg" |
327 "Modified: / 14.10.1997 / 16:15:38 / cg" |
|
328 "Modified: / 23.1.1998 / 15:25:01 / stefan" |
334 ! ! |
329 ! ! |
335 |
330 |
336 !ClassCategoryReader methodsFor:'private'! |
331 !ClassCategoryReader methodsFor:'private'! |
337 |
332 |
338 class:aClass category:aCategory |
333 class:aClass category:aCategory |
368 ! ! |
363 ! ! |
369 |
364 |
370 !ClassCategoryReader class methodsFor:'documentation'! |
365 !ClassCategoryReader class methodsFor:'documentation'! |
371 |
366 |
372 version |
367 version |
373 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.36 1997-11-02 19:14:50 cg Exp $' |
368 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.37 1998-01-23 17:52:18 stefan Exp $' |
374 ! ! |
369 ! ! |
375 ClassCategoryReader initialize! |
370 ClassCategoryReader initialize! |