Class.st
changeset 435 ff583b2bb958
parent 432 5815c61da8a2
child 453 57381f377c3f
equal deleted inserted replaced
434:0511ecb7c818 435:ff583b2bb958
    21 
    21 
    22 Class comment:'
    22 Class comment:'
    23 COPYRIGHT (c) 1989 by Claus Gittinger
    23 COPYRIGHT (c) 1989 by Claus Gittinger
    24 	      All Rights Reserved
    24 	      All Rights Reserved
    25 
    25 
    26 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.61 1995-09-13 18:51:47 claus Exp $
    26 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.62 1995-09-14 23:21:46 claus Exp $
    27 '!
    27 '!
    28 
    28 
    29 !Class class methodsFor:'documentation'!
    29 !Class 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/Class.st,v 1.61 1995-09-13 18:51:47 claus Exp $
    47 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.62 1995-09-14 23:21:46 claus Exp $
    48 "
    48 "
    49 !
    49 !
    50 
    50 
    51 documentation
    51 documentation
    52 "
    52 "
  1182 
  1182 
  1183 addChangeRecordForPrimitiveVariables:aClass to:aStream
  1183 addChangeRecordForPrimitiveVariables:aClass to:aStream
  1184     "append a primitiveVariables-record to aStream"
  1184     "append a primitiveVariables-record to aStream"
  1185 
  1185 
  1186     aStream nextPutAll:aClass name 
  1186     aStream nextPutAll:aClass name 
  1187 			, ' primitiveVariables: ' 
  1187 			, ' primitiveVariables:' 
  1188 			, aClass primitiveVariablesString storeString.
  1188 			, aClass primitiveVariablesString storeString.
  1189     aStream nextPutChunkSeparator.
  1189     aStream nextPutChunkSeparator.
  1190 !
  1190 !
  1191 
  1191 
  1192 addChangeRecordForPrimitiveDefinitions:aClass to:aStream
  1192 addChangeRecordForPrimitiveDefinitions:aClass to:aStream
  1193     "append a primitiveDefinitions-record to aStream"
  1193     "append a primitiveDefinitions-record to aStream"
  1194 
  1194 
  1195     aStream nextPutAll:aClass name 
  1195     aStream nextPutAll:aClass name 
  1196 			, ' primitiveDefinitions: ' 
  1196 			, ' primitiveDefinitions:' 
  1197 			, aClass primitiveDefinitionsString storeString.
  1197 			, aClass primitiveDefinitionsString storeString.
  1198     aStream nextPutChunkSeparator.
  1198     aStream nextPutChunkSeparator.
  1199 !
  1199 !
  1200 
  1200 
  1201 addChangeRecordForPrimitiveFunctions:aClass to:aStream
  1201 addChangeRecordForPrimitiveFunctions:aClass to:aStream
  1202     "append a primitiveFunctions-record to aStream"
  1202     "append a primitiveFunctions-record to aStream"
  1203 
  1203 
  1204     aStream nextPutAll:aClass name 
  1204     aStream nextPutAll:aClass name 
  1205 			, ' primitiveFunctions: ' 
  1205 			, ' primitiveFunctions:' 
  1206 			, aClass primitiveFunctionsString storeString.
  1206 			, aClass primitiveFunctionsString storeString.
  1207     aStream nextPutChunkSeparator.
  1207     aStream nextPutChunkSeparator.
  1208 !
  1208 !
  1209 
  1209 
  1210 addChangeRecordForClassRename:oldName to:newName to:aStream
  1210 addChangeRecordForClassRename:oldName to:newName to:aStream