equal
deleted
inserted
replaced
368 ^ self == Block |
368 ^ self == Block |
369 |
369 |
370 "Modified: 23.4.1996 / 15:55:58 / cg" |
370 "Modified: 23.4.1996 / 15:55:58 / cg" |
371 ! ! |
371 ! ! |
372 |
372 |
|
373 |
373 !Block methodsFor:'Compatibility-ANSI'! |
374 !Block methodsFor:'Compatibility-ANSI'! |
374 |
375 |
375 argumentCount |
376 argumentCount |
376 "VisualAge/ANSI compatibility: alias for #numArgs. |
377 "VisualAge/ANSI compatibility: alias for #numArgs. |
377 return the number of arguments I expect for evaluation" |
378 return the number of arguments I expect for evaluation" |
711 ^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector |
712 ^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector |
712 ]. |
713 ]. |
713 copyOfHome := home deepCopyUsing:aDictionary. |
714 copyOfHome := home deepCopyUsing:aDictionary. |
714 copyOfMe := self shallowCopy. |
715 copyOfMe := self shallowCopy. |
715 copyOfMe setHome:copyOfHome. |
716 copyOfMe setHome:copyOfHome. |
716 copyOfMe perform:postCopySelector with:self. |
717 copyOfMe perform:postCopySelector withOptionalArgument:self and:aDictionary. |
717 ^ copyOfMe |
718 ^ copyOfMe |
718 |
719 |
719 "Created: / 31-03-1998 / 15:46:17 / cg" |
720 "Created: / 31-03-1998 / 15:46:17 / cg" |
720 "Modified: / 20-10-2006 / 14:53:34 / User" |
721 "Modified: / 20-10-2006 / 14:53:34 / User" |
|
722 "Modified: / 21-07-2011 / 13:30:12 / cg" |
721 ! ! |
723 ! ! |
722 |
724 |
723 !Block methodsFor:'error handling'! |
725 !Block methodsFor:'error handling'! |
724 |
726 |
725 invalidCodeObject |
727 invalidCodeObject |
2947 ! ! |
2949 ! ! |
2948 |
2950 |
2949 !Block class methodsFor:'documentation'! |
2951 !Block class methodsFor:'documentation'! |
2950 |
2952 |
2951 version |
2953 version |
2952 ^ '$Id: Block.st 10660 2011-07-18 15:22:09Z vranyj1 $' |
2954 ^ '$Id: Block.st 10665 2011-08-10 14:59:08Z vranyj1 $' |
2953 ! |
2955 ! |
2954 |
2956 |
2955 version_CVS |
2957 version_CVS |
2956 ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.184 2011/01/18 18:24:31 cg Exp §' |
2958 ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.185 2011/07/21 11:36:58 cg Exp §' |
2957 ! ! |
2959 ! ! |
2958 |
2960 |
2959 Block initialize! |
2961 Block initialize! |
|
2962 |