From VisualWorks®, 7.5 of April 16, 2007 on September 29, 2007 at 7:08:04 am (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <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>
renderContentOn: html self renderListOn: html
renderListItem: aTitleString content: aContentString on: html html listItem: [ html definitionList: [ html definitionTerm: aTitleString. html definitionData: aContentString ] ]
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>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.' )
rendererClass ^WARenderCanvas
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 class <category>class initialization</category>
description ^'Beautifully Numbered Lists based on CSS only'
initialize (self registerAsApplication: 'examples/numberedlist') addLibrary: NLStyles
</methods> <methods> Seaside.NLDemo class <category>testing</category>
canBeRoot ^true
</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; }'
definitionTermCss ^ ' .numberedList li dl dt { _margin-top: -70px; font-weight: bold; margin-top: 10px; margin-bottom: 5px; }'
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; }'
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 */ }'
selectorsToInclude ^ #(#definitionDefinitionCss #definitionTermCss #listContentCss #listItemCss )
</methods> <initialize> Seaside.NLDemo </initialize> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>WAComponent</name> <environment>Seaside</environment> <super>Seaside.WAPresenter</super> <private>false</private> none decoration <imports></imports> <category>Seaside-Component</category> <attributes> <package>Seaside-Component</package> </attributes> </class> <class> <name>WAFileLibrary</name> <environment>Seaside</environment> <super>Seaside.WALibrary</super> <private>false</private> none default <imports></imports> <category>Seaside-Libraries</category> <attributes> <package>Seaside-Libraries</package> </attributes> </class>