[squeak-dev] The Trunk: ST80Tools-cmm.8.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 21 21:49:47 UTC 2015


Chris Muller uploaded a new version of ST80Tools to project The Trunk:
http://source.squeak.org/trunk/ST80Tools-cmm.8.mcz

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

Name: ST80Tools-cmm.8
Author: cmm
Time: 21 April 2015, 4:49:40.23 pm
UUID: 1d69716a-4a2c-44e6-9bae-2613b5590947
Ancestors: ST80Tools-mt.7

Fix underscore assignment.

=============== Diff against ST80Tools-mt.7 ===============

Item was changed:
  ----- 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
- 	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!



More information about the Squeak-dev mailing list