equal
deleted
inserted
replaced
680 sourceManager |
680 sourceManager |
681 "Answer the receiver's source manager." |
681 "Answer the receiver's source manager." |
682 |
682 |
683 ^ Dolphin::SourceManager default |
683 ^ Dolphin::SourceManager default |
684 ! ! |
684 ! ! |
685 |
|
686 |
685 |
687 !ClassDescription methodsFor:'Compatibility-ST80'! |
686 !ClassDescription methodsFor:'Compatibility-ST80'! |
688 |
687 |
689 addInstVarName:anotherInstVar |
688 addInstVarName:anotherInstVar |
690 ^ self addInstVarName:anotherInstVar afterIndex: nil |
689 ^ self addInstVarName:anotherInstVar afterIndex: nil |
2456 aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'. |
2455 aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'. |
2457 ] ifFalse:[ |
2456 ] ifFalse:[ |
2458 aStream nextPutAll:' methodsFor:'. |
2457 aStream nextPutAll:' methodsFor:'. |
2459 ]. |
2458 ]. |
2460 |
2459 |
2461 cat := aMethod category ? ''. |
2460 cat := aMethod category ? '* no category *'. |
2462 aStream nextPutAll:cat asString storeString. |
2461 aStream nextPutAll:cat asString storeString. |
2463 aStream nextPutChunkSeparator; cr; cr. |
2462 aStream nextPutChunkSeparator; cr; cr. |
2464 |
2463 |
2465 source := aMethod source. |
2464 source := aMethod source. |
2466 source isNil ifTrue:[ |
2465 source isNil ifTrue:[ |
2474 ]. |
2473 ]. |
2475 aStream space. |
2474 aStream space. |
2476 aStream nextPutChunkSeparator. |
2475 aStream nextPutChunkSeparator. |
2477 aStream cr |
2476 aStream cr |
2478 |
2477 |
2479 "Modified: 27.8.1995 / 01:23:19 / claus" |
2478 "Modified: / 27-08-1995 / 01:23:19 / claus" |
2480 "Modified: 12.6.1996 / 11:44:41 / stefan" |
2479 "Modified: / 12-06-1996 / 11:44:41 / stefan" |
2481 "Modified: 15.11.1996 / 11:32:43 / cg" |
2480 "Modified: / 15-11-1996 / 11:32:43 / cg" |
2482 "Created: 2.4.1997 / 00:24:33 / stefan" |
2481 "Created: / 02-04-1997 / 00:24:33 / stefan" |
|
2482 "Modified: / 03-03-2019 / 22:26:47 / Claus Gittinger" |
2483 ! |
2483 ! |
2484 |
2484 |
2485 fileOutMethods:methods on:aStream |
2485 fileOutMethods:methods on:aStream |
2486 "/ WARNING: will be obsoleted by SmalltalkChunkFileSourceWriter |
2486 "/ WARNING: will be obsoleted by SmalltalkChunkFileSourceWriter |
2487 |
2487 |
2569 aStream nextPutLine:'<methods>'. |
2569 aStream nextPutLine:'<methods>'. |
2570 aStream nextPutAll:' <class-id>'. |
2570 aStream nextPutAll:' <class-id>'. |
2571 aStream nextPutAll:self name. |
2571 aStream nextPutAll:self name. |
2572 aStream nextPutLine:'</class-id>'. |
2572 aStream nextPutLine:'</class-id>'. |
2573 aStream nextPutAll:' <category>'. |
2573 aStream nextPutAll:' <category>'. |
2574 aStream nextPutAll:(aMethod category ?''). |
2574 aStream nextPutAll:(aMethod category ? '* no category *'). |
2575 aStream nextPutLine:'</category>'. |
2575 aStream nextPutLine:'</category>'. |
2576 |
2576 |
2577 privacy ~~ #public ifTrue:[ |
2577 privacy ~~ #public ifTrue:[ |
2578 aStream nextPutAll:' <privacy>'. |
2578 aStream nextPutAll:' <privacy>'. |
2579 aStream nextPutAll:privacy. |
2579 aStream nextPutAll:privacy. |
2589 aStream nextPutAll:' <body>'. |
2589 aStream nextPutAll:' <body>'. |
2590 source printXmlTextQuotedOn:aStream. |
2590 source printXmlTextQuotedOn:aStream. |
2591 aStream nextPutLine:' </body>'. |
2591 aStream nextPutLine:' </body>'. |
2592 ]. |
2592 ]. |
2593 aStream nextPutLine:'</methods>'. |
2593 aStream nextPutLine:'</methods>'. |
|
2594 |
|
2595 "Modified: / 03-03-2019 / 22:27:06 / Claus Gittinger" |
2594 ! ! |
2596 ! ! |
2595 |
2597 |
2596 !ClassDescription methodsFor:'initialization'! |
2598 !ClassDescription methodsFor:'initialization'! |
2597 |
2599 |
2598 initializeWithAllPrivateClasses |
2600 initializeWithAllPrivateClasses |