"{ Package: 'jv:smallsense' }"

AbstractSettingsApplication subclass:#SmallSenseSettingsAppl

	instanceVariableNames:'smallSenseBackgroundTypingEnabled smallSenseBackgroundLintEnabled

		smallSenseEnabled'

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Interface'

!

!SmallSenseSettingsAppl class methodsFor:'class initialization'!

initialize

    Smalltalk addStartBlock:[

    NewLauncher

        addSettingsApplicationByClass: self name

        withName: 'Tools/SmallSense'

        icon: nil.

    ]

    "Created: / 04-02-2012 / 21:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseSettingsAppl class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:SmallSenseSettingsAppl    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#smallSenseBackgroundLintEnabled

'When enabled, a hints on code are shown based on static code analysis (SmallLint)'

#smallSenseBackgroundTypingEnabled

'When enabled, SmallSense run a type-inferencer on the code to give a more taccurate type hints and completion data'

#smallSenseEnabled

'Enable/Disable SmallSense support'

)

! !

!SmallSenseSettingsAppl class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:SmallSenseSettingsAppl andSelector:#windowSpec

     SmallSenseSettingsAppl new openInterface:#windowSpec

     SmallSenseSettingsAppl open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'SmallSense Settings'

          name: 'SmallSense Settings'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (CheckBoxSpec

              label: 'Enable SmallSense '

              name: 'Enable'

              layout: (LayoutFrame 0 0 0 0 0 1 30 0)

              activeHelpKey: smallSenseEnabled

              model: smallSenseEnabled

              translateLabel: true

            )

           (DividerSpec

              name: 'Separator'

              layout: (LayoutFrame 5 0 30 0 -5 1 34 0)

            )

           (VerticalPanelViewSpec

              name: 'Panel'

              layout: (LayoutFrame 0 0 37 0 0 1 0 1)

              horizontalLayout: fit

              verticalLayout: top

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (CheckBoxSpec

                    label: 'Enable Code Analysis (Lint)'

                    name: 'LintEnabled'

                    activeHelpKey: smallSenseBackgroundLintEnabled

                    enableChannel: smallSenseEnabled

                    model: smallSenseBackgroundLintEnabled

                    translateLabel: true

                    extent: (Point 300 22)

                  )

                 (CheckBoxSpec

                    label: 'Enable Background Type Inferencer'

                    name: 'CheckBox2'

                    activeHelpKey: smallSenseBackgroundTypingEnabled

                    enableChannel: smallSenseEnabled

                    model: smallSenseBackgroundTypingEnabled

                    translateLabel: true

                    extent: (Point 300 22)

                  )

                 )

              )

            )

           )

        )

      )

! !

!SmallSenseSettingsAppl methodsFor:'aspects'!

smallSenseBackgroundLintEnabled

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    smallSenseBackgroundLintEnabled isNil ifTrue:[

        smallSenseBackgroundLintEnabled := true asValue.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       smallSenseBackgroundLintEnabled addDependent:self.

       smallSenseBackgroundLintEnabled onChangeSend:#updateModifiedChannel to:self.

    ].

    ^ smallSenseBackgroundLintEnabled.

    "Modified: / 04-02-2012 / 21:47:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

smallSenseBackgroundTypingEnabled

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    smallSenseBackgroundTypingEnabled isNil ifTrue:[

        smallSenseBackgroundTypingEnabled := true asValue.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       smallSenseBackgroundTypingEnabled addDependent:self.

       smallSenseBackgroundTypingEnabled onChangeSend:#updateModifiedChannel to:self.

    ].

    ^ smallSenseBackgroundTypingEnabled.

    "Modified: / 04-02-2012 / 21:48:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

smallSenseEnabled

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    smallSenseEnabled isNil ifTrue:[

        smallSenseEnabled := true asValue.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       smallSenseEnabled addDependent:self.

       smallSenseEnabled onChangeSend:#updateModifiedChannel to:self.

    ].

    ^ smallSenseEnabled.

    "Modified: / 04-02-2012 / 21:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSenseSettingsAppl methodsFor:'protocol'!

basicAspects

    ^#( 

       smallSenseEnabled

       smallSenseBackgroundLintEnabled

       smallSenseBackgroundTypingEnabled

    )

    "Modified: / 04-02-2012 / 21:47:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

basicReadSettings

    self readAspects:self basicAspects from:currentUserPrefs.

    "Modified: / 19-07-2011 / 17:11:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

basicSaveSettings

    self writeAspects:self basicAspects to:currentUserPrefs.

    "Modified: / 26-07-2011 / 10:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

helpFilename

    "subclasses must return the relative name of a helpFile

     in the doc/online/<language>/help directory.

     Or nil, if no help is available."

    ^ self shouldImplement

! !

!SmallSenseSettingsAppl methodsFor:'queries'!

hasUnsavedChanges

    ^ self

        hasChangedAspectIn: self basicAspects

        asComparedTo:currentUserPrefs

    "Modified: / 19-07-2011 / 17:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 25-11-2011 / 15:25:16 / cg"

! !

!SmallSenseSettingsAppl class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_SVN

    ^ '$Id: SmallSenseSettingsAppl.st 7872 2012-02-06 22:35:36Z vranyj1 $'

! !

SmallSenseSettingsAppl initialize!