"

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

BrowserList subclass:#ClassList

	instanceVariableNames:'classList classNameList meta lastSelectedClasses

		selectedClassNameIndices currentNamespace hidePrivateClasses

		unloadedClassesColor markApplicationsHolder classFilterBlock'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!ClassList class methodsFor:'documentation'!

copyright

"

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

"

!

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)

          #max: #(#Point 1024 721)

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

    ^ #(

	#currentNamespace

	#(#doubleClickChannel #action )

	#forceGeneratorTrigger

	#hidePrivateClasses

	#hideUnloadedClasses

	#immediateUpdate

	#inGeneratorHolder

	#menuHolder

	#meta

	#organizerMode

	#outGeneratorHolder

	#packageFilter

	#nameSpaceFilter

	#selectedClasses

	#selectionChangeCondition

	#showClassPackages

	#slaveMode

	#updateTrigger

	#markApplicationsHolder

      ).

    "Modified: / 18.8.2000 / 18:49:08 / cg"

! !

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

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 := false asValue.

	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 := true asValue.

	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 := false asValue.

	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

    ].

!

selectedClassNameIndices

    selectedClassNameIndices isNil ifTrue:[

	selectedClassNameIndices := #() asValue.

	selectedClassNameIndices addDependent:self

    ].

    ^ selectedClassNameIndices.

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

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

!

selectedClasses

    ^ self selectionHolder

!

selectedClasses:aValueHolder

    ^ self selectionHolder:aValueHolder

!

showClassPackages

    showClassPackages isNil ifTrue:[

	showClassPackages := false asValue.

	showClassPackages addDependent:self.

    ].

    ^ showClassPackages.

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

!

showClassPackages:aValueHolder

    showClassPackages notNil ifTrue:[

	showClassPackages removeDependent:self

    ].

    showClassPackages := aValueHolder.

    showClassPackages notNil ifTrue:[

	showClassPackages addDependent:self

    ].

! !

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

!

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 inSlaveModeOrInvisible ifTrue:[

        self invalidateList.

        ^ self.

    ].

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

"/    self slaveMode value isNil ifTrue:[

"/        self window shown ifFalse:[

"/            self invalidateList.

"/            ^ self

"/        ].

"/    ].

    changedObject == slaveMode ifTrue:[

        listValid ~~ true ifTrue:[

            self enqueueDelayedUpdateList.

        ].

        self enqueueDelayedClassSelectionChanged.

        ^  self

    ].

    changedObject == Smalltalk ifTrue:[

        something == #methodInClass ifTrue:[

            ^ self "no interest" 

        ].    

        something == #methodInClassRemoved ifTrue:[

            "/ must update the list, if the methods package is different from

            "/ the classes package (to undo any has-exension highlighting)

            cls := aParameter first.

            self updateListsFor:cls.

            ^ self 

        ].    

        something == #organization ifTrue:[^ self "no interest" ].    

        (something == #classDefinition 

        or:[something == #classVariables

        or:[something == #newClass]]) ifTrue:[

            "/ update that class in my classList and the selection

            listValid ifTrue:[

                self classDefinitionChanged:aParameter.

            ].

            ^ self.

        ].

        (something == #lastTestRunResult) ifTrue:[

            "/ update that class in my classList and the selection

            listValid ifTrue:[

                self updateListsFor:aParameter.

                "/ self classDefinitionChanged:aParameter.

            ].

            ^ self.

        ].

        something == #classRemove ifTrue:[

            "/ update my classList and the selection

            self classRemoved:aParameter.

            ^ self.

        ].

        something == #classRename ifTrue:[

            "/ update that class in my classList and the selection

            listValid ifTrue:[

                aParameter isArray ifTrue:[

                    cls := aParameter at:1.

                    self classDefinitionChanged:cls.

                ]

            ].

            ^ self.

        ].

        something == #projectOrganization ifTrue:[

            aParameter isNil ifTrue:[

                self invalidateList.

                organizerMode value == #project ifTrue:[

                    self enqueueDelayedUpdateOutputGenerator.

                ].

                ^ self

            ].

            cls := aParameter at:1.

            cls notNil ifTrue:[  "/ should not happen (but does occasionally)

                ((classes includes:cls theMetaclass)

                or:[(classes includes:cls theNonMetaclass)]) ifTrue:[

                    self invalidateList.