[Pkg] The Trunk: Tools-mt.591.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.591.mcz

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

Name: Tools-mt.591
Author: mt
Time: 14 April 2015, 2:14:27.025 pm
UUID: c1af0e66-0871-7d49-856d-fc78f8f28086
Ancestors: Tools-mt.590

MVC dependency removed

=============== Diff against Tools-mt.590 ===============

Item was removed:
- ----- Method: FileList>>optionalButtonViewForMVC (in category 'mvc compatibility') -----
- optionalButtonViewForMVC
- 	"Answer a view of optional buttons"
- 
- 	| aView bHeight windowWidth offset previousView aButtonView wid services sel allServices |
- 	aView := View new model: self.
- 	bHeight := self optionalButtonHeight.
- 	windowWidth := 120.
- 	aView window: (0 @ 0 extent: windowWidth @ bHeight).
- 	offset := 0.
- 	allServices := self universalButtonServices.
- 	services := allServices copyFrom: 1 to: (allServices size min: 5).
- 	previousView := nil.
- 	services
- 		do: [:service | sel := service selector.
- 		aButtonView := sel asString numArgs = 0
- 			ifTrue: [PluggableButtonView
- 					on: service provider
- 					getState: (service extraSelector == #none
- 							ifFalse: [service extraSelector])
- 					action: sel]
- 			ifFalse: [PluggableButtonView
- 					on: service provider
- 					getState: (service extraSelector == #none
- 							ifFalse: [service extraSelector])
- 					action: sel
- 					getArguments: #fullName
- 					from: self].
- 		service selector = services last selector
- 			ifTrue: [wid := windowWidth - offset]
- 			ifFalse: [aButtonView
- 					borderWidthLeft: 0
- 					right: 1
- 					top: 0
- 					bottom: 0.
- 				wid := windowWidth // services size - 2].
- 		aButtonView label: service buttonLabel asParagraph;
- 			window: (offset @ 0 extent: wid @ bHeight).
- 		offset := offset + wid.
- 		service selector = services first selector
- 			ifTrue: [aView addSubView: aButtonView]
- 			ifFalse: [aView addSubView: aButtonView toRightOf: previousView].
- 		previousView := aButtonView].
- 	^ aView!