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

!

!AssignmentNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    aBlock value: #variable   value: variable.

    aBlock value: #expression value: expression.

    "Modified: / 26-11-2011 / 10:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AssignmentNode methodsFor:'accessing-SmallSense'!

inferedType

    ^ expression inferedType

    "Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AssignmentNode methodsFor:'accessing-SmallSense'!

inferedType: aSmallSenseType

    ^ self shouldNotImplement

    "Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BlockNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "superclass ParseNode says that I am responsible to implement this method"

    statements notNil ifTrue:[

        statements statementsWithIndexDo:[:stmt :index|

            aBlock value: 'statement[', index printString, ']'

                   value: stmt

        ]

    ]

    "Modified: / 26-11-2011 / 12:10:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MessageNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    aBlock value: #receiver value: receiver.

    argArray notNil ifTrue:[

        argArray withIndexDo:[:node :idx|

            aBlock value: 'arg[' , idx printString , ']' value: node

        ]

    ]

    "Modified: / 26-11-2011 / 12:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseErrorNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "superclass ParseNode says that I am responsible to implement this method"

    ^ self shouldImplement

! !

!ParseErrorNode methodsFor:'accessing'!

errorToken

    ^self objectAttributeAt: #errorToken

    "Created: / 27-11-2011 / 09:25:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseErrorNode methodsFor:'accessing'!

errorToken:something

    self objectAttributeAt: #errorToken put: something

    "Created: / 27-11-2011 / 09:25:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'enumeration'!

childNamesAndValuesDo: aBlock

    "Enumerates all direct children and evaluates a block

     with its name (usually instVar name) and the node itself"

    ^self subclassResponsibility

    "Created: / 26-11-2011 / 10:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'accessing-SmallSense'!

inferedType

    | t |

    t := self objectAttributeAt:#inferedType.

    t isNil ifTrue:[t := SmallSenseType default].

    ^t

    "Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'accessing-SmallSense'!

inferedType: aSmallSenseType

    ^ self objectAttributeAt:#inferedType put: aSmallSenseType

    "Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ParseNode methodsFor:'testing'!

isSelector

    "return true, if this is a node for an selctors"

    ^ false

    "Created: / 22-02-2011 / 21:44:45 / Jakub <zelenja7@fel.cvut.cz>"

! !

!PrimaryNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    "Initionally left blank, primary nodes have no children"

    "Modified: / 26-11-2011 / 11:49:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!StatementNode methodsFor:'enumeration'!

childNamesAndValuesDo:aBlock

    aBlock value: #expression value: expression

    "Modified (comment): / 26-11-2011 / 12:11:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!StatementNode methodsFor:'accessing-SmallSense'!

inferedType

    ^ expression inferedType

    "Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!StatementNode methodsFor:'accessing-SmallSense'!

inferedType: aSmallSenseType

    ^ self shouldNotImplement

    "Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Tools::NavigationState methodsFor:'aspects'!

selectedClasses

    "WARNING WARNING: 

    This is overwriten method from SmallSense!!!!!!

    "

    selectedClasses isNil ifTrue:[

        selectedClasses := "SpecialValueHolder with:nil." nil asValue.

        (ConfigurableFeatures includesFeature:'SmallSenseEnabled') ifTrue:[

            selectedClasses onChangeEvaluate:[

                selectedClasses value ? #() do:[:cls|

                    SmallSenseManager instance updateInfoForClass: cls.

                ].

            ]

        ]

    ].

    ^ selectedClasses

    "Modified: / 27-11-2011 / 17:50:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-SmallSense'!

smallSenseEnabled

    "Return true if SmallSense is enabled"

    ^self at:#smallSenseEnabled ifAbsent:[false]

    "Created: / 27-11-2011 / 17:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-SmallSense'!

smallSenseEnabled: aBoolean

    "Enables/disables SmallSense support"

    self at:#smallSenseEnabled ifAbsentPut: aBoolean

    "

    UserPreferences current smallSenseEnabled

    UserPreferences current smallSenseEnabled: true.

    UserPreferences current smallSenseEnabled: false.

    "

    "Created: / 27-11-2011 / 17:21:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VariableNode methodsFor:'queries'!

isGlobalOrPrivateClass

    ^ type == #GlobalVariable or:[type == #PrivateClass]

    "Created: / 27-11-2011 / 16:31:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ConfigurableFeatures class methodsFor:'queries-features'!

hasSmallSenseEnabled

    ^UserPreferences current smallSenseEnabled

    "

     ConfigurableFeatures hasSmallSenseEnabled

     ConfigurableFeatures includesFeature:'SmallSenseEnabled'

    "

    "Created: / 27-11-2011 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !