--- a/DataBaseSourceCodeManagementSettingsAppl.st Sun Dec 25 14:03:46 2011 +0100
+++ b/DataBaseSourceCodeManagementSettingsAppl.st Mon Dec 26 02:51:06 2011 +0100
@@ -393,6 +393,8 @@
basicSaveSettings
|infoPerModule modules|
+ DataBaseSourceCodeManager repositoryName:self dbNameHolder value.
+
modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].
infoPerModule := Dictionary new.
modules keysAndValuesDo:[:module :entry |
@@ -404,7 +406,7 @@
self acceptChannel value.
- "Modified: / 25-12-2011 / 13:21:50 / cg"
+ "Modified: / 26-12-2011 / 01:13:25 / cg"
!
condenseSourceCache
@@ -574,10 +576,14 @@
self selectedPerModuleDatabaseChanged.
^ self
].
+ changedObject == dbNameHolder ifTrue:[
+ self updateModifiedChannel.
+ ^ self
+ ].
super update:something with:aParameter from:changedObject
- "Modified: / 25-12-2011 / 13:15:36 / cg"
+ "Modified: / 26-12-2011 / 01:11:59 / cg"
!
validateDirectoryExistsAndIsWritable:aDirectory
@@ -678,6 +684,9 @@
hasUnsavedChanges
|modules|
+ (DataBaseSourceCodeManager repositoryName) ~= self dbNameHolder value
+ ifTrue:[^ true].
+
modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].
DataBaseSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
@@ -691,15 +700,15 @@
^ false
- "Modified: / 25-12-2011 / 13:24:08 / cg"
+ "Modified: / 26-12-2011 / 01:12:33 / cg"
! !
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.2 2011-12-25 13:03:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.3 2011-12-26 01:51:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.2 2011-12-25 13:03:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.3 2011-12-26 01:51:06 cg Exp $'
! !