-
Notifications
You must be signed in to change notification settings - Fork 0
/
WebsideResource.cls
41 lines (32 loc) · 987 Bytes
/
WebsideResource.cls
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
"Filed out from Dolphin Smalltalk 7"!
Object subclass: #WebsideResource
instanceVariableNames: 'id'
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!
WebsideResource guid: (GUID fromString: '{fb90d8b3-e1bf-4830-b05d-2d19107070b8}')!
WebsideResource comment: ''!
!WebsideResource categoriesForClass!Unclassified! !
!WebsideResource methodsFor!
asWebsideJson
^super asWebsideJson
at: 'id' put: id asString;
yourself!
id ^id!
id: anIID id := anIID!
initialize super initialize. id := self class newId! !
!WebsideResource categoriesFor: #asWebsideJson!public! !
!WebsideResource categoriesFor: #id!public! !
!WebsideResource categoriesFor: #id:!public! !
!WebsideResource categoriesFor: #initialize!public! !
!WebsideResource class methodsFor!
new ^super new initialize!
newId ^IID newUnique! !
!WebsideResource class categoriesFor: #new!public! !
!WebsideResource class categoriesFor: #newId!public! !