The Trunk: Tools-mt.591.mcz

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!