equal
deleted
inserted
replaced
543 |
543 |
544 fileOutDefinitionOn:aStream |
544 fileOutDefinitionOn:aStream |
545 myClass fileOutClassInstVarDefinitionOn:aStream |
545 myClass fileOutClassInstVarDefinitionOn:aStream |
546 |
546 |
547 "Modified: / 21.6.1998 / 04:10:02 / cg" |
547 "Modified: / 21.6.1998 / 04:10:02 / cg" |
|
548 ! |
|
549 |
|
550 fileOutOn:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil |
|
551 "file out my definition and all methods onto aStream. |
|
552 If stampIt is true, a timeStamp comment is prepended. |
|
553 If initIt is true, and the class implements a class-initialize method, |
|
554 append a corresponding doIt expression for initialization. |
|
555 The order by which the fileOut is done is used to put the version string at the end. |
|
556 Thus, if the version string is expanded (by CVS), the characterPositions of methods should not move" |
|
557 |
|
558 SmalltalkChunkFileSourceWriter new |
|
559 fileOut:myClass on:outStreamArg withTimeStamp:stampIt |
|
560 withInitialize:initIt withDefinition:withDefinition |
|
561 methodFilter:methodFilter encoder:encoderOrNil |
548 ! ! |
562 ! ! |
549 |
563 |
550 !Metaclass methodsFor:'private'! |
564 !Metaclass methodsFor:'private'! |
551 |
565 |
552 setSoleInstance:aClass |
566 setSoleInstance:aClass |
704 " |
718 " |
705 |
719 |
706 "Modified: 2.4.1997 / 01:17:04 / stefan" |
720 "Modified: 2.4.1997 / 01:17:04 / stefan" |
707 ! |
721 ! |
708 |
722 |
|
723 sourceFileSuffix |
|
724 ^ 'st' |
|
725 ! |
|
726 |
709 sourceStream |
727 sourceStream |
710 "return the classes source stream" |
728 "return the classes source stream" |
711 |
729 |
712 ^ myClass sourceStream |
730 ^ myClass sourceStream |
713 |
731 |
723 ! ! |
741 ! ! |
724 |
742 |
725 !Metaclass class methodsFor:'documentation'! |
743 !Metaclass class methodsFor:'documentation'! |
726 |
744 |
727 version |
745 version |
728 ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.187 2003-09-22 09:10:31 cg Exp $' |
746 ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.188 2004-03-19 08:17:11 ca Exp $' |
729 ! ! |
747 ! ! |
730 |
748 |
731 Metaclass initialize! |
749 Metaclass initialize! |