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