Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.879.mcz
==================== Summary ====================
Name: Tools-mt.879
Author: mt
Time: 22 August 2019, 3:23:56.181931 pm
UUID: 202fe5ca-ec2e-0548-a239-c4eaaee54522
Ancestors: Tools-mt.878
Complements Morphic-mt.1506 including cellInset-to-cellGap conversion.
=============== Diff against Tools-mt.878 ===============
Item was changed:
----- Method: ArchiveViewer>>createButtonBar (in category 'initialization') -----
createButtonBar
| bar |
bar := AlignmentMorph newRow.
bar
color: self defaultBackgroundColor;
rubberBandCells: false;
vResizing: #shrinkWrap;
+ cellGap: 6 @ 0.
- cellInset: 6 @ 0.
#(#('new archive' #canCreateNewArchive #createNewArchive 'Create a new, empty archive and discard this one') #('load archive' #canOpenNewArchive #openNewArchive 'Open another archive and discard this one') #('save archive' #canSaveArchive #saveArchive 'Save this archive under a new name') #('extract all' #canExtractAll #extractAll 'Extract all this archive''s members into a directory') #('add file' #canAddMember #addMember 'Add a file to this archive') #('add clipboard' #canAddMember #addMemberFromClipboard 'Add the contents of the clipboard as a new file') #('add dir ' #canAddMember #addDirectory 'Add the entire contents of a directory, with all of its subdirectories') #('extract member' #canExtractMember #extractMember 'Extract the selected member to a file') #('delete member' #canDeleteMember #deleteMember 'Remove the selected member from this archive') #('rename member' #canRenameMember #renameMember 'Rename the selected member') #('view all' #canViewAllContents #changeViewAll
Contents 'Toggle the view of all the selected member''s contents'))
do:
[:arr |
| button |
(button := PluggableButtonMorph
on: self
getState: arr second
action: arr third)
vResizing: #spaceFill;
hResizing: #spaceFill;
onColor: self buttonOnColor offColor: self buttonOffColor;
label: arr first withCRs;
setBalloonText: arr fourth.
bar addMorphBack: button].
^bar!
Item was changed:
----- Method: FileList2>>optionalButtonRow (in category 'initialization') -----
optionalButtonRow
"Answer the button row associated with a file list"
| aRow |
aRow := AlignmentMorph newRow beSticky.
aRow color: Color transparent.
aRow clipSubmorphs: true.
+ aRow layoutInset: 5@1; cellGap: 6.
- aRow layoutInset: 5@1; cellInset: 6.
self universalButtonServices do: "just the three sort-by items"
[:service |
aRow addMorphBack: (service buttonToTriggerIn: self).
(service selector == #sortBySize)
ifTrue:
[aRow addTransparentSpacerOfSize: (4@0)]].
aRow setNameTo: 'buttons'.
aRow setProperty: #buttonRow toValue: true. "Used for dynamic retrieval later on"
^ aRow!