8 lines
238 B
Smalltalk
8 lines
238 B
Smalltalk
|
accessing
|
||
|
belongsToSegment: segmentBodersCollection
|
||
|
|
||
|
segmentBodersCollection allButLast keysAndValuesDo: [ :i :elem |
|
||
|
(elem < self created and: [ self created <= (segmentBodersCollection at: i + 1) ])
|
||
|
ifTrue: [ ^ i ]
|
||
|
].
|
||
|
^ false
|