'From Cuis 1.0 of 4 September 2009 [latest update: #290] on 10 September 2009 at 11:32:31 am'!

!CodeHolder methodsFor: 'misc' stamp: 'jmv 9/10/2009 11:14'!
isThisAnOverride
	"Answer whether any superclass of my selected class implements my selected selector"
	| aName aClass |
	aName _ self selectedMessageName ifNil: [^ false].
	aClass _ self selectedClassOrMetaClass ifNil: [^false ].
	aClass allSuperclassesDo: [ :cls | (cls includesSelector: aName) ifTrue: [ ^true ]].
	^ false! !


!PseudoClass methodsFor: 'class' stamp: 'jmv 9/10/2009 11:12'!
definition

	^definition ifNil: [
		Text fromString: 'There is no class definition for ', self name, ' in this file'].! !


!RemoteString methodsFor: 'private' stamp: 'jmv 9/10/2009 11:12'!
makeNewTextAttVersion
	"Create a new TextAttributes version because some inst var has changed.  If no change, don't make a new one."
	"Don't delete this method even though it has no callers!!!!!!!!!!"

| obj cls struct tag |
"Note that TextFontReference and TextAnchor are forbidden."
obj _ #(RunArray TextDoIt TextURL TextColor TextEmphasis TextKern TextLinkToImplementors 3 'a string') collect: [:each | 
		cls _ Smalltalk at: each ifAbsent: [nil].
		cls ifNil: [each] ifNotNil: [cls new]].
struct _ (SmartRefStream on: (RWBinaryOrTextStream on: String new)) instVarInfo: obj.
tag _ self checkSum: struct printString.
TextAttributeStructureVersions ifNil: [TextAttributeStructureVersions _ Dictionary new].
(struct = CurrentTextAttStructure) & (tag = CurrentTextAttVersion) 
	ifTrue: [^ false].
CurrentTextAttStructure _ struct.
CurrentTextAttVersion _ tag.
TextAttributeStructureVersions at: tag put: struct.
^ true! !

Model removeSelector: #addItem:!
Smalltalk removeClassNamed: #TextLink!
