From Squeak3.9 on 29 September 2007 at 6:44:36 am <version>NumberedList-mb.6.mcz 24 September 2007 9:23:53 pm</version> <class> <name>NLDemo</name> <environment>Seaside</environment> <super>Seaside.WAComponent</super> <private>false</private> none <imports></imports> <category>NumberedList-Demo</category> <attributes> <package>NumberedList-Demo</package> </attributes> </class> <class> <name>NLStyles</name> <environment>Seaside</environment> <super>Seaside.WAFileLibrary</super> <private>false</private> none <imports></imports> <category>NumberedList-Styles</category> <attributes> <package>NumberedList-Styles</package> </attributes> </class> <methods> Seaside.NLDemo <category>updating</category>
updateRoot: aHtmlRoot super updateRoot: aHtmlRoot. aHtmlRoot title: 'Numbered List Demo'
</methods> <methods> Seaside.NLDemo <category>rendering</category>
renderListItem: aTitleString content: aContentString on: html html listItem: [ html definitionList: [ html definitionTerm: aTitleString. html definitionData: aContentString ] ]
</methods> <methods> Seaside.NLDemo <category>accessing</category>
rendererClass ^WARenderCanvas
</methods> <methods> Seaside.NLDemo <category>accessing</category>
titleStrings ^#( 'Ut auctor libero vel justo.' 'Duis quam leo, dapibus vel, pulvinar vitae, tristique pretium, metus.' 'Pellentesque eros urna, suscipit vitae, fringilla sed, gravida in, eros.' )
</methods> <methods> Seaside.NLDemo <category>accessing</category>
contentStrings ^#( 'Cras vel ipsum a magna luctus laoreet. Nullam et arcu. Phasellus pede enim, fringilla non, egestas et, vulputate sit amet, nisi. Vivamus dapibus tristique eros. Donec facilisis varius nulla. Morbi non turpis.' 'Morbi lorem dolor, tincidunt a, ultricies non, pharetra aliquet, ante. Nulla ut mauris vel tellus porttitor ultricies. Morbi scelerisque. Nullam viverra. Phasellus sollicitudin diam ac enim. Nulla quam est, congue nec, pharetra in, laoreet vulputate, sem. Nullam sed orci. Morbi rutrum, mi facilisis hendrerit semper, magna diam porttitor dolor, in auctor nisi ipsum eget dolor. Praesent sodales aliquet magna. Nulla dapibus ligula et diam. Fusce et arcu. Quisque non enim.' 'Aliquam erat volutpat. Nunc hendrerit, ante malesuada ornare imperdiet, ipsum lectus vestibulum mi, vitae congue erat enim sit amet pede. Nulla facilisi. Vestibulum nonummy pede a magna. Praesent mollis nulla tincidunt metus. Proin metus magna, lacinia in, lobortis at, auctor quis, urna. Donec commodo nisi in pede. In hac habitasse platea dictumst.' )
</methods> <methods> Seaside.NLDemo <category>rendering</category>
renderListOn: html html orderedList class: 'numberedList'; with: [ self titleStrings with: self contentStrings do: [ :title : content | self renderListItem: title content: content on: html ] ]
</methods> <methods> Seaside.NLDemo <category>rendering</category>
renderContentOn: html self renderListOn: html
</methods> <methods> Seaside.NLStyles <category>accessing</category>
definitionTermCss ^ ' .numberedList li dl dt { _margin-top: -70px; font-weight: bold; margin-top: 10px; margin-bottom: 5px; }'
</methods> <methods> Seaside.NLStyles <category>accessing</category>
listContentCss ^ ' .numberedList li dl dt, .numberedList li dl dd { _list-style-type: decimal; _list-style-position: outside; color: #111; font-size: 0px; line-height: normal; font-size: small; position: relative; top: -70px; left: -70px; }'
</methods> <methods> Seaside.NLStyles <category>accessing</category>
listItemCss ^ ' .numberedList li { list-style-type: decimal; list-style-position: outside; font-size: 60pt; position: relative; top: 70px; left: 65px; line-height: normal; color: #DDD; _color: #FFF;; /* show to IE */ }'
</methods> <methods> Seaside.NLStyles <category>accessing</category>
selectorsToInclude ^ #(#definitionDefinitionCss #definitionTermCss #listContentCss #listItemCss )
</methods> <methods> Seaside.NLStyles <category>accessing</category>
definitionDefinitionCss ^ ' .numberedList li dl dd { width: 400px; background-color: #eeeee7; padding: 7px; margin-left: 50px; padding-bottom: 20px; }'
</methods> <methods> Seaside.NLDemo class <category>class initialization</category>
description ^'Beautifully Numbered Lists based on CSS only'
</methods> <methods> Seaside.NLDemo class <category>class initialization</category>
initialize (self registerAsApplication: 'examples/numberedlist') addLibrary: NLStyles
</methods> <methods> Seaside.NLDemo class <category>testing</category>
canBeRoot ^true
</methods> <initialize> Seaside.NLDemo </initialize>