'From etoys2.3 of 2 December 2007 [latest update: #1882] on 28 January 2008 at 2:34:37 pm'!
"Change Set:		NoDragGuide-tk
Date:			28 January 2008
Author:			Ted Kaehler

In a normal book, you can pick up the entire book by its page controls.  Override this for QuickGuideMorph."!


!QuickGuideMorph methodsFor: 'initialization' stamp: 'tk 1/28/2008 14:08'!
initialize

	| newPage |
	self beSticky.
	newPagePrototype _ QuickGuideHolderMorph new.
	newPagePrototype guideName: 'empty'.
	newPagePrototype setProperty: #transitionSpec toValue: (Array with:  'silence' with: #none with: #none).
	super initialize.
	order _ OrderedCollection with: 'index'.

	newPage _ newPagePrototype veryDeepCopy.
	newPage guideName: 'index'.
	self insertPage: newPage pageSize: 100@100 atIndex: 1.
	self goToPage: 2.
	self deletePageBasic.
	self pageControlsAtTop: false.
	self jumpToAdjust: self pageControls.! !

!QuickGuideMorph methodsFor: 'page controls' stamp: 'tk 1/28/2008 14:04'!
showPageControls: controlSpecs

	^ self showPageControls: controlSpecs allowDragging: false. 	"Do not drag Guide out of flap easily"
! !