[squeak-dev] The Trunk: Tools-mt.879.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 22 13:23:57 UTC 2019


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 at 1; cellGap: 6.
- 	aRow layoutInset: 5 at 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 at 0)]].
  	aRow setNameTo: 'buttons'.
  	aRow setProperty: #buttonRow toValue: true.  "Used for dynamic retrieval later on"
  	^ aRow!



More information about the Squeak-dev mailing list