Discussion:
The Trunk: Monticello-pre.691.mcz
(too old to reply)
c***@source.squeak.org
0000-12-08 12:22:50 UTC
Permalink
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
^ s

Loading...