[Seaside] Re: IE 5.5 and 6 png "fix"

[Udo Schneider]

Philippe Marschall wrote:
> aRoot if lessThan; ie7; do: [
>    aRoot javascripts
>        url: 'pngfix.js' ]
> 
I use something like this:

anHtmlRoot if lessThan ie7 do:
   [(anHtmlRoot linkToScript: (WATCFileLibrary urlOf: #pngfixJs))
     attributeAt: 'defer'
     put: 'defer']

To use the defer piece in this was I had to patch 
WHHtmlRoot>>#linkToScript: to return the script though:

linkToScript: url
	"only link to script if it's not already been linked too, necessary 
when lists of child components try to link to dependant scripts, a 
google map for example"

	| fullUrl |
	fullUrl := self absoluteUrlForResource: url asString.
	^headElements
		detect: [ :each | each name = 'script' and: [ each url = fullUrl ] ]
		ifNone: [ self scriptElementWithSrc: fullUrl ]

CU,

Udo