#FEATURE by cg
class: AbstractFileBrowser
comment/format in:
#doOpenExplorer
#doOpenFinder
changed:
#doOpenCBrowser
#doOpenMonticelloBrowser
--- 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