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

"{ NameSpace: Smalltalk }"

Notification subclass:#MCCredentialsRequest

	instanceVariableNames:'username password url'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-RemoteRepositories'

!

MCCredentialsRequest comment:'I am used to prompt in a UI indepentent way for a username and a password.

If the user successfully entered the two strings I return an MCServerCredential if not I return nil.'

!

!MCCredentialsRequest class methodsFor:'signalling'!

signalUrl: aUrl

	^ self new 

		url: aUrl;

		signal

!

signalUrl: aUrl username: username password: password

	^ self new 

		url: aUrl;

		username: username;

		password: password;

		signal

! !

!MCCredentialsRequest methodsFor:'accessing'!

password

	^ password

!

password: anObject

	password := anObject

!

passwordMessagePrompt

	^ 'Please enter a password for ', self url asString

!

url

	^ url

!

url: anObject

	url := anObject

!

userMessagePrompt

	^ 'Please enter a username for ', self url asString

!

username

	^ username

!

username: anObject

	username := anObject

! !

!MCCredentialsRequest methodsFor:'exceptiondescription'!

defaultAction

	username := UIManager default

			request: self userMessagePrompt

			initialAnswer: self username

			title: 'User' translated.

	(username isNil or: [ username isEmpty ])

		ifTrue: [ ^ nil ].

	password := UIManager default

			requestPassword: self passwordMessagePrompt.

	^ MCServerCredentials user: username password: password

! !

!MCCredentialsRequest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !