The Trunk: Tools-mt.1026.mcz

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

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

Name: Tools-mt.1026
Author: mt
Time: 26 February 2021, 3:48:32.727955 pm
UUID: 46a85c1d-6c6a-6f49-a7a4-e59bd45cce2a
Ancestors: Tools-mt.1025

Complements Morphic-mt.1726

=============== Diff against Tools-mt.1025 ===============

Item was changed:
  ----- Method: FileList2 class>>morphicViewProjectSaverFor: (in category 'blue ui') -----
  morphicViewProjectSaverFor: aProject
  "
  (FileList2 morphicViewProjectSaverFor: Project current) openInWorld
  "
  | window aFileList buttons treePane pane2 textColor1 option treeExtent buttonData buttonRow |
 
  textColor1 := Color r: 0.742 g: 0.839 b: 1.0.
  aFileList := self new directory: ServerDirectory projectDefaultDirectory.
  aFileList dirSelectionBlock: self hideSqueakletDirectoryBlock.
  window := AlignmentMorphBob1 newColumn.
  window hResizing: #shrinkWrap; vResizing: #shrinkWrap.
  aFileList modalView: window.
  window
  setProperty: #FileList toValue: aFileList;
  wrapCentering: #center; cellPositioning: #topCenter;
  borderWidth: 1;
  borderColor: (Color r: 0.9 g: 0.801 b: 0.2);
  useRoundedCorners.
 
  buttonData := Preferences enableLocalSave
  ifTrue: [{
  {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}.
  {'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. Color lightGreen}.
  {'Cancel'. #cancelHit. 'return without saving'. Color lightRed}
  }]
  ifFalse: [{
  {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}.
  {'Cancel'. #cancelHit. 'return without saving'. Color lightRed}
  }].
  buttons := buttonData collect: [ :each |
  (self blueButtonText: each first textColor: textColor1 color: each fourth inWindow: window)
  setBalloonText: each third translated;
  hResizing: #shrinkWrap;
  on: #mouseUp send: each second to: aFileList
  ].
 
  option := aProject world
  valueOfProperty: #SuperSwikiPublishOptions
  ifAbsent: [#initialDirectoryList].
  aProject world removeProperty: #SuperSwikiPublishOptions.
 
  treeExtent := Project current world height < 500
  ifTrue: [ 350@150 ]
  ifFalse: [ 350@300 ].
 
  (treePane := aFileList morphicDirectoryTreePaneFiltered: option)
  extent: treeExtent;
  retractable: false;
  borderWidth: 0.
  window
  addARowCentered: {
  window fancyText: 'Publish This Project' translated font: Preferences standardEToysTitleFont color: textColor1
  }.
  buttonRow := OrderedCollection new.
  buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30@5) color: Color transparent)].
 
  " addARowCentered: {
  buttons first.
  (Morph new extent: 30@5) color: Color transparent.
  buttons second.
  (Morph new extent: 30@5) color: Color transparent.
  buttons third
  };"
  window
  addARowCentered: buttonRow;
  addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4};
  addARowCentered: {
  window fancyText: 'Please select a folder' translated font: Preferences standardEToysFont color: textColor1
  };
  addARow: {
  (
  window inAColumn: {
  (pane2 := window inARow: {window inAColumn: {treePane}})
  useRoundedCorners;
  layoutInset: 0;
  borderWidth: 1;
  borderColor: (Color r: 0.6 g: 0.7 b: 1)
  }
  ) layoutInset: 10
  }.
  window fullBounds.
  window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65.
  pane2 fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35).
  "
  buttons do: [ :each |
  each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0).
  ].
  "
+ window morphicLayerNumber: window class dialogLayer.
- window setProperty: #morphicLayerNumber toValue: 11.
  aFileList postOpen.
  window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0).
  ^ window !