A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.24.mcz
==================== Summary ====================
Name: File-Base-kph.24 Author: kph Time: 30 March 2009, 1:23:15 am UUID: 37000971-fbc8-43cf-9109-2af9905225ed Ancestors: File-Base-kph.21
Use System-PasswordManager
=============== Diff against File-Base-kph.21 ===============
Item was changed: ----- Method: FileRemoteExecutive>>password: (in category 'as yet unclassified') ----- password: secret
+ ^ url password ifNil: [ self systemPasswordManager passwordAt: url asString user: (self user ifNil:[^'squeak']) put: secret ] - ^ url password ifNil: [ self MCPasswordManager default passwordAt: url asString user: (self user ifNil:[^'squeak']) put: secret ]
!
Item was changed: ----- Method: FileHttpExecutive>>password: (in category 'as yet unclassified') ----- password: passwordString
| pwd |
self user = 'ftp' ifTrue: [ ^ self ]. passwordString isEmpty ifTrue:[pwd := nil] ifFalse:[pwd := passwordString]. + self systemPasswordManager passwordAt: url asString user: self user put: pwd. - self MCPasswordManager default passwordAt: url asString user: self user put: pwd. !
Item was changed: ----- Method: FileRemoteExecutive>>password (in category 'as yet unclassified') ----- password
+ ^ url password ifNil: [ (self systemPasswordManager queryPasswordAt: url asString user: (self user ifNil:[^'squeak'])) ] - ^ url password ifNil: [ (self MCPasswordManager default queryPasswordAt: url asString user: (self user ifNil:[^'squeak'])) ]
!