[etoys-dev] Etoys: MorphicExtras-kfr.22.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.22.mcz

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

Name: MorphicExtras-kfr.22
Author: kfr
Time: 17 May 2011, 5:20:57 pm
UUID: 04f524dc-934c-c141-9e2e-3c73ae7c2acc
Ancestors: MorphicExtras-kfr.21

eToys typos
http://tracker.squeakland.org/browse/SQ-922

=============== Diff against MorphicExtras-kfr.21 ===============

Item was changed:
  ----- Method: BookMorph>>bookMenu (in category 'menu') -----
  bookMenu
  	"Create and answer the standard book menu."
  
  	| aMenu |
  	aMenu _ MenuMorph new defaultTarget: self.
  	aMenu addTitle: 'Book' translated.
  	aMenu addStayUpItem.
  
  	aMenu addTranslatedList: #( 
  		('find...'   textSearch 'search the book for word(s)')
  		('find again'	textSearchAgain  'search for the next occurrence of a string')
  		-
  		('go to page...' goToPage 'go directly to a page, if you know its page-number')
+ 		('duplicate this page' duplicatePage 'add a new page just like this one to the book.')
- 		('duplicate this page' duplicatePage 'add a new page just like this one to0 the book.')
  		-
  		('revert this page' revertPage  'restore this page to its initial condition, if possible.')
  		('revert entire book' revertAllPages 'restore all pages of this book to their initial condition if possible.')
  		-) translatedNoop.
  
  	self addBookToggleItemsTo: aMenu.
  
  	aMenu addTranslatedList: #(
  		-
  		('sort pages'  sortPages 'open a tool allowing you to arrange the pages of the book.')
  		('hand me a bookmark for this page'  bookmarkForThisPage 'make a bookmark object which, when clicked, will make the book turn to this page.')
  		('hand me a thumbnail for this page'  thumbnailForThisPage 'create an icon representing this page')
  		-) translatedNoop.
  
  	aMenu addLine.
  	self addTransitionItemsTo: aMenu.
  	self addSaveAndRevertItemsTo: aMenu.
  
  	self addAllPagesItemsTo: aMenu.  "At the moment this one does nothing"
  	self addAdvancedItemsTo: aMenu.
  
  	^ aMenu
  
  "
  Disused items:
  	 'send all pages to server' savePagesOnURL.
  	 'send this page to server' saveOneOnURL.
  	 'reload all from server' reload.
  	 'keep in one file' keepTogether.
  	 'load PPT images from slide #1' loadImagesIntoBook.
  	 'copy page url to clipboard' copyUrl."
  
  !