DataBaseSourceCodeManagementSettingsAppl.st
changeset 11074 845f8310b0c9
parent 11070 84fad278c24f
child 11081 54205ff055dd
equal deleted inserted replaced
11073:454df119de86 11074:845f8310b0c9
   696 hasUnsavedChanges
   696 hasUnsavedChanges
   697     |modules|
   697     |modules|
   698 
   698 
   699     (DataBaseSourceCodeManager repositoryName) ~= self dbNameHolder value    
   699     (DataBaseSourceCodeManager repositoryName) ~= self dbNameHolder value    
   700         ifTrue:[^ true].
   700         ifTrue:[^ true].
       
   701     (DataBaseSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value)
       
   702         ifTrue:[^ true].
   701 
   703 
   702     modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].
   704     modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].
   703 
   705 
   704     DataBaseSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
   706     DataBaseSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
   705         ((modules includesKey:module) and:[info = (modules at:module) second])
   707         ((modules includesKey:module) and:[info = (modules at:module) second])
   710         ifFalse:[^ true].
   712         ifFalse:[^ true].
   711     ].
   713     ].
   712 
   714 
   713     ^ false
   715     ^ false
   714 
   716 
   715     "Modified: / 26-12-2011 / 01:12:33 / cg"
   717     "Modified: / 10-01-2012 / 00:31:19 / cg"
   716 ! !
   718 ! !
   717 
   719 
   718 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
   720 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
   719 
   721 
   720 version
   722 version
   721     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.5 2012-01-09 23:23:30 cg Exp $'
   723     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.6 2012-01-09 23:34:26 cg Exp $'
   722 !
   724 !
   723 
   725 
   724 version_CVS
   726 version_CVS
   725     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.5 2012-01-09 23:23:30 cg Exp $'
   727     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.6 2012-01-09 23:34:26 cg Exp $'
   726 ! !
   728 ! !