44 lines
685 B
Smalltalk
44 lines
685 B
Smalltalk
"
|
|
I model the ethical an unethical events that an EtiAgent can do.
|
|
"
|
|
Class {
|
|
#name : #EtiEvent,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'overview',
|
|
'details',
|
|
'actions'
|
|
],
|
|
#category : #'Etico-Model'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
EtiEvent >> actions [
|
|
^ actions ifNil: [ ^OrderedCollection new ]
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiEvent >> actions: anObject [
|
|
actions := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiEvent >> details [
|
|
^ details
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiEvent >> details: anObject [
|
|
details := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiEvent >> overview [
|
|
^ overview
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiEvent >> overview: anObject [
|
|
overview := anObject
|
|
]
|