"

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

NavigatorModel subclass:#BrowserList

	instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder

		selectionChangeCondition immediateUpdate doubleClickChannel

		filter updateTrigger forceGeneratorTrigger hideUnloadedClasses

		showClassPackages selectionHolder packageFilter nameSpaceFilter

		organizerMode slaveMode listValid pseudoListLabelHolder icons

		sortBy autoSelect showAllClassesInNameSpaceOrganisation

		nameFilter showCoverageInformation searchHandler

		lastUpdateFromSmalltalkTimestamp

		numUpdatesFromSmalltalkInLast200Msecs'

	classVariableNames:'SynchronousUpdate Icons'

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

Object subclass:#SearchHandler

	instanceVariableNames:'listView listHolder listSelectionHolder searchField searchWindow

		searchHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:BrowserList

!

!BrowserList 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 class-categories.

    Provides an outputGenerator, which enumerates the classes in

    the selected categories.

    [author:]

        Claus Gittinger (cg@exept.de)

    [instance variables:]

        can someone please write a  few words here...

        menuHolder 

        inGeneratorHolder 

        outGeneratorHolder

        selectionChangeCondition 

        immediateUpdate 

        doubleClickChannel

        filter                          a filterblock by the one who embedds this

        updateTrigger 

        forceGeneratorTrigger 

        hideUnloadedClasses

        showClassPackages 

        selectionHolder 

        packageFilter 

        nameSpaceFilter

        organizerMode 

        slaveMode 

        listValid 

        pseudoListLabelHolder 

        icons

        sortBy 

        autoSelect 

        showAllClassesInNameSpaceOrganisation

        nameFilter                      a string or glob pattern (from the user, if a GUI for that is present)

"

! !

!BrowserList class methodsFor:'image specs'!

checkedIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self checkedIcon inspect

     ImageEditor openOnClass:self andSelector:#checkedIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^ MenuPanel iconIndicationOn

"/    ^Icon

"/        constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkedIcon'

"/        ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?07?C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 33 161 33]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

"/?????<@C0@O@D<@30GOH8<7C38OG@<HC0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]

    "Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 04-12-2011 / 15:35:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

nameSpaceIcon

    ^ SystemBrowser nameSpaceIcon

!

packageIcon

    ^ SystemBrowser packageIcon

!

padLockBlueMiniIcon

    ^ SystemBrowser padLockBlueMiniIcon

!

padLockGrayMiniIcon

    ^ SystemBrowser padLockGrayMiniIcon

!

padLockGreenMiniIcon

    ^ SystemBrowser padLockGreenMiniIcon

!

padLockRedMiniIcon

    ^ SystemBrowser padLockRedMiniIcon

!

programImageIcon

    ^ SystemBrowser programImageIcon

!

protectedMethod

    ^ self padLockRedMiniIcon

!

redLockIcon

    ^ SystemBrowser redLockIcon

!

uncheckedIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self checkFrameForm inspect

     ImageEditor openOnClass:self andSelector:#checkFrameForm

     Icon flushCachedIcons

    "

    <resource: #image>

    ^MenuPanel iconIndicationOff

"/    ^Icon

"/        constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkFrameForm'

"/        ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?0??C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

"/?????<@C0@O@@<@C0@O@@<@C0@O@@<@C0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]

    "Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 04-12-2011 / 15:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BrowserList methodsFor:'accessing'!

nameFilter:something

    nameFilter := something.

! !

!BrowserList methodsFor:'aspects'!

defaultSlaveModeValue

    ^ nil.

    "Created: / 25.2.2000 / 22:36:40 / cg"

!

doubleClickChannel

    doubleClickChannel isNil ifTrue:[

	doubleClickChannel := TriggerValue new.

    ].

    ^ doubleClickChannel.

    "Modified: / 31.1.2000 / 00:42:44 / cg"

    "Created: / 5.2.2000 / 22:38:32 / cg"

!

doubleClickChannel:aChannel

    doubleClickChannel := aChannel

!

filter:aValueHolder

    filter notNil ifTrue:[

	filter removeDependent:self

    ].

    filter := aValueHolder.

    filter notNil ifTrue:[

	filter addDependent:self

    ].

    "Modified: / 4.2.2000 / 23:29:30 / cg"

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

!

forceGeneratorTrigger

    forceGeneratorTrigger isNil ifTrue:[

	forceGeneratorTrigger := TriggerValue new.

	forceGeneratorTrigger addDependent:self.

    ].

    ^ forceGeneratorTrigger.

    "Modified: / 18.2.2000 / 02:02:52 / cg"

    "Created: / 18.2.2000 / 02:46:40 / cg"

!

forceGeneratorTrigger:aTriggerValue

    forceGeneratorTrigger notNil ifTrue:[

	forceGeneratorTrigger removeDependent:self

    ].

    forceGeneratorTrigger := aTriggerValue.

    forceGeneratorTrigger notNil ifTrue:[

	forceGeneratorTrigger addDependent:self

    ].

    "Modified: / 4.2.2000 / 23:29:30 / cg"

    "Created: / 18.2.2000 / 02:46:52 / cg"

!

hideUnloadedClasses

    hideUnloadedClasses isNil ifTrue:[

	hideUnloadedClasses := false asValue.

	hideUnloadedClasses addDependent:self.

    ].

    ^ hideUnloadedClasses.

    "Modified: / 18.2.2000 / 02:02:52 / cg"

    "Created: / 18.2.2000 / 17:36:30 / cg"

!

hideUnloadedClasses:aValueHolder

    hideUnloadedClasses notNil ifTrue:[

	hideUnloadedClasses removeDependent:self

    ].

    hideUnloadedClasses := aValueHolder.

    hideUnloadedClasses notNil ifTrue:[

	hideUnloadedClasses addDependent:self

    ].

    "Modified: / 4.2.2000 / 23:29:30 / cg"

    "Created: / 18.2.2000 / 17:46:36 / cg"

!

menuHolder

    ^ menuHolder

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

!

menuHolder:aValueHolder

    menuHolder := aValueHolder.

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

!

nameSpaceFilter

    nameSpaceFilter isNil ifTrue:[

	nameSpaceFilter := ValueHolder new.

	nameSpaceFilter addDependent:self.

    ].

    ^ nameSpaceFilter.

    "Modified: / 24.2.2000 / 23:57:13 / cg"

    "Created: / 18.8.2000 / 14:18:56 / cg"

!

nameSpaceFilter:aValueHolder

    nameSpaceFilter notNil ifTrue:[

	nameSpaceFilter removeDependent:self

    ].

    nameSpaceFilter := aValueHolder.

    nameSpaceFilter notNil ifTrue:[

	nameSpaceFilter addDependent:self

    ].

    "Modified: / 24.2.2000 / 23:56:22 / cg"

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

!

organizerMode

    organizerMode isNil ifTrue:[

        organizerMode := OrganizerCanvas organizerModeCategory asValue.

        organizerMode addDependent:self.

    ].

    ^ organizerMode

    "Modified: / 31.1.2000 / 00:51:06 / cg"

    "Created: / 25.2.2000 / 22:36:15 / cg"

!

organizerMode:aValueHolder

    organizerMode notNil ifTrue:[

	organizerMode removeDependent:self

    ].

    organizerMode := aValueHolder.

    organizerMode notNil ifTrue:[

	organizerMode addDependent:self

    ].

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

    "Created: / 25.2.2000 / 22:36:28 / cg"

!

packageFilter

    packageFilter isNil ifTrue:[

	packageFilter := ValueHolder new.

	packageFilter addDependent:self.

"/ debug-check only

"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']].

    ].

    ^ packageFilter.

    "Modified: / 18.8.2000 / 19:26:36 / cg"

!

packageFilter:aValueHolder

    packageFilter notNil ifTrue:[

	packageFilter removeDependent:self

    ].

    packageFilter := aValueHolder.

    packageFilter notNil ifTrue:[

	packageFilter addDependent:self.

"/ debug-check only

"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']].

    ].

    "Modified: / 18.8.2000 / 19:26:40 / cg"

!

pseudoListLabelHolder

    pseudoListLabelHolder isNil ifTrue:[

	pseudoListLabelHolder := '' asValue.

    ].

    ^ pseudoListLabelHolder

!

selectionChangeCondition:aBlockOrValueHolder

    selectionChangeCondition := aBlockOrValueHolder

!

selectionHolder

    selectionHolder isNil ifTrue:[

	selectionHolder := ValueHolder new.

	selectionHolder addDependent:self

    ].

    ^ selectionHolder.

!

selectionHolder:aValueHolder

    |prevSelection|

    prevSelection := selectionHolder value ? #().

    selectionHolder notNil ifTrue:[

	selectionHolder removeDependent:self

    ].

    selectionHolder := aValueHolder.

    selectionHolder notNil ifTrue:[

	selectionHolder addDependent:self

    ].

    (selectionHolder value ? #()) ~= prevSelection ifTrue:[

	"/ update

	self update:#value with:nil from:selectionHolder

    ].

!

showAllClassesInNameSpaceOrganisation

    ^[

        |holder|

        showAllClassesInNameSpaceOrganisation notNil ifTrue:[

            holder := showAllClassesInNameSpaceOrganisation

        ] ifFalse:[

            masterApplication notNil ifTrue:[

                holder := masterApplication perform:#showAllClassesInNameSpaceOrganisation ifNotUnderstood:nil.

            ].

            holder notNil ifTrue:[

                holder addDependent:self.

            ] ifFalse:[

                showAllClassesInNameSpaceOrganisation isNil ifTrue:[

                    showAllClassesInNameSpaceOrganisation := false asValue.

                    showAllClassesInNameSpaceOrganisation addDependent:self.

                ].

                holder := showAllClassesInNameSpaceOrganisation.

            ].

        ].

        holder value

    ].

    "Created: / 05-03-2007 / 16:47:03 / cg"

    "Modified: / 04-07-2011 / 21:49:10 / cg"

!

showAllClassesInNameSpaceOrganisation:aValueHolder

    showAllClassesInNameSpaceOrganisation notNil ifTrue:[

        showAllClassesInNameSpaceOrganisation removeDependent:self

    ].

    showAllClassesInNameSpaceOrganisation := aValueHolder.

    showAllClassesInNameSpaceOrganisation notNil ifTrue:[

        showAllClassesInNameSpaceOrganisation addDependent:self

    ].

    "Created: / 05-03-2007 / 16:47:13 / cg"

!

showClassPackages

    showClassPackages isNil ifTrue:[

	showClassPackages := false asValue.

	showClassPackages addDependent:self.

    ].

    ^ showClassPackages.

    "Modified: / 18.2.2000 / 02:02:52 / cg"

    "Created: / 18.2.2000 / 17:36:30 / cg"

!

showClassPackages:aValueHolder

    showClassPackages notNil ifTrue:[

	showClassPackages removeDependent:self

    ].

    showClassPackages := aValueHolder.

    showClassPackages notNil ifTrue:[

	showClassPackages addDependent:self

    ].

!

showCoverageInformation

    showCoverageInformation isNil ifTrue:[

        showCoverageInformation := false asValue.

        showCoverageInformation addDependent:self.

    ].

    ^ showCoverageInformation.

    "Created: / 27-04-2010 / 16:13:16 / cg"

!

showCoverageInformation:aValueHolder

    showCoverageInformation notNil ifTrue:[

        showCoverageInformation removeDependent:self

    ].

    showCoverageInformation := aValueHolder.

    showCoverageInformation notNil ifTrue:[

        showCoverageInformation  addDependent:self

    ].

    "Created: / 27-04-2010 / 16:13:20 / cg"

!

slaveMode

    slaveMode isNil ifTrue:[

	slaveMode := self defaultSlaveModeValue asValue.

	slaveMode addDependent:self.

    ].

    ^ slaveMode.

    "Created: / 25.2.2000 / 22:36:40 / cg"

!

slaveMode:aValueHolder

    |prev|

    slaveMode notNil ifTrue:[

	slaveMode removeDependent:self.

	prev := slaveMode value.

    ].

    slaveMode := aValueHolder.

    slaveMode notNil ifTrue:[

	slaveMode addDependent:self

    ].

    prev ~~ slaveMode value ifTrue:[

	(prev isNil and:[slaveMode value]) ifFalse:[

	    self update:#value with:nil from:slaveMode.

	]

    ].

!

sortBy

    sortBy isNil ifTrue:[

	sortBy := nil asValue.

	sortBy addDependent:self.

    ].

    ^ sortBy.

    "Created: / 25.2.2000 / 22:36:40 / cg"

!

sortBy:aValueHolder

    |prev|