The Trunk: Tools-tfel.712.mcz

Tim Felgentreff uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tfel.712.mcz

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

Name: Tools-tfel.712
Author: tfel
Time: 2 August 2016, 10:05:33.741368 am
UUID: dde7b8ae-d306-0941-b920-5dca4cacf558
Ancestors: Tools-mt.711, Tools-kfr.15

merge from Squeakland Etoys image

=============== Diff against Tools-mt.711 ===============

Item was changed:
  ----- Method: ArchiveViewer class>>descriptionForPartsBin (in category 'parts bin') -----
  descriptionForPartsBin
 
+ ^ self partName: 'Zip Tool' translatedNoop
+ categories: #()
+ documentation: 'A viewer and editor for Zip archive files' translatedNoop
- ^ self partName: 'Zip Tool'
- categories: #(Tools)
- documentation: 'A viewer and editor for Zip archive files'
  !

Item was changed:
  ----- Method: ArchiveViewer class>>serviceAddToNewZip (in category 'file list services') -----
  serviceAddToNewZip
  "Answer a service for adding the file to a new zip"
 
  ^ FileModifyingSimpleServiceEntry
  provider: self
+ label: 'add file to new zip' translatedNoop
- label: 'add file to new zip'
  selector: #addFileToNewZip:
+ description: 'add file to new zip' translatedNoop
+ buttonLabel: 'to new zip' translatedNoop!
- description: 'add file to new zip'
- buttonLabel: 'to new zip'!

Item was changed:
  ----- Method: ArchiveViewer class>>serviceExtractAll (in category 'file list services') -----
  serviceExtractAll
  "Answer a service for opening in a zip viewer"
 
  ^ FileModifyingSimpleServiceEntry
  provider: self
+ label: 'extract all to...' translatedNoop
- label: 'extract all to...'
  selector: #extractAllFrom:
+ description: 'extract all files to a user-specified directory' translatedNoop
+ buttonLabel: 'extract all' translatedNoop!
- description: 'extract all files to a user-specified directory'
- buttonLabel: 'extract all'!

Item was changed:
  ----- Method: ArchiveViewer class>>serviceOpenInZipViewer (in category 'class initialization') -----
  serviceOpenInZipViewer
  "Answer a service for opening in a zip viewer"
 
  ^ SimpleServiceEntry
  provider: self
+ label: 'open in zip viewer' translatedNoop
- label: 'open in zip viewer'
  selector: #openOn:
+ description: 'open in zip viewer' translatedNoop
+ buttonLabel: 'open zip' translatedNoop!
- description: 'open in zip viewer'
- buttonLabel: 'open zip'!

Item was changed:
  ----- Method: ArchiveViewer>>writePrependingFile (in category 'archive operations') -----
  writePrependingFile
  | result name prependedName |
  self canSaveArchive ifFalse: [ ^self ].
+ result _ (StandardFileMenu newFileMenu: FileDirectory default)
+ startUpWithCaption: 'Destination Zip File Name:' translated.
- result := (StandardFileMenu newFileMenu: FileDirectory default)
- startUpWithCaption: 'Destination Zip File Name:'.
  result ifNil: [ ^self ].
+ name _ result directory fullNameFor: result name.
- name := result directory fullNameFor: result name.
  (archive canWriteToFileNamed: name)
  ifFalse: [ self inform: name, ' is used by one or more members
  in your archive, and cannot be overwritten.
+ Try writing to another file name' translated.
- Try writing to another file name'.
  ^self ].
+ result _ (StandardFileMenu oldFileMenu: FileDirectory default)
+ startUpWithCaption: 'Prepended File:' translated.
- result := (StandardFileMenu oldFileMenu: FileDirectory default)
- startUpWithCaption: 'Prepended File:'.
  result ifNil: [ ^self ].
+ prependedName _ result directory fullNameFor: result name.
- prependedName := result directory fullNameFor: result name.
  [ archive writeToFileNamed: name prependingFileNamed: prependedName ]
  on: Error
  do: [ :ex | self inform: ex description. ].
  self changed: #memberList "in case CRC's and compressed sizes got set"!

Item was changed:
  ----- Method: Browser class>>registerInFlapsRegistry (in category 'class initialization') -----
  registerInFlapsRegistry
  "Register the receiver in the system's flaps registry"
  self environment
  at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#Browser. #prototypicalToolWindow. 'Browser' translatedNoop. 'A Browser is a tool that allows you to view all the code of all the classes in the system' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(#Browser #prototypicalToolWindow 'Browser' 'A Browser is a tool that allows you to view all the code of all the classes in the system' )
  forFlapNamed: 'Tools']!

Item was changed:
  ----- Method: ChangeList class>>serviceBrowseChangeFile (in category 'fileIn/Out') -----
  serviceBrowseChangeFile
  "Answer a service for opening a changelist browser on a file"
 
  ^ (SimpleServiceEntry
  provider: self
+ label: 'changelist browser' translatedNoop
- label: 'changelist browser'
  selector: #browseStream:
+ description: 'open a changelist tool on this file' translatedNoop
+ buttonLabel: 'changes' translatedNoop)
- description: 'open a changelist tool on this file'
- buttonLabel: 'changes')
  argumentGetter: [ :fileList | fileList readOnlyStream ]!

Item was changed:
  ----- Method: ChangeList class>>serviceBrowseCompressedChangeFile (in category 'fileIn/Out') -----
  serviceBrowseCompressedChangeFile
  "Answer a service for opening a changelist browser on a file"
 
  ^ SimpleServiceEntry
  provider: self
+ label: 'changelist browser' translatedNoop
- label: 'changelist browser'
  selector: #browseCompressedChangesFile:
+ description: 'open a changelist tool on this file' translatedNoop
+ buttonLabel: 'changes' translatedNoop!
- description: 'open a changelist tool on this file'
- buttonLabel: 'changes'!

Item was changed:
  ----- Method: ChangeList class>>serviceBrowseDotChangesFile (in category 'fileIn/Out') -----
  serviceBrowseDotChangesFile
  "Answer a service for opening a changelist browser on the tail end of a .changes file"
 
  ^ SimpleServiceEntry
  provider: self
+ label: 'recent changes in file' translatedNoop
- label: 'recent changes in file'
  selector: #browseRecentLogOnPath:
+ description: 'open a changelist tool on recent changes in file' translatedNoop
+ buttonLabel: 'recent changes' translatedNoop!
- description: 'open a changelist tool on recent changes in file'
- buttonLabel: 'recent changes'!

Item was changed:
  ----- Method: ChangeSorter class>>registerInFlapsRegistry (in category 'deprecated') -----
  registerInFlapsRegistry
  "Register the receiver in the system's flaps registry"
  self environment
  at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#ChangeSorter. #prototypicalToolWindow. 'Change Set' translatedNoop. 'A tool that allows you to view and manipulate all the code changes in a single change set' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(ChangeSorter prototypicalToolWindow 'Change Set' 'A tool that allows you to view and manipulate all the code changes in a single change set')
  forFlapNamed: 'Tools']!

Item was changed:
  ----- Method: ChangeSorter>>checkThatSidesDiffer: (in category 'changeSet menu') -----
  checkThatSidesDiffer: escapeBlock
  "If the change sets on both sides of the dual sorter are the same, put up an error message and escape via escapeBlock, else proceed happily"
 
+ parent ifNil: [^ escapeBlock value].  "Not relevant unless in dual change sorter."
+
  (myChangeSet == (parent other: self) changeSet)
  ifTrue:
  [self inform:
  'This command requires that the
  change sets selected on the two
  sides of the change sorter *not*
+ be the same.' translated.
- be the same.'.
  ^ escapeBlock value]
  !

Item was changed:
  ----- Method: DualChangeSorter class>>registerInFlapsRegistry (in category 'class initialization') -----
  registerInFlapsRegistry
  "Register the receiver in the system's flaps registry"
  self environment
  at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#DualChangeSorter, #prototypicalToolWindow. 'Change Sorter' translatedNoop. 'Shows two change sets side by side' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(DualChangeSorter prototypicalToolWindow 'Change Sorter' 'Shows two change sets side by side')
  forFlapNamed: 'Tools']!

Item was changed:
  ----- Method: FileContentsBrowser class>>serviceBrowseCode (in category 'file list services') -----
  serviceBrowseCode
  "Answer the service of opening a file-contents browser"
 
  ^ (SimpleServiceEntry
  provider: self
+ label: 'code-file browser' translatedNoop
- label: 'code-file browser'
  selector: #browseStream:
+ description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code' translatedNoop
+ buttonLabel: 'code' translatedNoop)
- description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code'
- buttonLabel: 'code')
  argumentGetter: [ :fileList | fileList readOnlyStream ]!

Item was changed:
  ----- Method: FileContentsBrowser class>>serviceBrowseCodeFiles (in category 'file list services') -----
  serviceBrowseCodeFiles
 
  ^  (SimpleServiceEntry
  provider: self
+ label: 'browse code files' translatedNoop
- label: 'browse code files'
  selector: #selectAndBrowseFile:)
  argumentGetter: [ :fileList | fileList ];
  yourself!

Item was changed:
  ----- Method: FileContentsBrowser class>>serviceBrowseCompressedCode (in category 'file list services') -----
  serviceBrowseCompressedCode
  "Answer a service for opening a changelist browser on a file"
 
  ^ (SimpleServiceEntry
  provider: self
+ label: 'code-file browser' translatedNoop
- label: 'code-file browser'
  selector: #browseCompressedCodeStream:
+ description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code' translatedNoop
+ buttonLabel: 'code' translatedNoop)
- description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code'
- buttonLabel: 'code')
  argumentGetter: [ :fileList | fileList readOnlyStream ]!

Item was changed:
  ----- Method: FileList class>>registerInFlapsRegistry (in category 'class initialization') -----
  registerInFlapsRegistry
  "Register the receiver in the system's flaps registry"
  self environment
  at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#FileList . #prototypicalToolWindow, 'File List' translatedNoop. 'A File List is a tool for browsing folders and files on disks and on ftp types.' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(FileList prototypicalToolWindow 'File List' 'A File List is a tool for browsing folders and files on disks and on ftp types.')
  forFlapNamed: 'Tools']!

Item was changed:
  ----- Method: FileList>>deleteDirectory (in category 'volume list and pattern') -----
  deleteDirectory
  "Remove the currently selected directory"
  | localDirName |
+ directory entries size = 0 ifFalse:[^self inform:'Directory must be empty' translated].
+ localDirName _ directory localName.
+ (self confirm: ('Really delete {1}?' translated format: {localDirName})) ifFalse: [^ self].
- directory entries size = 0 ifFalse:[^self inform:'Directory must be empty'].
- localDirName := directory localName.
- (self confirm: 'Really delete ' , localDirName , '?') ifFalse: [^ self].
  self volumeListIndex: self volumeListIndex-1.
  directory deleteDirectory: localDirName.
  self updateFileList.!

Item was changed:
  ----- Method: FileList>>serviceAddNewDirectory (in category 'own services') -----
  serviceAddNewDirectory
  "Answer a service entry characterizing the 'add new directory' command"
 
  ^ SimpleServiceEntry
  provider: self
+ label: 'add new directory' translatedNoop
- label: 'add new directory'
  selector: #addNewDirectory
+ description: 'adds a new, empty directory (folder)'  translatedNoop!
- description: 'adds a new, empty directory (folder)' !

Item was changed:
  ----- Method: FileList>>serviceAddNewFile (in category 'own services') -----
  serviceAddNewFile
  "Answer a service entry characterizing the 'add new file' command"
 
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'add new file' translatedNoop
+ selector: #addNewFile
+ description: 'create a new,. empty file, and add it to the current directory.' translatedNoop!
- ^ SimpleServiceEntry provider: self label: 'add new file' selector: #addNewFile description: 'create a new,. empty file, and add it to the current directory.'!

Item was changed:
  ----- Method: FileList>>serviceAllFileOptions (in category 'own services') -----
  serviceAllFileOptions
 
+ ^ {SimpleServiceEntry
+ provider: self
+ label: 'more...' translatedNoop
+ selector: #offerAllFileOptions
+ description: 'show all the options available' translatedNoop}!
- ^ {SimpleServiceEntry provider: self label: 'more...' selector: #offerAllFileOptions description: 'show all the options available'}!

Item was changed:
  ----- Method: FileList>>serviceCompressFile (in category 'own services') -----
  serviceCompressFile
  "Answer a service for compressing a file"
 
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'compress' translatedNoop
+ selector: #compressFile
+ description: 'compress file' translatedNoop
+ buttonLabel: 'compress' translatedNoop!
- ^ SimpleServiceEntry provider: self label: 'compress' selector: #compressFile description: 'compress file' buttonLabel: 'compress'!

Item was changed:
  ----- Method: FileList>>serviceCopyName (in category 'own services') -----
  serviceCopyName
 
+ ^ (SimpleServiceEntry
+ provider: self
+ label: 'copy name to clipboard' translatedNoop
+ selector: #copyName
+ description:'copy name to clipboard' translatedNoop )!
- ^ (SimpleServiceEntry provider: self label: 'copy name to clipboard' selector: #copyName description:'copy name to clipboard' )!

Item was changed:
  ----- Method: FileList>>serviceDeleteFile (in category 'own services') -----
  serviceDeleteFile
 
+ ^ (SimpleServiceEntry
+ provider: self
+ label: 'delete' translatedNoop
+ selector: #deleteFile)
+ description: 'delete the seleted item' translatedNoop!
- ^ (SimpleServiceEntry provider: self label: 'delete' selector: #deleteFile)
- description: 'delete the seleted item'!

Item was changed:
  ----- Method: FileList>>serviceGet (in category 'own services') -----
  serviceGet
  "Answer a service for getting the entire file"
 
  ^  (SimpleServiceEntry
  provider: self
+ label: 'get entire file' translatedNoop
- label: 'get entire file'
  selector: #get
+ description: 'if the file has only been partially read in, because it is very large, read the entire file in at this time.' translatedNoop)!
- description: 'if the file has only been partially read in, because it is very large, read the entire file in at this time.')!

Item was changed:
  ----- Method: FileList>>serviceGetEncodedText (in category 'own services') -----
  serviceGetEncodedText
 
  ^  (SimpleServiceEntry
  provider: self
+ label: 'view as encoded text' translatedNoop
- label: 'view as encoded text'
  selector: #getEncodedText
+ description: 'view as encoded text' translatedNoop)
- description: 'view as encoded text')
 
  !

Item was changed:
  ----- Method: FileList>>serviceGetHex (in category 'own services') -----
  serviceGetHex
 
  ^  (SimpleServiceEntry
  provider: self
+ label: 'view as hex' translatedNoop
- label: 'view as hex'
  selector: #getHex
+ description: 'view as hex' translatedNoop)
- description: 'view as hex')
 
  !

Item was changed:
  ----- Method: FileList>>serviceRenameFile (in category 'own services') -----
  serviceRenameFile
 
+ ^ (SimpleServiceEntry
+ provider: self
+ label: 'rename' translatedNoop
+ selector: #renameFile
+ description: 'rename file' translatedNoop)!
- ^ (SimpleServiceEntry provider: self label: 'rename' selector: #renameFile description: 'rename file')!

Item was changed:
  ----- Method: FileList>>serviceSortByDate (in category 'own services') -----
  serviceSortByDate
  "Answer a service for sorting by date"
 
  ^  (SimpleServiceEntry new
  provider: self
+ label: 'by date' translatedNoop
- label: 'by date'
  selector: #sortByDate
+ description: 'sort entries by date' translatedNoop)
- description: 'sort entries by date')
  extraSelector: #sortingByDate;
+ buttonLabel: 'date' translatedNoop!
- buttonLabel: 'date'!

Item was changed:
  ----- Method: FileList>>serviceSortByName (in category 'own services') -----
  serviceSortByName
  "Answer a service for soring by name"
 
  ^ (SimpleServiceEntry new
+ provider: self label: 'by name' translatedNoop
+ selector: #sortByName
+ description: 'sort entries by name' translatedNoop)
- provider: self label: 'by name' selector: #sortByName
- description: 'sort entries by name')
  extraSelector: #sortingByName;
+ buttonLabel: 'name' translatedNoop!
- buttonLabel: 'name'!

Item was changed:
  ----- Method: FileList>>serviceSortBySize (in category 'own services') -----
  serviceSortBySize
  "Answer a service for sorting by size"
 
  ^  (SimpleServiceEntry
  provider: self
+ label: 'by size' translatedNoop
- label: 'by size'
  selector: #sortBySize
+ description: 'sort entries by size' translatedNoop)
- description: 'sort entries by size')
  extraSelector: #sortingBySize;
+ buttonLabel: 'size' translatedNoop!
- buttonLabel: 'size'!

Item was changed:
  ----- Method: FileList>>serviceViewContentsInWorkspace (in category 'own services') -----
  serviceViewContentsInWorkspace
  "Answer a service for viewing the contents of a file in a workspace"
 
+ ^ (SimpleServiceEntry provider: self label: 'workspace with contents' translatedNoop
+ selector: #viewContentsInWorkspace)
+ description: 'open a new Workspace whose contents are set to the contents of this file' translatedNoop!
- ^ (SimpleServiceEntry provider: self label: 'workspace with contents' selector: #viewContentsInWorkspace)
- description: 'open a new Workspace whose contents are set to the contents of this file'!

Item was changed:
  ----- Method: FileList2>>serviceCancel (in category 'own services') -----
  serviceCancel
  "Answer a service for hitting the cancel button"
 
  ^ (SimpleServiceEntry new
+ provider: self
+ label: 'cancel' translatedNoop
+ selector: #cancelHit
+ description: 'hit here to cancel ' translatedNoop)
+ buttonLabel: 'cancel' translatedNoop!
- provider: self label: 'cancel' selector: #cancelHit
- description: 'hit here to cancel ')
- buttonLabel: 'cancel'!

Item was changed:
  ----- Method: FileList2>>serviceOkay (in category 'own services') -----
  serviceOkay
  "Answer a service for hitting the okay button"
 
  ^ (SimpleServiceEntry new
+ provider: self
+ label: 'okay' translatedNoop
+ selector: #okHit
+ description: 'hit here to accept the current selection' translatedNoop)
+ buttonLabel: 'ok' translatedNoop!
- provider: self label: 'okay' selector: #okHit
- description: 'hit here to accept the current selection')
- buttonLabel: 'ok'!

Item was changed:
  ----- Method: FileList2>>serviceOpenProjectFromFile (in category 'own services') -----
  serviceOpenProjectFromFile
  "Answer a service for opening a .pr project file"
 
  ^ SimpleServiceEntry
  provider: self
+ label: 'load as project' translatedNoop
- label: 'load as project'
  selector: #openProjectFromFile
+ description: 'open project from file' translatedNoop
+ buttonLabel: 'load' translatedNoop!
- description: 'open project from file'
- buttonLabel: 'load'!

Item was changed:
  ----- Method: ProcessBrowser class>>registerInFlapsRegistry (in category 'class initialization') -----
  registerInFlapsRegistry
  "Register the receiver in the system's flaps registry"
  self environment
  at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#ProcessBrowser. #prototypicalToolWindow. 'Processes' translatedNoop. 'A Process Browser shows you all the running processes' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(ProcessBrowser prototypicalToolWindow 'Processes' 'A Process Browser shows you all the running processes')
  forFlapNamed: 'Tools'.]!