"

 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 variableFilter

		filterClassVars sortBy noAllItem autoSearchPattern

		autoSearchIgnoreCase autoSearchAction realModifiedState

		methodInfo versionDiffApplication selectorListGeneratorArray

		selectedMethodsArray infoLabelHolder packageLabelHolder

		cursorLineLabelHolder cursorColLabelHolder modeLabelHolder

		sortVariablesBy'

	classVariableNames:''

	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 methodsFor:'accessing'!

autoSearchAction

    ^ autoSearchAction

!

autoSearchAction:something

    autoSearchAction := something.

!

autoSearchIgnoreCase

    "return true if the autSearch is to be case-insensitive"

    ^ autoSearchIgnoreCase

!

autoSearchIgnoreCase:aBoolean

    "change the autSearches case-insensitivenes"

    autoSearchIgnoreCase := aBoolean

!

autoSearchPattern

    "return the automatic search pattern"

    ^ autoSearchPattern

!

autoSearchPattern:aPattern

    "change the automatic search pattern"

    autoSearchPattern := aPattern.

!

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

    "return the value of the instance variable 'canvas' (automatically generated)"

    ^ canvas

!

canvas:something

    "set the value of the instance variable 'canvas' (automatically generated)"

    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'.

	]

    ].

    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

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

!

codeView

    |builder v|

    canvas notNil ifTrue:[

	builder := canvas builder.

	builder notNil ifTrue:[

	    v := builder componentAt:#CodeView.

	    v notNil ifTrue:[

		^ v scrolledView

	    ].

	]

    ].

    ^ nil

    "Created: / 11.2.2000 / 13:28:25 / cg"

!

environment

    ^ Smalltalk

!

modified

    "check for modified code by asking the editTextView;

     this one returns true if ever modified - even if

     the modifiecations where undone in the editor

     (i.e. not really modified).

     Use #reallyModified if the contents should be compared

     against the original contents"

    |codeView|

    realModifiedState == true ifTrue:[^ true].

    ^ (codeView := self codeView) notNil

      and:[codeView modified]

!

modified:aBoolean

    |codeView|

    (codeView := self codeView) notNil ifTrue:[

	codeView modified:aBoolean

    ].

!

realModifiedState

    ^ realModifiedState

!

realModifiedState:aBoolean

    realModifiedState := aBoolean

! !

!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:[

	^ methods first

    ].

    ^ nil

! !

!NavigationState methodsFor:'accessing-subApps'!

applicationOfComponent:aComponentName

    ^ self applicationOfComponent:aComponentName or:nil

!

applicationOfComponent:aComponentName or:anotherComponentName

    |builder view|

    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

!

classListApplication

    ^ self applicationOfComponent:#ClassList

!

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:'aspects'!

categoryList

    categoryList isNil ifTrue:[

	categoryList := nil asValue.

    ].

    ^ categoryList

    "Modified: / 25.2.2000 / 01:35:42 / cg"

    "Created: / 25.2.2000 / 01:57:45 / cg"

!

categoryListGenerator

    categoryListGenerator isNil ifTrue:[

	categoryListGenerator := nil asValue.

    ].

    ^ categoryListGenerator

    "Created: / 25.2.2000 / 01:34:30 / cg"

    "Modified: / 25.2.2000 / 01:35:42 / cg"

!

classDocumentationHolder

    classDocumentationHolder isNil ifTrue:[

	classDocumentationHolder := nil asValue.

    ].

    ^ classDocumentationHolder

!

classHierarchyTopClass

    classHierarchyTopClass isNil ifTrue:[

	classHierarchyTopClass := nil asValue.

    ].

    ^ classHierarchyTopClass

!

classList

    classList isNil ifTrue:[

	classList := nil asValue.

    ].

    ^ classList

    "Created: / 25.2.2000 / 01:57:28 / cg"

!

classListGenerator

    classListGenerator isNil ifTrue:[

	classListGenerator := nil asValue.

    ].

    ^ classListGenerator

!

classListPerNameSpaceGenerator

    classListPerNameSpaceGenerator isNil ifTrue:[

	classListPerNameSpaceGenerator := nil asValue.

    ].

    ^ classListPerNameSpaceGenerator

    "Created: / 18.8.2000 / 14:15:34 / cg"

!

codeHolder

    codeHolder isNil ifTrue:[

	codeHolder := nil asValue.

    ].

    ^ codeHolder

!

codeModifiedHolder

    codeModifiedHolder isNil ifTrue:[

	codeModifiedHolder := false asValue.

    ].

    ^ codeModifiedHolder

!

cursorColLabelHolder

    cursorColLabelHolder isNil ifTrue:[

	cursorColLabelHolder := BlockValue 

				    with:[:v | v printString]

				    argument:self codeView cursorColHolder.

    ].

    ^ cursorColLabelHolder

!

cursorLineLabelHolder

    cursorLineLabelHolder isNil ifTrue:[

	cursorLineLabelHolder := BlockValue 

				    with:[:v | v printString]

				    argument:self codeView cursorLineHolder.

    ].

    ^ cursorLineLabelHolder

!

filterClassVars

    filterClassVars isNil ifTrue:[

	filterClassVars := false asValue.

    ].

    ^ filterClassVars

    "Created: / 24.2.2000 / 23:45:28 / cg"

!

hidePrivateClasses

    hidePrivateClasses isNil ifTrue:[

	hidePrivateClasses := false asValue.

    ].

    ^ hidePrivateClasses

    "Created: / 24.2.2000 / 16:17:02 / cg"

!

infoLabelHolder 

    infoLabelHolder isNil ifTrue:[

	infoLabelHolder := '' asValue.

    ].

    ^ infoLabelHolder

!

meta

    meta isNil ifTrue:[

	meta := false asValue.

    ].

    ^ meta

!

metaToggleLabelHolder

    metaToggleLabel isNil ifTrue:[

	metaToggleLabel := 'Class' asValue.

    ].

    ^ metaToggleLabel

!

methodInfo

    methodInfo isNil ifTrue:[

	methodInfo := nil asValue.

    ].

    ^ methodInfo

!

methodList

    |methodListApplication|

    methodListApplication := self methodListApplication.

    methodListApplication isNil ifTrue:[^ nil].

    ^ methodListApplication methodList

!

modeLabelHolder

    modeLabelHolder isNil ifTrue:[

	modeLabelHolder := self codeView modeLabelHolder.

    ].

    ^ modeLabelHolder

!

nameSpaceFilter

    nameSpaceFilter isNil ifTrue:[

	nameSpaceFilter := nil asValue.

    ].

    ^ nameSpaceFilter

    "Created: / 18.8.2000 / 14:25:24 / cg"

!

nameSpaceListGenerator

    nameSpaceListGenerator isNil ifTrue:[

	nameSpaceListGenerator := nil asValue.

    ].

    ^ nameSpaceListGenerator

    "Created: / 18.8.2000 / 14:26:19 / cg"

    "Modified: / 18.8.2000 / 14:27:59 / cg"

!

noAllItem

    noAllItem isNil ifTrue:[

	noAllItem := nil asValue.

    ].

    ^ noAllItem

!

organizerMode

    "return the organizerMode holder; 

     holding a symbol describing how things are organized

     (#category, #hierarchy, #project or #namespace)"

    organizerMode isNil ifTrue:[

	organizerMode := #category asValue.

    ].

    ^ organizerMode

    "Created: / 18.2.2000 / 13:33:55 / cg"

    "Modified: / 18.8.2000 / 18:37:22 / cg"

!

packageFilter

    packageFilter isNil ifTrue:[

	packageFilter := nil asValue.

    ].

    ^ packageFilter

    "Created: / 24.2.2000 / 23:45:28 / cg"

!

packageLabelHolder

    packageLabelHolder isNil ifTrue:[

	packageLabelHolder := '' asValue.

    ].

    ^ packageLabelHolder

!

projectListGenerator

    projectListGenerator isNil ifTrue:[

	projectListGenerator := nil asValue.

    ].

    ^ projectListGenerator

    "Modified: / 25.2.2000 / 01:35:42 / cg"

    "Created: / 25.2.2000 / 02:43:26 / cg"

!

protocolListGenerator

    protocolListGenerator isNil ifTrue:[

	protocolListGenerator := nil asValue.

    ].

    ^ protocolListGenerator