ConfigurableFeatures.st
changeset 13874 16d95fea6cbb
parent 13641 2fe2dd2ca2d3
child 13887 4e82ea1082c8
equal deleted inserted replaced
13873:234d00734368 13874:16d95fea6cbb
    71     "Created: / 07-09-2011 / 10:51:26 / cg"
    71     "Created: / 07-09-2011 / 10:51:26 / cg"
    72 ! !
    72 ! !
    73 
    73 
    74 !ConfigurableFeatures class methodsFor:'queries-features'!
    74 !ConfigurableFeatures class methodsFor:'queries-features'!
    75 
    75 
       
    76 hasFileBasedSourceCodeManagerSupport
       
    77     |mgr|
       
    78 
       
    79     "/ use Smalltalk-at to trick the dependency/prerequisite generator
       
    80     ^ (mgr := Smalltalk at: #'FileBasedSourceCodeManager') notNil
       
    81     and:[ mgr enabled ]
       
    82     "
       
    83      ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
       
    84     "
       
    85 
       
    86     "Created: / 21-12-2011 / 17:07:21 / cg"
       
    87 !
       
    88 
       
    89 hasFileBasedSourceCodeManagerSupportEnabled
       
    90     |repository|
       
    91 
       
    92     "/ use Smalltalk-at to trick the dependency/prerequisite generator
       
    93     repository := Smalltalk at: #'FileBasedSourceCodeManager'.
       
    94 
       
    95     ^ repository notNil
       
    96         and:[ repository isLoaded 
       
    97         and:[ repository enabled ]]
       
    98 
       
    99     "Created: / 21-12-2011 / 17:07:08 / cg"
       
   100 !
       
   101 
    76 hasSubversionSupport
   102 hasSubversionSupport
    77     |subVersionRepository|
   103     |subVersionRepository|
    78 
   104 
    79     "/ use Smalltalk-at to trick the dependency/prerequisite generator
   105     "/ use Smalltalk-at to trick the dependency/prerequisite generator
    80     subVersionRepository := Smalltalk at: #'SVN::RepositoryManager'.
   106     subVersionRepository := Smalltalk at: #'SVN::RepositoryManager'.
   102 ! !
   128 ! !
   103 
   129 
   104 !ConfigurableFeatures class methodsFor:'documentation'!
   130 !ConfigurableFeatures class methodsFor:'documentation'!
   105 
   131 
   106 version
   132 version
   107     ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.1 2011-09-07 08:54:18 cg Exp $'
   133     ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011-12-21 18:19:57 cg Exp $'
   108 !
   134 !
   109 
   135 
   110 version_CVS
   136 version_CVS
   111     ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.1 2011-09-07 08:54:18 cg Exp $'
   137     ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011-12-21 18:19:57 cg Exp $'
   112 ! !
   138 ! !