This might be introducing some duplicate code, because fileOut a single
selection from the Versions browser was already available via hotkey
(Command+o)...


On Thu, Jul 17, 2014 at 3:09 PM, <commits at source.squeak.org> wrote:

> Eliot Miranda uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-eem.524.mcz
>
> ==================== 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')).
>
>         ^aMenu!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20140719/e025b28b/attachment.htm