'From Squeak3.7beta of ''1 April 2004'' [latest update: #5923] on 27 May 2004 at 2:06:14 pm'! "Change Set: DeprecatedRemoveSelectorFix-rhi Date: 27 May 2004 Author: Robert Hirschfeld Behavior>>removeSelectorSimply: was deprecated in KCP-0170-CompilerProtocolRefactoring. This change set adjusts its senders to use basicRemoveSelector: instead."! !ClassTestCase methodsFor: 'Private' stamp: 'rhi 5/27/2004 14:04'! resumeFromDeprecatedMethods: autoResume "If true, make the default action for all Deprecation warnings to resume" | da | autoResume ifTrue: [Deprecation compiledMethodAt: #defaultAction ifAbsent: [ Deprecation addSelector: #defaultAction withMethod: (Notification >> #defaultAction) ] ] ifFalse: [da _ Deprecation compiledMethodAt: #defaultAction ifAbsent: []. da == (Notification >> #defaultAction) ifTrue: [ Deprecation basicRemoveSelector: #defaultAction] ]! ! !TestObjectsAsMethods methodsFor: 'as yet unclassified' stamp: 'rhi 5/27/2004 14:04'! testAddNumbers "self debug: #testAddNumbers" "md: I had to comment out the error... did strange things" self class addSelector: #add:with: withMethod: TestObjectsAsMethodsFunction. self assert: (self add: 3 with: 4) = 7. "self assert: (self perform: #add:with: withArguments: #(3 4)) = 7. " self class basicRemoveSelector: #add:with:.! ! !TestObjectsAsMethods methodsFor: 'as yet unclassified' stamp: 'rhi 5/27/2004 14:04'! testAnswer42 self class addSelector: #answer42 withMethod: TestObjectsAsMethodsFunction. self assert: self answer42 = 42. self class basicRemoveSelector: #answer42.! ! !TestObjectsAsMethods methodsFor: 'as yet unclassified' stamp: 'rhi 5/27/2004 14:04'! testDNU self class addSelector: #answer42 withMethod: Object. self should: [self answer42] raise: MessageNotUnderstood. self class basicRemoveSelector: #answer42.! !