hg/stx-libtool: comparison PerforceSourceCodeManagementSettingsAppl.st

equal deleted inserted replaced

-:5225713f415e
+:2fb5f110fe82
 "{ Package: 'stx:libtool' }"
-AbstractSettingsApplication subclass:#P4SourceCodeManagementSettingsAppl
+AbstractSourceCodeManagementSettingsAppl subclass:#P4SourceCodeManagementSettingsAppl
-	instanceVariableNames:'sourceCacheDir listOfModules removeEnabled acceptChannel
+instanceVariableNames:'sourceCacheDir listOfModules removeEnabled acceptChannel
-		selectedPerModuleRoot verboseSourceCodeAccess
+selectedPerModuleRoot verboseSourceCodeAccess
-		perforceExecutableHolder listOfPerforceModules
+perforceExecutableHolder listOfPerforceModules
-		defaultSettingsHolder tableColumns defaultSettingsPrototypeList'
+defaultSettingsHolder tableColumns defaultSettingsPrototypeList'
-	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
+classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
-		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
+RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
-		LastStorePassword'
+LastStorePassword'
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Interface-Smalltalk'
+category:'Interface-Smalltalk'
 !
 ApplicationModel subclass:#ManagerPerModuleApp
-	instanceVariableNames:'moduleHolder acceptChannel settingsHolder
+instanceVariableNames:'moduleHolder acceptChannel settingsHolder
-		sourceCodeManagementSettingsApp acceptEnableChannel canceled
+sourceCodeManagementSettingsApp acceptEnableChannel canceled
-		defaultSettingsPrototypeList'
+defaultSettingsPrototypeList'
-	classVariableNames:''
+classVariableNames:''
-	poolDictionaries:''
+poolDictionaries:''
-	privateIn:P4SourceCodeManagementSettingsAppl
+privateIn:P4SourceCodeManagementSettingsAppl
 !
 Object subclass:#ModuleManager
-	instanceVariableNames:'manager module settings app'
+instanceVariableNames:'manager module settings app'
-	classVariableNames:''
+classVariableNames:''
-	poolDictionaries:''
+poolDictionaries:''
-	privateIn:P4SourceCodeManagementSettingsAppl
+privateIn:P4SourceCodeManagementSettingsAppl
 !
 !P4SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
 "
 <resource: #image>
 ^Icon
-	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
+constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
-	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
 @@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
 A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
 F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
 @@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
 )
 )
 ! !
+!P4SourceCodeManagementSettingsAppl class methodsFor:'queries'!
+managerClass
+"backlink to my manager class (needed by the settings app)"
+^ PerforceSourceCodeManager
+"Created: / 19-04-2011 / 12:52:02 / cg"
+! !
 !P4SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
 tableColumns
 "This resource specification was automatically generated
 by the DataSetBuilder of ST/X."
 <resource: #tableColumns>
 ^#(
 (DataSetColumnSpec
-	 label: 'Module'
+label: 'Module'
-	 labelButtonType: Button
+labelButtonType: Button
-	 usePreferredWidth: true
+usePreferredWidth: true
-	 model: module
+model: module
 )
 (DataSetColumnSpec
-	 label: 'Settings'
+label: 'Settings'
-	 labelButtonType: Button
+labelButtonType: Button
-	 editorType: InputField
+editorType: InputField
-	 model: settings
+model: settings
-	 isResizeable: false
+isResizeable: false
 )
 )
 ! !
 |detectedManager|
 detectedManager := self listOfModules detect:[:eachModuleManager| eachModuleManager module = aModuleManager module] ifNone:nil.
 detectedManager isNil ifTrue:[
-	self listOfModules add:aModuleManager; sort.
+self listOfModules add:aModuleManager; sort.
-	self updateModifiedChannel.
+self updateModifiedChannel.
 ] ifFalse:[
-	Dialog information:'Manager for Module ', aModuleManager module, ' already exists'.
+Dialog information:'Manager for Module ', aModuleManager module, ' already exists'.
 ].
 "Created: / 08-11-2006 / 19:25:21 / cg"
 !
 addModule:module withData:data
 (self listOfModules includes:module) ifFalse:[
-	self listOfModules add:module; sort.
+self listOfModules add:module; sort.
 ].
 self updateModifiedChannel.
 "Created: / 08-11-2006 / 19:25:21 / cg"
 !P4SourceCodeManagementSettingsAppl methodsFor:'aspects'!
 acceptChannel
 acceptChannel isNil ifTrue:[
-	acceptChannel := TriggerValue new.
+acceptChannel := TriggerValue new.
 ].
 ^ acceptChannel.
 !
 defaultSettingsHolder
 defaultSettingsHolder isNil ifTrue:[
-	defaultSettingsHolder := ValueHolder new.
+defaultSettingsHolder := ValueHolder new.
-	defaultSettingsHolder addDependent:self.
+defaultSettingsHolder addDependent:self.
 ].
 ^ defaultSettingsHolder.
 !
 defaultSettingsPrototypeList
 defaultSettingsPrototypeList isNil ifTrue:[
-	defaultSettingsPrototypeList := self perforcePrototypeList.
+defaultSettingsPrototypeList := self perforcePrototypeList.
 ].
 ^ defaultSettingsPrototypeList.
 !
 listOfModules
 listOfModules isNil ifTrue:[
-	listOfModules := List new.
+listOfModules := List new.
-	listOfModules addDependent:self.
+listOfModules addDependent:self.
 ].
 ^ listOfModules.
 !
 perforceExecutableHolder
 perforceExecutableHolder isNil ifTrue:[
-	perforceExecutableHolder := ValueHolder new.
+perforceExecutableHolder := ValueHolder new.
-	perforceExecutableHolder onChangeSend:#updateModifiedChannel to:self
+perforceExecutableHolder onChangeSend:#updateModifiedChannel to:self
 ].
 ^ perforceExecutableHolder.
 "Created: / 21-09-2006 / 15:37:06 / cg"
 !
 |first client|
 client := PerforceSourceCodeManager perforceClient.
 client isEmptyOrNil ifTrue:[
-	client := 'workspace'.
+client := 'workspace'.
 ].
 first := (client ,':', PerforceSourceCodeManager perforceUser, ':',
-			   (PerforceSourceCodeManager perforcePassword ? 'pass'), '@',
+(PerforceSourceCodeManager perforcePassword ? 'pass'), '@',
-			   PerforceSourceCodeManager perforcePort).
+PerforceSourceCodeManager perforcePort).
 ^ Array with:first.
 !
 removeEnabled
 removeEnabled isNil ifTrue:[
-	removeEnabled := false asValue.
+removeEnabled := false asValue.
 ].
 ^ removeEnabled.
 !
 selectedPerModuleRoot
 selectedPerModuleRoot isNil ifTrue:[
-	selectedPerModuleRoot := ValueHolder new.
+selectedPerModuleRoot := ValueHolder new.
-	selectedPerModuleRoot addDependent:self.
+selectedPerModuleRoot addDependent:self.
 ].
 ^ selectedPerModuleRoot.
 !
 sourceCacheDir
 sourceCacheDir isNil ifTrue:[
-	sourceCacheDir := ValueHolder new.
+sourceCacheDir := ValueHolder new.
-	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
+sourceCacheDir onChangeSend:#updateModifiedChannel to:self
 ].
 ^ sourceCacheDir.
 !
 tableColumns
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 tableColumns isNil ifTrue:[
-	tableColumns := self class tableColumns asValue.
+tableColumns := self class tableColumns asValue.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       tableColumns addDependent:self.
 "/       tableColumns onChangeSend:#tableColumnsChanged to:self.
 ].
 ^ tableColumns.
 !
 verboseSourceCodeAccess
 verboseSourceCodeAccess isNil ifTrue:[
-	verboseSourceCodeAccess := false asValue.
+verboseSourceCodeAccess := false asValue.
-	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
+verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
 ].
 ^ verboseSourceCodeAccess.
 ! !
 !P4SourceCodeManagementSettingsAppl methodsFor:'change & update'!
 nm := self sourceCacheDir value.
 nm isEmptyOrNil ifTrue:[^ self].
 (fn := nm asFilename) exists ifFalse:[
-	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
+(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
-	    fn makeDirectory;
+fn makeDirectory;
-	       makeReadableForAll;
+makeReadableForAll;
-	       makeWritableForAll;
+makeWritableForAll;
-	       makeExecutableForAll.
+makeExecutableForAll.
-	] ifFalse:[
+] ifFalse:[
-	    self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
+self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
-	    ^ self.
+^ self.
-	].
+].
 ].
 (fn isDirectory
 and:[fn isReadable
 and:[fn isWritable]]) ifTrue:[
-	AbstractSourceCodeManager cacheDirectoryName:nm.
+AbstractSourceCodeManager cacheDirectoryName:nm.
 ] ifFalse:[
-	self warn:'Invalid sourceCache directory.'.
+self warn:'Invalid sourceCache directory.'.
-	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
+self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
 ].
 !
 update:something with:aParameter from:changedObject
 "/ common
 |repositoryInfoPerModule|
 repositoryInfoPerModule := Dictionary new.
 self listOfModules do:[:aModuleManager|
-	repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
+repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
 ].
 ^ repositoryInfoPerModule
 ! !
 !P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'!
 !
 defaultSettingsPrototypeList
 defaultSettingsPrototypeList isNil ifTrue:[
-	defaultSettingsPrototypeList := sourceCodeManagementSettingsApp perforcePrototypeList.
+defaultSettingsPrototypeList := sourceCodeManagementSettingsApp perforcePrototypeList.
 ].
 ^ defaultSettingsPrototypeList.
 !
 sourceCodeManagementSettingsApp
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 acceptChannel isNil ifTrue:[
-	acceptChannel := TriggerValue new.
+acceptChannel := TriggerValue new.
 ].
 ^ acceptChannel.
 !
 acceptEnableChannel
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 acceptEnableChannel isNil ifTrue:[
-	acceptEnableChannel := true asValue.
+acceptEnableChannel := true asValue.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       acceptEnableChannel addDependent:self.
 "/       acceptEnableChannel onChangeSend:#acceptEnableChannelChanged to:self.
 ].
 ^ acceptEnableChannel.
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 moduleHolder isNil ifTrue:[
-	moduleHolder := ValueHolder new.
+moduleHolder := ValueHolder new.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
-	moduleHolder addDependent:self.
+moduleHolder addDependent:self.
 "/       moduleHolder onChangeSend:#moduleHolderChanged to:self.
 ].
 ^ moduleHolder.
 !
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 settingsHolder isNil ifTrue:[
-	settingsHolder := ValueHolder new.
+settingsHolder := ValueHolder new.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       settingsHolder addDependent:self.
 "/       settingsHolder onChangeSend:#settingsHolderChanged to:self.
 ].
 ^ settingsHolder.
 ! !
 !P4SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.3 2011-04-19 10:42:04 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.4 2011-04-19 11:21:57 cg Exp $'
 ! !

changeset 9861	2fb5f110fe82
parent 9848	74fc0d845a9b
child 9864	d9b21106b707