equal
deleted
inserted
replaced
747 "Modified: 23.10.1996 / 16:20:06 / cg" |
747 "Modified: 23.10.1996 / 16:20:06 / cg" |
748 ! ! |
748 ! ! |
749 |
749 |
750 !Context methodsFor:'copying'! |
750 !Context methodsFor:'copying'! |
751 |
751 |
752 deepCopyUsing:aDictionary |
752 deepCopyUsing:aDictionary postCopySelector:postCopySelector |
753 "raise an error - deepCopy is not allowed for contexts" |
753 "raise an error - deepCopy is not allowed for contexts" |
754 |
754 |
755 |copyOfMe| |
755 |copyOfMe| |
756 |
756 |
757 copyOfMe := self shallowCopy. |
757 copyOfMe := self shallowCopy. |
758 copyOfMe setSender:nil. |
758 copyOfMe setSender:nil. |
|
759 copyOfMe perform:postCopySelector with:self. |
759 ^ copyOfMe |
760 ^ copyOfMe |
760 |
761 |
761 "Created: / 31-03-1998 / 15:51:14 / cg" |
762 "Created: / 31-03-1998 / 15:51:14 / cg" |
762 "Modified: / 20-10-2006 / 14:54:12 / User" |
763 "Modified: / 20-10-2006 / 14:54:12 / User" |
763 ! ! |
764 ! ! |
2245 ! ! |
2246 ! ! |
2246 |
2247 |
2247 !Context class methodsFor:'documentation'! |
2248 !Context class methodsFor:'documentation'! |
2248 |
2249 |
2249 version |
2250 version |
2250 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.137 2007-12-04 16:24:10 stefan Exp $' |
2251 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.138 2008-04-09 19:39:52 ab Exp $' |
2251 ! ! |
2252 ! ! |
2252 |
2253 |
2253 Context initialize! |
2254 Context initialize! |