#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 26 Sep 2018 12:39:34 +0200
changeset 18433 4afda005ed69
parent 18432 cd3ec19afe61
child 18434 ae82fa7f3a6c
#FEATURE by cg class: AbstractFileBrowser comment/format in: #doOpenExplorer #doOpenFinder changed: #doOpenCBrowser #doOpenMonticelloBrowser
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Wed Sep 26 12:36:28 2018 +0200
+++ b/AbstractFileBrowser.st	Wed Sep 26 12:39:34 2018 +0200
@@ -7032,26 +7032,33 @@
 
     |destDir|
 
-    (CBrowser isNil or:[ CBrowser::Browser isNil ]) ifTrue:[
+    ((Smalltalk at:#'CBrowser') isNil or:[ (Smalltalk at:#'CBrowser::Browser') isNil ]) ifTrue:[
         Smalltalk loadPackage:'exept:CC'
     ].
     destDir := self currentDirectory.
-    CBrowser::Browser openIn:destDir pathName
+    (Smalltalk at:#'CBrowser::Browser') openIn:destDir pathName
 
     "Modified: / 04-10-2011 / 13:41:31 / cg"
     "Modified (comment): / 27-07-2012 / 20:41:40 / cg"
+    "Modified: / 26-09-2018 / 12:37:34 / Claus Gittinger"
 !
 
 doOpenExplorer
+    "corresponding menu item is visible on a windows machine only"
+
     self currentDirectory asFilename openExplorer
 
     "Modified: / 21-07-2012 / 12:28:36 / cg"
+    "Modified (comment): / 26-09-2018 / 12:38:08 / Claus Gittinger"
 !
 
 doOpenFinder
+    "corresponding menu item is visible on a mac only"
+    
     self currentDirectory asFilename openFinder
 
     "Modified: / 21-07-2012 / 12:28:36 / cg"
+    "Modified (comment): / 26-09-2018 / 12:38:00 / Claus Gittinger"
 !
 
 doOpenGDBApplication
@@ -7069,14 +7076,20 @@
 !
 
 doOpenMonticelloBrowser
-    MCMczReader isNil ifTrue:[ Smalltalk loadPackage:'stx:goodies/monticello'].
+    (Smalltalk at:#'MCMczReader') isNil ifTrue:[ 
+        Smalltalk loadPackage:'stx:goodies/monticello'.
+        (Smalltalk at:#'MCMczReader') isNil ifTrue:[
+            Dialog warn:'Failed to load the monticello package'.
+            ^ self.
+        ].    
+    ].
 
     self withWaitCursorDo:[
         self currentSelectedFiles do:[:fn |
             |version snapshot|
 
             fn suffix asLowercase = 'mcz' ifTrue:[
-                version := MCMczReader versionFromFile:fn.
+                version := (Smalltalk at:#'MCMczReader') versionFromFile:fn.
                 snapshot := version snapshot.
                 (Tools::ChangeSetBrowser2 
                         on: snapshot asChangeSet
@@ -7088,6 +7101,8 @@
                 ]
         ]
     ]
+
+    "Modified: / 26-09-2018 / 12:39:05 / Claus Gittinger"
 !
 
 doOpenSettings