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

SmallSenseResultItem subclass:#SmallSenseClass
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'SmallSense-Core'
!


!SmallSenseClass methodsFor:'accessing'!

icon

    icon ifNil:[icon := SystemBrowser iconForClass: subject].
    ^icon

    "Created: / 06-04-2011 / 23:36:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

subject: aClass

    super subject: aClass.
    name := aClass name.

    "Created: / 06-04-2011 / 21:02:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SmallSenseClass methodsFor:'testing'!

isSmallSenseClass
    ^ true
! !

!SmallSenseClass class methodsFor:'documentation'!

version_SVN
    ^ '$Id: SmallSenseClass.st 7825 2011-11-26 18:32:31Z vranyj1 $'
! !