PerforceSourceCodeManagementSettingsAppl.st
branchjv
changeset 12205 f210b6224ef0
parent 12128 a7ff7d66ee85
child 12254 b1237f76f501
--- a/PerforceSourceCodeManagementSettingsAppl.st	Wed Mar 21 14:05:42 2012 +0000
+++ b/PerforceSourceCodeManagementSettingsAppl.st	Wed Mar 21 17:50:14 2012 +0000
@@ -12,9 +12,9 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSourceCodeManagementSettingsAppl subclass:#PerforceSourceCodeManagementSettingsAppl
-	instanceVariableNames:'listOfModules removeEnabled selectedPerModuleRoot
-		perforceExecutableHolder listOfPerforceModules
-		defaultSettingsHolder tableColumns defaultSettingsPrototypeList'
+	instanceVariableNames:'selectedPerModuleRoot perforceExecutableHolder
+		listOfPerforceModules defaultSettingsHolder tableColumns
+		defaultSettingsPrototypeList'
 	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
 		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
 		LastStorePassword'
@@ -621,19 +621,6 @@
     "Modified: / 10-01-2012 / 00:21:59 / cg"
 !
 
-condenseSourceCache
-    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
-    Method flushSourceStreamCache.
-
-    "Modified: / 28-11-2006 / 12:21:33 / cg"
-!
-
-flushSourceCache
-    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
-
-    "Modified: / 30-09-2011 / 13:33:51 / cg"
-!
-
 removePerModuleRoot
 
     |module|
@@ -663,13 +650,10 @@
     ^ defaultSettingsPrototypeList.
 !
 
-listOfModules
+initialListOfModules
+    ^ List new.
 
-    listOfModules isNil ifTrue:[
-        listOfModules := List new.
-        listOfModules addDependent:self.
-    ].
-    ^ listOfModules.
+    "Created: / 02-03-2012 / 14:41:40 / cg"
 !
 
 perforceExecutableHolder
@@ -696,14 +680,6 @@
     ^ Array with:first.
 !
 
-removeEnabled
-
-    removeEnabled isNil ifTrue:[
-        removeEnabled := false asValue.
-    ].
-    ^ removeEnabled.
-!
-
 selectedPerModuleRoot
     selectedPerModuleRoot isNil ifTrue:[
         selectedPerModuleRoot := ValueHolder new.
@@ -729,14 +705,6 @@
 "/       tableColumns onChangeSend:#tableColumnsChanged to:self.
     ].
     ^ tableColumns.
-!
-
-verboseSourceCodeAccess
-    verboseSourceCodeAccess isNil ifTrue:[
-        verboseSourceCodeAccess := false asValue.
-        verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ verboseSourceCodeAccess.
 ! !
 
 !PerforceSourceCodeManagementSettingsAppl methodsFor:'change & update'!
@@ -786,18 +754,13 @@
         ^ self
     ].
 
-    changedObject == self listOfModules ifTrue:[
-        self updateModifiedChannel.
-    ].
-
     changedObject == defaultSettingsHolder ifTrue:[
         self updateModifiedChannel.
     ].
 
-
     super update:something with:aParameter from:changedObject
 
-    "Modified: / 09-11-2006 / 14:41:10 / cg"
+    "Modified (format): / 02-03-2012 / 14:42:15 / cg"
 ! !
 
 !PerforceSourceCodeManagementSettingsAppl methodsFor:'help'!
@@ -1254,13 +1217,13 @@
 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.19 2012/01/14 20:07:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.21 2012/03/02 13:51:07 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.19 2012/01/14 20:07:34 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.21 2012/03/02 13:51:07 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: PerforceSourceCodeManagementSettingsAppl.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: PerforceSourceCodeManagementSettingsAppl.st 7952 2012-03-21 17:50:14Z vranyj1 $'
 ! !