diff options
Diffstat (limited to 'pharo-mooc/tiny-blog/src/TinyBlog/TBAdministrator.class.st')
| -rw-r--r-- | pharo-mooc/tiny-blog/src/TinyBlog/TBAdministrator.class.st | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/pharo-mooc/tiny-blog/src/TinyBlog/TBAdministrator.class.st b/pharo-mooc/tiny-blog/src/TinyBlog/TBAdministrator.class.st new file mode 100644 index 0000000..e1266ce --- /dev/null +++ b/pharo-mooc/tiny-blog/src/TinyBlog/TBAdministrator.class.st @@ -0,0 +1,42 @@ +Class { + #name : 'TBAdministrator', + #superclass : 'Object', + #instVars : [ + 'login', + 'password' + ], + #category : 'TinyBlog', + #package : 'TinyBlog' +} + +{ #category : 'as yet unclassified' } +TBAdministrator class >> login: login password: password [ + ^ self new + login: login; + password: password; + yourself +] + +{ #category : 'accessing' } +TBAdministrator >> login [ + + ^ login +] + +{ #category : 'accessing' } +TBAdministrator >> login: anObject [ + + login := anObject +] + +{ #category : 'accessing' } +TBAdministrator >> password [ + + ^ password +] + +{ #category : 'accessing' } +TBAdministrator >> password: anObject [ + + password := SHA256 hashMessage: anObject +] |