[squeak-dev] The Trunk: Tools-tfel.724.mczcommits at source.squeak.org commits at source.squeak.orgTue Aug 30 10:02:16 UTC 2016
Tim Felgentreff uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tfel.724.mcz ==================== Summary ==================== Name: Tools-tfel.724 Author: tfel Time: 30 August 2016, 12:01:11.197946 pm UUID: ace60665-7bbd-ff43-a580-f39c976252ef Ancestors: Tools-tfel.720, Tools-mt.723 merge translations from Squeakland Etoys =============== Diff against Tools-mt.723 =============== Item was changed: ----- Method: ArchiveViewer class>>descriptionForPartsBin (in category 'parts bin') ----- descriptionForPartsBin + ^ self partName: 'Zip Tool' translatedNoop + categories: {'Tools' translated} + 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. - startUpWithCaption: 'Destination Zip File Name:'. result ifNil: [ ^self ]. 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. - startUpWithCaption: 'Prepended File:'. result ifNil: [ ^self ]. 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: Debugger>>preDebugMessageString (in category 'toolbuilder') ----- preDebugMessageString + ^ message ifNil: ['An error has occurred; you should probably just hit ''abandon''. Sorry!!' translated].! - ^ message ifNil: ['An error has occurred; you should probably just hit ''abandon''. Sorry!!'].! 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]. - directory entries size = 0 ifFalse:[^self inform:'Directory must be empty']. localDirName := directory localName. + (self confirm: ('Really delete {1}?' translated format: {localDirName})) ifFalse: [^ self]. - (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 class>>modalFileSelectorForSuffixes: (in category 'modal dialogs') ----- modalFileSelectorForSuffixes: aList | window aFileList | window := self morphicViewFileSelectorForSuffixes: aList. aFileList := window valueOfProperty: #fileListModel. + aFileList resort: #name. window openCenteredInWorld. UserInterfaceTheme current applyTo: window allMorphs. self modalLoopOn: window. ^aFileList getSelectedFile! 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'.]!
More information about the Squeak-dev mailing list |