Add pharo tiny blog

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
+]