46 lines
556 B
Smalltalk
46 lines
556 B
Smalltalk
Class {
|
|
#name : #HlGroup,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'name',
|
|
'period',
|
|
'persons'
|
|
],
|
|
#category : #Holonica
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
HlGroup >> name [
|
|
|
|
^ name
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
HlGroup >> name: anObject [
|
|
|
|
name := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
HlGroup >> period [
|
|
|
|
^ period
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
HlGroup >> period: datesString [
|
|
period := datesString
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
HlGroup >> persons [
|
|
|
|
^ persons
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
HlGroup >> persons: anObject [
|
|
|
|
persons := anObject
|
|
]
|