--- a/Object.st Tue Feb 09 14:43:39 2010 +0100
+++ b/Object.st Tue Feb 09 14:57:43 2010 +0100
@@ -517,69 +517,7 @@
"Modified: 23.4.1996 / 16:00:07 / cg"
! !
-!Object class methodsFor:'spray'!
-
-sprayInstanceWith: aXeContent
- #swAdded.
- ^self basicNew
-!
-
-sprayTypeName
- "Answer the XMLSchema type <XeName> for the receiver's instances.
- -Default to answering a late-qualifying XePName with the 'd' prefix and the class name.
- -In a default typespace, the prefix 'd' late qualifies to a namespace targeted by a <XeSprayClassFactory>"
-
- #swAdded.
- Smalltalk isSmalltalkX ifTrue:[
- ^SOAP::XePName prefix: 'd' local: self nameWithoutPrefix asString
- ].
- ^SOAP::XePName prefix: 'd' local: self name asString
-!
-
-sprayValueTypeName
- "Answer the XMLSchema type <XeName> that the receivers instances extend.
- -Used by a <XeSimpleClassFactory> to create XMLSchema simple content definitions.
- -If the receiver implements this method, it also needs to define #sprayAttributes"
-
- #swAdded.
- ^self error: 'Not simple content'
-! !
-
-!Object class methodsFor:'spray factory'!
-
-sprayAttributes
- "Answer a collection of <XeAttributeSpec>s.
- -The answer is used by a <XeSprayClassFactory> to build a schema definition for the class."
-
- #swAdded.
- ^#()
-!
-
-sprayElements
- "Answer a collection of <XeElementSpec>s.
- -The answer is used by a <XeSprayClassFactory> to build a schema definition for the class.
- -This has a similar function to an XMLSchema complexType definition. For example;
-
-<schema>
-<complexType name='Something'>
- <element name='foo' type='xsd:string'/>
- <element name='bar' type='xsd:integer'/>
-</complexType>
-</schema>
-
-Would be equivelent to a method
-
- Something(class)>>sprayElement;
-
- ^OrderedCollection new
- add: (XeElementSpec named: #foo xsdTyped: 'string');
- add: (XeElementSpec named: #bar xsdTyped: 'integer');
- yourself
-"
-
- #swAdded.
- ^Error signal: 'This class does not define any child xml elements'
-! !
+
!Object methodsFor:'Compatibility-Dolphin'!
@@ -754,8 +692,6 @@
"
! !
-
-
!Object methodsFor:'accessing'!
at:index
@@ -7245,7 +7181,6 @@
^ self
! !
-
!Object methodsFor:'secure message sending'!
askFor:aSelector
@@ -7834,54 +7769,6 @@
! !
-!Object methodsFor:'spray'!
-
-isSoapEncSameAs: anObject
- #swAdded.
- ^self = anObject
-!
-
-schemaDisplayString
- "Answer a <readableString> which is a valid XMLSchema lexical representation of the receiver"
-
- #swAdded.
- Smalltalk isSmalltalkX ifTrue:[
- ^ self printString
- ].
- ^self displayString
-!
-
-sprayTypeName
- "Answer the <XeName> of the receiver's XMLSchema type.
- -Should only be implemented as an instance method if different instances have different type"
-
- #swAdded.
- ^self class sprayTypeName
-!
-
-xeContentWith: anEncodingStyle
- "Answer a <XeContent> for the receiver.
- --Only override this method if different instances have different type (See XeQStruct , and KeyedCollections,)."
-
- #swAdded.
- ^self sprayTypeName xeContentWith: anEncodingStyle
-!
-
-xmlDecodeFixupWith: aNodeDecoding
- "Answer the true object that must be used to represent the receiver when decoded from xml."
-
- #swAdded.
- ^self
-!
-
-xmlEncodeUsing: aXeSoapXMLWriter
- "Answer if the receiver has perfomed the encoding itself.
- Sent by the <XeSoapXMLWriter>, to give the receiver the opportunity to override standard encoding."
-
- #swAdded.
- ^false
-! !
-
!Object methodsFor:'synchronized evaluation'!
freeSynchronizationSemaphore
@@ -9421,11 +9308,11 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.646 2010-02-08 10:42:29 sr Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.647 2010-02-09 13:57:43 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.646 2010-02-08 10:42:29 sr Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.647 2010-02-09 13:57:43 stefan Exp $'
! !
Object initialize!