hg/stx-libtool: comparison GitSourceCodeManagementSettingsAppl.st

equal deleted inserted replaced

-:bee1dd77d6b6
+:b9e54e0a5cb6
 hereby transferred.
 "
 "{ Package: 'stx:libtool' }"
 AbstractSourceCodeManagementSettingsAppl subclass:#GitSourceCodeManagementSettingsAppl
-	instanceVariableNames:'repositoryHolder manager repository repositoryPrototypeList
+	instanceVariableNames:'repositoryHolder workDirectoryHolder manager repository
-		addPerModuleRepository removePerModuleRepository
+		repositoryPrototypeList addPerModuleRepository
-		perModuleRepository defaultRepositoryHolder
+		removePerModuleRepository perModuleRepository
-		selectedPerModuleRepository repositoriesPerModule
+		defaultRepositoryHolder selectedPerModuleRepository
-		perModuleRepositoryModule gitBinDirectoryHolder
+		repositoriesPerModule perModuleRepositoryModule
-		gitExecutableHolder gitCommandTimeoutHolder pushURL
+		gitBinDirectoryHolder gitExecutableHolder gitCommandTimeoutHolder
-		pushURLPrototypeList selectedPushURL listOfPushURLs'
+		pushURL pushURLPrototypeList selectedPushURL listOfPushURLs'
 	classVariableNames:'RecentlyUsedRepositoryURLS'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
 !
 'The command to use for cvs operations\(the path to "cvs"/"cvs.exe"-command. Not needed, if already in the shell''s PATH value)'
 #cvsCommandTimeout
 'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value.'
-#cvsLogin
-'Perform a "cvs login" operation for the default CVSROOT'
-#cvsRootDefault
-'The default CVSROOT.\This will be used for all modules which are not listed below.'
 #cvsRootPerModule
 'Specifies per-module CVSROOTs.\This allows for individual projects to be stored in different cvs repositories.'
 #cvsRootPerModuleModule
 'The module for which a specific CVSROOT is defined'
 'The module for which a specific git repository is defined'
 #gitRootPerModuleRoot
 'The git repository for which this specific module is defined'
-#loginPerModuleRoot
-'Execute a "cvs login" operation for this CVSROOT'
 #moveManagerDown
 'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)'
 #moveManagerUp
 'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used.)'
 #verboseSourceCodeAccess
 'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)'
 )
-"Modified: / 02-03-2012 / 16:52:43 / cg"
+"Modified: / 03-03-2012 / 10:36:12 / cg"
 ! !
 !GitSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
 defaultIcon
 window:
 (WindowSpec
 label: 'Git Settings'
 name: 'Git Settings'
 min: (Point 10 10)
-bounds: (Rectangle 0 0 811 693)
+bounds: (Rectangle 0 0 811 719)
 )
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
 activeHelpKey: shownInBrowserMenus
 model: shownInBrowserMenusHolder
 translateLabel: true
 )
 (ViewSpec
-name: 'Box1'
+name: 'CommandBox'
 layout: (LayoutFrame 0 0 35 0 0 1 60 0)
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 )
 )
 )
 (ViewSpec
-name: 'Box12'
+name: 'TimeoutBox'
 layout: (LayoutFrame 0 0 61 0 0 1 86 0)
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 )
 )
 )
 (ViewSpec
-name: 'Box7'
+name: 'WorkingDirBox'
-layout: (LayoutFrame 0 0.0 92 0 0 1 117 0)
+layout: (LayoutFrame 0 0 87 0 0 1 112 0)
+component:
+(SpecCollection
+collection: (
+(LabelSpec
+label: 'Working Directory:'
+name: 'Label9'
+layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
+activeHelpKey: workDirectory
+level: 0
+translateLabel: true
+adjust: right
+)
+(InputFieldSpec
+name: 'EntryField2'
+layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
+activeHelpKey: workDirectory
+tabable: true
+model: workDirectoryHolder
+type: string
+acceptChannel: acceptChannel
+acceptOnPointerLeave: true
+)
+)
+)
+)
+(ViewSpec
+name: 'DefaultRepositoryBox7'
+layout: (LayoutFrame 0 0.0 118 0 0 1 143 0)
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Default Repository:'
 )
 )
 (ActionButtonSpec
 label: 'Init'
 name: 'Button2'
-layout: (LayoutFrame -201 1 122 0 -101 1 144 0)
+layout: (LayoutFrame -201 1 148 0 -101 1 170 0)
 activeHelpKey: gitInit
 translateLabel: true
 tabable: true
 model: initializeRepository
 enableChannel: cvsLoginEnabled
 )
 (ActionButtonSpec
 label: 'Check Access'
 name: 'Button1'
-layout: (LayoutFrame -100 1 122 0 0 1 144 0)
+layout: (LayoutFrame -100 1 148 0 0 1 170 0)
 activeHelpKey: gitCheckAccess
 translateLabel: true
 tabable: true
 model: checkAccess
 enableChannel: cvsLoginEnabled
 )
 (LabelSpec
 label: 'Repository per Module:'
 name: 'knownModulesLabel'
-layout: (LayoutFrame 0 0.0 150 0 60 0.25 172 0)
+layout: (LayoutFrame 0 0.0 184 0 60 0.25 206 0)
 activeHelpKey: gitRootPerModule
 translateLabel: true
 adjust: right
 )
 (SequenceViewSpec
 name: 'List1'
-layout: (LayoutFrame 64 0.25 150 0 0 1 269 0)
+layout: (LayoutFrame 64 0.25 184 0 0 1 303 0)
 activeHelpKey: gitRootPerModule
 tabable: true
 model: selectedPerModuleRepository
 hasHorizontalScrollBar: true
 hasVerticalScrollBar: true
 sequenceList: listOfModules
 )
 (LabelSpec
 label: 'Module:'
 name: 'moduleLabel'
-layout: (LayoutFrame 0 0.0 279 0 60 0.25 296 0)
+layout: (LayoutFrame 0 0.0 313 0 60 0.25 330 0)
 activeHelpKey: gitRootPerModuleModule
 translateLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'perModuleRepositoryModuleEntryField'
-layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
+layout: (LayoutFrame 64 0.25 309 0 0 1 331 0)
 activeHelpKey: gitRootPerModuleModule
 tabable: true
 model: perModuleRepositoryModule
 acceptChannel: acceptChannel
 acceptOnPointerLeave: true
 )
 (LabelSpec
 label: 'Git Repository:'
 name: 'gitRepository'
-layout: (LayoutFrame 0 0.0 304 0 60 0.25 321 0)
+layout: (LayoutFrame 0 0.0 338 0 60 0.25 355 0)
 activeHelpKey: gitRootPerModuleRoot
 translateLabel: true
 adjust: right
 )
 (ComboBoxSpec
 name: 'perModuleRepositoryComboBox'
-layout: (LayoutFrame 64 0.25 300 0 0 1.0 322 0)
+layout: (LayoutFrame 64 0.25 334 0 0 1.0 356 0)
 activeHelpKey: gitRootPerModuleRoot
 tabable: true
 model: perModuleRepository
 immediateAccept: true
 acceptOnLeave: true
 acceptChannel: acceptChannel
 acceptOnPointerLeave: true
 comboList: gitRepositoryPrototypeList
 )
 (HorizontalPanelViewSpec
-name: 'HorizontalPanel2'
+name: 'PerModuleButtonHorizontalPanel'
-layout: (LayoutFrame 64 0.25 327 0 -1 1 352 0)
+layout: (LayoutFrame 64 0.25 361 0 -1 1 386 0)
 horizontalLayout: right
 verticalLayout: center
 horizontalSpace: 3
 verticalSpace: 3
 component:
 )
 )
 )
 )
-extent: (Point 811 389)
+extent: (Point 811 418)
 )
 (FramedBoxSpec
 label: 'Push URLs'
 name: 'FramedBox2'
 labelPosition: topLeft
 )
 )
 )
 )
-extent: (Point 811 187)
+extent: (Point 811 181)
 )
 (FramedBoxSpec
 label: 'Source Cache'
 name: 'FramedBox1'
 visibilityChannel: false
 )
 )
 )
 )
-"Modified: / 02-03-2012 / 16:53:53 / cg"
 ! !
 !GitSourceCodeManagementSettingsAppl class methodsFor:'queries'!
 managerClass
 self sourceCacheDir value:(GitSourceCodeManager cacheDirectoryName).
 repository := GitSourceCodeManager repositoryName.
 self repositoryHolder value:(repository ? '') asValue.
+self workDirectoryHolder value:GitSourceCodeManager workDirectory.
 infoPerModule := GitSourceCodeManager repositoryInfoPerModule.
 infoPerModule keysAndValuesDo:[:module :info |
 repositoriesPerModule at:module put:(Array with:GitSourceCodeManager with:info).
 ].
 self listOfModules removeAll.
 listOfModules addAll:repositoriesPerModule keys asList.
 ].
 "/    self selectedPerModuleRootChanged.
-"Modified: / 02-03-2012 / 15:23:00 / cg"
+"Modified: / 03-03-2012 / 11:08:11 / cg"
 !
 basicSaveSettings
 |modules nm fn infoPerModule|
 entry first == GitSourceCodeManager ifTrue:[
 infoPerModule at:module put:(entry second).
 ].
 ].
 GitSourceCodeManager repositoryInfoPerModule:infoPerModule.
+GitSourceCodeManager workDirectory:self workDirectoryHolder value.
 self basicSaveGitSettings.
 self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
 DebugView newDebugger. "/ ???
 self acceptChannel value.
-"Modified: / 02-03-2012 / 15:19:14 / cg"
+"Modified: / 03-03-2012 / 11:25:12 / cg"
 !
 removePerModuleRoot
 |module|
 selectedPushURL addDependent:self.
 ].
 ^ selectedPushURL.
 "Created: / 02-03-2012 / 16:20:21 / cg"
+!
+workDirectoryHolder
+workDirectoryHolder isNil ifTrue:[
+workDirectoryHolder := ValueHolder new.
+workDirectoryHolder addDependent:self.
+].
+^ workDirectoryHolder.
+"Created: / 03-03-2012 / 10:34:19 / cg"
 ! !
 !GitSourceCodeManagementSettingsAppl methodsFor:'change & update'!
 selectedPerModuleRepositoryChanged
 ! !
 !GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.3 2012-03-02 16:10:48 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.4 2012-03-03 10:28:57 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.3 2012-03-02 16:10:48 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.4 2012-03-03 10:28:57 cg Exp $'
 ! !

changeset 11356	b9e54e0a5cb6
parent 11351	6d878bc17b09
child 11403	9152fe5dd543