[Pkg] The Trunk: Tools-eem.524.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 17 20:10:24 UTC 2014

Eliot Miranda uploaded a new version of Tools to project The Trunk:

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

Name: Tools-eem.524
Author: eem
Time: 17 July 2014, 1:09:47.094 pm
UUID: 043177a8-a8de-4183-a284-6fd22ff5e70b
Ancestors: Tools-eem.523

Add a menu pick to file out a specific version from the
method versions browser.

=============== Diff against Tools-eem.523 ===============

Item was added:
+ ----- Method: VersionsBrowser>>fileOutSelection (in category 'menu') -----
+ fileOutSelection
+ 	| them it file |
+ 	them := OrderedCollection new.
+ 	listSelections with: changeList do: 
+ 		[:selected :item | selected ifTrue: [them add: item]].
+ 	them size ~= 1
+ 		ifTrue: [self inform: 'single version not selected, so nothing done']
+ 		ifFalse:
+ 			[it := them first.
+ 			 file := FileStream newFileNamed: it methodClassName, (it isMetaClassChange ifTrue: [' class'] ifFalse: ['']), '-' , (it methodSelector copyReplaceAll: ':' with: '').
+ 			 [file header; timeStamp.
+ 			  it fileOutOn: file] ensure: [file close]]!

Item was changed:
  ----- Method: VersionsBrowser>>versionsMenu: (in category 'menu') -----
  versionsMenu: aMenu
  	"Fill aMenu with menu items appropriate to the receiver"
  	aMenu title: 'Versions' translated.
  	aMenu addStayUpItemSpecial.
  	listIndex > 0 ifTrue:[
  		(list size > 1 ) ifTrue: [ aMenu addTranslatedList: #(
  			('compare to current'		compareToCurrentVersion		'compare selected version to the current version')
  			('compare to version...'	compareToOtherVersion		'compare selected version to another selected version'))].
  		"Note: Revert to selected should be visible for lists of length one for having the ability to revert to an accidentally deleted method"
  		 aMenu addTranslatedList: #(
+ 			('revert to selected version'	fileInSelections					'resubmit the selected version, so that it becomes the current version') 
+ 			('fileOut selected version'	fileOutSelection					'file out the selected version') )].
- 			('revert to selected version'	fileInSelections					'resubmit the selected version, so that it becomes the current version') )].
  	aMenu addTranslatedList: #(
  		('remove from changes'		removeMethodFromChanges	'remove this method from the current change set, if present')
  		('edit current method (O)'	openSingleMessageBrowser		'open a single-message browser on the current version of this method')		
  		('find original change set'	findOriginalChangeSet			'locate the changeset which originally contained this version')
  		('toggle diffing (D)'			toggleDiffing					'toggle whether or not diffs should be shown here')
  		('update list'				reformulateList					'reformulate the list of versions, in case it somehow got out of synch with reality')
  		('senders (n)'				browseSenders					'browse all senders of this selector')
  		('implementors (m)'			browseImplementors			'browse all implementors of this selector')
  		('help...'					offerVersionsHelp				'provide an explanation of the use of this tool')).

More information about the Packages mailing list