'From Squeak3.1alpha of 5 February 2001 [latest update: #3673] on 20 February 2001 at 5:14:21 pm'! "Change Set: redLineToggle Date: 20 February 2001 Author: Bob Arning add toggle to red menu for both geemail and the playfield it contains to turn the red page break line on and off"! !AlansTextPlusMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/20/2001 17:09'! addCustomMenuItems: aCustomMenu hand: aHandMorph super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu add: 'make a book of me' action: #convertToBook. aCustomMenu addUpdating: #showPageBreaksString action: #togglePageBreaks. ! ! !AlansTextPlusMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/20/2001 17:10'! showPageBreaksString ^(thePasteUp ifNil: [^'???']) showPageBreaksString! ! !AlansTextPlusMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/20/2001 17:12'! togglePageBreaks (thePasteUp ifNil: [^self]) togglePageBreaks! ! !TextPlusPasteUpMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/20/2001 17:08'! addCustomMenuItems: aCustomMenu hand: aHandMorph super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu addUpdating: #showPageBreaksString action: #togglePageBreaks. ! ! !TextPlusPasteUpMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/20/2001 17:06'! showPageBreaksString ^showPageBreaks ifTrue: ['show page breaks'] ifFalse:['show page breaks']! ! !TextPlusPasteUpMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/20/2001 17:12'! togglePageBreaks showPageBreaks _ showPageBreaks not. self changed! !