Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.714.mcz

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

Name: Tools-mt.714
Author: mt
Time: 11 August 2016, 12:11:08.251789 pm
UUID: bf026012-d750-3249-8379-8df96fe4a4b6
Ancestors: Tools-mt.713

Hotfix to theme all file choosing and FileList2 dialogs. Note that we should refactore/rewrite that code to not depend on Morphic. In the long term, the Tools package should not depend on Morphic being loaded.

=============== Diff against Tools-mt.713 ===============

Item was changed:
  ----- Method: FileChooser>>open (in category 'open') -----
  open
  	| model |
  	self postOpen. "Funny name in this context, should be renamed, but whatever..."
  	self morphicView openInWorld.
+ 	UserInterfaceTheme current applyTo: self morphicView allMorphs.
  	model := self morphicView model.
  	FileChooser modalLoopOn: self morphicView.
  	^ model getSelectedFile.
  !

Item was changed:
  ----- Method: FileList2 class>>modalFileSelector (in category 'modal dialogs') -----
  modalFileSelector
  
  	| window |
  
  	window := self morphicViewFileSelector.
  	window openCenteredInWorld.
+ 	UserInterfaceTheme current applyTo: window allMorphs.
  	self modalLoopOn: window.
  	^(window valueOfProperty: #fileListModel) getSelectedFile!

Item was changed:
  ----- Method: FileList2 class>>modalFileSelectorForSuffixes: (in category 'modal dialogs') -----
  modalFileSelectorForSuffixes: aList
  
  	| window aFileList |
  
  	window := self morphicViewFileSelectorForSuffixes: aList.
  	aFileList := window valueOfProperty: #fileListModel.
  	window openCenteredInWorld.
+ 	UserInterfaceTheme current applyTo: window allMorphs.
  	self modalLoopOn: window.
  	^aFileList getSelectedFile!

Item was changed:
  ----- Method: FileList2 class>>modalFileSelectorForSuffixes:directory: (in category 'modal dialogs') -----
  modalFileSelectorForSuffixes: aList directory: aDirectory
  
  	| window aFileList |
  
  	window := self morphicViewFileSelectorForSuffixes: aList directory: aDirectory.
  	aFileList := window valueOfProperty: #fileListModel.
  	window openCenteredInWorld.
+ 	UserInterfaceTheme current applyTo: window allMorphs.
  	self modalLoopOn: window.
  	^aFileList getSelectedFile!

Item was changed:
  ----- Method: FileList2 class>>modalFolderSelector: (in category 'modal dialogs') -----
  modalFolderSelector: aDir
  
  	| window fileModel |
  	window := self morphicViewFolderSelector: aDir.
  	fileModel := window model.
  	window openInWorld: self currentWorld extent: 300 at 400.
+ 	UserInterfaceTheme current applyTo: window allMorphs.
  	self modalLoopOn: window.
  	^fileModel getSelectedDirectory withoutListWrapper!

Item was changed:
  ----- Method: FileList2 class>>modalFolderSelectorForProject: (in category 'modal dialogs') -----
  modalFolderSelectorForProject: aProject
  "
  FileList2 modalFolderSelectorForProject: Project current
  "
  	| window fileModel w |
  
  	window := FileList2 morphicViewProjectSaverFor: aProject.
  	fileModel := window valueOfProperty: #FileList.
  	w := self currentWorld.
  	window position: w topLeft + (w extent - window extent // 2).
  	w addMorphInLayer: window.
  	w startSteppingSubmorphsOf: window.
+ 	UserInterfaceTheme current applyTo: window allMorphs.
  	self modalLoopOn: window.
  	^fileModel getSelectedDirectory withoutListWrapper!

Item was changed:
  ----- Method: FileList2 class>>modalFolderSelectorForProjectLoad (in category 'modal dialogs') -----
  modalFolderSelectorForProjectLoad
  
  	| window fileModel w |
  
  	window := self morphicViewProjectLoader2InWorld: self currentWorld reallyLoad: false.
  	fileModel := window valueOfProperty: #FileList.
  	w := self currentWorld.
  	window position: w topLeft + (w extent - window extent // 2).
  	window openInWorld: w.
+ 	UserInterfaceTheme current applyTo: window allMorphs.
  	self modalLoopOn: window.
  	^fileModel getSelectedDirectory withoutListWrapper!

Item was changed:
  ----- Method: FileList2 class>>textRow: (in category 'utility') -----
  textRow: aString 
  
  	^AlignmentMorph newRow 
  		wrapCentering: #center; cellPositioning: #leftCenter;
  		color: Color transparent;
  		layoutInset: 0;
  		addMorph: (
  			AlignmentMorph newColumn
  			wrapCentering: #center; cellPositioning: #topCenter;
  			color: Color transparent;
  			vResizing: #shrinkWrap;
  			layoutInset: 0;
  			addMorph: (
  				AlignmentMorph newRow
  				wrapCentering: #center; cellPositioning: #leftCenter;
  				color: Color transparent;
  				hResizing: #shrinkWrap;
  				vResizing: #shrinkWrap;
  				layoutInset: 0;
+ 				addMorph: ((StringMorph contents: aString) color: ((UserInterfaceTheme current get: #textColor for: #PluggableTextMorph) ifNil: [Color black])) asMorph
- 				addMorph: ((StringMorph contents: aString) color: Color blue; lock)
  			)
  		)!