[Pkg] The Trunk: ST80Tools-topa.6.mcz

[commits at source.squeak.org]

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

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

Name: ST80Tools-topa.6
Author: topa
Time: 14 April 2015, 10:04:21.905 am
UUID: 1c2237e9-0dc7-479b-a7a2-236e4f1f793f
Ancestors: ST80Tools-mt.5

Assume responsibility of #openInMVC in a Tool

=============== Diff against ST80Tools-mt.5 ===============

Item was added:
+ ----- Method: FileList class>>openInMVC (in category '*ST80Tools-instance creation') -----
+ 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!