[etoys-dev] Etoys: MorphicExtras-RIF.10.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jul 21 16:25:45 EDT 2010
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
!
More information about the etoys-dev
mailing list