'From Squeak3.1alpha of 6 February 2001 [latest update: #4173] on 18 August 2001 at 11:22:35 am'! "Change Set: insertPageFix-bf Date: 14 August 2001 Author: Mike Rutenberg Minor fix for a boolean expression bracketing problem in BookMorph (methodsFor: 'insert and delete') insertPage: aPage pageSize: aPageSize atIndex: anIndex Was: (pages isEmpty | anIndex == nil) Now: (pages isEmpty | anIndex isNil)"! !BookMorph methodsFor: 'insert and delete' stamp: 'mdr 8/13/2001 10:14'! insertPage: aPage pageSize: aPageSize atIndex: anIndex | sz predecessor | sz _ aPageSize ifNil: [currentPage == nil ifTrue: [pageSize] ifFalse: [currentPage extent]] ifNotNil: [aPageSize]. aPage extent: sz. ((pages isEmpty | anIndex isNil) or: [anIndex > pages size]) ifTrue: [pages add: aPage] ifFalse: [anIndex <= 1 ifTrue: [pages addFirst: aPage] ifFalse: [predecessor _ anIndex == nil ifTrue: [currentPage] ifFalse: [pages at: anIndex]. self pages add: aPage after: predecessor]]. self goToPageMorph: aPage ! !