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

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

Name: Protocols-mt.74
Author: mt
Time: 11 October 2020, 1:44:56.309652 pm
UUID: 4334a75d-71a3-9540-a840-545153508848
Ancestors: Protocols-mt.73

Refactoring 'Active' variables -- Step 2 of 2. Removes all uses of Active(World|Hand|Event) by replacing those with "self current(World|Hand|Event)" or "Project current world" when required to not add/cement Morphic dependency.

See http://forum.world.st/Changeset-Eliminating-global-state-from-Morphic-td5121690.html

=============== Diff against Protocols-mt.73 ===============

Item was changed:
  ----- Method: InstanceBrowser>>offerMenu (in category 'menu commands') -----
  offerMenu
  	"Offer a menu to the user, in response to the hitting of the menu button on the tool pane"
  
  	| aMenu |
  	aMenu := MenuMorph new defaultTarget: self.
+ 	aMenu title: ('Messages of {1}' translated format: {objectViewed nameForViewer}).
- 	aMenu title: 'Messages of ', objectViewed nameForViewer.
  	aMenu addStayUpItem.
+ 	aMenu addTranslatedList: #(
- 	aMenu addList: #(
  		('vocabulary...' 			chooseVocabulary)
  		('what to show...'			offerWhatToShowMenu)
  		-
  		('inst var refs (here)'		setLocalInstVarRefs)
  		('inst var defs (here)'		setLocalInstVarDefs)
  		('class var refs (here)'		setLocalClassVarRefs)
  		-
  
  		('navigate to a sender...' 	navigateToASender)
  		('recent...' 					navigateToRecentMethod)
  		('show methods in current change set'
  									showMethodsInCurrentChangeSet)
  		('show methods with initials...'
  									showMethodsWithInitials)
  		-
  		"('toggle search pane' 		toggleSearch)"
  
  		-
  		-
  		('browse full (b)' 			browseMethodFull)
  		('browse hierarchy (h)'		browseClassHierarchy)
  		('browse protocol (p)'		browseFullProtocol)
  		-
  		('fileOut'					fileOutMessage)
  		('printOut'					printOutMessage)
  		-
  		('senders of... (n)'			browseSendersOfMessages)
  		('implementors of... (m)'		browseMessages)
  		('versions (v)' 				browseVersions)
  		('inheritance (i)'			methodHierarchy)
  		-
  		('references... (r)' 				browseVariableReferences)
  		('assignments... (a)' 				browseVariableAssignments)
  		-
  		('viewer on me'				viewViewee)
  		('inspector on me'			inspectViewee)
  		-
  		('more...'					shiftedYellowButtonActivity)).
+ 	
+ 	^ aMenu popUpInWorld: self currentWorld!
- 
- 	aMenu popUpInWorld: ActiveWorld!

Item was changed:
  ----- Method: Lexicon>>offerMenu (in category 'menu commands') -----
  offerMenu
  	"Offer a menu to the user, in response to the hitting of the menu button on the tool pane"
  
  	| aMenu |
  	aMenu := MenuMorph new defaultTarget: self.
+ 	aMenu addTitle: 'Lexicon' translated.
- 	aMenu addTitle: 'Lexicon'.
  	aMenu addStayUpItem.
+ 	aMenu addTranslatedList: #(
- 	aMenu addList: #(
- 
  		('vocabulary...' 			chooseVocabulary)
  		('what to show...'			offerWhatToShowMenu)
  		-
  		('inst var refs (here)'		setLocalInstVarRefs)
  		('inst var assignments (here)'		setLocalInstVarDefs)
  		('class var refs (here)'		setLocalClassVarRefs)
  		-
- 
  		('navigate to a sender...' 	navigateToASender)
  		('recent...' 					navigateToRecentMethod)
+ 		('show methods in current change set'	showMethodsInCurrentChangeSet)
+ 		('show methods with initials...'	showMethodsWithInitials)
- 		('show methods in current change set'
- 									showMethodsInCurrentChangeSet)
- 		('show methods with initials...'
- 									showMethodsWithInitials)
  		-
  		"('toggle search pane' 		toggleSearch)"
- 
  		-
  		('browse full (b)' 			browseMethodFull)
  		('browse hierarchy (h)'		browseClassHierarchy)
  		('browse protocol (p)'		browseFullProtocol)
  		-
  		('fileOut'					fileOutMessage)
  		('printOut'					printOutMessage)
  		-
  		('senders of... (n)'			browseSendersOfMessages)
  		('implementors of... (m)'		browseMessages)
  		('versions (v)' 				browseVersions)
  		('inheritance (i)'			methodHierarchy)
  		-
  		('references... (r)' 				browseVariableReferences)
  		('assignments... (a)' 				browseVariableAssignments)
  		-
  		('more...'					shiftedYellowButtonActivity)).
+ 	
+ 	^ aMenu popUpInWorld: self currentWorld!
- 
- 	aMenu popUpInWorld: ActiveWorld!

Item was changed:
  ----- Method: Object>>haveFullProtocolBrowsedShowingSelector: (in category '*Protocols') -----
  haveFullProtocolBrowsedShowingSelector: aSelector
  	"Open up a Lexicon on the receiver, having it open up showing aSelector, which may be nil"
+ 	"(2 at 3) haveFullProtocolBrowsed"
  
  	| aBrowser |
+ 	aBrowser := (Smalltalk at: #InstanceBrowser ifAbsent: [^ nil]) new
+ 		useVocabulary: Vocabulary fullVocabulary.
+ 	aBrowser
+ 		openOnObject: self
+ 		inWorld: Project current world
+ 		showingSelector: aSelector!
- 	aBrowser := (Smalltalk at: #InstanceBrowser ifAbsent:[^nil]) new useVocabulary: Vocabulary fullVocabulary.
- 	aBrowser openOnObject: self inWorld: ActiveWorld showingSelector: aSelector
- 
- 	"(2 at 3) haveFullProtocolBrowsed"!