--- 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 $'
! !