blob: e1266ce9e08170e4d1acc926f748035bb4c1dfa0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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
]
|
