Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.791.mcz
==================== Summary ====================
Name: Tools-mt.791 Author: mt Time: 16 January 2018, 5:52:57.329363 pm UUID: a4ab8e7b-6130-9843-a27f-91456a171e78 Ancestors: Tools-eem.790
Small layout fixes in our new file/folder choose dialogs.
=============== Diff against Tools-eem.790 ===============
Item was changed: ----- Method: DirectoryChooserDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the chooser dialog UI"
| windowSpec window | windowSpec := self buildWindowWith: builder specs: { (self frameOffsetFromTop: 0 fromLeft: 0 width: 1 + offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. }. + windowSpec buttons addAll: ( self buildButtonsWith: builder ). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #acceptFileName). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelFileChooser). window := builder build: windowSpec. self changed: #selectedPath. ^window !
Item was added: + ----- Method: FileAbstractSelectionDialog>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + + ^ { + builder pluggableButtonSpec new + model: self; + label: 'Accept' translated; + color: (self userInterfaceTheme get: #okColor for: #DialogWindow); + action: #acceptFileName. + builder pluggableButtonSpec new + model: self; + label: 'Cancel'; + color: (self userInterfaceTheme get: #cancelColor for: #DialogWindow); + action: #cancelFileChooser}!
Item was changed: ----- Method: FileAbstractSelectionDialog>>buildWindowWith: (in category 'toolbuilder') ----- buildWindowWith: builder "Since a file chooser is a modal dialog we over-ride the normal window build to use a dialog as the top component"
| windowSpec | windowSpec := builder pluggableDialogSpec new. windowSpec model: self; label: #windowTitle; message: #userMessage; extent: self initialExtent; + spacing: self viewSpacing; children: OrderedCollection new; buttons: OrderedCollection new. ^windowSpec!
Item was added: + ----- Method: FileAbstractSelectionDialog>>viewSpacing (in category 'ui details') ----- + viewSpacing + + ^ 5 "pixels"!
Item was changed: ----- Method: FileChooserDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the chooser dialog UI"
| windowSpec window | windowSpec := self buildWindowWith: builder specs: { (self frameOffsetFromTop: 0 fromLeft: 0.25 width: 0.75 + offsetFromBottom: 0) -> [self buildFileListWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildFileListWith: builder]. (self frameOffsetFromTop: 0 fromLeft: 0 width: 0.25 + offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. }. + windowSpec buttons addAll: ( self buildButtonsWith: builder ). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #acceptFileName). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelFileChooser). window := builder build: windowSpec. self changed: #selectedPath. ^window !
Item was changed: ----- Method: FileSaverDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the saver dialog UI and build the window"
| window windowSpec | windowSpec := self buildWindowWith: builder specs: { + (self topConstantHeightFrame: self textViewHeight + self viewSpacing - (self topConstantHeightFrame: self textViewHeight fromLeft: 0 width: 1) -> [self buildTextInputWith: builder]. + (self frameOffsetFromTop: self textViewHeight + self viewSpacing - (self frameOffsetFromTop: self textViewHeight fromLeft: 0.25 width: 0.75 + offsetFromBottom: 0) -> [self buildFileListWith: builder]. + (self frameOffsetFromTop: self textViewHeight + self viewSpacing - offsetFromBottom: self buttonHeight) -> [self buildFileListWith: builder]. - (self frameOffsetFromTop: self textViewHeight fromLeft: 0 width: 0.25 + offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. }. + windowSpec buttons addAll: ( self buildButtonsWith: builder ). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #acceptFileName). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelFileChooser). window := builder build: windowSpec. self changed: #selectedPath. self inputText: fileName. ^window !
packages@lists.squeakfoundation.org