The Trunk: Tools-mt.714.mcz

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@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)
  )
  )!