# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1370256726 -7200
# Node ID ffdf97bbca6e7f5699b91853bfc80b91c0f33d39
# Parent  b7a6631ef77e5746c13bb6c9facba95d5d51019c
class: AbstractFileBrowser
added:
        #canOpenMonticelloBrowser
        #canOpenMontocelloBrowser
        #doOpenMonticelloBrowser
changed:
        #canCreateNewProject
        #hasResourceFileSelected
        #toolsMenuSpec

diff -r b7a6631ef77e -r ffdf97bbca6e AbstractFileBrowser.st
--- 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 $'
 ! !