AbstractFileBrowser.st
changeset 11712 ed8877d9356b
parent 11688 0a519d63778c
child 11743 acb7245e126b
--- a/AbstractFileBrowser.st	Sat Jul 28 08:56:19 2012 +0200
+++ b/AbstractFileBrowser.st	Sat Jul 28 09:07:46 2012 +0200
@@ -6253,6 +6253,10 @@
 !
 
 doOpenCBrowser
+    "the CBrowser is an eXept-internal C-language IDE tool.
+     (no longer of much interest, since we have VC and eclipse, but this was written
+     20 years ago ;-)"
+
     |destDir|
 
     (CBrowser isNil or:[ CBrowser::Browser isNil ]) ifTrue:[
@@ -6262,6 +6266,7 @@
     CBrowser::Browser openIn:destDir pathName
 
     "Modified: / 04-10-2011 / 13:41:31 / cg"
+    "Modified (comment): / 27-07-2012 / 20:41:40 / cg"
 !
 
 doOpenExplorer
@@ -7258,10 +7263,14 @@
 !
 
 openChangeSetBrowser
+    "open a changeSet browser on the selected file(s)"
+
     self
-        openTool:ChangeSetBrowser 
+        openTool:(UserPreferences current changeSetBrowserClass) 
         with:#openOnFile: 
         ignoreDirectories:true
+
+    "Modified (comment): / 27-07-2012 / 20:42:55 / cg"
 !
 
 openChangesBrowser
@@ -9095,9 +9104,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.497 2012-07-27 09:06:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.498 2012-07-28 07:07:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.497 2012-07-27 09:06:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.498 2012-07-28 07:07:46 cg Exp $'
 ! !