"{ Package: 'stx:goodies/monticello' }"

"{ NameSpace: Smalltalk }"

Object subclass:#MCServerCredentials

	instanceVariableNames:'username password'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-RemoteRepositories'

!

MCServerCredentials comment:'I store a username and password.

'

!

!MCServerCredentials class methodsFor:'instance creation'!

user: nameString password: passwordString

	^ self new

			username: nameString;

			password: passwordString;

			yourself.

! !

!MCServerCredentials methodsFor:'accessing'!

password

	^ password.

!

username

	^ username.

! !

!MCServerCredentials methodsFor:'private'!

password: aString 

	password := aString.

!

username: aString 

	username := aString.

! !

!MCServerCredentials class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !