Smalltalk createPackage: 'Platform-DOM'! Object subclass: #PlatformDom slots: {} package: 'Platform-DOM'! !PlatformDom class methodsFor: 'converting'! toArray: aDomList ! ! !PlatformDom class methodsFor: 'creation'! newCustomEvent: aString detail: anObject ! ! !PlatformDom class methodsFor: 'testing'! isDomNode: anObject 0 && Object.prototype.toString.call(anObject) !!== "[object Object]" '> ! isFeasible ! ! !Collection methodsFor: '*Platform-DOM'! asDomNode | fragment | fragment := document createDocumentFragment. self do: [ :each | fragment appendChild: each asDomNode ]. ^ fragment ! ! !JSObjectProxy methodsFor: '*Platform-DOM'! asDomNode (PlatformDom isDomNode: jsObject) ifTrue: [ ^ jsObject ] ifFalse: [ ^ super asDomNode ] ! ! !String methodsFor: '*Platform-DOM'! asDomNode ^ document createTextNode: self asString ! htmlTextContent ! !