[Seaside-dev] WAStyleElement

[John Thornborrow]

Didn't know I could do that :)

#nextPut:/#nextPutAll: would seem logical to me, but that might be just
me. :)

John

Philippe Marschall wrote:
> 2007/9/19, John Thornborrow <john at pinesoft.co.uk>:
>> Hello All,
>>
>> I've created a style tag element class, specifically for use within a
>> context such as:
>>
>> #updateRoot: aRoot
>>   aRoot if ie6; do: [| style |
>>     style := (WAStyleElement root: aRoot) beCss.
>>     style contents: 'body { margin: 0pt; padding: 0pt;}'.
>>     aRoot add: style
>>   ]
>>   ^super updateRoot: aRoot
> 
> updateRoot: aRoot
>     super updateRoot: aRoot
>     aRoot if ie6; do: [
>         html stylesheet
>             add: 'body { margin: 0pt; padding: 0pt;}' ]
> 
> should do the same. Yes, #add: is suboptimal as a selector name.
> 
> Cheers
> Philippe
> 
>> Which allows myself to battle the box model errors (amongst others) with
>> more ease.
>>
>> I thought I would send a fileOut rather than save into Monticello as I
>> do not have a "pure" installation at hand, and like the last time I
>> saved, there would be some extras I did not intent to add. Anyway..
>>
>> Attached is the class, I have stuck to the w3 standards as best as I can
>> interpret.
>>
>> Regards,
>> John
>>
>>
>>
>> Pinesoft Computers are registered in England, Registered number: 2914825. Registered office: 266-268 High Street, Waltham Cross, Herts, EN8 7EA
>>
>>
>>
>> This message has been scanned for viruses by BlackSpider MailControl - www.blackspider.com
>>
>>
>> 'From Squeak3.9 of 7 November 2006 [latest update: #7067] on 19 September 2007 at 5:52:08 pm'!
>> WAHtmlElement subclass: #WAStyleElement
>>         instanceVariableNames: 'content'
>>         classVariableNames: ''
>>         poolDictionaries: ''
>>         category: 'Seaside-Document-Elements'!
>>
>> !WAStyleElement methodsFor: 'attributes' stamp: 'jmt 9/19/2007 17:38'!
>> contents: aString
>>         content := aString! !
>>
>> !WAStyleElement methodsFor: 'attributes' stamp: 'jmt 9/19/2007 17:47'!
>> media: aMedia
>>         self attributeAt: 'media' put: aMedia! !
>>
>> !WAStyleElement methodsFor: 'attributes' stamp: 'jmt 9/19/2007 17:37'!
>> type: aType
>>         self attributeAt: 'type' put: aType! !
>>
>>
>> !WAStyleElement methodsFor: 'types' stamp: 'jmt 8/14/2007 10:54'!
>> beCss
>>         ^self type: 'text/css'! !
>>
>>
>> !WAStyleElement methodsFor: 'testing' stamp: 'jmt 9/19/2007 17:47'!
>> isClosed
>>         ^false! !
>>
>>
>> !WAStyleElement methodsFor: 'printing' stamp: 'jmt 9/19/2007 17:47'!
>> encodeOn: aDocument
>>         aDocument openTag: self tag attributes: attributes closed: self isClosed.
>>         self isClosed ifTrue: [ ^ self ].
>>         aDocument nextPutAll: content.
>>         self childrenDo: [ :each | each encodeOn: aDocument ].
>>         aDocument closeTag: self tag! !
>>
>>
>> !WAStyleElement methodsFor: 'accessing' stamp: 'jmt 7/30/2007 15:39'!
>> tag
>>         ^'style'! !
>>
>> _______________________________________________
>> seaside-dev mailing list
>> seaside-dev at lists.squeakfoundation.org
>> http://lists.squeakfoundation.org/mailman/listinfo/seaside-dev
>>
>>
> _______________________________________________
> seaside-dev mailing list
> seaside-dev at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/mailman/listinfo/seaside-dev
> 
> 
>  
>