hg/stx-libtool: comparison AbstractFileBrowser.st

equal deleted inserted replaced

-:204da2f7db8e
+:0ce340e972c4
 #(Menu
 (
 (MenuItem
 label: 'Open (Win32-Shell)'
 itemValue: doOpenWithShellCommand
-translateLabel: true
 isVisible: systemIsDOS
 )
 (MenuItem
 label: 'Execute UNIX Command...'
 itemValue: doExecuteCommand
-translateLabel: true
 isVisible: systemIsUnix
 )
 (MenuItem
 label: 'Execute DOS Command...'
 itemValue: doExecuteCommand
-translateLabel: true
 isVisible: systemIsDOS
 )
 (MenuItem
 label: 'Execute Script...'
 itemValue: doExecuteScript
-translateLabel: true
 )
 (MenuItem
 enabled: canDoTerminal
 label: 'Shell Terminal'
 itemValue: openTerminal
-translateLabel: true
 isVisible: canDoTerminalAndSystemIsUnix
 labelImage: (ResourceRetriever ToolbarIconLibrary terminal16x16Icon 'Shell Terminal')
 )
 (MenuItem
 enabled: canDoTerminal
 label: 'DOS Terminal'
 itemValue: openTerminal
-translateLabel: true
 isVisible: canDoTerminalAndSystemIsDOS
 labelImage: (ResourceRetriever ToolbarIconLibrary terminal16x16Icon 'DOS Terminal')
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Changes Browser'
 itemValue: openChangesBrowser
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'ChangeSet Browser'
 itemValue: openChangeSetBrowser
-translateLabel: true
 isVisible: changeSetBrowserItemVisible
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Workspace'
 itemValue: openWorkspace
-translateLabel: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 enabled: canReadAbbrevFile
 label: 'Install Autoloaded'
 itemValue: readAbbrevFile
-translateLabel: true
 )
 (MenuItem
 enabled: anySTFilesPresent
 label: 'Install All ST-Files as Autoloaded'
 itemValue: installAllAsAutoloaded
-translateLabel: true
 )
 (MenuItem
 enabled: recursiveAnySTFilesPresent
 label: 'Recursive Install All ST-Files as Autoloaded'
 itemValue: installAllAsAutoloadedRecursive
-translateLabel: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 label: 'File Operations'
-translateLabel: true
 submenuChannel: fileOpMenu
 )
 (MenuItem
 label: 'File Utilities'
-translateLabel: true
 submenu:
 (Menu
 (
 (MenuItem
 enabled: hasFileSelection
 label: 'Editor'
 itemValue: openEditor
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'HTML Reader'
 itemValue: openHTMLReader
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Web Browser'
 itemValue: openWebBrowser
-translateLabel: true
 )
 (MenuItem
 label: 'XML Inspector'
 itemValue: inspectXmlFile
-translateLabel: true
 isVisible: hasXml
 showBusyCursorWhilePerforming: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Acroread (PDF Viewer)'
 itemValue: openPDFViewer
-translateLabel: true
 )
 (MenuItem
 enabled: hasASN1AndSelection
 label: 'ASN1 Browser'
 itemValue: openASN1Browser
-translateLabel: true
 isVisible: hasASN1
 )
 (MenuItem
 enabled: hasCBrowser
 label: 'C Browser'
 itemValue: openCBrowser
-translateLabel: true
 isVisible: hasCBrowser
+)
+(MenuItem
+enabled: canOpenMontocelloBrowser
+label: 'Monticello Browser'
+itemValue: doOpenMonticelloBrowser
 )
 (MenuItem
 enabled: hasJavaAndSelection
 label: 'Applet Viewer'
 itemValue: openAppletViewer
-translateLabel: true
 isVisible: hasJava
 )
 (MenuItem
 enabled: hasMP3PlayerAndSelection
 label: 'MP3 Player'
 itemValue: openMP3Player
-translateLabel: true
 isVisible: hasMP3Player
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'xv (Image Viewer)'
 itemValue: openXV
-translateLabel: true
 isVisible: systemIsUnix
 )
 (MenuItem
 enabled: currentFilesAreInSameDirectory
 label: 'Slide Show'
 itemValue: openSlideShow
-translateLabel: true
 isVisible: hasSlideShow
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'gv (Postscript Viewer)'
 itemValue: openGV
-translateLabel: true
 isVisible: systemIsUnix
 )
 (MenuItem
 enabled: hasMP3PlayerAndSelection
 label: 'MP3 Player'
 itemValue: openMP3Player
-translateLabel: true
 isVisible: hasMP3Player
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Realplay (avi viewer)'
 itemValue: openRP
-translateLabel: true
 isVisible: systemIsUnix
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 label: 'Smalltalk'
-translateLabel: true
 submenu:
 (Menu
 (
 (MenuItem
 enabled: hasSnapshotSelection
 label: 'Snapshot Image Browser'
 itemValue: openSnapshotImageBrowser
-translateLabel: true
 )
 (MenuItem
 enabled: canCreateNewProject
 label: 'Create Smalltalk Project'
 itemValue: createProjectAndOpenProjectBrowser
-translateLabel: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 enabled: hasResourceFileSelected
 label: 'Show Contents of Resourcefile'
 itemValue: readAndShowResources
-translateLabel: true
 )
 (MenuItem
 enabled: hasResourceFileSelected
 label: 'Resource File Editor'
 itemValue: openResourceFileEditor
-translateLabel: true
 showBusyCursorWhilePerforming: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Contents as ByteArray'
 itemValue: fileContentsAsByteArray
-translateLabel: true
 )
 )
 nil
 nil
 )
 )
 (MenuItem
 label: 'Image'
-translateLabel: true
 submenu:
 (Menu
 (
 (MenuItem
 enabled: hasFileSelection
 label: 'Image Editor'
 itemValue: openImageEditor
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Image Preview'
 itemValue: openImagePreview
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Image Inspector'
 itemValue: openImageInspector
-translateLabel: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Convert to GIF'
 itemValue: convertImageToGIF
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Convert to PNG'
 itemValue: convertImageToPNG
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Convert to XPM'
 itemValue: convertImageToXPM
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Convert to JPG'
 itemValue: convertImageToJPG
-translateLabel: true
 )
 )
 nil
 nil
 )
 )
 (MenuItem
 enabled: hasZipFileSelectedHolder
 label: 'ZipFile Tool'
 itemValue: openZipTool
-translateLabel: true
 )
 (MenuItem
 enabled: hasFileSelection
 label: 'Hex Dump'
 itemValue: fileHexDump
-translateLabel: true
 )
 )
 nil
 nil
 )
 )
 (MenuItem
 label: 'Find'
-translateLabel: true
 submenu:
 (Menu
 (
 (MenuItem
 label: 'File...'
 itemValue: fileFindFile
-translateLabel: true
 )
 (MenuItem
 label: 'Same Contents as Selected...'
 itemValue: fileFindDuplicateFile
-translateLabel: true
 )
 (MenuItem
 label: 'Duplicate Files'
 itemValue: fileFindDuplicates
-translateLabel: true
 )
 (MenuItem
 enabled: hasSelection
 label: 'All Duplicate Files (Recursive)'
 itemValue: fileFindAllDuplicates
-translateLabel: true
 )
 (MenuItem
 label: 'Similar Image Files'
 itemValue: fileFindSimilarImages
-translateLabel: true
 isVisible: hasImageColorHistogram
 )
 )
 nil
 nil
 doOpenFinder
 self currentDirectory asFilename openFinder
 "Modified: / 21-07-2012 / 12:28:36 / cg"
+!
+doOpenMonticelloBrowser
+self withWaitCursorDo:[
+self currentSelectedFiles do:[:fn |
+|version snapshot|
+fn suffix asLowercase = 'mcz' ifTrue:[
+version := MCMczReader versionFromFile:fn.
+snapshot := version snapshot.
+(Tools::ChangeSetBrowser2
+on: snapshot asChangeSet
+label: version info name)
+beTwoColumn;
+targetNamespace:nil;
+targetPackage:nil;
+open
+]
+]
+]
 !
 doOpenSettings
 self openSettingsDialog
 !
 anySTFilesPresent
 ^ self anyFilesPresentWithSuffix:'st'
 !
 canCreateNewProject
-| selectedFiles |
 self currentFilesAreInSameDirectory ifFalse:[^ false].
-selectedFiles := self currentSelectedFiles.
+^ self currentSelectedFiles contains:[:fileName|
-^ [
+| suffix|
-((selectedFiles detect:[:fileName| | suffix|
+suffix := fileName suffix asLowercase.
-suffix := fileName suffix asLowercase.
+(suffix = 'prj' or:[suffix = 'st'])
-(suffix = 'prj' or:[suffix = 'st'])
+]
-] ifNone:[nil]) notNil)
-]
 !
 canDoTerminal
 ^ OperatingSystem isUNIXlike
 Expecco::KeyFileGenerator isNil ifTrue:[ ^ false ].
 Expecco::KeyFile isNil ifTrue:[ ^ false ].
 ^ self currentSelectedFiles notEmptyOrNil
+!
+canOpenMonticelloBrowser
+^ self currentSelectedFiles
+contains:[:fileName|
+fileName suffix asLowercase = 'mcz'
+]
 !
 canReadAbbrevFile
 |currentDirectory|
 and:[ self hasMP3Player value]]
 !
 hasResourceFileSelected
-^ [
+^ self currentSelectedFiles
-|sel|
+conform:[:fn |
+fn suffix asLowercase = 'rs'
-sel := self currentSelectedFiles.
+].
-sel notEmptyOrNil ifTrue:[
-sel conform:[:fn | fn suffix asLowercase = 'rs'].
-] ifFalse:[
-false
-]
-]
 !
 hasSlideShow
 ^ [CodingExamples_GUI::SlideShow notNil]
 ! !
 !AbstractFileBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.521 2013-05-28 10:34:21 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.522 2013-06-03 10:52:06 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.521 2013-05-28 10:34:21 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.522 2013-06-03 10:52:06 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 12819	0ce340e972c4
parent 12807	ba8c5416aa28
parent 12811	ffdf97bbca6e
child 13170	c9b815af5777