'From etoys2.1 of 26 July 2007 [latest update: #1547] on 12 August 2007 at 2:26:32 am'!
"Change Set:		pageTurnFont-sw
Date:			12 August 2007
Author:			Scott Wallace

Use the etoy font for constructing the page-turn buttons."!


!BookMorph class methodsFor: 'scripting' stamp: 'sw 8/10/2007 17:26'!
nextPageButton
	"Answer a button that will take the user to the next page of its enclosing book"

	| aButton |
	aButton _ SimpleButtonMorph new.
	aButton target: aButton; actionSelector: #nextOwnerPage; label: '->' font: ScriptingSystem fontForEToyButtons; color: Color yellow.
	aButton setNameTo: 'next'.
	^ aButton! !

!BookMorph class methodsFor: 'scripting' stamp: 'sw 8/12/2007 01:03'!
previousPageButton
	"Answer a button that will take the user to the previous page of its enclosing book"

	| aButton |
	aButton _ SimpleButtonMorph new.
	aButton target: aButton; actionSelector: #previousOwnerPage; color: Color yellow; label: '<-' font: ScriptingSystem fontForEToyButtons; color: Color yellow.
	aButton setNameTo: 'previous'.
	^ aButton! !