added:
authorClaus Gittinger <cg@exept.de>
Wed, 21 Dec 2011 19:19:57 +0100
changeset 13874 16d95fea6cbb
parent 13873 234d00734368
child 13875 2e01d09fa4c4
added: #hasFileBasedRepositorySupport #hasFileBasedSourceCodeManagerSupport #hasFileBasedSourceCodeManagerSupportEnabled
ConfigurableFeatures.st
--- a/ConfigurableFeatures.st	Wed Dec 21 16:44:44 2011 +0100
+++ b/ConfigurableFeatures.st	Wed Dec 21 19:19:57 2011 +0100
@@ -73,6 +73,32 @@
 
 !ConfigurableFeatures class methodsFor:'queries-features'!
 
+hasFileBasedSourceCodeManagerSupport
+    |mgr|
+
+    "/ use Smalltalk-at to trick the dependency/prerequisite generator
+    ^ (mgr := Smalltalk at: #'FileBasedSourceCodeManager') notNil
+    and:[ mgr enabled ]
+    "
+     ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
+    "
+
+    "Created: / 21-12-2011 / 17:07:21 / cg"
+!
+
+hasFileBasedSourceCodeManagerSupportEnabled
+    |repository|
+
+    "/ use Smalltalk-at to trick the dependency/prerequisite generator
+    repository := Smalltalk at: #'FileBasedSourceCodeManager'.
+
+    ^ repository notNil
+        and:[ repository isLoaded 
+        and:[ repository enabled ]]
+
+    "Created: / 21-12-2011 / 17:07:08 / cg"
+!
+
 hasSubversionSupport
     |subVersionRepository|
 
@@ -104,9 +130,9 @@
 !ConfigurableFeatures class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.1 2011-09-07 08:54:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011-12-21 18:19:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.1 2011-09-07 08:54:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011-12-21 18:19:57 cg Exp $'
 ! !