The Trunk: Monticello-pre.691.mcz

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!