equal
deleted
inserted
replaced
774 ! ! |
774 ! ! |
775 |
775 |
776 !Block methodsFor:'copying'! |
776 !Block methodsFor:'copying'! |
777 |
777 |
778 deepCopyUsing:aDictionary postCopySelector:postCopySelector |
778 deepCopyUsing:aDictionary postCopySelector:postCopySelector |
779 "raise an error - deepCopy is not allowed for blocks" |
|
780 |
|
781 |copyOfHome copyOfMe| |
779 |copyOfHome copyOfMe| |
782 |
780 |
783 home isNil ifTrue:[ |
781 home isNil ifTrue:[ |
784 ^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector |
782 ^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector |
785 ]. |
783 ]. |
788 copyOfMe setHome:copyOfHome. |
786 copyOfMe setHome:copyOfHome. |
789 copyOfMe perform:postCopySelector withOptionalArgument:self and:aDictionary. |
787 copyOfMe perform:postCopySelector withOptionalArgument:self and:aDictionary. |
790 ^ copyOfMe |
788 ^ copyOfMe |
791 |
789 |
792 "Created: / 31-03-1998 / 15:46:17 / cg" |
790 "Created: / 31-03-1998 / 15:46:17 / cg" |
793 "Modified: / 20-10-2006 / 14:53:34 / User" |
|
794 "Modified: / 21-07-2011 / 13:30:12 / cg" |
791 "Modified: / 21-07-2011 / 13:30:12 / cg" |
795 ! ! |
792 ! ! |
796 |
793 |
797 !Block methodsFor:'error handling'! |
794 !Block methodsFor:'error handling'! |
798 |
795 |
3025 ! ! |
3022 ! ! |
3026 |
3023 |
3027 !Block class methodsFor:'documentation'! |
3024 !Block class methodsFor:'documentation'! |
3028 |
3025 |
3029 version |
3026 version |
3030 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.188 2012/05/22 09:58:15 stefan Exp $' |
3027 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.189 2012/11/24 12:51:52 stefan Exp $' |
3031 ! |
3028 ! |
3032 |
3029 |
3033 version_CVS |
3030 version_CVS |
3034 ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.188 2012/05/22 09:58:15 stefan Exp §' |
3031 ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.189 2012/11/24 12:51:52 stefan Exp §' |
3035 ! |
3032 ! |
3036 |
3033 |
3037 version_SVN |
3034 version_SVN |
3038 ^ '$Id: Block.st 10814 2012-06-05 13:35:12Z vranyj1 $' |
3035 ^ '$Id: Block.st 10876 2012-11-30 17:19:23Z vranyj1 $' |
3039 ! ! |
3036 ! ! |
3040 |
3037 |
3041 Block initialize! |
3038 Block initialize! |