--- 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 $'
! !