1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- Smalltalk createPackage: 'DOMite'!
- Object subclass: #Domite
- instanceVariableNames: 'element reference'
- package: 'DOMite'!
- !Domite methodsFor: 'accessing'!
- element
- ^ element
- !
- element: anObject
- element := anObject
- !
- reference
- ^ reference
- !
- reference: anObject
- reference := anObject
- ! !
- !Domite methodsFor: 'deletion'!
- clearHere
- <
- var element = self['@element'], child;
- while (child = element.firstChild) element.removeChild(child);
- self['@reference'] = null;
- >
- ! !
- !Domite methodsFor: 'insertion'!
- insertDomite: aDomite
- self insertElement: aDomite element.
- ^ aDomite
- !
- insertElement: aDomElement
- self element
- insertBefore: aDomElement
- reference: self reference
- !
- insertString: aString
- self insertElement: (
- document createTextNode: aString asString )
- ! !
- !Domite class methodsFor: 'instance creation'!
- fromElement: aDomElement
- ^ self new
- element: aDomElement;
- yourself
- !
- fromElement: aDomElement cursorBefore: anotherDomElement
- ^ self new
- element: aDomElement;
- referenceElement: anotherDomElement;
- yourself
- !
- newElement: aString
- ^ self fromElement: (document createElement: aString)
- !
- open
- ^ self fromElement: document createDocumentFragment
- ! !
|