class: AbstractFileBrowser
added:
#canOpenMonticelloBrowser
#canOpenMontocelloBrowser
#doOpenMonticelloBrowser
changed:
#canCreateNewProject
#hasResourceFileSelected
#toolsMenuSpec
--- a/AbstractFileBrowser.st Mon Jun 03 12:39:43 2013 +0200
+++ b/AbstractFileBrowser.st Mon Jun 03 12:52:06 2013 +0200
@@ -2153,31 +2153,26 @@
(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')
)
@@ -2185,7 +2180,6 @@
enabled: canDoTerminal
label: 'DOS Terminal'
itemValue: openTerminal
- translateLabel: true
isVisible: canDoTerminalAndSystemIsDOS
labelImage: (ResourceRetriever ToolbarIconLibrary terminal16x16Icon 'DOS Terminal')
)
@@ -2196,20 +2190,17 @@
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: '-'
@@ -2218,31 +2209,26 @@
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
(
@@ -2250,24 +2236,20 @@
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
)
@@ -2275,69 +2257,64 @@
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
@@ -2345,7 +2322,6 @@
)
(MenuItem
label: 'Smalltalk'
- translateLabel: true
submenu:
(Menu
(
@@ -2353,13 +2329,11 @@
enabled: hasSnapshotSelection
label: 'Snapshot Image Browser'
itemValue: openSnapshotImageBrowser
- translateLabel: true
)
(MenuItem
enabled: canCreateNewProject
label: 'Create Smalltalk Project'
itemValue: createProjectAndOpenProjectBrowser
- translateLabel: true
)
(MenuItem
label: '-'
@@ -2368,13 +2342,11 @@
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
@@ -2384,7 +2356,6 @@
enabled: hasFileSelection
label: 'Contents as ByteArray'
itemValue: fileContentsAsByteArray
- translateLabel: true
)
)
nil
@@ -2393,7 +2364,6 @@
)
(MenuItem
label: 'Image'
- translateLabel: true
submenu:
(Menu
(
@@ -2401,19 +2371,16 @@
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: '-'
@@ -2422,25 +2389,21 @@
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
@@ -2451,13 +2414,11 @@
enabled: hasZipFileSelectedHolder
label: 'ZipFile Tool'
itemValue: openZipTool
- translateLabel: true
)
(MenuItem
enabled: hasFileSelection
label: 'Hex Dump'
itemValue: fileHexDump
- translateLabel: true
)
)
nil
@@ -2466,35 +2427,29 @@
)
(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
)
)
@@ -6339,6 +6294,26 @@
"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
!
@@ -8109,17 +8084,12 @@
!
canCreateNewProject
-
- | selectedFiles |
-
self currentFilesAreInSameDirectory ifFalse:[^ false].
- selectedFiles := self currentSelectedFiles.
- ^ [
- ((selectedFiles detect:[:fileName| | suffix|
- suffix := fileName suffix asLowercase.
- (suffix = 'prj' or:[suffix = 'st'])
- ] ifNone:[nil]) notNil)
- ]
+ ^ self currentSelectedFiles contains:[:fileName|
+ | suffix|
+ suffix := fileName suffix asLowercase.
+ (suffix = 'prj' or:[suffix = 'st'])
+ ]
!
canDoTerminal
@@ -8147,6 +8117,13 @@
^ self currentSelectedFiles notEmptyOrNil
!
+canOpenMonticelloBrowser
+ ^ self currentSelectedFiles
+ contains:[:fileName|
+ fileName suffix asLowercase = 'mcz'
+ ]
+!
+
canReadAbbrevFile
|currentDirectory|
@@ -8206,16 +8183,10 @@
hasResourceFileSelected
- ^ [
- |sel|
-
- sel := self currentSelectedFiles.
- sel notEmptyOrNil ifTrue:[
- sel conform:[:fn | fn suffix asLowercase = 'rs'].
- ] ifFalse:[
- false
- ]
- ]
+ ^ self currentSelectedFiles
+ conform:[:fn |
+ fn suffix asLowercase = 'rs'
+ ].
!
hasSlideShow
@@ -9221,10 +9192,10 @@
!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 $'
! !