all: intial code import
This commit is contained in:
3
ContactBook.package/Contact.class/instance/email..st
Normal file
3
ContactBook.package/Contact.class/instance/email..st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
email: aString
|
||||
email := aString
|
3
ContactBook.package/Contact.class/instance/email.st
Normal file
3
ContactBook.package/Contact.class/instance/email.st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
email
|
||||
^ email
|
3
ContactBook.package/Contact.class/instance/fullname..st
Normal file
3
ContactBook.package/Contact.class/instance/fullname..st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
fullname: aString
|
||||
fullname := aString trimBoth
|
3
ContactBook.package/Contact.class/instance/fullname.st
Normal file
3
ContactBook.package/Contact.class/instance/fullname.st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
fullname
|
||||
^ fullname
|
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
gravatarUrl
|
||||
^ 'http://www.gravatar.com/avatar/', (MD5 hashMessage: email trimBoth asLowercase) hex, '.jpg'
|
7
ContactBook.package/Contact.class/instance/printOn..st
Normal file
7
ContactBook.package/Contact.class/instance/printOn..st
Normal file
@@ -0,0 +1,7 @@
|
||||
printing
|
||||
printOn: aStream
|
||||
aStream
|
||||
nextPutAll: self fullname;
|
||||
nextPutAll: ' <';
|
||||
nextPutAll: self email;
|
||||
nextPutAll: '>'
|
Reference in New Issue
Block a user