"{ Package: 'stx:libtool/smallsense' }"

Object subclass:#SmallSenseResultSet
	instanceVariableNames:'items position objectNameCollection selectedObjectIndex
		selectedName'
	classVariableNames:''
	poolDictionaries:''
	category:'SmallSense-Core'
!


!SmallSenseResultSet methodsFor:'accessing'!

items

    ^items

    "Created: / 26-11-2011 / 19:06:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

objectCollection
    ^ items
!

objectCollection:something
    items := something.

    "Modified: / 16-03-2011 / 16:42:19 / Jakub <zelenja7@fel.cvut.cz>"
!

objectNameCollection
    ^ objectNameCollection

    "Modified: / 06-04-2011 / 16:31:19 / Jakub <zelenja7@fel.cvut.cz>"
!

objectNameCollection:something
    objectNameCollection := something.
!

position
    ^ position
!

position:something
    position := something.
!

selectedName
    ^ selectedName
!

selectedName:something 
    self findByName:something.
    selectedName := something.

    "Modified: / 17-03-2011 / 12:10:57 / Jakub <zelenja7@fel.cvut.cz>"
!

selectedObjectDescription
    ^ (items at:selectedObjectIndex) description.

    "Modified: / 16-03-2011 / 18:17:38 / Jakub <zelenja7@fel.cvut.cz>"
!

selectedObjectIndex
    ^ selectedObjectIndex
!

selectedObjectIndex:something
    selectedObjectIndex := something.
! !

!SmallSenseResultSet methodsFor:'adding'!

add:object 
    "Add senseResultObject to objectCollection and objectNameCollection"
    
    |helperIndex|

    self checkCollection.
    (object notNil) ifTrue:[
        helperIndex := objectNameCollection indexOf:(object name).
        (helperIndex = 0) ifTrue:[
            items add:object.
            objectNameCollection add:(object name).
        ].
    ].

    "Created: / 16-03-2011 / 16:43:10 / Jakub <zelenja7@fel.cvut.cz>"
    "Modified: / 04-04-2011 / 13:48:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

join: collection 
    "joining two SmallSenseResultCollection"
    
    (collection objectCollection isNil) ifTrue: [
        ^ nil.
    ].
    collection objectCollection do: [:each | 
        self add: each.
    ].

    "Created: / 17-03-2011 / 12:11:39 / Jakub <zelenja7@fel.cvut.cz>"
    "Modified: / 17-03-2011 / 17:56:06 / Jakub <zelenja7@fel.cvut.cz>"
    "Modified: / 04-04-2011 / 13:49:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified (format): / 27-11-2011 / 10:05:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SmallSenseResultSet methodsFor:'checking'!

checkCollection
    (objectNameCollection isNil) 
        ifTrue:[ objectNameCollection := SortedCollection new. ].
    (items isNil) 
        ifTrue:[ items := SortedCollection sortBlock:[:a :b|a name < b name]].

    "Created: / 16-03-2011 / 16:46:39 / Jakub <zelenja7@fel.cvut.cz>"
    "Modified: / 07-04-2011 / 10:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SmallSenseResultSet methodsFor:'finding'!

findByName:name
|index|
index:=1.
items do:[:each|
(each asString startsWith:name)ifTrue:[
    selectedObjectIndex:=index.
    ^index
].
index:=index+1.
].
selectedObjectIndex:=1.
^index.

    "Created: / 16-03-2011 / 17:16:24 / Jakub <zelenja7@fel.cvut.cz>"
    "Modified: / 16-03-2011 / 18:16:55 / Jakub <zelenja7@fel.cvut.cz>"
! !

!SmallSenseResultSet methodsFor:'queries'!

isEmpty

    ^items isEmptyOrNil

    "Created: / 27-11-2011 / 10:03:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SmallSenseResultSet class methodsFor:'documentation'!

version_SVN
    ^ '$Id: SmallSenseResultSet.st 7826 2011-11-27 09:48:43Z vranyj1 $'
! !