The Trunk: MorphicExtras-pre.247.mcz

Patrick Rein uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-pre.247.mcz

==================== Summary ====================

Name: MorphicExtras-pre.247
Author: pre
Time: 1 November 2018, 3:57:05.343943 pm
UUID: 47ad261f-2511-6543-8b03-9f32b5f72580
Ancestors: MorphicExtras-pre.246

Replaces a deprecated menu item selector with one which sticks to the pattern for menu item selectors.

=============== Diff against MorphicExtras-pre.246 ===============

Item was changed:
  ----- Method: BookMorph>>invokeBookMenu (in category 'menu') -----
  invokeBookMenu
  "Invoke the book's control panel menu."
  | aMenu |
  aMenu := MenuMorph new defaultTarget: self.
  aMenu addTitle: 'Book' translated.
  Preferences noviceMode
  ifFalse:[aMenu addStayUpItem].
  aMenu add: 'find...' translated action: #textSearch.
  aMenu add: 'go to page...' translated action: #goToPage.
  aMenu addLine.
 
  aMenu addList: {
  {'sort pages' translated. #sortPages}.
  {'uncache page sorter' translated. #uncachePageSorter}}.
  (self hasProperty: #dontWrapAtEnd)
  ifTrue: [aMenu add: 'wrap after last page' translated selector: #setWrapPages: argument: true]
  ifFalse: [aMenu add: 'stop at last page' translated selector: #setWrapPages: argument: false].
  aMenu addList: {
  {'make bookmark' translated. #bookmarkForThisPage}.
  {'make thumbnail' translated. #thumbnailForThisPage}}.
  aMenu addUpdating: #showingPageControlsString action: #toggleShowingOfPageControls.
  aMenu addUpdating: #showingFullScreenString action: #toggleFullScreen.
 
  aMenu addLine.
  aMenu add: 'sound effect for all pages' translated action: #menuPageSoundForAll:.
  aMenu add: 'sound effect this page only' translated action: #menuPageSoundForThisPage:.
  aMenu add: 'visual effect for all pages' translated action: #menuPageVisualForAll:.
  aMenu add: 'visual effect this page only' translated action: #menuPageVisualForThisPage:.
 
  aMenu addLine.
  (self primaryHand pasteBuffer class isKindOf: PasteUpMorph class) ifTrue:
  [aMenu add: 'paste book page' translated   action: #pasteBookPage].
 
  aMenu add: 'save as new-page prototype' translated action: #setNewPagePrototype.
  newPagePrototype ifNotNil: [
  aMenu add: 'clear new-page prototype' translated action: #clearNewPagePrototype].
 
  aMenu add: (self dragNDropEnabled ifTrue: ['close dragNdrop'] ifFalse: ['open dragNdrop']) translated
+ action: #changeDragAndDrop.
- action: #toggleDragNDrop.
  aMenu add: 'make all pages this size' translated action: #makeUniformPageSize.
 
  aMenu
  addUpdating: #keepingUniformPageSizeString
  target: self
  action: #toggleMaintainUniformPageSize.
  aMenu addLine.
 
  aMenu add: 'send all pages to server' translated action: #savePagesOnURL.
  aMenu add: 'send this page to server' translated action: #saveOneOnURL.
  aMenu add: 'reload all from server' translated action: #reload.
  aMenu add: 'copy page url to clipboard' translated action: #copyUrl.
  aMenu add: 'keep in one file' translated action: #keepTogether.
 
  aMenu addLine.
  aMenu add: 'load PPT images from slide #1' translated action: #loadImagesIntoBook.
  aMenu add: 'background color for all pages...' translated action: #setPageColor.
  aMenu add: 'make a thread of projects in this book' translated action: #buildThreadOfProjects.
 
  aMenu popUpEvent: self world activeHand lastEvent in: self world
  !