--- a/CVSSourceCodeManagementSettingsAppl.st	Wed Sep 12 12:46:36 2018 +0200
+++ b/CVSSourceCodeManagementSettingsAppl.st	Wed Sep 12 13:02:45 2018 +0200
@@ -21,7 +21,7 @@
 		perModuleRoot cvsRootHolder selectedPerModuleRoot
 		cvsBinDirectoryHolder cvsExecutableHolder cvsCommandTimeoutHolder
 		rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled
-		cvsInitInModuleEnabled'
+		cvsInitInModuleEnabled cvsLoginInfoTextHolder'
 	classVariableNames:'RecentlyUsedCVSRoots'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -102,6 +102,9 @@
 #cvsCommand
 'The command to use for cvs operations\(the path to "cvs"/"cvs.exe"-command. Not needed, if already in the shell''s PATH value)'
 
+#loginInfo
+'Enter this command in a console to login to the cvs server.\This needs to be done only once.'
+
 #cvsCommandTimeout
 'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value'
 
@@ -166,6 +169,8 @@
 'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)'
 
 )
+
+    "Modified: / 12-09-2018 / 13:02:04 / Claus Gittinger"
 ! !
 
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
@@ -252,7 +257,7 @@
     ^ 
     #(FullSpec
        name: windowSpec
-       uuid: '89acb886-3a6b-11e8-98e2-b8f6b1108e05'
+       uuid: '512fa1e4-b67b-11e8-b6ec-b8f6b1108e05'
        window: 
       (WindowSpec
          label: 'CVS Settings'
@@ -401,17 +406,40 @@
                                 
                                )
                              )
+                            (LabelSpec
+                               label: 'CVS-login with:'
+                               name: 'Label4'
+                               layout: (LayoutFrame -4 0.0 142 0 150 0 164 0)
+                               activeHelpKey: loginInfo
+                               uuid: 'c0af580e-b679-11e8-b6ec-b8f6b1108e05'
+                               visibilityChannel: cvsLoginInfoVisibleHolder
+                               foregroundColor: (Color 50.0 50.0 50.0)
+                               translateLabel: true
+                               adjust: left
+                             )
+                            (LabelSpec
+                               label: 'cvsLoginInfoLabel'
+                               name: 'Label3'
+                               layout: (LayoutFrame 150 0.0 142 0 0 1.0 164 0)
+                               activeHelpKey: loginInfo
+                               uuid: 'c0af580e-b679-11e8-b6ec-b8f6b1108e05'
+                               visibilityChannel: cvsLoginInfoVisibleHolder
+                               foregroundColor: (Color 50.0 50.0 50.0)
+                               translateLabel: true
+                               labelChannel: cvsLoginInfoTextHolder
+                               adjust: left
+                             )
                             (ActionButtonSpec
                                label: 'CVS-Login'
                                name: 'Button1'
                                layout: (LayoutFrame -117 1 137 0 0 1 167 0)
                                activeHelpKey: cvsLogin
                                uuid: '55075b40-3a6b-11e8-98e2-b8f6b1108e05'
+                               visibilityChannel: cvsLoginVisible
                                translateLabel: true
                                tabable: true
                                model: loginCVSRoot
                                enableChannel: cvsLoginEnabled
-                               isVisible: cvsLoginVisible
                              )
                             (LabelSpec
                                label: 'CVSRoot per Module:'
@@ -636,7 +664,7 @@
                                translateLabel: true
                                tabable: true
                                model: flushSourceCache
-                               extent: (Point 196 30)
+                               extent: (Point 142 30)
                              )
                             (ActionButtonSpec
                                label: 'Condense Cache now'
@@ -645,7 +673,7 @@
                                translateLabel: true
                                tabable: true
                                model: condenseSourceCache
-                               extent: (Point 196 30)
+                               extent: (Point 142 30)
                              )
                             )
                           
@@ -664,8 +692,6 @@
         
        )
      )
-
-    "Modified: / 12-09-2018 / 12:45:40 / Claus Gittinger"
 ! !
 
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -961,10 +987,29 @@
     ^ cvsLoginInModuleEnabled.
 !
 
+cvsLoginInfoTextHolder
+    <resource: #uiAspect>
+
+    cvsLoginInfoTextHolder isNil ifTrue:[
+        cvsLoginInfoTextHolder := 'cvs -d :pserver:user@host/cvs/stx login' asValue
+    ].
+    ^ cvsLoginInfoTextHolder
+
+    "Created: / 12-09-2018 / 12:54:13 / Claus Gittinger"
+!
+
+cvsLoginInfoVisibleHolder
+    <resource: #uiAspect>
+
+    ^ self cvsLoginVisible not
+
+    "Created: / 12-09-2018 / 12:52:37 / Claus Gittinger"
+!
+
 cvsLoginVisible
     "hide this button on windows, where the terminal window does not work
      correctly without echo"
-     
+
     ^ OperatingSystem isMSWINDOWSlike not
 
     "Created: / 12-09-2018 / 12:46:24 / Claus Gittinger"
@@ -1078,6 +1123,9 @@
     changedObject == cvsRootHolder ifTrue:[
         self updateModifiedChannel.
         self updateLoginEnableHolders.
+        self cvsLoginInfoTextHolder value:
+            ('cvs -d %1 login'
+                bindWith:(changedObject value)).
         ^ self
     ].
     changedObject == perModuleRoot ifTrue:[
@@ -1093,6 +1141,7 @@
     super update:something with:aParameter from:changedObject
 
     "Modified: / 18-04-2011 / 18:18:04 / cg"
+    "Modified: / 12-09-2018 / 12:58:45 / Claus Gittinger"
 !
 
 updateInitEnableHolders