SystemOrganization addCategory: #'Pier-Site-Book'!

WAFileLibrary subclass: #BookLibrary
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Pier-Site-Book'!

!BookLibrary methodsFor: 'processing' stamp: 'lr 5/3/2009 18:16'!
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'! !