[squeak-dev] The Trunk: Tools-mt.714.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 11 10:11:28 UTC 2016
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)
)
)!
More information about the Squeak-dev
mailing list
|