"

 COPYRIGHT (c) 2004 by eXept Software AG

 COPYRIGHT (c) 2017 Jan Vrany

              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 }"

BrowserList subclass:#ClassList

	instanceVariableNames:'classList classNameList meta lastSelectedClasses

		selectedClassNameIndices currentNamespace hidePrivateClasses

		unloadedClassesColor markApplicationsHolder classFilterBlock

		sortByNameAndInheritance outGeneratorHolderForMethods

		addOwnerClasses ownersAddedForTheirPrivateClassesOnly'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!ClassList class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2004 by eXept Software AG

 COPYRIGHT (c) 2017 Jan Vrany

              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.

"

!

documentation

"

    embeddable application displaying the classes as listed by

    the inputGenerator.

    Provides an outputGenerator, which enumerates the classes and

    their protocols (method-categories) in the selected classes.

    [author:]

	Claus Gittinger (cg@exept.de)

"

! !

!ClassList class methodsFor:'interface specs'!

singleClassWindowSpec

    "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:ClassList andSelector:#singleClassWindowSpec

     ClassList new openInterface:#singleClassWindowSpec

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

	#name: #windowSpec

	#window: 

       #(#WindowSpec

	  #label: 'ClassList'

	  #name: 'ClassList'

	  #min: #(#Point 0 0)

	  #max: #(#Point 1024 721)

	  #bounds: #(#Rectangle 12 22 312 322)

	)

	#component: 

       #(#SpecCollection

	  #collection: #(

	   #(#LabelSpec

	      #label: 'ClassName'

	      #name: 'ClassLabel'

	      #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)

	      #translateLabel: true

	      #labelChannel: #classLabelHolder

	      #menu: #menuHolder

	    )

"/           #(#UISubSpecification

"/              #name: 'MetaToggleSpec'

"/              #layout: #(#LayoutFrame 0 0.0 -25 1.0 0 1.0 0 1.0)

"/              #minorKey: #metaSpec

"/            )

	   )

	)

      )

!

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:ClassList andSelector:#windowSpec

     ClassList new openInterface:#windowSpec

     ClassList open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'ClassList'

          #name: 'ClassList'

          #min: #(#Point 0 0)

          #bounds: #(#Rectangle 16 46 316 346)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#SequenceViewSpec

              #name: 'List'

              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              #tabable: true

              #model: #selectedClassNameIndices

              #menu: #menuHolder

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #miniScrollerHorizontal: true

              #isMultiSelect: true

              #valueChangeSelector: #selectionChangedByClick

              #useIndex: true

              #sequenceList: #classNameList

              #doubleClickChannel: #doubleClickChannel

              #properties: 

             #(#PropertyListDictionary

                #dragArgument: nil

                #dropArgument: nil

                #canDropSelector: #canDropContext:

                #dropSelector: #doDropContext:

              )

            )

           )

        )

      )

! !

!ClassList class methodsFor:'plugIn spec'!

aspectSelectors

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

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        environmentHolder

        #currentNamespace

        #(#doubleClickChannel #action )

        #forceGeneratorTrigger

        #hidePrivateClasses

        #hideUnloadedClasses

        #sortByNameAndInheritance

        #immediateUpdate

        #inGeneratorHolder

        #menuHolder

        #meta

        #organizerMode

        #outGeneratorHolder

        #packageFilter

        #nameSpaceFilter

        #selectedClasses

        #selectionChangeCondition

        #showClassPackages

        #slaveMode

        #updateTrigger

        #markApplicationsHolder

        #showCoverageInformation

        #outGeneratorHolderForMethods

      ).

    "Modified: / 04-07-2011 / 18:34:44 / cg"

    "Modified: / 24-02-2014 / 10:37:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ClassList methodsFor:'accessing'!

markApplications

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

    ^ self markApplicationsHolder value

    "Created: / 3.11.2001 / 14:06:19 / cg"

!

markApplications:something

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

    self markApplicationsHolder value:something.

    "Created: / 3.11.2001 / 14:06:25 / cg"

!

unloadedClassesColor

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

    ^ unloadedClassesColor

!

unloadedClassesColor:something

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

    unloadedClassesColor := something.

! !

!ClassList methodsFor:'aspects'!

addOwnerClasses

    addOwnerClasses isNil ifTrue:[

        addOwnerClasses := ValueHolder with:true.

        addOwnerClasses addDependent:self.

    ].

    ^ addOwnerClasses.

!

addOwnerClasses:aBooleanValueHolder

    addOwnerClasses notNil ifTrue:[

        addOwnerClasses removeDependent:self

    ].

    addOwnerClasses := aBooleanValueHolder.

    addOwnerClasses notNil ifTrue:[

        addOwnerClasses addDependent:self

    ].

!

classLabelHolder

    ^ self pseudoListLabelHolder

!

classList

    classList isNil ifTrue:[

	classList := ValueHolder new.

    ].

    ^ classList

    "Created: / 5.2.2000 / 13:42:16 / cg"

    "Modified: / 25.2.2000 / 02:21:07 / cg"

!

classNameList

    classNameList isNil ifTrue:[

	classNameList := ValueHolder new

    ].

    ^ classNameList

!

currentNamespace:aValueHolder

    currentNamespace notNil ifTrue:[

	currentNamespace removeDependent:self

    ].

    currentNamespace := aValueHolder.

    currentNamespace notNil ifTrue:[

	currentNamespace isBehavior ifTrue:[self halt:'should not happen'].

	currentNamespace addDependent:self

    ].

    "Modified: / 4.2.2000 / 23:34:28 / cg"

    "Created: / 5.2.2000 / 21:37:57 / cg"

!

doubleClick

    self halt:'should not happen'.

!

hidePrivateClasses

    hidePrivateClasses isNil ifTrue:[

        hidePrivateClasses := ValueHolder with:false.

        hidePrivateClasses addDependent:self.

    ].

    ^ hidePrivateClasses.

    "Created: / 24.2.2000 / 15:06:44 / cg"

!

hidePrivateClasses:aValueHolder

    hidePrivateClasses notNil ifTrue:[

	hidePrivateClasses removeDependent:self

    ].

    hidePrivateClasses := aValueHolder.

    hidePrivateClasses notNil ifTrue:[

	hidePrivateClasses addDependent:self

    ].

    "Created: / 24.2.2000 / 15:06:46 / cg"

!

markApplicationsHolder

    markApplicationsHolder isNil ifTrue:[

        markApplicationsHolder := ValueHolder with:true.

        markApplicationsHolder addDependent:self.

    ].

    ^ markApplicationsHolder.

!

markApplicationsHolder:aValueHolder

    markApplicationsHolder notNil ifTrue:[

	markApplicationsHolder removeDependent:self

    ].

    markApplicationsHolder := aValueHolder.

    markApplicationsHolder notNil ifTrue:[

	markApplicationsHolder addDependent:self

    ].

    "Created: / 24.2.2000 / 15:06:46 / cg"

!

meta

    meta isNil ifTrue:[

        meta := ValueHolder with:false.

        meta addDependent:self

    ].

    ^ meta

    "Modified: / 31.1.2000 / 01:19:59 / cg"

    "Created: / 5.2.2000 / 13:42:16 / cg"

!

meta:aValueHolder

"/ (aValueHolder == true or:[aValueHolder == false]) ifTrue:[self halt].

    meta notNil ifTrue:[

	meta removeDependent:self

    ].

    meta := aValueHolder.

    meta notNil ifTrue:[

	meta addDependent:self

    ].

!

selectClass:aClass

    self selectedClasses value:(Array with:aClass)

!

selectedClassNameIndices

    selectedClassNameIndices isNil ifTrue:[

        selectedClassNameIndices := ValueHolder with:#().

        selectedClassNameIndices addDependent:self

    ].

    ^ selectedClassNameIndices.

    "Created: / 5.2.2000 / 21:31:48 / cg"

    "Modified: / 5.2.2000 / 21:43:02 / cg"

!

selectedClasses

    "bad name- it's a holder, baby"

    ^ self selectionHolder

!

selectedClasses:aValueHolder

    "bad name- its a holder, baby"

    ^ self selectionHolder:aValueHolder

!

sortByNameAndInheritance

    sortByNameAndInheritance isNil ifTrue:[

        sortByNameAndInheritance := ValueHolder with:false.

        sortByNameAndInheritance addDependent:self.

    ].

    ^ sortByNameAndInheritance.

    "Created: / 04-07-2011 / 18:28:15 / cg"

!

sortByNameAndInheritance:something

    "set the 'sortByNameAndInheritance' value holder (automatically generated)"

    |oldValue newValue|

    sortByNameAndInheritance notNil ifTrue:[

        oldValue := sortByNameAndInheritance value.

        sortByNameAndInheritance removeDependent:self.

    ].

    sortByNameAndInheritance := something.

    sortByNameAndInheritance notNil ifTrue:[

        sortByNameAndInheritance addDependent:self.

    ].

    newValue := sortByNameAndInheritance value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:sortByNameAndInheritance.

    ].

! !

!ClassList methodsFor:'change & update'!

classDefinitionChanged:aClassOrNil

    listValid ifFalse:[^ self].

    slaveMode value == true ifTrue:[

	self invalidateList.

	^ self.

    ].

    self slaveMode value isNil ifTrue:[

	self window shown ifFalse:[

	    self invalidateList.

	    ^ self

	].

    ].

    aClassOrNil isNil ifTrue:[

	self halt:'should not happen'.

    ].

    "/ if that class is in my list ...

    ((self classList value ? #()) contains:[:cls | cls notNil and:[cls theNonMetaclass name = aClassOrNil theNonMetaclass name]])

    ifTrue:[

	self updateListsFor:aClassOrNil.

	"/ force update

	self selectedClassNameIndices value:(self selectedClassNameIndices value).

	((self selectedClasses value ? #()) contains:[:cls | cls notNil ifTrue:[cls theNonMetaclass name = aClassOrNil theNonMetaclass name] ifFalse:[false]]) 

	ifTrue:[

	    self updateOutputGenerator

	].

    ] ifFalse:[

	self invalidateList

    ]

    "Modified: / 29.2.2000 / 00:15:23 / cg"

!

classIsInList:cls

    |classListValue|

    cls notNil ifTrue:[

        classListValue := classList value.

        classListValue size > 0 ifTrue:[

            ((classListValue includesIdentical:cls theNonMetaclass)

            or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[

                ^ true.

            ]

        ]

    ].

    ^ false.

!

classRemoved:aClass

    |list|

    list := self classList value.

    list notNil ifTrue:[

	(list includesIdentical:aClass) ifTrue:[

	    self invalidateList.

	]

    ]

    "Modified: / 25.2.2000 / 23:53:51 / cg"

!

delayedUpdate:something with:aParameter from:changedObject

    |cls classes chgClass wg savedList|

    classes := self classList value ? #().

"/    (self slaveMode value == true) ifTrue:[^ self].

"/    self slaveMode value isNil ifTrue:[

"/        self window shown ifFalse:[

"/            self invalidateList.

"/            ^ self

"/        ].

"/    ].

    changedObject == slaveMode ifTrue:[

        "/ a previously suppressed update is now due

        listValid ~~ true ifTrue:[

            self enqueueDelayedUpdateList.

        ].

        self enqueueDelayedClassSelectionChanged.

        ^  self

    ].

    changedObject == self selectedClasses ifTrue:[

        self inSlaveMode ifFalse:[

            savedList := self selectedClasses value.

            lastSelectedClasses := nil.

            listValid == true ifFalse:[

                self updateList

            ].

            self selectedClasses setValue:savedList.

            self selectedClassesChanged.

            self updateOutputGenerator.

        ] ifTrue:[

"/            listValid := false.

            self selectedClassesChanged.

        ].

        ^ self 

    ].