Mercurial Mercurial > hg > stx-libtool / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
GitSourceCodeManagementSettingsAppl.st
changeset 11653 e1fec4f8525b
parent 11622 a81844723ffc
child 11735 d8ec1eedd75f
equal deleted inserted replaced
11652:7935d2f03e29 11653:e1fec4f8525b 
    51 
    51 
    52 !GitSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
 
    52 !GitSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
 
    53 
    53 
    54 defaultRepositoryName
 
    54 defaultRepositoryName
 
    55 
    55 
    56     ^ ''
 
    56     ^ './gitRepository'
 
    57 
    57 
    58     "Created: / 19-04-2011 / 11:00:11 / cg"
 
    58     "Created: / 19-04-2011 / 11:00:11 / cg"
 
    59 ! !
 
    59 ! !
 
    60 
    60 
    61 !GitSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
 
    61 !GitSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
 
   837         ] ifFalse:[
 
   837         ] ifFalse:[
 
   838             self warn:'Invalid sourceCache directory.'
 
   838             self warn:'Invalid sourceCache directory.'
 
   839         ]
 
   839         ]
 
   840     ].
 
   840     ].
 
   841 
   841 
   842     GitSourceCodeManager hgCommandTimeout:(self hgCommandTimeoutHolder value).
 
   842     GitSourceCodeManager gitCommandTimeout:(self gitCommandTimeoutHolder value).
 
   843 
   843 
   844     modules := repositoriesPerModule select:[:entry | entry first == GitSourceCodeManager].
 
   844     modules := repositoriesPerModule select:[:entry | entry first == GitSourceCodeManager].
 
   845     infoPerModule := Dictionary new.
 
   845     infoPerModule := Dictionary new.
 
   846     modules keysAndValuesDo:[:module :entry | 
   846     modules keysAndValuesDo:[:module :entry | 
   847         entry first == GitSourceCodeManager ifTrue:[
 
   847         entry first == GitSourceCodeManager ifTrue:[
 
   857 
   857 
   858     DebugView newDebugger. "/ ???
 
   858     DebugView newDebugger. "/ ???
 
   859 
   859 
   860     self acceptChannel value.
 
   860     self acceptChannel value.
 
   861 
   861 
   862     "Modified: / 03-03-2012 / 11:25:12 / cg"
 
   862     "Modified: / 23-07-2012 / 13:18:38 / cg"
 
   863 !
 
   863 !
 
   864 
   864 
   865 removePerModuleRoot
 
   865 removePerModuleRoot
 
   866     |module|
 
   866     |module|
 
   867 
   867 
   874     self updateModifiedChannel.
 
   874     self updateModifiedChannel.
 
   875 
   875 
   876     "Modified: / 26-01-2012 / 13:50:08 / cg"
 
   876     "Modified: / 26-01-2012 / 13:50:08 / cg"
 
   877 ! !
 
   877 ! !
 
   878 
   878 
   879 !GitSourceCodeManagementSettingsAppl methodsFor:'actions - mercurial'!
 
   879 !GitSourceCodeManagementSettingsAppl methodsFor:'actions - git'!
 
   880 
   880 
   881 addPerModuleRoot
 
   881 addPerModuleRoot
 
   882     |module gitRepository|
 
   882     |module gitRepository|
 
   883 
   883 
   884     acceptChannel value:true.    
   884     acceptChannel value:true.    
   892 
   892 
   893     "Modified (format): / 02-03-2012 / 15:22:41 / cg"
 
   893     "Modified (format): / 02-03-2012 / 15:22:41 / cg"
 
   894 !
 
   894 !
 
   895 
   895 
   896 basicSaveGitSettings
 
   896 basicSaveGitSettings
 
   897     |hgRepository|
 
   897     |gitRepository|
 
   898 
   898 
   899     repositoryHolder notNil ifTrue:[
 
   899     repositoryHolder notNil ifTrue:[
 
   900         repositoryHolder value size > 0 ifTrue:[
 
   900         repositoryHolder value size > 0 ifTrue:[
 
   901             manager notNil ifTrue:[
 
   901             manager notNil ifTrue:[
 
   902                 manager initializeForRepository:repositoryHolder value.
 
   902                 manager initializeForRepository:repositoryHolder value.
 
   903             ]
 
   903             ]
 
   904         ].
 
   904         ].
 
   905     ].
 
   905     ].
 
   906     GitSourceCodeManager gitExecutable:((self gitExecutableHolder value ? '') withoutSeparators).
 
   906     GitSourceCodeManager gitExecutable:((self gitExecutableHolder value ? '') withoutSeparators).
 
   907     GitSourceCodeManager initializeForRepository:(hgRepository := self repositoryHolder value).
 
   907     self repositoryHolder value isEmptyOrNil ifTrue:[
 
       
   908         Dialog information:'You must specify a valid gitRepository directory'.
 
       
   909         ^ self.
 
       
   910     ].
 
       
   911     GitSourceCodeManager initializeForRepository:(gitRepository := self repositoryHolder value).
 
   908     GitSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value. 
   912     GitSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value. 
   909     GitSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 
   913     GitSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 
   910 
   914 
   911     RecentlyUsedRepositoryURLS isNil ifTrue:[
 
   915     RecentlyUsedRepositoryURLS isNil ifTrue:[
 
   912         RecentlyUsedRepositoryURLS := OrderedCollection new.
 
   916         RecentlyUsedRepositoryURLS := OrderedCollection new.
 
   913     ].
 
   917     ].
 
   914     (RecentlyUsedRepositoryURLS includes:hgRepository) ifFalse:[
 
   918     (RecentlyUsedRepositoryURLS includes:gitRepository) ifFalse:[
 
   915         RecentlyUsedRepositoryURLS addFirst:hgRepository.
 
   919         RecentlyUsedRepositoryURLS addFirst:gitRepository.
 
   916         RecentlyUsedRepositoryURLS size > 20 ifTrue:[
 
   920         RecentlyUsedRepositoryURLS size > 20 ifTrue:[
 
   917             RecentlyUsedRepositoryURLS removeLast.
 
   921             RecentlyUsedRepositoryURLS removeLast.
 
   918         ].
 
   922         ].
 
   919     ].
 
   923     ].
 
   920 
   924 
  1028 !
 
  1032 !
 
  1029 
  1033 
  1030 repositoryHolder
 
  1034 repositoryHolder
 
  1031 
  1035 
  1032     repositoryHolder isNil ifTrue:[
 
  1036     repositoryHolder isNil ifTrue:[
 
  1033         repositoryHolder := '' asValue.
 
  1037         repositoryHolder := self class defaultRepositoryName asValue.
 
  1034         repositoryHolder addDependent:self.
 
  1038         repositoryHolder addDependent:self.
 
  1035     ].
 
  1039     ].
 
  1036     ^ repositoryHolder.
 
  1040     ^ repositoryHolder.
 
  1037 
  1041 
  1038     "Created: / 14-01-2012 / 20:03:00 / cg"
 
  1042     "Created: / 14-01-2012 / 20:03:00 / cg"
 
  1211 ! !
 
  1215 ! !
 
  1212 
  1216 
  1213 !GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
  1217 !GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
  1214 
  1218 
  1215 version
 
  1219 version
 
  1216     ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.7 2012-07-19 15:28:16 stefan Exp $'
 
  1220     ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.8 2012-07-23 11:26:05 cg Exp $'
 
  1217 !
 
  1221 !
 
  1218 
  1222 
  1219 version_CVS
 
  1223 version_CVS
 
  1220     ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.7 2012-07-19 15:28:16 stefan Exp $'
 
  1224     ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.8 2012-07-23 11:26:05 cg Exp $'
 
  1221 ! !
 
  1225 ! !
hg/stx-libtool