"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2000 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 }"

Object subclass:#NavigationState

	instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList

		packageFilter nameSpaceFilter hidePrivateClasses canvasType

		notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect

		codeHolder classDocumentationHolder canvas selectorListGenerator

		protocolListGenerator classListPerNameSpaceGenerator

		classListGenerator categoryListGenerator nameSpaceListGenerator

		projectListGenerator classHierarchyTopClass meta selectedMethods

		selectedProtocols selectedClasses selectedCategories

		selectedProjects selectedNamespaces selectedLintRules

		variableFilter filterClassVars sortBy noAllItem autoSearchPattern

		autoSearchIgnoreCase autoSearchIsMatch autoSearchAction

		realModifiedStateHolder methodInfo versionDiffApplication

		selectorListGeneratorArray selectedMethodsArray infoLabelHolder

		packageLabelHolder cursorLineLabelHolder cursorColLabelHolder

		modeLabelHolder sortVariablesBy editModeHolder scrollableCodeView

		specialEditors selectedEditorNoteBookTabIndexHolder

		editorNoteBookListHolder editorNoteBookCanvasHolder codeView

		stringSearchToolView noteBookView inheritanceView

		documentationView languageHolder messageSpecHolder messageHolder

		progressHolder tabContentView messagePaneView

		codePaneAndPluginView codePaneAndPluginViewRelativeCorners

		pluginVisibleHolder bookmarkHolder worker

		packageInfoBackgroundColorHolder packageInfoButton

		showMethodTemplate lastMethodShownInCodeView showingParseError

		navigationHistory lintRuleListGenerator profilerStatistics

		inlineMessageApplication'

	classVariableNames:'CodeAspectTranslations'

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!NavigationState class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2000 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.

"

! !

!NavigationState class methodsFor:'initialization'!

initialize

    "Invoked at system start or when the class is dynamically loaded."

    "/ please change as required (and remove this comment)

    CodeAspectTranslations := Dictionary new.

    CodeAspectTranslations at: #newApplication put: SyntaxHighlighter codeAspectClassDefinition.

    CodeAspectTranslations at: #newError put: SyntaxHighlighter codeAspectClassDefinition.

    "/ Add more...

    "Modified: / 23-10-2012 / 11:27:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!NavigationState methodsFor:'accessing'!

autoSearchAction

    ^ autoSearchAction

!

autoSearchAction:aBlock

    "define an autosearch action (for semantic searches)"

    autoSearchAction := aBlock.

!

autoSearchIgnoreCase

    "return true if the autoSearch is case-insensitive"

    ^ autoSearchIgnoreCase

!

autoSearchIgnoreCase:aBoolean

    "define the autoSearches case-insensitivenes"

    autoSearchIgnoreCase := aBoolean

!

autoSearchIsMatch

    "return true if the autoSearch is a match search"

    ^ autoSearchIsMatch

!

autoSearchIsMatch:aBoolean

    "define the automatic search pattern matching behavior"

    autoSearchIsMatch := aBoolean.

!

autoSearchPattern

    "return the automatic search pattern.

     The codeView will search for this automatically, 

     whenever the navigation is changing the shown method."

    ^ autoSearchPattern

!

autoSearchPattern:aStringOrPattern

    "define the automatic search pattern.

     The codeView will search for this automatically, 

     whenever the navigation is changing the shown method."

    autoSearchPattern := aStringOrPattern.

!

autoSearchPattern:aStringOrPattern ignoreCase:ignoreCaseBoolean match:isMatchBoolean 

    "define the automatic search pattern.

     The codeView will search for this automatically, 

     whenever the navigation is changing the shown method."

    autoSearchPattern := aStringOrPattern.

    autoSearchIsMatch := isMatchBoolean.

    autoSearchIgnoreCase := ignoreCaseBoolean.

!

browserLabel

    "return the assigned state-label (to be shown in the tab)."

    ^ browserLabel

!

browserLabel:aString

    "set the assigned state-label (to be shown in the tab)."

    browserLabel := aString

!

canvas

    ^ canvas

!

canvas:something

    canvas := something.

    canvasType isNil ifTrue:[

        canvasType := something spec

    ].

!

canvasType

    "return the type of canvas"

    ^ canvasType

!

canvasType:aSpecSymbol

    "set the type of canvas"

    canvasType notNil ifTrue:[

        canvasType ~~ aSpecSymbol ifTrue:[

            self halt:'cannot be changed, once set'.

            ^ self.

        ]

    ].

    canvasType := aSpecSymbol

!

codeAspect

    "return the codeAspect; a symbol describing what is shown in the codeView"

    ^ codeAspect

    "Created: / 11.2.2000 / 12:43:29 / cg"

!

codeAspect:aSymbolOrNil

    "set the codeAspect; a symbol describing what is shown in the codeView"

    codeAspect := aSymbolOrNil.

    (codeView notNil and:[codeView isCodeView2]) ifTrue:[

        | xlatedCodeAspect |

        xlatedCodeAspect := CodeAspectTranslations at: aSymbolOrNil ifAbsent:[aSymbolOrNil].

        codeView codeAspect: xlatedCodeAspect

    ].

    "Created: / 11-02-2000 / 12:43:45 / cg"

    "Modified: / 22-10-2012 / 17:05:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

codePaneAndPluginView

    ^ codePaneAndPluginView

!

codePaneAndPluginView:something

    codePaneAndPluginView := something.

!

codePaneAndPluginViewRelativeCorners

    codePaneAndPluginViewRelativeCorners ifNil:[

        codePaneAndPluginViewRelativeCorners := #(0.76 1.0)

    ].

    ^ codePaneAndPluginViewRelativeCorners

    "Modified: / 04-10-2010 / 08:20:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

codePaneAndPluginViewRelativeCorners: anArray

    codePaneAndPluginViewRelativeCorners := anArray.

    "Modified: / 04-10-2010 / 08:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

editorNoteBookCanvasHolder

    editorNoteBookCanvasHolder isNil ifTrue:[

        editorNoteBookCanvasHolder := ValueHolder with:nil.

    ].

    ^ editorNoteBookCanvasHolder

!

editorNoteBookListHolder

    editorNoteBookListHolder isNil ifTrue:[

        editorNoteBookListHolder := ValueHolder with:#().

    ].

    ^ editorNoteBookListHolder

!

environment

    ^ Smalltalk

!

lastMethodShownInCodeView

    ^ lastMethodShownInCodeView

!

lastMethodShownInCodeView:something

    lastMethodShownInCodeView := something.

!

messagePaneView

    ^ messagePaneView

!

messagePaneView:something

    messagePaneView := something.

!

modified

    "check for modified code by asking the editTextView;

     this one returns true if ever modified - even if

     the modifications where undone in the editor

     (i.e. not really modified).

     Use #reallyModified if the contents should be compared

     against the original contents"

    |v|

    self realModifiedState == true ifTrue:[^ true].

    self anySpecialEditorModified ifTrue:[^ true].

    ^ (v := self codeView) notNil and:[v modified]

!

modified:aBoolean

    |codeView|

    (codeView := self codeView) notNil ifTrue:[

        codeView modified:aBoolean

    ].

    specialEditors notNil ifTrue:[

        specialEditors do:[:anEditor | 

            anEditor application modified:aBoolean

        ].    

    ].

!

noteBookView

    ^ noteBookView

!

noteBookView:something

    noteBookView := something.

!

realModifiedState

    ^ self realModifiedStateHolder value

!

realModifiedState:aBoolean

    self realModifiedStateHolder value:aBoolean

!

realModifiedStateHolder

    realModifiedStateHolder isNil ifTrue:[

        realModifiedStateHolder := ValueHolder new.

    ].

    ^ realModifiedStateHolder

!

selectedEditorNoteBookTabIndexHolder

    selectedEditorNoteBookTabIndexHolder isNil ifTrue:[

        selectedEditorNoteBookTabIndexHolder := ValueHolder with:1.

    ].

    ^ selectedEditorNoteBookTabIndexHolder

!

showMethodTemplate

    ^ showMethodTemplate ? true

    "Created: / 12-02-2012 / 08:49:32 / cg"

!

showMethodTemplate: aBoolean

    showMethodTemplate := aBoolean

    "Created: / 12-02-2012 / 08:49:45 / cg"

!

showingParseError

    ^ showingParseError

!

showingParseError:something

    showingParseError := something.

!

stringSearchToolView

    ^ stringSearchToolView

!

stringSearchToolView: aStringSearchTool

    stringSearchToolView := aStringSearchTool

!

tabContentView

    ^ tabContentView

!

tabContentView:something

    tabContentView := something.

!

worker

    ^ worker

!

worker:aProcess

    worker := aProcess.

! !

!NavigationState methodsFor:'accessing-selection'!

theSingleSelectedClass

    "if only one class is selected, return it.

     Otherwise, return nil"

    |classes|

    classes := self selectedClasses value.

    classes size == 1 ifTrue:[

        ^ classes first

    ].

    ^ nil

!

theSingleSelectedMethod

    "if only one method is selected, return it.

     Otherwise, return nil"

    |methods|

    methods := self selectedMethods value.

    methods size == 1 ifTrue:[

        "/ self assert:methods first isMethod.

        ^ methods first

    ].

    ^ nil

    "Modified: / 29-01-2019 / 18:24:56 / Claus Gittinger"

! !

!NavigationState methodsFor:'accessing-subApps'!

applicationOfComponent:aComponentName

    ^ self applicationOfComponent:aComponentName or:nil

!

applicationOfComponent:aComponentName or:anotherComponentName

    |builder view|

    canvas isNil ifTrue:[^ nil].

    builder := canvas builder.

    view := builder findVisibleComponentAt:aComponentName.

    (view isNil and:[anotherComponentName notNil]) ifTrue:[

        view := builder findVisibleComponentAt:anotherComponentName.

    ].

    view notNil ifTrue:[

        ^ view application

    ].

    ^ nil

!

classCategoryListApplication

    ^ self applicationOfComponent:#ClassCategoryList

!

classHierarchyListApplication

    ^ self applicationOfComponent:#ClassHierarchyList

!

classListApplication

    ^ self applicationOfComponent:#ClassList

!

inlineMessageApplication

    inlineMessageApplication isNil ifTrue:[

        inlineMessageApplication := Tools::InlineMessageDialog new

    ].

    ^ inlineMessageApplication

    "Created: / 25-03-2014 / 17:59:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

metaToggleComponent

    ^ canvas builder findComponentAt:#ClassToggle.

!

methodCategoryListApplication

    ^ self applicationOfComponent:#MethodCategoryList

!

methodListApplication

    ^ self applicationOfComponent:#MethodList

!

nameSpaceListApplication

    ^ self applicationOfComponent:#NamespaceList or:#PseudoNamespaceList

!

projectListApplication

    ^ self applicationOfComponent:#ProjectList or:#PseudoProjectList

!

variableListApplication

    ^ self applicationOfComponent:#VariableList 

!

versionDiffApplication

    ^ versionDiffApplication

!

versionDiffApplication:anApplication

    versionDiffApplication := anApplication

! !

!NavigationState methodsFor:'accessing-subViews'!

anySpecialEditorModified

    specialEditors notNil ifTrue:[

        ^ specialEditors contains:[:anEditor | anEditor application isModified].    

    ].

    ^ false

!

codeView

    codeView isNil ifTrue:[

        codeView := self scrollableCodeView scrolledView

    ].

    ^ codeView

!

doSaveInSpecialEditors

    specialEditors notNil ifTrue:[

        specialEditors do:[:anEditor | 

            anEditor application isModified ifTrue:[

                anEditor application save.

                ^ self.

            ]

        ].    

    ].

!

documentationView

    |textView|

    documentationView isNil ifTrue:[

        textView := CodeView new.

        documentationView := HVScrollableView forView:textView.

    ].

    ^ documentationView

!

getCodeView