'From etoys3.0 of 24 February 2008 [latest update: #1929] on 23 March 2008 at 8:47:06 am'! "Change Set: transSvcLabel-KR Date: 21 March 2008 Author: Korakurider translate label/description/buttonLabel of service entries for FileList"! !ChangeList class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 21:07'! serviceBrowseChangeFile "Answer a service for opening a changelist browser on a file" ^ (SimpleServiceEntry provider: self label: 'changelist browser' translatedNoop selector: #browseStream: description: 'open a changelist tool on this file' translatedNoop buttonLabel: 'changes' translatedNoop) argumentGetter: [ :fileList | fileList readOnlyStream ]! ! !ChangeList class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 21:06'! serviceBrowseCompressedChangeFile "Answer a service for opening a changelist browser on a file" ^ SimpleServiceEntry provider: self label: 'changelist browser' translatedNoop selector: #browseCompressedChangesFile: description: 'open a changelist tool on this file' translatedNoop buttonLabel: 'changes' translatedNoop! ! !ChangeList class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 21:05'! 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 selector: #browseRecentLogOnPath: description: 'open a changelist tool on recent changes in file' translatedNoop buttonLabel: 'recent changes' translatedNoop! ! !FileContentsBrowser class methodsFor: 'file list services' stamp: 'KR 3/21/2008 21:07'! serviceBrowseCode "Answer the service of opening a file-contents browser" ^ (SimpleServiceEntry provider: self label: 'code-file browser' translatedNoop selector: #browseStream: description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code' translatedNoop buttonLabel: 'code' translatedNoop) argumentGetter: [ :fileList | fileList readOnlyStream ]! ! !FileContentsBrowser class methodsFor: 'file list services' stamp: 'KR 3/21/2008 21:06'! serviceBrowseCodeFiles ^ (SimpleServiceEntry provider: self label: 'browse code files' translatedNoop selector: #selectAndBrowseFile:) argumentGetter: [ :fileList | fileList ]; yourself! ! !FileContentsBrowser class methodsFor: 'file list services' stamp: 'KR 3/21/2008 21:06'! serviceBrowseCompressedCode "Answer a service for opening a changelist browser on a file" ^ (SimpleServiceEntry provider: self label: 'code-file browser' translatedNoop selector: #browseCompressedCodeStream: description: 'open a "file-contents browser" on this file, allowing you to view and selectively load its code' translatedNoop buttonLabel: 'code' translatedNoop) argumentGetter: [ :fileList | fileList readOnlyStream ]! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:09'! serviceAddNewDirectory "Answer a service entry characterizing the 'add new directory' command" ^ SimpleServiceEntry provider: self label: 'add new directory' translatedNoop selector: #addNewDirectory description: 'adds a new, empty directory (folder)' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:09'! 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! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:08'! serviceAllFileOptions ^ {SimpleServiceEntry provider: self label: 'more...' translatedNoop selector: #offerAllFileOptions description: 'show all the options available' translatedNoop}! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:07'! serviceBroadcastUpdate "Answer a service for broadcasting a file as an update" ^ SimpleServiceEntry provider: self label: 'broadcast as update' translatedNoop selector: #putUpdate: description: 'broadcast file as update' translatedNoop buttonLabel: 'broadcast' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:04'! serviceCompressFile "Answer a service for compressing a file" ^ SimpleServiceEntry provider: self label: 'compress' translatedNoop selector: #compressFile description: 'compress file' translatedNoop buttonLabel: 'compress' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:04'! serviceCopyName ^ (SimpleServiceEntry provider: self label: 'copy name to clipboard' translatedNoop selector: #copyName description:'copy name to clipboard' translatedNoop )! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:03'! serviceDeleteFile ^ (SimpleServiceEntry provider: self label: 'delete' translatedNoop selector: #deleteFile) description: 'delete the seleted item' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:01'! serviceGet "Answer a service for getting the entire file" ^ (SimpleServiceEntry provider: self label: 'get entire file' translatedNoop 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)! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:00'! serviceGetEncodedText ^ (SimpleServiceEntry provider: self label: 'view as encoded text' translatedNoop selector: #getEncodedText description: 'view as encoded text' translatedNoop) ! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 21:00'! serviceGetHex ^ (SimpleServiceEntry provider: self label: 'view as hex' translatedNoop selector: #getHex description: 'view as hex' translatedNoop) ! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 20:51'! serviceRemoveVersionNumber "Answer a service for removing a version number of the form .mmm. from a file name." ^ SimpleServiceEntry provider: self label: 'remove version number from file name' translatedNoop selector: #removeVersionNumberFromFileName description: 'remove version number from filename' translatedNoop buttonLabel: 'remove version #' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 20:50'! serviceRenameFile ^ (SimpleServiceEntry provider: self label: 'rename' translatedNoop selector: #renameFile description: 'rename file' translatedNoop)! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 20:49'! serviceSortByDate "Answer a service for sorting by date" ^ (SimpleServiceEntry new provider: self label: 'by date' translatedNoop selector: #sortByDate description: 'sort entries by date' translatedNoop) extraSelector: #sortingByDate; buttonLabel: 'date' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 20:48'! serviceSortByName "Answer a service for soring by name" ^ (SimpleServiceEntry new provider: self label: 'by name' translatedNoop selector: #sortByName description: 'sort entries by name' translatedNoop) extraSelector: #sortingByName; buttonLabel: 'name' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 20:48'! serviceSortBySize "Answer a service for sorting by size" ^ (SimpleServiceEntry provider: self label: 'by size' translatedNoop selector: #sortBySize description: 'sort entries by size' translatedNoop) extraSelector: #sortingBySize; buttonLabel: 'size' translatedNoop! ! !FileList methodsFor: 'own services' stamp: 'KR 3/21/2008 20:47'! 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! ! !FileList2 methodsFor: 'own services' stamp: 'KR 3/21/2008 21:05'! 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! ! !FileList2 methodsFor: 'own services' stamp: 'KR 3/21/2008 20:56'! 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! ! !FileList2 methodsFor: 'own services' stamp: 'KR 3/21/2008 20:53'! serviceOpenProjectFromFile "Answer a service for opening a .pr project file" ^ SimpleServiceEntry provider: self label: 'load as project' translatedNoop selector: #openProjectFromFile description: 'open project from file' translatedNoop buttonLabel: 'load' translatedNoop! ! !FileStream class methodsFor: 'file reader services' stamp: 'KR 3/21/2008 21:02'! serviceFileIn "Answer a service for filing in an entire file" ^ SimpleServiceEntry provider: self label: 'fileIn entire file' translatedNoop selector: #fileIn: description: 'file in the entire contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format' translatedNoop buttonLabel: 'filein' translatedNoop! ! !FileStream class methodsFor: 'file reader services' stamp: 'KR 3/21/2008 20:51'! serviceRemoveLineFeeds "Answer a service for removing linefeeds from a file" ^ FileModifyingSimpleServiceEntry provider: self label: 'remove line feeds' translatedNoop selector: #removeLineFeeds: description: 'remove line feeds in file' translatedNoop buttonLabel: 'remove lfs' translatedNoop! ! !FlashMorphReader class methodsFor: 'read Flash file' stamp: 'KR 3/21/2008 20:55'! serviceOpenAsFlash "Answer a service for opening a flash file" ^ SimpleServiceEntry provider: self label: 'open as Flash' translatedNoop selector: #openAsFlash: description: 'open file as flash' translatedNoop buttonLabel: 'open' translatedNoop! ! !Form class methodsFor: 'file list services' stamp: 'KR 3/21/2008 21:00'! serviceImageAsBackground "Answer a service for setting the desktop background from a given graphical file's contents" ^ SimpleServiceEntry provider: self label: 'use graphic as background' translatedNoop selector: #openAsBackground: description: 'use the graphic as the background for the desktop' translatedNoop buttonLabel: 'background' translatedNoop! ! !Form class methodsFor: 'file list services' stamp: 'KR 3/21/2008 20:59'! serviceImageImportDirectory "Answer a service for reading a graphic into ImageImports" ^(SimpleServiceEntry provider: self label: 'import all images from this directory' translatedNoop selector: #importImageDirectory: description: 'Load all graphics found in this directory, adding them to the ImageImports repository.' translatedNoop buttonLabel: 'import dir' translatedNoop) argumentGetter: [ :fileList | fileList directory ]; yourself ! ! !Form class methodsFor: 'file list services' stamp: 'KR 3/21/2008 20:59'! serviceImageImportDirectoryWithSubdirectories "Answer a service for reading all graphics from a directory and its subdirectories into ImageImports" ^(SimpleServiceEntry provider: self label: 'import all images from here and subdirectories' translatedNoop selector: #importImageDirectoryWithSubdirectories: description: 'Load all graphics found in this directory and its subdirectories, adding them to the ImageImports repository.' translatedNoop buttonLabel: 'import subdirs' translatedNoop) argumentGetter: [ :fileList | fileList directory ]; yourself ! ! !Form class methodsFor: 'file list services' stamp: 'KR 3/21/2008 20:58'! serviceImageImports "Answer a service for reading a graphic into ImageImports" ^ SimpleServiceEntry provider: self label: 'read graphic into ImageImports' translatedNoop selector: #importImage: description: 'Load a graphic, placing it in the ImageImports repository.' translatedNoop buttonLabel: 'import' translatedNoop! ! !Form class methodsFor: 'file list services' stamp: 'KR 3/21/2008 20:54'! serviceOpenImageInWindow "Answer a service for opening a graphic in a window" ^ SimpleServiceEntry provider: self label: 'open graphic in a window' translatedNoop selector: #openImageInWindow: description: 'open a graphic file in a window' translatedNoop buttonLabel: 'open' translatedNoop! ! !GZipReadStream class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 21:03'! serviceDecompressToFile ^ FileModifyingSimpleServiceEntry provider: self label: 'decompress to file' translatedNoop selector: #saveContents: description: 'decompress to file' translatedNoop! ! !GZipReadStream class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 21:02'! serviceFileIn "Answer a service for filing in an entire file" ^ SimpleServiceEntry provider: self label: 'fileIn entire file' translatedNoop selector: #fileIn: description: 'file in the entire decompressed contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format' translatedNoop buttonLabel: 'filein' translatedNoop ! ! !GZipReadStream class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 21:01'! serviceFileIntoNewChangeSet "Answer a service for filing in an entire file" ^ SimpleServiceEntry provider: self label: 'install into new change set' translatedNoop selector: #fileIntoNewChangeSet: description: 'install the decompressed contents of the file as a body of code in the image: create a new change set and file-in the selected file into it' translatedNoop buttonLabel: 'install' translatedNoop! ! !GZipReadStream class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 20:47'! serviceViewDecompress ^ SimpleServiceEntry provider: self label: 'view decompressed' translatedNoop selector: #viewContents: description: 'view decompressed' translatedNoop ! ! !GZipWriteStream class methodsFor: 'file list services' stamp: 'KR 3/22/2008 16:28'! serviceCompressFile ^ FileModifyingSimpleServiceEntry provider: self label: 'compress file' translatedNoop selector: #compressFile: description: 'compress file using gzip compression, making a new file' translatedNoop! ! !InternalTranslator class methodsFor: 'file-services' stamp: 'KR 3/21/2008 20:57'! serviceMergeLanguageTranslations "Answer a service for merging of translation files" ^ SimpleServiceEntry provider: self label: 'merge the translation file' translatedNoop selector: #mergeTranslationFileNamed: description: 'merge the translation file into the language named like the file' translatedNoop buttonLabel: 'merge' translatedNoop! ! !MczInstaller class methodsFor: 'services' stamp: 'KR 3/21/2008 20:57'! serviceLoadVersion ^ SimpleServiceEntry provider: self label: 'load' translatedNoop selector: #loadVersionFile: description: 'load a package version' translatedNoop! ! !Morph class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 20:57'! serviceLoadMorphFromFile "Answer a service for loading a .morph file" ^ SimpleServiceEntry provider: self label: 'load as morph' translatedNoop selector: #fromFileName: description: 'load as morph' translatedNoop buttonLabel: 'load' translatedNoop! ! !AnimatedImageMorph class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 20:55'! serviceOpenGIFInWindow "Answer a service for opening a gif graphic in a window" ^ (SimpleServiceEntry provider: self label: 'open graphic in a window' translatedNoop selector: #openGIFInWindow: description: 'open a GIF graphic file in a window' translatedNoop buttonLabel: 'open' translatedNoop) argumentGetter: [ :fileList | fileList readOnlyStream ]! ! !ArchiveViewer class methodsFor: 'class initialization' stamp: 'KR 3/21/2008 20:53'! serviceOpenInZipViewer "Answer a service for opening in a zip viewer" ^ SimpleServiceEntry provider: self label: 'open in zip viewer' translatedNoop selector: #openOn: description: 'open in zip viewer' translatedNoop buttonLabel: 'open zip' translatedNoop! ! !ArchiveViewer class methodsFor: 'file list services' stamp: 'KR 3/21/2008 21:08'! serviceAddToNewZip "Answer a service for adding the file to a new zip" ^ FileModifyingSimpleServiceEntry provider: self label: 'add file to new zip' translatedNoop selector: #addFileToNewZip: description: 'add file to new zip' translatedNoop buttonLabel: 'to new zip' translatedNoop! ! !ArchiveViewer class methodsFor: 'file list services' stamp: 'KR 3/21/2008 21:03'! serviceExtractAll "Answer a service for opening in a zip viewer" ^ FileModifyingSimpleServiceEntry provider: self label: 'extract all to...' translatedNoop selector: #extractAllFrom: description: 'extract all files to a user-specified directory' translatedNoop buttonLabel: 'extract all' translatedNoop! ! !BookMorph class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 20:58'! serviceLoadAsBook ^ SimpleServiceEntry provider: self label: 'load as book' translatedNoop selector: #openFromFile: description: 'open as bookmorph' translatedNoop! ! !MoviePlayerMorph class methodsFor: 'fileIn/Out' stamp: 'KR 3/21/2008 20:55'! serviceOpenAsMovie "Answer a service for opening a file as a movie" ^ SimpleServiceEntry provider: self label: 'open as movie' translatedNoop selector: #openAsMovie: description: 'open file as movie' translatedNoop buttonLabel: 'open' translatedNoop! ! !MPEGMoviePlayerMorph class methodsFor: 'registering' stamp: 'KR 3/21/2008 20:54'! serviceOpenInMPEGPlayer "Answer a service for opening a file in an MPEGMoviePlayer" ^ SimpleServiceEntry provider: self label: 'open' translatedNoop selector: #openFile: description: 'open file in an MPEG player' translatedNoop buttonLabel: 'open' translatedNoop! ! !MPEGMoviePlayerMorph class methodsFor: 'registering' stamp: 'KR 3/21/2008 20:52'! servicePlayInMPEGPlayer "Answer a service for opening in a MPEG player" ^ SimpleServiceEntry provider: self label: 'play in MPEG player' translatedNoop selector: #playFile: description: 'play in MPEG player' translatedNoop buttonLabel: 'play' translatedNoop! ! !ProjectViewMorph class methodsFor: 'project window creation' stamp: 'KR 3/21/2008 20:53'! serviceOpenProjectFromFile "Answer a service for opening a .pr project file" ^ (SimpleServiceEntry provider: self label: 'load as project' translatedNoop selector: #openFromDirectoryAndFileName: description: 'open project from file' translatedNoop buttonLabel: 'load' translatedNoop ) argumentGetter: [ :fileList | fileList dirAndFileName]! ! !SARInstaller class methodsFor: 'class initialization' stamp: 'KR 3/21/2008 21:01'! serviceFileInSAR "Answer a service for opening a changelist browser on a file" ^ SimpleServiceEntry provider: self label: 'install SAR' translatedNoop selector: #installSAR: description: 'install this Squeak ARchive into the image.' translatedNoop buttonLabel: 'install' translatedNoop! ! !Scamper class methodsFor: 'instance creation' stamp: 'KR 3/21/2008 20:54'! serviceOpenInWebBrowser "Answer a service for opening a web browser on a file" ^ SimpleServiceEntry provider: self label: 'open in web browser' translatedNoop selector: #openFile: description: 'open in web browser' translatedNoop buttonLabel: 'open' translatedNoop! ! !ScorePlayerMorph class methodsFor: 'class initialization' stamp: 'KR 3/21/2008 20:51'! servicePlayMidiFile "Answer a service for opening player on a midi file" ^ SimpleServiceEntry provider: self label: 'open in midi player' translatedNoop selector: #playMidiFile: description: 'open the midi-player tool on this file' translatedNoop buttonLabel: 'open' translatedNoop! ! !SugarLauncher class methodsFor: 'services' stamp: 'KR 3/22/2008 16:01'! serviceWrapAsXOBundle "Answer a service for wrapping a file as an .xo bundle" ^ FileModifyingSimpleServiceEntry provider: self label: 'make XO bundle' translatedNoop selector: #wrapAsXOBundle: description: 'wrap as an OLPC XO bundle' translatedNoop buttonLabel: 'XO'! ! !TTCFont class methodsFor: 'file list services' stamp: 'KR 3/21/2008 20:58'! serviceInstallTrueTypeFontStyle "Return a service to install a true type font as a text style" ^ SimpleServiceEntry provider: self label: 'install ttf style' translatedNoop selector: #newTextStyleFromTTFile: description: 'install a true type font as a text style' translatedNoop buttonLabel: 'install ttf' translatedNoop! ! !TTFontReader class methodsFor: 'class initialization' stamp: 'KR 3/21/2008 20:52'! serviceOpenTrueTypeFont ^ SimpleServiceEntry provider: self label: 'open true type font' translatedNoop selector: #openTTFFile: description: 'open true type font' translatedNoop! !