Christoph Thiede uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-ct.84.mcz

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

Name: Protocols-ct.84
Author: ct
Time: 5 May 2022, 7:07:53.306219 pm
UUID: 09ed9c60-d1ea-f84c-9cfe-105828d70793
Ancestors: Protocols-tpr.83

Complements Tools-ct.1150 (merges toolCodePane.3.cs, improved MVC compatibility for view accesses from model).

=============== Diff against Protocols-tpr.83 ===============

Item was changed:
  ----- Method: Lexicon>>hasSearchPane (in category 'search') -----
  hasSearchPane
  	"Answer whether receiver has a search pane"
  
+ 	^ self searchTextMorph notNil!
- 	^ self searchPane notNil!

Item was changed:
  ----- Method: Lexicon>>showCategoriesPane (in category 'category list') -----
  showCategoriesPane
  	"Show the categories pane instead of the search pane"
  
  	| aPane |
+ 	(aPane := self searchTextMorph) ifNil: [^ Beeper beep].
- 	(aPane := self searchPane) ifNil: [^ Beeper beep].
  	self containingWindow replacePane: aPane with: self newCategoryPane.
  	categoryList := nil.
  	self changed: #categoryList.
  	self changed: #messageList!