equal
deleted
inserted
replaced
300 aClass methodsDo:[:aMethod | |
300 aClass methodsDo:[:aMethod | |
301 | method found wanted | |
301 | method found wanted | |
302 "Support for method overrides" |
302 "Support for method overrides" |
303 method := aMethod. |
303 method := aMethod. |
304 found := false. |
304 found := false. |
305 ((aCategory = 'loading') and:[(aMethod selector == #loadAsAutoloaded:)]) ifTrue:[self halt]. |
305 "/((aCategory = 'loading') and:[(aMethod selector == #loadAsAutoloaded:)]) ifTrue:[self halt]. |
306 [ method notNil and: [ found not ] ] whileTrue: |
306 [ method notNil and: [ found not ] ] whileTrue: |
307 [(methodFilter isNil or:[methodFilter value:method]) |
307 [(methodFilter isNil or:[methodFilter value:method]) |
308 ifTrue: [found := true] |
308 ifTrue: [found := true] |
309 ifFalse:[method := method overriddenMethod]]. |
309 ifFalse:[method := method overriddenMethod]]. |
310 method yourself. |
310 method yourself. |
380 ] |
380 ] |
381 |
381 |
382 "Modified: / 28-08-1995 / 14:30:41 / claus" |
382 "Modified: / 28-08-1995 / 14:30:41 / claus" |
383 "Modified: / 15-11-1996 / 11:32:21 / cg" |
383 "Modified: / 15-11-1996 / 11:32:21 / cg" |
384 "Created: / 01-04-1997 / 16:04:33 / stefan" |
384 "Created: / 01-04-1997 / 16:04:33 / stefan" |
385 "Modified: / 18-06-2009 / 14:25:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
385 "Modified: / 12-08-2009 / 12:30:43 / Jan Vrany <vranyj1@fel.cvut.cz>" |
386 ! |
386 ! |
387 |
387 |
388 fileOutCategory:aCategory of:aClass methodFilter:methodFilter on:aStream |
388 fileOutCategory:aCategory of:aClass methodFilter:methodFilter on:aStream |
389 "file out all methods belonging to aCategory, aString onto aStream" |
389 "file out all methods belonging to aCategory, aString onto aStream" |
390 |
390 |
394 ! ! |
394 ! ! |
395 |
395 |
396 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! |
396 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! |
397 |
397 |
398 version |
398 version |
399 ^ '$Id: SmalltalkChunkFileSourceWriter.st 10456 2009-06-18 13:19:12Z vranyj1 $' |
399 ^ '$Id: SmalltalkChunkFileSourceWriter.st 10461 2009-08-12 13:49:00Z vranyj1 $' |
400 ! ! |
400 ! ! |