--- a/AbstractLauncherApplication.st Thu Sep 21 16:52:16 2006 +0200
+++ b/AbstractLauncherApplication.st Thu Sep 21 16:53:11 2006 +0200
@@ -5477,7 +5477,7 @@
cvsConfigurationDialog
|cvsRootHolder resources defaultsList bindings dialog
listOfModules selectedPerModuleRoot rootsPerModule acceptChannel
- removeEnabled cvsBinDirectoryHolder|
+ removeEnabled cvsExecutableHolder|
resources := self owningClass classResources.
@@ -5513,7 +5513,7 @@
cvsRootHolder := cvsRootHolder asValue.
rootsPerModule := Dictionary new.
rootsPerModule addAll:(CVSSourceCodeManager repositoryInfoPerModule).
- cvsBinDirectoryHolder := CVSSourceCodeManager cvsBinDirectory asValue.
+ cvsExecutableHolder := CVSSourceCodeManager cvsExecutable asValue.
bindings := IdentityDictionary new.
bindings at:#acceptChannel put:(acceptChannel := TriggerValue new).
@@ -5524,7 +5524,7 @@
bindings at:#perModuleRoot put:nil asValue.
bindings at:#removeEnabled put:(removeEnabled := false asValue).
bindings at:#listOfModules put:(listOfModules := rootsPerModule keys asList).
- bindings at:#cvsBinDirectoryHolder put:cvsBinDirectoryHolder.
+ bindings at:#cvsExecutableHolder put:cvsExecutableHolder.
listOfModules sort.
bindings at:#selectedPerModuleRoot put:(selectedPerModuleRoot := nil asValue).
@@ -5582,13 +5582,15 @@
"/
"/ update system settings
"/
- CVSSourceCodeManager cvsBinDirectory:cvsBinDirectoryHolder value.
+ CVSSourceCodeManager cvsExecutable:cvsExecutableHolder value.
CVSSourceCodeManager initializeForRepository:cvsRootHolder value.
CVSSourceCodeManager repositoryInfoPerModule:rootsPerModule.
-"
- self cvsConfigurationDialog
-"
+ "
+ self cvsConfigurationDialog
+ "
+
+ "Modified: / 21-09-2006 / 16:54:20 / cg"
!
fontBoxForEncoding:encodingMatch
@@ -6555,5 +6557,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.336 2006-09-19 17:16:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.337 2006-09-21 14:53:11 cg Exp $'
! !