The Trunk: EToys-mt.446.mcz

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.!