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

WAFileLibrary subclass: #RGStyleLibrary
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Pier-Site-Renggli'!

!RGStyleLibrary methodsFor: 'accessing' stamp: 'lr 6/1/2008 13:34'!
updateRoot: aHtmlRoot
	self updateStyles: aHtmlRoot.
	self updateScripts: aHtmlRoot! !

!RGStyleLibrary methodsFor: 'accessing' stamp: 'lr 6/22/2009 22:56'!
updateScripts: aHtmlRoot
	aHtmlRoot javascript url: '/include/js/prototype.js'.
	aHtmlRoot javascript url: '/include/js/effects.js'.
	aHtmlRoot javascript url: '/include/js/controls.js'! !

!RGStyleLibrary methodsFor: 'accessing' stamp: 'lr 6/1/2008 13:38'!
updateStyles: aHtmlRoot
	aHtmlRoot stylesheet
		addScreen;
		addProjection;
		url: '/include/css/screen.css'.
	aHtmlRoot stylesheet
		addPrint;
		url: '/include/css/print.css'.
	aHtmlRoot if ie do: [
		aHtmlRoot stylesheet
			addScreen;
			addProjection;
			url: '/include/css/ie.css'. ].
	aHtmlRoot stylesheet
		url: '/include/css/default.css'.
	aHtmlRoot stylesheet 
		url: '/include/css/shout.css'! !

WATask subclass: #WAArcChallenge
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Pier-Site-Renggli'!

!WAArcChallenge class methodsFor: 'as yet unclassified' stamp: 'lr 2/6/2008 20:23'!
canBeRoot
	^ true! !

!WAArcChallenge methodsFor: 'as yet unclassified' stamp: 'lr 2/6/2008 20:23'!
go
	| answer |
	answer := self request: 'Say something'.
	self inform: 'Click here'.
	self inform: answer! !