'From Squeak3.1alpha of 5 February 2001 [latest update: #4076] on 25 May 2001 at 6:00:08 pm'! "Change Set: fixThreadSorter Date: 25 May 2001 Author: Bob Arning fix a new walkback"! !BookPageSorterMorph methodsFor: 'as yet unclassified' stamp: 'RAA 5/25/2001 17:58'! initialize super initialize. self extent: Display extent - 100; listDirection: #topToBottom; wrapCentering: #topLeft; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 3; color: Color lightGray; borderWidth: 2. pageHolder _ PasteUpMorph new behaveLikeHolder extent: self extent - borderWidth. pageHolder hResizing: #shrinkWrap. "pageHolder cursor: 0." "causes a walkback as of 5/25/2000" self addControls. self addMorphBack: pageHolder. ! !