all: intial code import

This commit is contained in:
2018-05-12 15:25:36 +02:00
parent 1f20ee2574
commit 9f47b858c3
59 changed files with 375 additions and 0 deletions

View File

@@ -0,0 +1,3 @@
accessing
email: aString
email := aString

View File

@@ -0,0 +1,3 @@
accessing
email
^ email

View File

@@ -0,0 +1,3 @@
accessing
fullname: aString
fullname := aString trimBoth

View File

@@ -0,0 +1,3 @@
accessing
fullname
^ fullname

View File

@@ -0,0 +1,3 @@
accessing
gravatarUrl
^ 'http://www.gravatar.com/avatar/', (MD5 hashMessage: email trimBoth asLowercase) hex, '.jpg'

View File

@@ -0,0 +1,7 @@
printing
printOn: aStream
aStream
nextPutAll: self fullname;
nextPutAll: ' <';
nextPutAll: self email;
nextPutAll: '>'