The Trunk: Tools-topa.588.mcz

Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.588.mcz

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

Name: Tools-topa.588
Author: topa
Time: 14 April 2015, 10:05:13.422 am
UUID: 386b83af-d3f9-4388-98cd-dc98749962ff
Ancestors: Tools-mt.587

Drop responsibility of #openInMVC to ST80Tools

=============== Diff against Tools-mt.587 ===============

Item was removed:
- ----- Method: FileList class>>openInMVC (in category 'mvc compatibility') -----
- openInMVC
- "Open a view of an instance of me on the default directory."
-
- | dir aFileList topView volListView templateView fileListView fileContentsView underPane pHeight |
- dir := FileDirectory default.
- aFileList := self new directory: dir.
- topView := StandardSystemView new.
- topView
- model: aFileList;
- label: dir pathName;
- minimumSize: 200@200.
- topView borderWidth: 1.
-
- volListView := PluggableListView on: aFileList
- list: #volumeList
- selected: #volumeListIndex
- changeSelected: #volumeListIndex:
- menu: #volumeMenu:.
- volListView autoDeselect: false.
- volListView window: (0@0 extent: 80@45).
- topView addSubView: volListView.
-
- templateView _ PluggableTextView on: aFileList
- text: #pattern
- accept: #pattern:.
- templateView askBeforeDiscardingEdits: false.
- templateView window: (0@0 extent: 80@15).
- topView addSubView: templateView below: volListView.
-
- aFileList wantsOptionalButtons
- ifTrue:
- [underPane := aFileList optionalButtonViewForMVC.
- underPane isNil
- ifTrue: [pHeight := 60]
- ifFalse: [
- topView addSubView: underPane toRightOf: volListView.
- pHeight := 60 - aFileList optionalButtonHeight]]
- ifFalse:
- [underPane := nil.
- pHeight := 60].
-
- fileListView := PluggableListView on: aFileList
- list: #fileList
- selected: #fileListIndex
- changeSelected: #fileListIndex:
- menu: #fileListMenu:.
- fileListView window: (0@0 extent: 120@pHeight).
- underPane isNil
- ifTrue: [topView addSubView: fileListView toRightOf: volListView]
- ifFalse: [topView addSubView: fileListView below: underPane].
- fileListView controller terminateDuringSelect: true.  "Pane to left may change under scrollbar"
-
- fileContentsView := PluggableTextView on: aFileList
- text: #contents accept: #put:
- readSelection: #contentsSelection menu: #fileContentsMenu:shifted:.
- fileContentsView window: (0@0 extent: 200@140).
- topView addSubView: fileContentsView below: templateView.
-
- topView controller open!