equal
deleted
inserted
replaced
1267 ]. |
1267 ]. |
1268 |
1268 |
1269 (sel == #'perform:') ifTrue:[ |
1269 (sel == #'perform:') ifTrue:[ |
1270 ^ super perform:(args at:1) |
1270 ^ super perform:(args at:1) |
1271 ]. |
1271 ]. |
|
1272 (sel == #'perform:with:') ifTrue:[ |
|
1273 ^ super perform:(args at:1) with:(args at:2) |
|
1274 ]. |
1272 |
1275 |
1273 (sel == #'=') ifTrue:[ |
1276 (sel == #'=') ifTrue:[ |
1274 (args at:1) class == (args at:1) ifFalse:[^ false]. "/ must be another struct |
1277 (args at:1) class == (args at:1) ifFalse:[^ false]. "/ must be another struct |
1275 names := self allInstVarNames. |
1278 names := self allInstVarNames. |
1276 names notNil ifTrue:[ |
1279 names notNil ifTrue:[ |
1362 ^ #() |
1365 ^ #() |
1363 ]. |
1366 ]. |
1364 |
1367 |
1365 sel == #allClassVarNames ifTrue:[ |
1368 sel == #allClassVarNames ifTrue:[ |
1366 ^ #() |
1369 ^ #() |
|
1370 ]. |
|
1371 sel == #methodDictionary ifTrue:[ |
|
1372 ^methodDictionary |
1367 ]. |
1373 ]. |
1368 |
1374 |
1369 sel == #allInstVarNames ifTrue:[ |
1375 sel == #allInstVarNames ifTrue:[ |
1370 methodDictionary isNil ifTrue:[ |
1376 methodDictionary isNil ifTrue:[ |
1371 'Structure [info]: oops - nil methodDict' infoPrintCR. |
1377 'Structure [info]: oops - nil methodDict' infoPrintCR. |
1414 ! ! |
1420 ! ! |
1415 |
1421 |
1416 !Structure class methodsFor:'documentation'! |
1422 !Structure class methodsFor:'documentation'! |
1417 |
1423 |
1418 version |
1424 version |
1419 ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.19 2004-03-01 23:07:27 cg Exp $' |
1425 ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.20 2004-11-18 10:33:57 penk Exp $' |
1420 ! ! |
1426 ! ! |
1421 |
1427 |
1422 Structure initialize! |
1428 Structure initialize! |