equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 MCWriteOnlyRepository subclass:#MCSmtpRepository |
5 MCWriteOnlyRepository subclass:#MCSmtpRepository |
4 instanceVariableNames:'email' |
6 instanceVariableNames:'email' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
9 |
11 |
10 |
12 |
11 !MCSmtpRepository class methodsFor:'as yet unclassified'! |
13 !MCSmtpRepository class methodsFor:'as yet unclassified'! |
12 |
14 |
13 morphicConfigure |
15 morphicConfigure |
14 | address | |
16 | dialog address | |
15 address := UIManager default request: 'Email address:' translated. |
17 |
16 ^ address isEmpty ifFalse: [self new emailAddress: address] |
18 dialog := UIManager isNil ifTrue:[Dialog] ifFalse:[ UIManager default ]. |
|
19 address := dialog request: 'Email address:' translated. |
|
20 ^ address isEmpty ifFalse: [self new emailAddress: address] |
17 ! ! |
21 ! ! |
18 |
22 |
19 !MCSmtpRepository class methodsFor:'queries'! |
23 !MCSmtpRepository class methodsFor:'queries'! |
20 |
24 |
21 description |
25 description |
73 ! ! |
77 ! ! |
74 |
78 |
75 !MCSmtpRepository class methodsFor:'documentation'! |
79 !MCSmtpRepository class methodsFor:'documentation'! |
76 |
80 |
77 version |
81 version |
78 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSmtpRepository.st,v 1.5 2014-02-12 14:53:31 cg Exp $' |
82 ^ '$Header$' |
79 ! |
83 ! |
80 |
84 |
81 version_CVS |
85 version_CVS |
82 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSmtpRepository.st,v 1.5 2014-02-12 14:53:31 cg Exp $' |
86 ^ '$Header$' |
83 ! |
87 ! |
84 |
88 |
85 version_SVN |
89 version_SVN |
86 ^ '$Id: MCSmtpRepository.st,v 1.5 2014-02-12 14:53:31 cg Exp $' |
90 ^ '$Id$' |
87 ! ! |
91 ! ! |
88 |
92 |