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 at 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:!