Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-RIF.10.mcz
==================== Summary ====================
Name: MorphicExtras-RIF.10 Author: RIF Time: 21 July 2010, 10:17:32 pm UUID: 0299725e-3fba-464e-ba96-b6c1af293663 Ancestors: MorphicExtras-bf.9
changed phrase "revertable" to "revertible" since it was misspelled
=============== Diff against MorphicExtras-bf.9 ===============
Item was changed: ----- Method: BookMorph>>addBookMenuItemsTo:hand: (in category 'menu') ----- addBookMenuItemsTo: aMenu hand: aHandMorph "For the 'control menu' -- add book-menu items to it."
| controlsShowing subMenu | subMenu _ MenuMorph new defaultTarget: self. subMenu add: 'previous page' translated action: #previousPage. subMenu add: 'next page' translated action: #nextPage. subMenu add: 'goto page' translated action: #goToPage. subMenu add: 'insert a page' translated action: #insertPage. subMenu add: 'delete this page' translated action: #deletePage. self canRevertThisPage ifTrue: [ subMenu add: 'revert this page' translated action: #revertPage].
controlsShowing _ self hasSubmorphWithProperty: #pageControl. controlsShowing ifTrue: [subMenu add: 'hide page controls' translated action: #hidePageControls. subMenu add: 'fewer page controls' translated action: #fewerPageControls] ifFalse: [subMenu add: 'show page controls' translated action: #showPageControls]. self isInFullScreenMode ifTrue: [ subMenu add: 'exit full screen' translated action: #exitFullScreen. ] ifFalse: [ subMenu add: 'show full screen' translated action: #goFullScreen. ]. subMenu addLine. subMenu add: 'sound effect for all pages' translated action: #menuPageSoundForAll:. subMenu add: 'sound effect this page only' translated action: #menuPageSoundForThisPage:. subMenu add: 'visual effect for all pages' translated action: #menuPageVisualForAll:. subMenu add: 'visual effect this page only' translated action: #menuPageVisualForThisPage:.
subMenu addLine. subMenu add: 'sort pages' translated action: #sortPages:. subMenu add: 'uncache page sorter' translated action: #uncachePageSorter. (self hasProperty: #dontWrapAtEnd) ifTrue: [subMenu add: 'wrap after last page' translated selector: #setWrapPages: argument: true] ifFalse: [subMenu add: 'stop at last page' translated selector: #setWrapPages: argument: false].
subMenu addLine. subMenu add: 'search for text' translated action: #textSearch. (aHandMorph pasteBuffer class isKindOf: PasteUpMorph class) ifTrue: [subMenu add: 'paste book page' translated action: #pasteBookPage].
subMenu add: 'send all pages to server' translated action: #savePagesOnURL. subMenu add: 'send this page to server' translated action: #saveOneOnURL. subMenu add: 'reload all from server' translated action: #reload. subMenu add: 'copy page url to clipboard' translated action: #copyUrl. subMenu add: 'keep in one file' translated action: #keepTogether. subMenu add: 'save as new-page prototype' translated action: #setNewPagePrototype. newPagePrototype ifNotNil: [subMenu add: 'clear new-page prototype' translated action: #clearNewPagePrototype]. + subMenu add: 'mark this page to be revertible' translated action: #markForRevert. + subMenu add: 'mark entire book to be revertible' translated action: #markBookForRevert. + subMenu add: 'unmark this page to be revertible' translated action: #unmarkForRevert. + subMenu add: 'unmark entire book to be revertible' translated action: #unmarkBookForRevert. - subMenu add: 'mark this page to be revertable' translated action: #markForRevert. - subMenu add: 'mark entire book to be revertable' translated action: #markBookForRevert. - subMenu add: 'unmark this page to be revertable' translated action: #unmarkForRevert. - subMenu add: 'unmark entire book to be revertable' translated action: #unmarkBookForRevert. " subMenu add: 'revert this page' translated action: #revertPage. subMenu add: 'revert all pages' translated action: #revertAllPages."
aMenu add: 'book...' translated subMenu: subMenu !