A new version of Protocols was added to project The Inbox:
http://source.squeak.org/inbox/Protocols-jr.89.mcz

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

Name: Protocols-jr.89
Author: jr
Time: 21 August 2022, 9:09:16.080081 pm
UUID: 25cc002c-a7c8-3346-aeca-04462598842b
Ancestors: Protocols-jr.88

Prompt before discarding changes when navigating back and forth.

=============== Diff against Protocols-jr.88 ===============

Item was changed:
  ----- Method: Lexicon>>navigateToNextMethod (in category 'history') -----
  navigateToNextMethod
  	"Navigate to the 'next' method in the current viewing sequence"
  
  	| next |
+ 	self okToChange ifFalse: [^ self].
  	next := self selectorsVisited goForward.
  	next ifNil: [^ self].
  	self selectorsVisited suspendNavigationLogDuring:
  		[self selectedCategoryName == self class viewedCategoryName 
  			ifTrue:
  				[self selectWithinCurrentCategory: next]
  			ifFalse:
  				[self displaySelector: next]].!

Item was changed:
  ----- Method: Lexicon>>navigateToPreviousMethod (in category 'history') -----
  navigateToPreviousMethod
  	"Navigate to the 'previous' method in the current viewing sequence"
  
  	| previous |
+ 	self okToChange ifFalse: [^ self].
  	previous := self selectorsVisited goBack.
  	previous ifNil: [^ self].
  	self selectorsVisited suspendNavigationLogDuring:
  		[self selectedCategoryName == self class viewedCategoryName 
  			ifTrue:
  				[self selectWithinCurrentCategory: previous]
  			ifFalse:
  				[self displaySelector: previous]].
  	!