59 lines
942 B
Smalltalk
59 lines
942 B
Smalltalk
"
|
|
I model the agents for the Etico web site, which tries to map ethical behavior of agents
|
|
in the private and public sectors.
|
|
For more information (in Spanish) look at:
|
|
|
|
http://mutabit.com/repos.fossil/etico/
|
|
"
|
|
Class {
|
|
#name : #EtiAgent,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'name',
|
|
'sector',
|
|
'type',
|
|
'events'
|
|
],
|
|
#category : #'Etico-Model'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> events [
|
|
^ events ifNil: [ ^ OrderedCollection new ]
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> events: anObject [
|
|
events := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> name [
|
|
^ name
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> name: anObject [
|
|
name := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> sector [
|
|
^ sector
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> sector: anObject [
|
|
sector := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> type [
|
|
^ type
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
EtiAgent >> type: anObject [
|
|
type := anObject
|
|
]
|