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

BrowserList subclass:#MethodList

	instanceVariableNames:'classes selectedMethodNameIndices methodList methodNameList

		lastSelectedMethods browserNameList variableFilter

		filterClassVars updateProcess lastShowClass lastShowCategory

		lastShowClassFirst showMethodInheritance lastMethodClass

		lastMethodClassesSubclasses

		classAndSelectorsRedefinedBySubclassesOfClass showClass

		showMethodComplexity showMethodTypeIcon

		showImageResourceMethodsImages showSyntheticMethods

		showNameFilterHolder nameFilterPatternHolder nameFilterTypeHolder'

	classVariableNames:'ShowComplexityValue'

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!MethodList 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.

"

!

documentation

"

    I implement the method list in the new system browser

"

! !

!MethodList class methodsFor:'help specs'!

helpSpec

    ^ super helpSpec "/ addPairsFrom: self helpPairs

! !

!MethodList class methodsFor:'image specs'!

hideNameFilterIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideFilter16x16Icon

    "Created: / 09-11-2017 / 20:06:26 / cg"

    "Modified: / 28-07-2018 / 09:49:48 / Claus Gittinger"

! !

!MethodList class methodsFor:'interface specs'!

singleMethodWindowSpec

    "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:MethodList andSelector:#singleMethodWindowSpec

     MethodList new openInterface:#singleMethodWindowSpec

    "

    <resource: #canvas>

    ^

     #(#FullSpec

	#name: #singleMethodWindowSpec

	#window:

       #(#WindowSpec

	  #label: 'SingleSelectorList'

	  #name: 'SingleSelectorList'

	  #min: #(#Point 0 0)

	  #max: #(#Point 1024 721)

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

	)

	#component:

       #(#SpecCollection

	  #collection: #(

	   #(#LabelSpec

	      #label: 'MethodName'

	      #name: 'MethodLabel'

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

	      #translateLabel: true

	      #labelChannel: #methodLabelHolder

	      #menu: #menuHolder

	   )

	   )

	)

      )

    "Modified: / 1.3.2000 / 20:50:15 / cg"

!

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

     Tools::MethodList new openInterface:#windowSpec

     Tools::MethodList open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: 'c0c44ee4-579c-11e8-8560-b8f6b1108e05'

       window: 

      (WindowSpec

         label: 'SelectorList'

         name: 'SelectorList'

         uuid: '0ad3c6f4-d1ce-11e7-900e-c42c033b4871'

         min: (Point 0 0)

         bounds: (Rectangle 0 0 300 300)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'VerticalPanel1'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             uuid: '0ad3c974-d1ce-11e7-900e-c42c033b4871'

             horizontalLayout: fit

             verticalLayout: topFit

             horizontalSpace: 3

             verticalSpace: 3

             component: 

            (SpecCollection

               collection: (

                (HorizontalPanelViewSpec

                   name: 'HorizontalPanel1'

                   activeHelpKey: nameFilter

                   uuid: '0ad3ccb2-d1ce-11e7-900e-c42c033b4871'

                   visibilityChannel: showNameFilterHolder

                   horizontalLayout: leftSpaceFit

                   verticalLayout: center

                   component: 

                  (SpecCollection

                     collection: (

                      (ActionButtonSpec

                         label: 'hideNameFilterIcon'

                         name: 'Button1'

                         activeHelpKey: hideNameFilter

                         uuid: '0ad3ce6a-d1ce-11e7-900e-c42c033b4871'

                         hasCharacterOrientedLabel: false

                         translateLabel: false

                         model: hideNameFilter

                         extent: (Point 16 22)

                         usePreferredWidth: true

                       )

                      (LabelSpec

                         label: 'Filter:'

                         name: 'Label1'

                         uuid: '0ad3d0cc-d1ce-11e7-900e-c42c033b4871'

                         translateLabel: true

                         adjust: right

                         extent: (Point 46 24)

                         usePreferredWidth: true

                       )

                      (HorizontalPanelViewSpec

                         name: 'HorizontalPanel2'

                         uuid: '0ad3d25c-d1ce-11e7-900e-c42c033b4871'

                         horizontalLayout: rightFit

                         verticalLayout: center

                         horizontalSpace: 3

                         verticalSpace: 3

                         component: 

                        (SpecCollection

                           collection: (

                            (InputFieldSpec

                               name: 'EntryField1'

                               activeHelpKey: nameFilterField

                               uuid: '0ad3d374-d1ce-11e7-900e-c42c033b4871'

                               model: nameFilterPatternHolder

                               immediateAccept: true

                               acceptOnReturn: true

                               acceptOnTab: true

                               acceptOnPointerLeave: true

                               extent: (Point 172 26)

                             )

                            (ComboListSpec

                               name: 'ComboList1'

                               activeHelpKey: nameFilterType

                               uuid: '0ad3d608-d1ce-11e7-900e-c42c033b4871'

                               model: nameFilterTypeHolder

                               comboList: 

                              (Array

                                 'Ss' 'Tt' 'Mm' '-Ss' '-Tt' '-'

                                 'S' '-S'

                                 'T' '-T'

                                 'M'

                               )

                               useIndex: false

                               extent: (Point 45 26)

                             )

                            )

                         )

                         extent: (Point 222 30)

                       )

                      )

                   )

                   extent: (Point 300 30)

                 )

                (SequenceViewSpec

                   name: 'List'

                   uuid: '0ad3d842-d1ce-11e7-900e-c42c033b4871'

                   tabable: true

                   model: selectedMethodNameIndices

                   menu: menuHolder

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   miniScrollerHorizontal: true

                   isMultiSelect: true

                   valueChangeSelector: selectionChangedByClick

                   useIndex: true

                   sequenceList: browserNameList

                   doubleClickChannel: doubleClickChannel

                   extent: (Point 300 267)

                   properties: 

                  (PropertyListDictionary

                     canDropSelector: canDropContext:

                     dropArgument: nil

                     dropSelector: doDropContext:

                     dragArgument: nil

                   )

                 )

                )

             )

           )

          )

       )

     )

    "Modified: / 11-05-2019 / 11:22:02 / Claus Gittinger"

! !

!MethodList 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)."

    ^ #(

        #(doubleClickChannel action)

        #environmentHolder

        #filterClassVars

        #forceGeneratorTrigger

        #immediateUpdate

        #inGeneratorHolder

        #menuHolder

        #methodCategoryHolder

        #packageFilter

        #selectedMethods

        #selectionChangeCondition

        #showCoverageInformation

        #showImageResourceMethodsImages

        #showMethodComplexity

        #showMethodInheritance

        #showMethodTypeIcon

        #showNameFilterHolder

        #showSyntheticMethods

        #sortBy

        #updateTrigger

        #variableFilter

      ).

! !

!MethodList methodsFor:'aspects'!

browserNameList

    browserNameList isNil ifTrue:[

	browserNameList := List new.

    ].

    ^ browserNameList.

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

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

!

defaultSlaveModeValue

    ^ false.

!

filterClassVars

    filterClassVars isNil ifTrue:[

        filterClassVars := ValueHolder with:false.

        filterClassVars addDependent:self

    ].

    ^  filterClassVars

!

filterClassVars:aValueHolder

    filterClassVars notNil ifTrue:[

	filterClassVars removeDependent:self

    ].

    filterClassVars := aValueHolder.

    filterClassVars notNil ifTrue:[

	filterClassVars addDependent:self

    ].

!

methodLabelHolder

    ^ self pseudoListLabelHolder

    "Created: / 1.3.2000 / 20:50:07 / cg"

!

methodList

    ^ methodList

!

nameFilterPatternHolder

    nameFilterPatternHolder isNil ifTrue:[

        nameFilterPatternHolder := '' asValue.

        nameFilterPatternHolder addDependent:self

    ].

    ^  nameFilterPatternHolder

    "Created: / 09-11-2017 / 20:51:04 / cg"

!

nameFilterTypeHolder

    nameFilterTypeHolder isNil ifTrue:[

        nameFilterTypeHolder := 'Ss' asValue.

        nameFilterTypeHolder addDependent:self

    ].

    ^  nameFilterTypeHolder

    "Created: / 25-11-2017 / 11:51:08 / cg"

!

selectedMethodNameIndices

    selectedMethodNameIndices isNil ifTrue:[

	selectedMethodNameIndices := ValueHolder new.

	selectedMethodNameIndices addDependent:self

    ].

    ^ selectedMethodNameIndices.

    "Modified: / 5.2.2000 / 00:31:48 / cg"

    "Created: / 5.2.2000 / 22:59:31 / cg"

!

selectedMethods

    ^ self selectionHolder

!

selectedMethods:aValueHolder

    ^ self selectionHolder:aValueHolder

!

showImageResourceMethodsImages

    showImageResourceMethodsImages isNil ifTrue:[

        showImageResourceMethodsImages := ValueHolder with:false.

        showImageResourceMethodsImages addDependent:self

    ].

    ^  showImageResourceMethodsImages

!

showImageResourceMethodsImages:aValueHolder

    showImageResourceMethodsImages notNil ifTrue:[

	showImageResourceMethodsImages removeDependent:self

    ].

    showImageResourceMethodsImages := aValueHolder.

    showImageResourceMethodsImages notNil ifTrue:[

	showImageResourceMethodsImages addDependent:self

    ].

!

showMethodComplexity

    showMethodComplexity isNil ifTrue:[

        showMethodComplexity := ValueHolder with:false.

        showMethodComplexity addDependent:self

    ].

    ^  showMethodComplexity

!

showMethodComplexity:aValueHolder

    showMethodComplexity notNil ifTrue:[

	showMethodComplexity removeDependent:self

    ].

    showMethodComplexity := aValueHolder.

    showMethodComplexity notNil ifTrue:[

	showMethodComplexity addDependent:self

    ].

!

showMethodInheritance

    showMethodInheritance isNil ifTrue:[

        showMethodInheritance := ValueHolder with:false.

        showMethodInheritance addDependent:self

    ].

    ^  showMethodInheritance

!

showMethodInheritance:aValueHolder

    showMethodInheritance notNil ifTrue:[

	showMethodInheritance removeDependent:self

    ].

    showMethodInheritance := aValueHolder.

    showMethodInheritance notNil ifTrue:[

	showMethodInheritance addDependent:self

    ].

!

showMethodTypeIcon

    showMethodTypeIcon isNil ifTrue:[

        showMethodTypeIcon := ValueHolder with:true.

        showMethodTypeIcon addDependent:self

    ].

    ^  showMethodTypeIcon

!

showMethodTypeIcon:aValueHolder

    showMethodTypeIcon notNil ifTrue:[

	showMethodTypeIcon removeDependent:self

    ].

    showMethodTypeIcon := aValueHolder.

    showMethodTypeIcon notNil ifTrue:[

	showMethodTypeIcon addDependent:self

    ].

!

showNameFilterHolder

    "the selector/name filter"

    |holder|

    showNameFilterHolder isNil ifTrue:[

        masterApplication notNil ifTrue:[

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

        ].

        holder isNil ifTrue:[

            holder := ValueHolder with:true.

        ].    

        showNameFilterHolder := IndirectValue for:holder.

        showNameFilterHolder onChangeEvaluate:[ self enqueueDelayedUpdateList ].

    ].

    ^ showNameFilterHolder

    "Created: / 27-11-2017 / 15:16:08 / cg"

!

showNameFilterHolder:aValueHolder

    self showNameFilterHolder valueHolder:aValueHolder.

    "Created: / 27-11-2017 / 15:16:24 / cg"

    "Modified: / 28-11-2017 / 18:52:20 / cg"

!

showSyntheticMethods

    showSyntheticMethods isNil ifTrue:[

        showSyntheticMethods := ValueHolder with:false.

        showSyntheticMethods addDependent:self

    ].

    ^  showSyntheticMethods

    "Created: / 13-04-2012 / 16:03:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

showSyntheticMethods:aValueHolder