AbstractLauncherApplication.st
changeset 4510 0727a48aa72e
parent 4495 051b2b75fb78
child 4552 a8df4916183a
--- a/AbstractLauncherApplication.st	Thu Jan 30 10:18:26 2003 +0100
+++ b/AbstractLauncherApplication.st	Fri Jan 31 10:27:10 2003 +0100
@@ -5619,25 +5619,33 @@
 
     resources := self owningClass classResources.
 
+    OperatingSystem getDomainName = 'exept' ifFalse:[
+        defaultsList := #(
+                            'host:/files/CVS' 
+                            'host:/CVS' 
+                            ':pserver:user@host:/files/CVS'
+                         ).
+    ] ifTrue:[
+        defaultsList := #(
+                            '/archiv/stx' 
+                            'exept:/archiv/stx' 
+                            ':pserver:' , OperatingSystem getLoginName , '@exept:/archiv/stx'
+                         ).
+    ].
+
     OperatingSystem isUNIXlike ifTrue:[
-        defaultsList := #(
+        defaultsList := defaultsList , #(
                           '/files/CVS' 
                           '/CVS' 
-                          'host:/files/CVS' 
-                          'host:/CVS' 
-                          ':pserver:user@host:/files/CVS'
                          ).
     ] ifFalse:[
         OperatingSystem isMSDOSlike ifTrue:[
-            defaultsList := #(
+            defaultsList := defaultsList , #(
                               ':local:c:\files\CVS' 
                               ':local:c:\CVS' 
-                              'host:/files/CVS' 
-                              'host:/CVS' 
-                              ':pserver:user@host:/files/CVS'
                              ).
         ] ifFalse:[
-            defaultsList := #('host:/files/CVS' 'host:/CVS' ':pserver:user@host:/files/CVS').
+            "there might be more here in the future"
         ]
     ].
 
@@ -6686,5 +6694,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.258 2003-01-27 14:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.259 2003-01-31 09:27:10 penk Exp $'
 ! !