equal
deleted
inserted
replaced
1083 ! |
1083 ! |
1084 |
1084 |
1085 storeBinaryDefinitionOn: stream manager: manager |
1085 storeBinaryDefinitionOn: stream manager: manager |
1086 "binary store of a classes definition. |
1086 "binary store of a classes definition. |
1087 Classes will store the name only and restore by looking for |
1087 Classes will store the name only and restore by looking for |
1088 that name in the Smalltalk dictionary." |
1088 that name in the Smalltalk dictionary. |
|
1089 This is an internal interface for binary storage mechanism." |
1089 |
1090 |
1090 | myName | |
1091 | myName | |
1091 |
1092 |
1092 myName := self name. |
1093 myName := self name. |
1093 stream nextNumber:4 put:self signature. |
1094 stream nextNumber:4 put:self signature. |
1094 stream nextNumber:2 put:0. |
1095 stream nextNumber:2 put:0. |
1095 stream nextNumber:2 put:myName size. |
1096 stream nextNumber:2 put:myName size. |
1096 myName do:[:c| |
1097 myName do:[:c| |
1097 stream nextPut:c asciiValue |
1098 stream nextPut:c asciiValue |
1098 ] |
1099 ] |
1099 |
1100 |
1100 " |
1101 " |
1101 |s| |
1102 |s| |
1102 s := WriteStream on:ByteArray new. |
1103 s := WriteStream on:ByteArray new. |
1106 |s| |
1107 |s| |
1107 s := WriteStream on:ByteArray new. |
1108 s := WriteStream on:ByteArray new. |
1108 Rectangle storeBinaryOn:s. |
1109 Rectangle storeBinaryOn:s. |
1109 Object readBinaryFrom:(ReadStream on:s contents) |
1110 Object readBinaryFrom:(ReadStream on:s contents) |
1110 " |
1111 " |
|
1112 |
|
1113 "Modified: 23.4.1996 / 09:29:44 / cg" |
1111 ! ! |
1114 ! ! |
1112 |
1115 |
1113 !Behavior methodsFor:'compiler interface'! |
1116 !Behavior methodsFor:'compiler interface'! |
1114 |
1117 |
1115 compiler |
1118 compiler |
3182 ! ! |
3185 ! ! |
3183 |
3186 |
3184 !Behavior class methodsFor:'documentation'! |
3187 !Behavior class methodsFor:'documentation'! |
3185 |
3188 |
3186 version |
3189 version |
3187 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.69 1996-04-16 18:07:15 cg Exp $' |
3190 ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.70 1996-04-23 07:31:38 cg Exp $' |
3188 ! ! |
3191 ! ! |