[Pkg] The Trunk: MorphicExtras-pre.247.mcz

[commits at source.squeak.org]

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
  !