[Pkg] The Trunk: Tools-topa.588.mcz

[commits at source.squeak.org]

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 at 200.
- 	topView borderWidth: 1.
- 
- 	volListView := PluggableListView on: aFileList
- 		list: #volumeList
- 		selected: #volumeListIndex
- 		changeSelected: #volumeListIndex:
- 		menu: #volumeMenu:.
- 	volListView autoDeselect: false.
- 	volListView window: (0 at 0 extent: 80 at 45).
- 	topView addSubView: volListView.
- 
- 	templateView _ PluggableTextView on: aFileList
- 		text: #pattern
- 		accept: #pattern:.
- 	templateView askBeforeDiscardingEdits: false.
- 	templateView window: (0 at 0 extent: 80 at 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 at 0 extent: 120 at 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 at 0 extent: 200 at 140).
- 	topView addSubView: fileContentsView below: templateView.
- 
- 	topView controller open!