SystemOrganization addCategory: #'Pier-Site-Book'! WAFileLibrary subclass: #BookLibrary instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Pier-Site-Book'! !BookLibrary methodsFor: 'processing' stamp: 'lr 5/27/2009 15:34'! updateRoot: aHtmlRoot aHtmlRoot stylesheet addScreen; addProjection; url: '/styles/screen.css'. aHtmlRoot stylesheet addPrint; url: '/styles/print.css'. aHtmlRoot if ie do: [ aHtmlRoot stylesheet addScreen; addProjection; url: '/styles/ie.css' ]. aHtmlRoot stylesheet url: '/styles/book.css'. aHtmlRoot stylesheet addPrint; url: '/styles/book-print.css'. aHtmlRoot stylesheet url: '/styles/shout.css'. aHtmlRoot javascript url: '/scripts/jquery-1.3.2.min.js'. aHtmlRoot javascript url: '/scripts/book.js'! !