123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- Smalltalk createPackage: 'Silk'!
- Domite subclass: #Silk
- instanceVariableNames: ''
- package: 'Silk'!
- !Silk commentStamp!
- I am adding convenience APIs to my subclass, `Domite`.
- ##Rendering
- - `aSilk << anObject` uses double-dispatch via `renderOnSilk:`. This allows creating widgets (no formal superclass, anything with `renderOnSilk:` is a widget), as well as incorporating blocks: `aSilk << aBlock` runs the block, passing aSilk as a parameter.
- ##Convenience
- - `aCssSelectorString asSilk` returns Silk wrapping an element at a selector.
- - `anObject inSilk` returns anObject rendered in a document fragment.
- ##Element creation
- These messages use DNU to dynamically create
- elements with any (letters-and-numbers) tag name,
- Next samples show this on an example of `<div>`.
- - `Silk DIV` is shortcut for `Silk newElement: 'div'`.
- - `aSilk DIV` is shortcut for `[ |tmp| tmp := Silk DIV. aSilk << tmp. tmp] value`. IOW, it not just creates the element and returns it, but also puts in on aSilk.!
- !Silk methodsFor: 'writing'!
- doesNotUnderstand: aMessage
- "`aSilk DIV` creates a div element and inserts it"
- | selector newElement |
- selector := aMessage selector.
- selector asUppercase = selector
- ifFalse: [ ^ super doesNotUnderstand: aMessage ].
- (selector includes: ':')
- ifTrue: [ ^ super doesNotUnderstand: aMessage ].
- newElement := self class newElement: selector asLowercase.
- self << newElement.
- ^ newElement
- !
- nextPut: anObject
- "Double-dispatches anObject via renderOnSilk: message.
- If a message returns nil, this fallbacks to superclass.
- Otherwise, it is assumed renderOnSilk: did its job."
- (anObject renderOnSilk: self)
- ifNil: [ super nextPut: anObject ]
- ! !
- !Silk class methodsFor: 'message handling'!
- doesNotUnderstand: aMessage
- "`Silk DIV` creates a div element"
- | selector |
- selector := aMessage selector.
- selector asUppercase = selector
- ifFalse: [ ^ super doesNotUnderstand: aMessage ].
- (selector includes: ':')
- ifTrue: [ ^ super doesNotUnderstand: aMessage ].
- ^ self newElement: selector asLowercase
- ! !
- !BlockClosure methodsFor: '*Silk'!
- renderOnSilk: aSilk
- self value: aSilk
- ! !
- !CharacterArray methodsFor: '*Silk'!
- asSilk
- ^ Silk at: self asString
- ! !
- !JSObjectProxy methodsFor: '*Silk'!
- inSilk
- ^ Silk newStream << self; yourself
- ! !
- !Object methodsFor: '*Silk'!
- inSilk
- ^ Silk newStream << self; yourself
- !
- renderOnSilk: aSilk
- ^ nil
- ! !
|