"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

AbstractSettingsApplication subclass:#CodeView2SettingsAppl

	instanceVariableNames:'useCodeView2InTools useCodeView2InDebugger useCodeView2InBrowser

		useCodeView2InToolEnabled useCodeView2InWorkspace

		codeView2AutoIndent codeView2ShowAcceptCancel'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-CodeView'

!

!CodeView2SettingsAppl class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!CodeView2SettingsAppl 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:Tools::CodeView2SettingsAppl andSelector:#windowSpec

     Tools::CodeView2SettingsAppl new openInterface:#windowSpec

     Tools::CodeView2SettingsAppl open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Code Editor Settings'

          name: 'Code Editor Settings'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 576 300)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'VBox'

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

              horizontalLayout: fit

              verticalLayout: top

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (FramedBoxSpec

                    label: 'Edit Support'

                    name: 'EditSupport'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (VerticalPanelViewSpec

                          name: 'VerticalPanel1'

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

                          horizontalLayout: fit

                          verticalLayout: top

                          horizontalSpace: 3

                          verticalSpace: 3

                          component: 

                         (SpecCollection

                            collection: (

                             (CheckBoxSpec

                                label: 'Show Accept/Cancel Buttons in Gutter'

                                name: 'CheckBox6'

                                model: codeView2ShowAcceptCancel

                                translateLabel: true

                                extent: (Point 540 22)

                              )

                             (CheckBoxSpec

                                label: 'Auto Indent (EXPERIMENTAL, NOT YET RECCOMENDED)'

                                name: 'CheckBox5'

                                model: codeView2AutoIndent

                                translateLabel: true

                                extent: (Point 540 22)

                              )

                             )

                          )

                        )

                       )

                    )

                    extent: (Point 576 90)

                  )

                 (FramedBoxSpec

                    label: 'Tool Support'

                    name: 'ToolSupport'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (VerticalPanelViewSpec

                          name: 'ToolSupportCheckBox'

                          layout: (LayoutFrame 0 0 0 0 0 1 104 0)

                          horizontalLayout: fit

                          verticalLayout: top

                          horizontalSpace: 3

                          verticalSpace: 3

                          component: 

                         (SpecCollection

                            collection: (

                             (CheckBoxSpec

                                label: 'Use Advanced Code Editor in All Tools (when supported)'

                                name: 'CheckBox1'

                                model: useCodeView2InTools

                                translateLabel: true

                                extent: (Point 540 22)

                              )

                             (DividerSpec

                                name: 'Separator1'

                                extent: (Point 540 4)

                              )

                             (CheckBoxSpec

                                label: 'Use Advanced Code Editor in Class Browser'

                                name: 'CheckBox2'

                                enableChannel: useCodeView2InToolEnabled

                                model: useCodeView2InBrowser

                                translateLabel: true

                                extent: (Point 540 22)

                              )

                             (CheckBoxSpec

                                label: 'Use Advanced Code Editor in Debugger (HIGHLY EXPERIMENTAL!!!!!!)'

                                name: 'CheckBox3'

                                enableChannel: useCodeView2InToolEnabled

                                model: useCodeView2InDebugger

                                translateLabel: true

                                extent: (Point 540 22)

                              )

                             (CheckBoxSpec

                                label: 'Use Advanced Code Editor in Workspace'

                                name: 'CheckBox4'

                                enableChannel: useCodeView2InToolEnabled

                                model: useCodeView2InWorkspace

                                translateLabel: true

                                extent: (Point 540 22)

                              )

                             )

                          )

                          useDynamicPreferredHeight: true

                          usePreferredHeight: true

                        )

                       )

                    )

                    extent: (Point 590 154)

                    useDynamicPreferredHeight: true

                    useDynamicPreferredWidth: true

                    usePreferredHeight: true

                    usePreferredWidth: true

                  )

                 )

              )

            )

           )

        )

      )

! !

!CodeView2SettingsAppl methodsFor:'aspects'!

codeView2AutoIndent

    "return/create the 'useCodeView2InTools' value holder (automatically generated)"

    codeView2AutoIndent isNil ifTrue:[

        codeView2AutoIndent := ValueHolder new.

        codeView2AutoIndent onChangeSend:#updateModifiedChannel to:self

    ].

    ^ codeView2AutoIndent

    "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 07-08-2011 / 12:52:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

codeView2ShowAcceptCancel

    "return/create the 'codeView2ShowAcceptCancel' value holder (automatically generated)"

    codeView2ShowAcceptCancel isNil ifTrue:[

        codeView2ShowAcceptCancel := ValueHolder new.

        codeView2ShowAcceptCancel onChangeSend:#updateModifiedChannel to:self

    ].

    ^ codeView2ShowAcceptCancel

    "Modified: / 10-10-2011 / 16:43:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

useCodeView2InBrowser

    "return/create the 'useCodeView2InTools' value holder (automatically generated)"

    useCodeView2InBrowser isNil ifTrue:[

        useCodeView2InBrowser := ValueHolder new.

        useCodeView2InBrowser onChangeSend:#updateModifiedChannel to:self

    ].

    ^ useCodeView2InBrowser

    "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

!

useCodeView2InDebugger

    "return/create the 'useCodeView2InTools' value holder (automatically generated)"

    useCodeView2InDebugger isNil ifTrue:[

        useCodeView2InDebugger := ValueHolder new.

        useCodeView2InDebugger onChangeSend:#updateModifiedChannel to:self

    ].

    ^ useCodeView2InDebugger

    "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 26-07-2011 / 10:30:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

useCodeView2InTools

    "return/create the 'useCodeView2InTools' value holder (automatically generated)"

    useCodeView2InTools isNil ifTrue:[

        useCodeView2InTools := ValueHolder new.

        useCodeView2InTools onChangeSend:#updateModifiedChannel to:self

    ].

    ^ useCodeView2InTools

    "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

useCodeView2InWorkspace

    "return/create the 'useCodeView2InTools' value holder (automatically generated)"

    useCodeView2InWorkspace isNil ifTrue:[

        useCodeView2InWorkspace := ValueHolder new.

        useCodeView2InWorkspace onChangeSend:#updateModifiedChannel to:self

    ].

    ^ useCodeView2InWorkspace

    "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

! !

!CodeView2SettingsAppl methodsFor:'aspects-enablement'!

useCodeView2InToolEnabled

    "return/create the 'useCodeView2InTools' value holder (automatically generated)"

    useCodeView2InToolEnabled isNil ifTrue:[

        useCodeView2InToolEnabled := 

            (AspectAdaptor forAspect: #not) subjectChannel:

                self useCodeView2InTools

    ].

    ^ useCodeView2InToolEnabled

    "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 26-07-2011 / 10:39:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CodeView2SettingsAppl methodsFor:'protocol'!

basicAspects

    ^#( 

        #useCodeView2InTools 

        #useCodeView2InBrowser

        #useCodeView2InDebugger

        #useCodeView2InWorkspace

        "/Editing support

        #codeView2AutoIndent

        #codeView2ShowAcceptCancel

    )

    "Modified: / 10-10-2011 / 16:43:36 / 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."

    ^ nil"for now"

    "Modified: / 19-07-2011 / 16:55:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CodeView2SettingsAppl methodsFor:'queries'!

hasUnsavedChanges

    (self

        hasChangedAspectIn: self basicAspects

        asComparedTo:currentUserPrefs) ifTrue:[^ true].

    ^ false.

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

! !

!CodeView2SettingsAppl class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.4 2011-10-10 15:52:24 vrany Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.4 2011-10-10 15:52:24 vrany Exp $'

!

version_SVN

    ^ '§Id§'

! !