A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-tcj.827.mcz

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

Name: Tools-tcj.827
Author: tcj
Time: 3 July 2018, 1:26:17.691671 pm
UUID: 1faf6a9f-6246-4b95-a3aa-13b113afd08b
Ancestors: Tools-cmm.826

Revert the change to File Contents Browser introduced in Tools-eem.660 which broke version browsing in the File Contents Browser.  "Browse versions" now works again to browse versions of a given selector while browsing through a changeset.

=============== Diff against Tools-cmm.826 ===============

Item was changed:
  ----- Method: FileContentsBrowser>>browseVersions (in category 'other') -----
  browseVersions
+ 	"Create and schedule a message set browser on all versions of the 
+ 	currently selected message selector."
+ 	| class selector |
+ 	(selector := self selectedMessageName) ifNotNil:
+ 		[class := self selectedClassOrMetaClass.
+ 		(class exists and: [class realClass includesSelector: selector]) ifTrue:
+ 			[VersionsBrowser
+ 				browseVersionsOf: (class realClass compiledMethodAt: selector)
+ 				class: class realClass theNonMetaClass
+ 				meta: class realClass isMeta
+ 				category: self selectedMessageCategoryName
+ 				selector: selector]]!
- 	"Create and schedule a message set browser on all versions of the currently selected message selector."
- 	(ToolSet
- 		browseVersionsOf: self selectedClassOrMetaClass
- 		selector: self selectedMessageName) ifNil: [self changed: #flash]!

Item was changed:
  ----- Method: PasteUpMorph>>defaultDesktopCommandKeyTriplets (in category '*Tools') -----
  defaultDesktopCommandKeyTriplets
  	"Answer a list of triplets of the form
  		<key> <receiver> <selector>   [+ optional fourth element, a <description> for use in desktop-command-key-help]
+ 	that will provide the default desktop command key handlers.  If the selector takes an argument, that argument will be the command-key event"
- that will provide the default desktop command key handlers.  If the selector takes an argument, that argument will be the command-key event"
  
  	| noviceKeys expertKeys |
  
  	noviceKeys := {
  		{ $o.	ActiveWorld.						#activateObjectsTool.						'Activate the "Objects Tool"'}.
  		{ $r.	ActiveWorld.						#restoreMorphicDisplay.					'Redraw the screen'}.		
  		{ $z.	self.								#undoOrRedoCommand.					'Undo or redo the last undoable command'}.
  		{ $F.	Project current.					#toggleFlapsSuppressed.					'Toggle the display of flaps'}.
  		{ $N.	self.								#toggleClassicNavigatorIfAppropriate.	'Show/Hide the classic Navigator, if appropriate'}.
  		{ $M.	self.								#toggleShowWorldMainDockingBar.		'Show/Hide the Main Docking Bar'}.
  		{ $].	Smalltalk.							#saveSession.								'Save the image.'}.
  	}.
  
+ 	Preferences noviceMode ifTrue:[^ noviceKeys].
- 	Preferences noviceMode
- 			ifTrue:[^ noviceKeys].
  
  	expertKeys := {
  		{ $b.	SystemBrowser.					#defaultOpenBrowser.						'Open a new System Browser'}.
  		{ $k.	StringHolder.					#open.										'Open a new, blank Workspace'}.
  		{ $m.	self.								#putUpNewMorphMenu.					'Put up the "New Morph" menu'}.
  		{ $O.	self.								#findAMonticelloBrowser.					'Bring a Monticello window into focus.'}.
  		{ $t.	self.	 							#findATranscript:.							'Make a System Transcript visible'}.
  		{ $w.	SystemWindow.					#closeTopWindow.							'Close the topmost window'}.
  		{ Character escape.	SystemWindow.	#closeTopWindow.							'Close the topmost window'}.
  
  		{ $C.	self.								#findAChangeSorter:.						'Make a Change Sorter visible'}.
  
  		{ $L.	self.								#findAFileList:.								'Make a File List visible'}.
  		{ $P.	self.								#findAPreferencesPanel:.					'Activate the Preferences tool'}.
  		{ $R.	Utilities. 								#browseRecentSubmissions.		'Make a Recent Submissions browser visible'}.
  
  		{ $W.	self. 								#findAMessageNamesWindow:.			'Make a MessageNames tool visible'}.
  		{ $Z.	ChangeList. 						#browseRecentLog.							'Browse recently-logged changes'}.
  
  		{ $\.	SystemWindow. 					#sendTopWindowToBack.					'Send the top window to the back'}.
  		{ $_.	Smalltalk.							#quitPrimitive.								'Quit the image immediately.'}.
  
+ 		{ $-.	Preferences. 					#decreaseFontSize.					'Decrease all font sizes'}.
+ 		{ $+.	Preferences.					#increaseFontSize.					'Increase all font sizes'}.
- 		{ $-.	Preferences. 					#decreaseFontSize.					'Increase all font sizes'}.
- 		{ $+.	Preferences.					#increaseFontSize.					'Decrease all font sizes'}.
  	}.
  
  	^ noviceKeys, expertKeys
  !