[etoys-dev] Etoys: Etoys-kfr.88.mcz

[commits at source.squeak.org]

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

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

Name: Etoys-kfr.88
Author: kfr
Time: 28 August 2011, 1:22:41 am
UUID: 1f061895-01e5-f345-8495-94b7d74a834d
Ancestors: Etoys-kfr.87

http://tracker.squeakland.org/browse/SQ-978

=============== Diff against Etoys-kfr.87 ===============

Item was changed:
  ----- Method: PasteUpMorph>>playfieldOptionsMenu (in category '*Etoys-playfield') -----
  playfieldOptionsMenu
  	"Answer an auxiliary menu with options specific to playfields -- too many to be housed in the main menu"
  
  	| aMenu isWorld |
  	isWorld _ self isWorldMorph.
  	aMenu _ MenuMorph new defaultTarget: self.
  	aMenu addStayUpItem.
  
  	#(
  	(autoLineLayoutString	toggleAutoLineLayout
  			'whether submorphs should automatically be laid out in lines')
  	(autoExpansionString	toggleAutomaticPhraseExpansion
  			'whether tile phrases, dropped on me, should automatically sprout Scriptors around them')
  
  	(autoViewingString  toggleAutomaticViewing
  		'governs whether, when an object is touched inside me, a viewer should automatically be launched for it')
  
  	(behaveLikeAHolderString	toggleBehaveLikeAHolder
+ 			'whether auto-line-layout, resize-to-fit, and indicate-cursor should be set to true; useful for animation control, etc.')
- 			'whether auto-line-layout, resize-to-fit, and indicate-cursor should be set to true; useful for animation control, etc')
  
  	(fenceEnabledString	toggleFenceEnabled
  			'whether moving objects should stop at the edge of their container')
  
  	(gridVisibleString		gridVisibleOnOff
  			'whether the grid should be shown when gridding is on')
  	(indicateCursorString	toggleIndicateCursor
  			'whether the "current" submorph should be indicated with a dark black border')
  	(mouseOverHalosString	toggleMouseOverHalos
  			'whether objects should put up halos when the mouse is over them')
  	(originAtCenterString		toggleOriginAtCenter
  			'whether the cartesian origin of the playfield should be at its lower-left corner or at the center of the playfield')
  	(isPartsBinString		toggleIsPartsBin
  			'whether dragging an object from the interior should produce a COPY of the object')
  	(resizeToFitString		toggleResizeToFit
  			'whether I should automatically strive exactly to fit my contents')
  	(showThumbnailString	toggleAlwaysShowThumbnail
  			'whether large objects should be represented by thumbnail miniatures of themselves')
  	(griddingString			griddingOnOff
  			'whether gridding should be used in my interior')
  
  	) translatedNoop do:
  			[:triplet |
  				(isWorld and: [#(toggleAutoLineLayout toggleBehaveLikeAHolder toggleIndicateCursor toggleIsPartsBin toggleAlwaysShowThumbnail toggleResizeToFit ) includes: triplet second]) ifFalse:
  					[aMenu addUpdating: triplet first action: triplet second.
  					aMenu balloonTextForLastItem: triplet third translated]].
  
  	aMenu addLine.
  	aMenu add: 'round up strays' translated action: #roundUpStrays.
  	aMenu balloonTextForLastItem:  'Bring back all objects whose current coordinates keep them from being visible, so that at least a portion of each of my interior objects can be seen.' translated.
  
  	isWorld ifFalse:
  		[aMenu add: 'shuffle contents' translated action: #shuffleSubmorphs.
  		aMenu balloonTextForLastItem: 'Rearranges my contents in random order' translated].
  	aMenu add: 'set grid spacing...' translated action: #setGridSpec.
  	aMenu balloonTextForLastItem: 'Set the spacing to be used when gridding is on' translated.
  
  	isWorld ifFalse:
  		[aMenu add: 'set thumbnail height...' translated action: #setThumbnailHeight.
  		aMenu balloonTextForLastItem: 'if currently showing thumbnails governs the standard height for them' translated].
  
  	self backgroundSketch ifNotNil:
  		[aMenu add: 'delete background painting' translated action: #deleteBackgroundPainting.
  		aMenu balloonTextForLastItem: 'delete the graphic that forms the background for this me.' translated].
  	presenter ifNil:
  		[aMenu add: 'make detachable' translated action: #makeDetachable.
  		aMenu balloonTextForLastItem: 'Allow this area to be separately governed by its own controls.' translated].
  
  	aMenu addLine.
  	aMenu add: 'use standard texture' translated action: #setStandardTexture.
  	aMenu balloonTextForLastItem: 'use a pale yellow-and-blue background texture here.' translated.
  	aMenu add: 'make graph paper...' translated action: #makeGraphPaper.
  	aMenu balloonTextForLastItem: 'Design your own graph paper and use it as the background texture here.' translated.
  	aMenu addLine.
  
  	aMenu add: 'show viewers of all players' translated action: #showAllPlayers.
  	aMenu balloonTextForLastItem:  'Make viewers for all players which have user-written scripts in this playfield.' translated.
  	aMenu add: 'remove viewers of all players' translated action: #hideAllPlayers.
  	aMenu balloonTextForLastItem:  'Remove the viewers for all players in this playfield. This will save space before you publish this project' translated.
  
  	aMenu addTitle: 'playfield options' translated.
  
  	^ aMenu
  !