The Trunk: Tools-mt.791.mcz

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
  !