ConfigurableFeatures.st
changeset 13887 4e82ea1082c8
parent 13874 16d95fea6cbb
child 13888 ee32d4db57f5
--- a/ConfigurableFeatures.st	Thu Dec 29 01:29:45 2011 +0100
+++ b/ConfigurableFeatures.st	Tue Jan 03 15:36:22 2012 +0100
@@ -73,6 +73,32 @@
 
 !ConfigurableFeatures class methodsFor:'queries-features'!
 
+hasDataBaseSourceCodeManagerSupport
+    |mgr|
+
+    "/ use Smalltalk-at to trick the dependency/prerequisite generator
+    ^ (mgr := Smalltalk at: #'DataBaseSourceCodeManager') notNil
+    and:[ mgr enabled ]
+    "
+     ConfigurableFeatures hasDataBaseSourceCodeManagerSupport
+    "
+
+    "Created: / 03-01-2012 / 15:36:03 / cg"
+!
+
+hasDataBaseSourceCodeManagerSupportEnabled
+    |repository|
+
+    "/ use Smalltalk-at to trick the dependency/prerequisite generator
+    repository := Smalltalk at: #'DataBaseSourceCodeManager'.
+
+    ^ repository notNil
+        and:[ repository isLoaded 
+        and:[ repository enabled ]]
+
+    "Created: / 03-01-2012 / 15:36:12 / cg"
+!
+
 hasFileBasedSourceCodeManagerSupport
     |mgr|
 
@@ -130,9 +156,9 @@
 !ConfigurableFeatures class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011-12-21 18:19:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.3 2012-01-03 14:36:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011-12-21 18:19:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.3 2012-01-03 14:36:22 cg Exp $'
 ! !