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

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

Name: Tools-mt.1070
Author: mt
Time: 19 November 2021, 6:13:43.698971 pm
UUID: 693be1ec-bd56-314e-aae3-0ab7b08ac4ce
Ancestors: Tools-mt.1069

Complements Morphic-mt.1792

=============== Diff against Tools-mt.1069 ===============

Item was changed:
  ----- Method: Browser>>buildClassListWith: (in category 'toolbuilder') -----
  buildClassListWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
+ 		name: #classList;
  		list: #classList;
  		getIndex: #classListIndex; 
  		setIndex: #classListIndex:;
  		icon: #classIconAt:; 
  		menu: #classListMenu:shifted:; 
  		keyPress: #classListKey:from:.
  	SystemBrowser browseWithDragNDrop ifTrue: [
  		listSpec
  			dragItem: #dragFromClassList:;
  			dragType: #dragTypeForClassListAt:].
  
  	^listSpec
  !

Item was changed:
  ----- Method: Browser>>buildDefaultBrowserWith: (in category 'toolbuilder') -----
  buildDefaultBrowserWith: builder
  	"assemble the spec for a full system browser, build it and return the built but not opened morph"
  	"this build-but-don't-open phase is factored out to support the prototypicalToolWindow facility"
  
  	| max windowSpec |
  	max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
  
  	windowSpec := self buildWindowWith: builder specs: {
  		(0 at 0 corner: 0.25 at max) -> [self buildSystemCategoryListWith: builder].
  		(self classListFrame: max) -> [self buildClassListWith: builder].
  		(self switchesFrame: max) -> [self buildSwitchesWith: builder].
  		(0.5 at 0 corner: 0.75 at max) -> [self buildMessageCategoryListWith: builder].
  		(0.75 at 0 corner: 1 at max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}.
  	self setMultiWindowFor:windowSpec.
+ 	windowSpec defaultFocus: #systemCategoryList.
  
  	^builder build: windowSpec!

Item was changed:
  ----- Method: Browser>>buildMessageCategoryListWith: (in category 'toolbuilder') -----
  buildMessageCategoryListWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
+ 		name: #messageCategoryList;
  		list: #messageCategoryList; 
  		getIndex: #messageCategoryListIndex; 
  		setIndex: #messageCategoryListIndex:; 
  		menu: #messageCategoryMenu:; 
  		keyPress: #messageCategoryListKey:from:.
  	SystemBrowser browseWithDragNDrop ifTrue:[
  		listSpec
  			dropAccept: #wantsMessageCategoriesDrop:;
  			dropItem: #dropOnMessageCategories:at:].
  	^listSpec
  !

Item was changed:
  ----- Method: Browser>>buildMessageListWith: (in category 'toolbuilder') -----
  buildMessageListWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
+ 		name: #messageList;
  		list: #messageList; 
  		getIndex: #messageListIndex; 
  		setIndex: #messageListIndex:; 
  		icon: #messageIconAt:;
  		helpItem: #messageHelpAt:;
  		menu: #messageListMenu:shifted:; 
  		keyPress: #messageListKey:from:.
  	SystemBrowser browseWithDragNDrop ifTrue: [
  		listSpec
  			dragItem: #dragFromMessageList:;
  			dragType: #dragTypeForMessageListAt:].
  	^listSpec
  !

Item was changed:
  ----- Method: Browser>>buildSystemCategoryListWith: (in category 'toolbuilder') -----
  buildSystemCategoryListWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
+ 		name: #systemCategoryList;
  		list: #systemCategoryList; 
  		getIndex: #systemCategoryListIndex; 
  		setIndex: #systemCategoryListIndex:; 
  		menu: #systemCategoryMenu:; 
  		keyPress: #systemCatListKey:from:.
  	SystemBrowser browseWithDragNDrop ifTrue:[
  		listSpec
  			dropAccept: #wantsSystemCategoriesDrop:;
  			dropItem: #dropOnSystemCategories:at:].
  	^listSpec!

Item was changed:
  ----- Method: HierarchyBrowser>>buildDefaultBrowserWith: (in category 'toolbuilder') -----
  buildDefaultBrowserWith: builder
  	"assemble the spec for a hierarchical browser, build it and return the built but not opened morph"
  	"this build-but-don't-open phase is factored out to support the prototypicalToolWindow facility"
  
  	| max windowSpec |
  
  
  	self setupIfNotInitialisedYet. 
  	max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4].
  
  	windowSpec := self buildWindowWith: builder specs: {
  		(self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333) -> [self buildClassListWith: builder].
  		(self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder].
  		(LayoutFrame fractions: (0.333 at 0 corner: 0.666 at max) offsets: (0 at 0 corner: 0 at 0)) -> [self buildMessageCategoryListWith: builder].
  		(LayoutFrame fractions: (0.666 at 0 corner: 1 at max) offsets: (0 at 0 corner: 0 at 0)) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}.
  	self setMultiWindowFor:windowSpec.
+ 	windowSpec defaultFocus: #classList.
  
  	^builder build: windowSpec!

Item was changed:
  ----- Method: PackagePaneBrowser>>buildDefaultBrowserWith: (in category 'toolbuilder') -----
  buildDefaultBrowserWith: builder
  	"assemble the spec for a full 5-pane browser - package, category, class, protocol & message lists, build it and return the built but not opened morph.
  	the build-but-don't-open phase is factored out to support the prototypicalToolWindow facility"
  
  	"PackagePaneBrowser fullOnClass: Browser."
  
  	| max windowSpec |
   	max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
  	windowSpec := self buildWindowWith: builder specs: {
  		(0 at 0 corner: 0.15 at max) -> [self buildPackageListWith: builder].
  		(0.15 at 0 corner: 0.35 at max) -> [self buildSystemCategoryListWith: builder].
  		(self classListFrame: max fromLeft: 0.35 width: 0.25) -> [self buildClassListWith: builder].
  		(self switchesFrame: max fromLeft: 0.35 width: 0.25) -> [self buildSwitchesWith: builder].
  		(0.6 at 0 corner: 0.75 at max) -> [self buildMessageCategoryListWith: builder].
  		(0.75 at 0 corner: 1 at max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}.
  	self setMultiWindowFor:windowSpec.
+ 	windowSpec defaultFocus: #packageList.
  
  	^builder build: windowSpec!

Item was changed:
  ----- Method: PackagePaneBrowser>>buildPackageListWith: (in category 'toolbuilder') -----
  buildPackageListWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
+ 		name: #packageList;
  		list: #packageList; 
  		getIndex: #packageListIndex; 
  		setIndex: #packageListIndex:; 
  		menu: #packageMenu:; 
  		keyPress: #packageListKey:from:.
  	^listSpec
  !