[squeak-dev] The Inbox: System-ct.1240.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jul 14 22:04:59 UTC 2021
A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ct.1240.mcz
==================== Summary ====================
Name: System-ct.1240
Author: ct
Time: 15 July 2021, 12:04:53.78757 am
UUID: 624f6c2a-2072-d94c-8dd0-90beb93b74d4
Ancestors: System-mt.1239
MailSender: Allows for empty passwords. Also improves multilingual support. Thanks to David Stes for the pointer!
=============== Diff against System-mt.1239 ===============
Item was changed:
----- Method: MailSender class>>setSmtpServer (in category 'settings') -----
setSmtpServer
"Set the SMTP server used to send outgoing messages via"
SmtpServer ifNil: [SmtpServer := ''].
SmtpServer := UIManager default
+ request: 'What is your mail server for outgoing mail?' translated
- request: 'What is your mail server for outgoing mail?'
initialAnswer: SmtpServer.
!
Item was changed:
----- Method: MailSender class>>setSmtpServerPort (in category 'settings') -----
setSmtpServerPort
"Set the SMTP server port used to send outgoing messages via"
SmtpServerPort ifNil: [SmtpServerPort := 25].
SmtpServerPort := (UIManager default
+ request: 'What is your mail server port for outgoing mail?' translated
- request: 'What is your mail server port for outgoing mail?'
initialAnswer: SmtpServerPort asString) asNumber.
!
Item was changed:
----- Method: MailSender class>>setUserEmail (in category 'settings') -----
setUserEmail
"Change the user's email for use in composing messages."
(UIManager default
+ request: 'What is your email address?\(This is the address other people will reply to you)' withCRs translated
- request: 'What is your email address?\(This is the address other people will reply to you)' withCRs
initialAnswer: (UserEmail ifNil: [UserEmail := '']))
ifNotNil: [:answer | UserEmail := answer]!
Item was changed:
----- Method: MailSender class>>setUserName (in category 'settings') -----
setUserName
(UIManager default
+ request: 'What is your user name on the SMTP server?' translated
- request: 'What is your user name on the SMTP server?' withCRs
initialAnswer: (UserName ifNil: [UserName := '']))
ifNotNil: [:answer | UserName := answer]!
Item was changed:
----- Method: MailSender class>>setUserPassword (in category 'settings') -----
setUserPassword
UserPassword ifNil: [UserPassword := ''].
(UIManager default
+ requestPassword: 'What is your server password?' translated)
- requestPassword: 'What is your server passwort?' withCRs)
ifNotNil: [:answer | UserPassword := answer]!
Item was changed:
----- Method: MailSender class>>smtpServer (in category 'accessing') -----
smtpServer
"Answer the server for sending email"
self isSmtpServerSet ifFalse: [self setSmtpServer].
+ SmtpServer isEmpty ifTrue: [self error: 'no SMTP server specified' translated].
- SmtpServer isEmpty ifTrue: [ self error: 'no SMTP server specified' ].
^SmtpServer!
Item was changed:
----- Method: MailSender class>>smtpServerPort (in category 'accessing') -----
smtpServerPort
"Answer the server for sending email"
self isSmtpServerPortSet ifFalse: [self setSmtpServerPort].
+ SmtpServerPort isNil ifTrue: [self error: 'no SMTP server port specified' translated].
- SmtpServerPort isNil ifTrue: [ self error: 'no SMTP server port specified' ].
^SmtpServerPort!
Item was changed:
----- Method: MailSender class>>userEmail (in category 'accessing') -----
userEmail
"Answer the user name to be used for sending out messages."
self isUserEmailSet ifFalse: [self setUserEmail].
+ UserEmail isEmpty ifTrue: [self error: 'no user email specified' translated].
- UserEmail isEmpty ifTrue: [ self error: 'no user email specified' ].
^UserEmail!
Item was changed:
----- Method: MailSender class>>userName (in category 'accessing') -----
userName
"Answer the user name to be used for sending out messages."
self isUserNameSet ifFalse: [self setUserName].
+ UserName isEmpty ifTrue: [self error: 'no user name specified' translated].
- UserName isEmpty ifTrue: [ self error: 'no user name specified' ].
^UserName!
Item was changed:
----- Method: MailSender class>>userPassword (in category 'accessing') -----
userPassword
self isUserPasswordSet ifFalse: [self setUserPassword].
+ "UserPassword isEmpty ifTrue: [self error: 'no user name specified' translated]."
- UserPassword isEmpty ifTrue: [ self error: 'no user name specified' ].
^ UserPassword!
Item was added:
+ ----- Method: Preferences class>>allowEtoyUserCustomEvents (in category 'standard queries') -----
+ allowEtoyUserCustomEvents
+ ^ self
+ valueOfFlag: #allowEtoyUserCustomEvents
+ ifAbsent: [false]!
More information about the Squeak-dev
mailing list
|