--- a/Launcher.st	Wed Aug 12 14:46:38 1998 +0200
+++ b/Launcher.st	Wed Aug 12 17:11:11 1998 +0200
@@ -5351,10 +5351,20 @@
 !Launcher::LauncherDialogs class methodsFor:'dialogs-private'!
 
 cvsConfigurationDialogFor:requestor
-    |box cvsRootHolder component resources|
+    |box y cvsRootHolder component resources defaultsList|
 
     resources := requestor class classResources.
 
+    OperatingSystem isUNIXlike ifTrue:[
+        defaultsList := #('/files/CVS' '/CVS' 'host:/files/CVS' 'host:/CVS').
+    ] ifFalse:[
+        OperatingSystem isMSDOSlike ifTrue:[
+            defaultsList := #(':local:c:\files\CVS' ':local:c:\CVS' 'host:/files/CVS' 'host:/CVS').
+        ] ifFalse:[
+            defaultsList := #('host:/files/CVS' 'host:/CVS').
+        ]
+    ].
+
     cvsRootHolder := CVSSourceCodeManager repositoryName ? '/files/CVS'.
     cvsRootHolder := cvsRootHolder asValue.
 
@@ -5367,15 +5377,25 @@
     component := (box addTextLabel:'CVS SourceCodeManager setup').
     component adjust:#left.
 
-    component := box 
-                    addLabelledInputField:(resources string:'CVSRoot:')
-                    adjust:#right
-                    on:nil "/ newSpaceSize 
-                    tabable:true
-                    separateAtX:0.5.
-    component acceptOnLeave:false.
+    y := box yPosition.
+    component := box addTextLabel:(resources string:'CVSRoot:').
+    component width:0.25; adjust:#right; borderWidth:0.
+    box yPosition:y.
+    component := box addComboBoxOn:nil tabable:true.
+"/    commandListPop := box addInputFieldOn:printCommand tabable:true.
+    component width:0.75; left:0.25; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
+    component list:defaultsList.
     component model:cvsRootHolder.
 
+"/    component := box 
+"/                    addLabelledInputField:(resources string:'CVSRoot:')
+"/                    adjust:#right
+"/                    on:nil 
+"/                    tabable:true
+"/                    separateAtX:0.5.
+"/    component acceptOnLeave:false.
+"/    component model:cvsRootHolder.
+
     box 
         addHelpButtonFor:'Launcher/sourceSettings.html';
         addAbortButton; 
@@ -5396,7 +5416,7 @@
     box destroy
 
     "Modified: / 16.4.1998 / 17:18:16 / ca"
-    "Modified: / 3.8.1998 / 17:40:49 / cg"
+    "Modified: / 12.8.1998 / 17:09:02 / cg"
 !
 
 fontBoxForEncoding:encodingMatch for:requestor
@@ -5621,5 +5641,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.367 1998-08-10 09:34:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.368 1998-08-12 15:11:11 cg Exp $'
 ! !