equal
deleted
inserted
replaced
1091 instSize := something. |
1091 instSize := something. |
1092 |
1092 |
1093 "Created: 13.5.1996 / 21:19:25 / cg" |
1093 "Created: 13.5.1996 / 21:19:25 / cg" |
1094 ! |
1094 ! |
1095 |
1095 |
1096 methodArray |
1096 methodDictionary |
1097 "return methodArray - required class protocol" |
1097 "return the methodDictionary - required class protocol" |
1098 |
1098 |
1099 ^ methodArray |
1099 ^ methodDictionary |
1100 |
|
1101 "Created: 13.5.1996 / 21:19:24 / cg" |
|
1102 ! |
|
1103 |
|
1104 methodArray:something |
|
1105 "set methodArray - required class protocol" |
|
1106 |
|
1107 methodArray := something. |
|
1108 |
|
1109 "Created: 13.5.1996 / 21:19:24 / cg" |
|
1110 ! |
1100 ! |
1111 |
1101 |
1112 otherSupers |
1102 otherSupers |
1113 "return otherSupers" |
1103 "return otherSupers" |
1114 |
1104 |
1119 |
1109 |
1120 otherSupers:something |
1110 otherSupers:something |
1121 "set otherSupers" |
1111 "set otherSupers" |
1122 |
1112 |
1123 otherSupers := something. |
1113 otherSupers := something. |
1124 |
|
1125 "Created: 13.5.1996 / 21:19:24 / cg" |
|
1126 ! |
|
1127 |
|
1128 selectorArray |
|
1129 "return selectorArray - required class protocol" |
|
1130 |
|
1131 ^ selectorArray |
|
1132 |
|
1133 "Created: 13.5.1996 / 21:19:24 / cg" |
|
1134 ! |
|
1135 |
|
1136 selectorArray:something |
|
1137 "set selectorArray - required class protocol" |
|
1138 |
|
1139 selectorArray := something. |
|
1140 |
1114 |
1141 "Created: 13.5.1996 / 21:19:24 / cg" |
1115 "Created: 13.5.1996 / 21:19:24 / cg" |
1142 ! |
1116 ! |
1143 |
1117 |
1144 superclass |
1118 superclass |
1288 (sel endsWith:$:) ifFalse:[ |
1262 (sel endsWith:$:) ifFalse:[ |
1289 (sel ~~ #class) ifTrue:[ |
1263 (sel ~~ #class) ifTrue:[ |
1290 "/ |
1264 "/ |
1291 "/ which method is it ? |
1265 "/ which method is it ? |
1292 "/ |
1266 "/ |
1293 (1 to:20) do:[:i | |
1267 1 to:20 do:[:i | |
1294 |mysel| |
1268 |mysel| |
1295 |
1269 |
1296 mysel := ('i' , i printString) asSymbol. |
1270 mysel := ('i' , i printString) asSymbol. |
1297 mthd == (Structure compiledMethodAt:mysel) ifTrue:[ |
1271 mthd == (Structure compiledMethodAt:mysel) ifTrue:[ |
1298 index := i |
1272 index := i |
1323 ! ! |
1297 ! ! |
1324 |
1298 |
1325 !Structure class methodsFor:'documentation'! |
1299 !Structure class methodsFor:'documentation'! |
1326 |
1300 |
1327 version |
1301 version |
1328 ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.4 1996-09-21 14:13:16 cg Exp $' |
1302 ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.5 1996-11-08 14:37:23 cg Exp $' |
1329 ! ! |
1303 ! ! |
1330 Structure initialize! |
1304 Structure initialize! |