Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactored
authorClaus Gittinger <cg@exept.de>
Sat, 14 Jan 2012 21:04:43 +0100
changeset 11126 6ac7a4d1e195
parent 11125 59ee0c157f3c
child 11127 d8a116610680
refactored
StoreSourceCodeManagementSettingsAppl.st file | annotate | diff | comparison | revisions 
--- a/StoreSourceCodeManagementSettingsAppl.st	Sat Jan 14 21:01:33 2012 +0100
+++ b/StoreSourceCodeManagementSettingsAppl.st	Sat Jan 14 21:04:43 2012 +0100
@@ -12,28 +12,18 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSourceCodeManagementSettingsAppl subclass:#StoreSourceCodeManagementSettingsAppl
-	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
-		setupSourceCodeManager checkClassesWhenCheckingIn
-		formattingConfiguration flushSourceCache localSourceFirst
-		repositoryHolder manager repository listOfModules
-		cvsRootPrototypeList addPerModuleRoot removeEnabled
-		perModuleRootModule acceptChannel removePerModuleRoot
-		perModuleRoot cvsRootHolder selectedPerModuleRoot
-		cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule
-		cvsLoginInModuleEnabled cvsLoginEnabled
-		selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
-		managerIsStoreSourceCodeManager storeLoginEnabled
-		storeHostPrototypeList storeHostnameHolder storeUsernameHolder
-		storePasswordHolder perStoreModuleHostnameHolder
-		perStoreModuleUsernameHolder perStoreModulePasswordHolder
-		perStoreModuleRoot perStoreModuleRootModule
-		selectedPerStoreModuleRoot storeConnectEnabled
-		storeConnectInModuleEnabled perModuleFieldsEnableHolder
-		managerIsSmallTeamSourceCodeManager
-		selectedPerSmallTeamModuleRoot
-		perSmallTeamModuleFieldsEnableHolder perSmallTeamModuleRoot
-		perSmallTeamModuleRootModule perSmallTeamModuleHostnameHolder
-		smallTeamHostnameHolder verboseSourceCodeAccess keepMethodSource'
+	instanceVariableNames:'useManager repositoryHolder manager listOfModules
+		addPerModuleRoot removeEnabled perModuleRootModule perModuleRoot
+		selectedPerModuleRoot rootsPerModule
+		managerIsCVSSourceCodeManager managerIsStoreSourceCodeManager
+		storeLoginEnabled storeHostPrototypeList storeHostnameHolder
+		storeUsernameHolder storePasswordHolder
+		perStoreModuleHostnameHolder perStoreModuleUsernameHolder
+		perStoreModulePasswordHolder perStoreModuleRoot
+		perStoreModuleRootModule selectedPerStoreModuleRoot
+		storeConnectEnabled storeConnectInModuleEnabled
+		perModuleFieldsEnableHolder managerIsSmallTeamSourceCodeManager
+		perSmallTeamModuleFieldsEnableHolder'
 	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
 		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
 		LastStorePassword'
@@ -755,24 +745,6 @@
     ^ acceptChannel.
 !
 
-checkClassesWhenCheckingIn
-
-    checkClassesWhenCheckingIn isNil ifTrue:[
-        checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
-        checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ checkClassesWhenCheckingIn.
-!
-
-keepMethodSource
-
-    keepMethodSource isNil ifTrue:[
-        keepMethodSource := ValueHolder new.
-        keepMethodSource onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ keepMethodSource.
-!
-
 listOfModules
 
     listOfModules isNil ifTrue:[
@@ -785,15 +757,6 @@
     ^ listOfModules.
 !
 
-localSourceFirst
-
-    localSourceFirst isNil ifTrue:[
-        localSourceFirst := ValueHolder new.
-        localSourceFirst onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ localSourceFirst.
-!
-
 managerIsCVSSourceCodeManager
     managerIsCVSSourceCodeManager isNil ifTrue:[
         managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
@@ -923,14 +886,6 @@
     ^ selectedPerStoreModuleRoot.
 !
 
-sourceCacheDir
-    sourceCacheDir isNil ifTrue:[
-        sourceCacheDir := ValueHolder new.
-        sourceCacheDir onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ sourceCacheDir.
-!
-
 storeConnectEnabled
     storeConnectEnabled isNil ifTrue:[
         storeConnectEnabled := false asValue.
@@ -1221,19 +1176,17 @@
     repositoryHolder := '' asValue.
     rootsPerModule := Dictionary new.
 
-    (Array with:StoreSourceCodeManager) "self availableManagers" do:[:eachManager |
-        eachManager repositoryInfoPerModule 
-            keysAndValuesDo:[:module :info |
-                module withoutSeparators ~= module ifTrue:[
-                    self halt:'should not happen any longer'
-                ].
-                rootsPerModule at:module put:(Array with:eachManager with:info)
+    StoreSourceCodeManager repositoryInfoPerModule 
+        keysAndValuesDo:[:module :info |
+            module withoutSeparators ~= module ifTrue:[
+                self halt:'should not happen any longer'
             ].
-    ].
+            rootsPerModule at:module put:(Array with:StoreSourceCodeManager with:info)
+        ].
 
     super initialize.
 
-    "Modified: / 18-04-2011 / 18:38:02 / cg"
+    "Modified: / 14-01-2012 / 20:28:30 / cg"
 ! !
 
 !StoreSourceCodeManagementSettingsAppl methodsFor:'queries'!
@@ -1293,11 +1246,11 @@
 !StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-11 14:40:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.13 2012-01-14 20:04:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-11 14:40:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.13 2012-01-14 20:04:43 cg Exp $'
 !
 
 version_SVN
hg/stx-libtool