Patrick Rein uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-pre.691.mcz

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

Name: Monticello-pre.691
Author: pre
Time: 7 December 2018, 1:22:45.743037 pm
UUID: 2eb76786-f610-47aa-97fa-9a4d90f4894d
Ancestors: Monticello-pre.690

Categorizes the methods of MCToolWindowBuilder as they were still missing.

=============== Diff against Monticello-pre.690 ===============

Item was changed:
+ ----- Method: MCToolWindowBuilder>>build (in category 'building') -----
- ----- Method: MCToolWindowBuilder>>build (in category 'as yet unclassified') -----
  build
  	^ builder build: window!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>buttonRow (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>buttonRow (in category 'as yet unclassified') -----
  buttonRow
  	^ self buttonRow: tool buttonSpecs!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>buttonRow: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>buttonRow: (in category 'as yet unclassified') -----
  buttonRow: specArray
  	| panel |
  	panel := builder pluggablePanelSpec new.
  	panel children: OrderedCollection new.
  	specArray do:
  		[:spec | | button |
  		
  		button := builder pluggableButtonSpec new.
  		button model: tool.
  		button label: spec first asString.
  		button action: spec second.
  		button help: spec third.
  		button enabled: (spec at: 4 ifAbsent: [#buttonEnabled]).
  		button state: (spec at: 5 ifAbsent: [#buttonSelected]).
  		panel children add: button].
  	panel layout: #horizontal.
  	panel frame: currentFrame.
  	window children add: panel!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>codePane: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>codePane: (in category 'as yet unclassified') -----
  codePane: aSymbol
  	| text |
  	text := builder pluggableCodePaneSpec new.
  	text 
  		model: tool;
  		getText: aSymbol; 
  		setText: (aSymbol, ':') asSymbol;
  		frame: currentFrame.
  	window children add: text!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>frame: (in category 'accessing') -----
- ----- Method: MCToolWindowBuilder>>frame: (in category 'as yet unclassified') -----
  frame: aLayoutFrame
  	currentFrame := aLayoutFrame!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>initializeWithBuilder:tool: (in category 'initialize-release') -----
- ----- Method: MCToolWindowBuilder>>initializeWithBuilder:tool: (in category 'as yet unclassified') -----
  initializeWithBuilder: aBuilder tool: aTool
  	builder := aBuilder.
  	tool := aTool.
  	window := builder pluggableWindowSpec new.
  	window children: OrderedCollection new.
  	window label: tool label asString.
  	window model: tool.
  	window extent: tool defaultExtent.!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>innerButtonRow (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>innerButtonRow (in category 'as yet unclassified') -----
  innerButtonRow
  	^ self buttonRow: tool innerButtonSpecs!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>inputMorph: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>inputMorph: (in category 'as yet unclassified') -----
  inputMorph: aSymbol
  	| text |
  	text := builder pluggableInputFieldSpec new.
  	text 
  		model: tool;
  		getText: aSymbol; 
  		setText: (aSymbol, ':') asSymbol;
  		frame: currentFrame.
  	window children add: text!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>listMorph: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>listMorph: (in category 'as yet unclassified') -----
  listMorph: listSymbol
  	^ self
  		listMorph: (listSymbol, 'List') asSymbol
  		selection: (listSymbol, 'Selection') asSymbol
  		menu: (listSymbol, 'ListMenu:') asSymbol!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>listMorph:keystroke: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>listMorph:keystroke: (in category 'as yet unclassified') -----
  listMorph: listSymbol keystroke: keystrokeSymbol
  	^ (self
  		listMorph: (listSymbol, 'List') asSymbol
  		selection: (listSymbol, 'Selection') asSymbol
  		menu: (listSymbol, 'ListMenu:') asSymbol)
  		keystrokeActionSelector: keystrokeSymbol;
  		yourself!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>listMorph:selection: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>listMorph:selection: (in category 'as yet unclassified') -----
  listMorph: listSymbol selection: selectionSymbol
  	self listMorph: listSymbol selection: selectionSymbol menu: nil!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>listMorph:selection:menu: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>listMorph:selection:menu: (in category 'as yet unclassified') -----
  listMorph: listSymbol selection: selectionSymbol menu: menuSymbol
  	self listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: nil!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>listMorph:selection:menu:keystroke: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>listMorph:selection:menu:keystroke: (in category 'as yet unclassified') -----
  listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: keystrokeSymbol
  	| list |
  	list := builder pluggableListSpec new.
  	list 
  		model: tool;
  		list: listSymbol; 
  		getIndex: selectionSymbol; 
  		setIndex: (selectionSymbol, ':') asSymbol;
  		frame: currentFrame.
  	menuSymbol ifNotNil: [list menu: menuSymbol].
  	keystrokeSymbol ifNotNil: [list keyPress: keystrokeSymbol].
  	window children add: list
  !

Item was changed:
+ ----- Method: MCToolWindowBuilder>>multiListMorph:selection:listSelection:menu: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>multiListMorph:selection:listSelection:menu: (in category 'as yet unclassified') -----
  multiListMorph: listSymbol selection: selectionSymbol listSelection: listSelectionSymbol menu: menuSymbol
  	| list |
  	list := builder pluggableMultiSelectionListSpec new.
  	list 
  		model: tool;
  		list: listSymbol; 
  		getIndex: selectionSymbol; 
  		setIndex: (selectionSymbol, ':') asSymbol;
  		getSelectionList: listSelectionSymbol;
  		setSelectionList: (listSelectionSymbol, 'put:') asSymbol;
  		frame: currentFrame.
  	menuSymbol ifNotNil: [list menu: menuSymbol].
  	window children add: list
  !

Item was changed:
+ ----- Method: MCToolWindowBuilder>>textMorph: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>textMorph: (in category 'as yet unclassified') -----
  textMorph: aSymbol
  	| text |
  	text := builder pluggableTextSpec new.
  	text 
  		model: tool;
  		getText: aSymbol; 
  		setText: (aSymbol, ':') asSymbol;
  		frame: currentFrame.
  	window children add: text!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>treeMorph: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>treeMorph: (in category 'as yet unclassified') -----
  treeMorph: listSymbol
  	^ self
  		treeMorph: (listSymbol, 'Tree') asSymbol
  		selection: (listSymbol, 'SelectionWrapper') asSymbol
  		menu: (listSymbol, 'TreeMenu:') asSymbol!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>treeMorph:selection:menu: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>treeMorph:selection:menu: (in category 'as yet unclassified') -----
  treeMorph: listSymbol selection: selectionSymbol menu: menuSymbol
  	self notYetImplemented!

Item was changed:
+ ----- Method: MCToolWindowBuilder>>treeOrListMorph: (in category 'building-parts') -----
- ----- Method: MCToolWindowBuilder>>treeOrListMorph: (in category 'as yet unclassified') -----
  treeOrListMorph: listSymbol
  	^ self listMorph: listSymbol!