The Inbox: Monticello-fbs.545.mcz

A new version of Monticello was added to project The Inbox:
http://source.squeak.org/inbox/Monticello-fbs.545.mcz

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

Name: Monticello-fbs.545
Author: fbs
Time: 24 May 2013, 10:40:40.385 pm
UUID: 0666ec56-f995-476a-9b08-59043e96402d
Ancestors: Monticello-fbs.544

Rip out the Morphic UI building logic: it's no longer needed.

#workingCopy(List|Tree)Morph have no senders, so they go too.

=============== Diff against Monticello-fbs.544 ===============

Item was changed:
+ ----- Method: MCTool>>buildWindow (in category 'toolbuilder') -----
- ----- Method: MCTool>>buildWindow (in category 'morphic ui') -----
  buildWindow
+ ^ ToolBuilder build: self!
- | window |
- Smalltalk at: #ToolBuilder ifPresent: [:tb | ^tb build: self].
- window := SystemWindow labelled: self label.
- window model: self.
- self widgetSpecs do: [:spec |
- | send fractions offsets |
- send := spec first.
- fractions := spec at: 2 ifAbsent: [#(0 0 1 1)].
- offsets := spec at: 3 ifAbsent: [#(0 0 0 0)].
- window
- addMorph: (self perform: send first withArguments: send allButFirst)
- fullFrame:
- (LayoutFrame
- fractions:
- ((fractions first)@(fractions second) corner:
- (fractions third)@(fractions fourth))
- offsets:
- ((offsets first)@(offsets second)  corner:
- (offsets third)@(offsets fourth)))].
- ^ window!

Item was changed:
+ ----- Method: MCTool>>buildWith: (in category 'toolbuilder') -----
- ----- Method: MCTool>>buildWith: (in category 'morphic ui') -----
  buildWith: builder
  |  windowBuilder |
 
  windowBuilder := MCToolWindowBuilder builder: builder tool: self.
  self widgetSpecs do:
  [:spec | | send fractions offsets |
  send := spec first.
  fractions := spec at: 2 ifAbsent: [#(0 0 1 1)].
  offsets := spec at: 3 ifAbsent: [#(0 0 0 0)].
  windowBuilder frame: (LayoutFrame
  fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
  offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth)).
  windowBuilder perform: send first withArguments: send allButFirst].
 
  ^ windowBuilder build
  !

Item was removed:
- ----- Method: MCTool>>buttonRow (in category 'morphic ui') -----
- buttonRow
- ^ self buttonRow: self buttonSpecs!

Item was removed:
- ----- Method: MCTool>>buttonRow: (in category 'morphic ui') -----
- buttonRow: specArray
- | aRow |
- aRow := AlignmentMorph newRow.
- aRow
- color: (Display depth <= 8 ifTrue: [Color transparent] ifFalse: [Color gray alpha: 0.2]);
- borderWidth: 0.
-
- aRow hResizing: #spaceFill; vResizing: #spaceFill; rubberBandCells: true.
- aRow clipSubmorphs: true.
- aRow layoutInset:2@2; cellInset: 1; color: Color white.
- aRow wrapCentering: #center; cellPositioning: #leftCenter.
- specArray do:
- [:triplet | | aButton state |
- state := triplet at: 4 ifAbsent: [#buttonState].
- aButton := PluggableButtonMorph
- on: self
- getState: state
- action: #performButtonAction:enabled:.
- aButton
- hResizing: #spaceFill;
- vResizing: #spaceFill;
- label: triplet first asString;
- arguments: (Array with: triplet second with: state);
- onColor: Color white offColor: Color white.
- aRow addMorphBack: aButton.
- aButton setBalloonText: triplet third].
-
- ^ aRow!

Item was removed:
- ----- Method: MCTool>>codePane: (in category 'morphic ui') -----
- codePane: aSymbol
-
- | textMorph |
- textMorph := PluggableTextMorphPlus
- on: self
- text: aSymbol
- accept: (aSymbol, ':') asSymbol.
- textMorph useDefaultStyler.
- ^textMorph!

Item was removed:
- ----- Method: MCTool>>listMorph: (in category 'morphic ui') -----
- listMorph: listSymbol
- ^ self
- listMorph: (listSymbol, 'List') asSymbol
- selection: (listSymbol, 'Selection') asSymbol
- menu: (listSymbol, 'ListMenu:') asSymbol!

Item was removed:
- ----- Method: MCTool>>listMorph:keystroke: (in category 'morphic ui') -----
- listMorph: listSymbol keystroke: keystrokeSymbol
- ^ (self
- listMorph: (listSymbol, 'List') asSymbol
- selection: (listSymbol, 'Selection') asSymbol
- menu: (listSymbol, 'ListMenu:') asSymbol)
- keystrokeActionSelector: keystrokeSymbol;
- yourself!

Item was removed:
- ----- Method: MCTool>>listMorph:selection: (in category 'morphic ui') -----
- listMorph: listSymbol selection: selectionSymbol
- ^ PluggableListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol!

Item was removed:
- ----- Method: MCTool>>listMorph:selection:menu: (in category 'morphic ui') -----
- listMorph: listSymbol selection: selectionSymbol menu: menuSymbol
- ^ PluggableListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol
- menu: menuSymbol!

Item was removed:
- ----- Method: MCTool>>listMorph:selection:menu:keystroke: (in category 'morphic ui') -----
- listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: keystrokeSymbol
- ^ (PluggableListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol
- menu: menuSymbol)
- keystrokeActionSelector: keystrokeSymbol;
- yourself!

Item was removed:
- ----- Method: MCTool>>multiListMorph:selection:listSelection:menu: (in category 'morphic ui') -----
- multiListMorph: listSymbol selection: selectionSymbol listSelection: listSelectionSymbol menu: menuSymbol
- ^ PluggableListMorphOfMany
- on: self
- list: listSymbol
- primarySelection: selectionSymbol
- changePrimarySelection: (selectionSymbol, ':') asSymbol
- listSelection: listSelectionSymbol
- changeListSelection: (listSelectionSymbol, 'put:') asSymbol
- menu: menuSymbol!

Item was removed:
- ----- Method: MCTool>>textMorph: (in category 'morphic ui') -----
- textMorph: aSymbol
- ^ PluggableTextMorph on: self text: aSymbol accept: (aSymbol, ':') asSymbol!

Item was removed:
- ----- Method: MCTool>>treeMorph: (in category 'morphic ui') -----
- treeMorph: listSymbol
- ^ self
- treeMorph: (listSymbol, 'Tree') asSymbol
- selection: (listSymbol, 'SelectionWrapper') asSymbol
- menu: (listSymbol, 'TreeMenu:') asSymbol!

Item was removed:
- ----- Method: MCTool>>treeMorph:selection:menu: (in category 'morphic ui') -----
- treeMorph: listSymbol selection: selectionSymbol menu: menuSymbol
- ^ SimpleHierarchicalListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol
- menu: menuSymbol
- keystroke: nil!

Item was removed:
- ----- Method: MCTool>>treeOrListMorph: (in category 'morphic ui') -----
- treeOrListMorph: aSymbol
- ^ self treeMorph: aSymbol!

Item was removed:
- ----- Method: MCWorkingCopyBrowser>>workingCopyListMorph (in category 'morphic ui') -----
- workingCopyListMorph
- ^ PluggableMultiColumnListMorph
- on: self
- list: #workingCopyList
- selected: #workingCopySelection
- changeSelected: #workingCopySelection:
- menu: #workingCopyListMenu:!

Item was removed:
- ----- Method: MCWorkingCopyBrowser>>workingCopyTreeMorph (in category 'morphic ui') -----
- workingCopyTreeMorph
- ^ SimpleHierarchicalListMorph
- on: self
- list: #workingCopyTree
- selected: #workingCopyWrapper
- changeSelected: #workingCopyWrapper:
- menu: #workingCopyListMenu:!