'From Squeak3.5 of ''11 April 2003'' [latest update: #5180] on 11 May 2003 at 3:54:44 pm'! "Change Set: KCP-0065-newDeprecatedChecking Date: 11 May 2003 Author: stephane ducasse added the method newIsSelector:deprecated to test the new way we deprecate methods."! !CleanKernelTest methodsFor: 'utility' stamp: 'sd 5/11/2003 15:54'! newIsSelector: aSymbol deprecatedInClass: aClassSymbol "to test the new way of deprecating method: self deprecated: [old expression]" | cls | cls _ Smalltalk at: aClassSymbol ifAbsent: [^ false]. ^ (cls >> aSymbol) literals includesAllOf: #(deprecated:)! !