[Pkg] The Trunk: EToys-mt.446.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.446.mcz

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

Name: EToys-mt.446
Author: mt
Time: 29 April 2021, 6:04:17.914356 pm
UUID: a152d734-d85e-934d-95e1-713756d0e0fe
Ancestors: EToys-mt.445

Avoid using ActiveWorld, ActiveHand, ActiveEvent.

=============== Diff against EToys-mt.445 ===============

Item was changed:
  ----- Method: ScriptEditorMorph>>offerScriptorMenu (in category 'other') -----
  offerScriptorMenu
  	"Put up a menu in response to the user's clicking in the menu-request area of the scriptor's heaer"
  
  	| aMenu count |
  	self modernize.
  	self currentHand showTemporaryCursor: nil.
  	
  	Preferences eToyFriendly ifTrue: [^ self offerSimplerScriptorMenu].
  	
  	aMenu := MenuMorph new defaultTarget: self.
  	aMenu addTitle: scriptName asString.
  	aMenu addStayUpItem.  "NB:  the kids version in #offerSimplerScriptorMenu does not deploy the stay-up item"
  	
  	aMenu addList: (self hasParameter
  		ifTrue: [{
  			{'remove parameter' translated.					#ceaseHavingAParameter}}]
  		ifFalse: [{
  			{'add parameter' translated.						#addParameter}}]).
  
  	self hasParameter ifFalse:
  		[aMenu addTranslatedList: {
  			{'button to fire this script' translatedNoop. #tearOfButtonToFireScript}.
  			{'fires per tick...' translatedNoop. #chooseFrequency}.
  			#-
  		}].
  	
  	aMenu addUpdating: #showingCaretsString target: self action: #toggleShowingCarets.
  	aMenu addLine.
  	aMenu addList: {
  		{'edit balloon help for this script' translated.		#editMethodDescription}.
  		{'explain status alternatives' translated. 			#explainStatusAlternatives}.
  		{'button to show/hide this script' translated.			#buttonToOpenOrCloseThisScript}.
  		#-
  	}.
  	
  	Preferences universalTiles ifFalse: [
  		count := self savedTileVersionsCount.
  		self showingMethodPane
  			ifFalse: [ "currently showing tiles"
  				aMenu add: 'show code textually' translated action: #showSourceInScriptor.
  				count > 0 ifTrue: [
  					aMenu add: 'revert to tile version...' translated action: #revertScriptVersion].
  				aMenu add: 'save this version' translated action: #saveScriptVersion ]
  			ifTrue: [ "current showing textual source"
  				aMenu add: 'convert to tile version' translated action: #toggleWhetherShowingTiles.
  				count > 0 ifTrue:
  					[aMenu add: 'revert to tile version...' translated action: #revertScriptVersion]] ].
  	
  	"aMenu addLine.
  	self addGoldBoxItemsTo: aMenu."
  	
  	aMenu addLine.
  	
+ 	aMenu add: 'grab this object' translated target: playerScripted selector: #grabPlayerIn: argument: self currentWorld.
- 	aMenu add: 'grab this object' translated target: playerScripted selector: #grabPlayerIn: argument: ActiveWorld.
  	aMenu balloonTextForLastItem: 'This will actually pick up the object bearing this script and hand it to you.  Click the (left) button to drop it' translated.
  	
+ 	aMenu add: 'reveal this object' translated target: playerScripted selector: #revealPlayerIn: argument: self currentWorld.
- 	aMenu add: 'reveal this object' translated target: playerScripted selector: #revealPlayerIn: argument: ActiveWorld.
  	aMenu balloonTextForLastItem: 'If you have misplaced the object bearing this script, use this item to (try to) make it visible' translated.
  	
  	aMenu add: 'tile representing this object' translated target: playerScripted action: #tearOffTileForSelf.
  	aMenu balloonTextForLastItem: 'choose this to obtain a tile which represents the object associated with this script' translated.
  	
  	aMenu addTranslatedList: {
  		#-.
  		{'open viewer' translatedNoop. #openObjectsViewer.  'open the viewer of the object to which this script belongs' translatedNoop}.
  		{'detached method pane' translatedNoop. #makeIsolatedCodePane. 'open a little window that shows the Smalltalk code underlying this script.' translatedNoop}.
  		#-.
  		{'destroy this script' translatedNoop. #destroyScript}
  	}.
  	
  	aMenu popUpInWorld: self currentWorld.!