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