Tools__MethodList.st
author Claus Gittinger <cg@exept.de>
Sun, 19 Nov 2017 22:17:17 +0100
changeset 17771 0079b02e0f34
parent 17740 91ed2b065441
child 17780 1b645a397968
permissions -rw-r--r--
#BUGFIX by cg class: DirectoryContentsBrowser changed: #postOpenFromMaster: invalid argument
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2000 by eXept Software AG
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
     3
	      All Rights Reserved
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
BrowserList subclass:#MethodList
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
    17
	instanceVariableNames:'classes selectedMethodNameIndices methodList methodNameList
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
    18
		lastSelectedMethods browserNameList variableFilter
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
    19
		filterClassVars updateProcess lastShowClass lastShowCategory
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
    20
		lastShowClassFirst showMethodInheritance lastMethodClass
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
    21
		lastMethodClassesSubclasses
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
		classAndSelectorsRedefinedBySubclassesOfClass showClass
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
		showMethodComplexity showMethodTypeIcon
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    24
		showImageResourceMethodsImages showSyntheticMethods
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    25
		showNameFilterHolder nameFilterPatternHolder'
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	classVariableNames:'ShowComplexityValue'
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	poolDictionaries:''
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	category:'Interface-Browsers-New'
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!MethodList class methodsFor:'documentation'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
copyright
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 COPYRIGHT (c) 2000 by eXept Software AG
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    36
	      All Rights Reserved
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
 This software is furnished under a license and may be used
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
 only in accordance with the terms of that license and with the
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
 inclusion of the above copyright notice.   This software may not
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
 be provided or otherwise made available to, or used by, any
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
 other person.  No title to or ownership of the software is
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
 hereby transferred.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
documentation
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
    I implement the method list in the new system browser
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    53
!MethodList class methodsFor:'image specs'!
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    54
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    55
hideNameFilterIcon
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    56
    ^ GenericToolbarIconLibrary hideFilter16x16Icon
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    57
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    58
    "Created: / 09-11-2017 / 20:06:26 / cg"
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    59
! !
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
    60
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!MethodList class methodsFor:'interface specs'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
singleMethodWindowSpec
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
    "This resource specification was automatically generated
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
     by the UIPainter of ST/X."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "Do not manually edit this!! If it is corrupted,
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
     the UIPainter may not be able to read the specification."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
    "
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
     UIPainter new openOnClass:MethodList andSelector:#singleMethodWindowSpec
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
     MethodList new openInterface:#singleMethodWindowSpec
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
    "
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    <resource: #canvas>
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    77
    ^
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
     #(#FullSpec
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    79
	#name: #singleMethodWindowSpec
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    80
	#window:
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
       #(#WindowSpec
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    82
	  #label: 'SingleSelectorList'
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    83
	  #name: 'SingleSelectorList'
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    84
	  #min: #(#Point 0 0)
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    85
	  #max: #(#Point 1024 721)
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    86
	  #bounds: #(#Rectangle 12 22 312 322)
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    87
	)
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    88
	#component:
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
       #(#SpecCollection
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    90
	  #collection: #(
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    91
	   #(#LabelSpec
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    92
	      #label: 'MethodName'
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    93
	      #name: 'MethodLabel'
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    94
	      #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    95
	      #translateLabel: true
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    96
	      #labelChannel: #methodLabelHolder
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    97
	      #menu: #menuHolder
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    98
	   )
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
    99
	   )
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   101
	)
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
      )
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
    "Modified: / 1.3.2000 / 20:50:15 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
windowSpec
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
    "This resource specification was automatically generated
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
     by the UIPainter of ST/X."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
    "Do not manually edit this!! If it is corrupted,
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
     the UIPainter may not be able to read the specification."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
    "
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
     UIPainter new openOnClass:Tools::MethodList andSelector:#windowSpec
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
     Tools::MethodList new openInterface:#windowSpec
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
     Tools::MethodList open
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
    "
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
    <resource: #canvas>
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   122
    ^ 
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   123
    #(FullSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   124
       name: windowSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   125
       window: 
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   126
      (WindowSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   127
         label: 'SelectorList'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   128
         name: 'SelectorList'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   129
         min: (Point 0 0)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   130
         bounds: (Rectangle 0 0 300 300)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   131
       )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   132
       component: 
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   133
      (SpecCollection
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   134
         collection: (
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   135
          (VerticalPanelViewSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   136
             name: 'VerticalPanel1'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   137
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   138
             horizontalLayout: fit
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   139
             verticalLayout: topFit
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   140
             horizontalSpace: 3
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   141
             verticalSpace: 3
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   142
             component: 
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   143
            (SpecCollection
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   144
               collection: (
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   145
                (HorizontalPanelViewSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   146
                   name: 'HorizontalPanel1'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   147
                   activeHelpKey: selectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   148
                   visibilityChannel: showSelectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   149
                   horizontalLayout: leftFit
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   150
                   verticalLayout: center
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   151
                   component: 
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   152
                  (SpecCollection
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   153
                     collection: (
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   154
                      (ActionButtonSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   155
                         label: 'hideNameFilterIcon'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   156
                         name: 'Button1'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   157
                         activeHelpKey: hideSelectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   158
                         hasCharacterOrientedLabel: false
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   159
                         translateLabel: false
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   160
                         model: hideSelectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   161
                         extent: (Point 16 22)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   162
                         usePreferredWidth: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   163
                       )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   164
                      (LabelSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   165
                         label: 'Filter:'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   166
                         name: 'Label1'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   167
                         translateLabel: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   168
                         adjust: right
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   169
                         extent: (Point 46 24)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   170
                         usePreferredWidth: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   171
                       )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   172
                      (InputFieldSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   173
                         name: 'EntryField1'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   174
                         model: nameFilterPatternHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   175
                         immediateAccept: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   176
                         acceptOnReturn: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   177
                         acceptOnTab: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   178
                         acceptOnPointerLeave: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   179
                         extent: (Point 228 25)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   180
                       )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   181
                      )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   182
                    
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   183
                   )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   184
                   extent: (Point 300 30)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   185
                 )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   186
                (SequenceViewSpec
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   187
                   name: 'List'
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   188
                   tabable: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   189
                   model: selectedMethodNameIndices
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   190
                   menu: menuHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   191
                   hasHorizontalScrollBar: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   192
                   hasVerticalScrollBar: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   193
                   miniScrollerHorizontal: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   194
                   isMultiSelect: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   195
                   valueChangeSelector: selectionChangedByClick
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   196
                   useIndex: true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   197
                   sequenceList: browserNameList
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   198
                   doubleClickChannel: doubleClickChannel
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   199
                   extent: (Point 300 267)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   200
                   properties: 
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   201
                  (PropertyListDictionary
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   202
                     canDropSelector: canDropContext:
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   203
                     dropArgument: nil
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   204
                     dropSelector: doDropContext:
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   205
                     dragArgument: nil
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   206
                   )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   207
                 )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   208
                )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   209
              
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   210
             )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   211
           )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   212
          )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   213
        
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   214
       )
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   215
     )
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
!MethodList class methodsFor:'plugIn spec'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
aspectSelectors
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
    "This resource specification was automatically generated
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
     by the UIPainter of ST/X."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
    "Do not manually edit this. If it is corrupted,
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
     the UIPainter may not be able to read the specification."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
    "Return a description of exported aspects;
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
     these can be connected to aspects of an embedding application
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
     (if this app is embedded in a subCanvas)."
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
    ^ #(
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   232
        #(doubleClickChannel action)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   233
        #environmentHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   234
        #filterClassVars
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   235
        #forceGeneratorTrigger
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   236
        #immediateUpdate
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   237
        #inGeneratorHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   238
        #menuHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   239
        #methodCategoryHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   240
        #packageFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   241
        #selectedMethods
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   242
        #selectionChangeCondition
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   243
        #showCoverageInformation
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   244
        #showImageResourceMethodsImages
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   245
        #showMethodComplexity
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   246
        #showMethodInheritance
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   247
        #showMethodTypeIcon
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   248
        #showSelectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   249
        #showSyntheticMethods
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   250
        #sortBy
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   251
        #updateTrigger
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   252
        #variableFilter
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
      ).
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
!MethodList methodsFor:'aspects'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
browserNameList
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
    browserNameList isNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   261
	browserNameList := List new.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
    ^ browserNameList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
    "Modified: / 31.1.2000 / 00:42:44 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
    "Created: / 5.2.2000 / 22:38:32 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
defaultSlaveModeValue
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
    ^ false.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
filterClassVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
    filterClassVars isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   275
        filterClassVars := ValueHolder with:false.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   276
        filterClassVars addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
    ^  filterClassVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
filterClassVars:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
    filterClassVars notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   283
	filterClassVars removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
    filterClassVars := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
    filterClassVars notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   287
	filterClassVars addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
methodLabelHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
    ^ self pseudoListLabelHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
    "Created: / 1.3.2000 / 20:50:07 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
methodList
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
    ^ methodList
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   301
nameFilterPatternHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   302
    nameFilterPatternHolder isNil ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   303
        nameFilterPatternHolder := '' asValue.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   304
        nameFilterPatternHolder addDependent:self
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   305
    ].
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   306
    ^  nameFilterPatternHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   307
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   308
    "Created: / 09-11-2017 / 20:51:04 / cg"
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   309
!
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   310
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
selectedMethodNameIndices
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
    selectedMethodNameIndices isNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   313
	selectedMethodNameIndices := ValueHolder new.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   314
	selectedMethodNameIndices addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
    ^ selectedMethodNameIndices.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
    "Modified: / 5.2.2000 / 00:31:48 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
    "Created: / 5.2.2000 / 22:59:31 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
selectedMethods
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
    ^ self selectionHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
selectedMethods:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
    ^ self selectionHolder:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
showImageResourceMethodsImages
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
    showImageResourceMethodsImages isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   332
        showImageResourceMethodsImages := ValueHolder with:false.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   333
        showImageResourceMethodsImages addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
    ^  showImageResourceMethodsImages
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
showImageResourceMethodsImages:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
    showImageResourceMethodsImages notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   340
	showImageResourceMethodsImages removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
    showImageResourceMethodsImages := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
    showImageResourceMethodsImages notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   344
	showImageResourceMethodsImages addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
showMethodComplexity
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
    showMethodComplexity isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   350
        showMethodComplexity := ValueHolder with:false.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   351
        showMethodComplexity addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
    ^  showMethodComplexity
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
showMethodComplexity:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
    showMethodComplexity notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   358
	showMethodComplexity removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
    showMethodComplexity := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
    showMethodComplexity notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   362
	showMethodComplexity addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
showMethodInheritance
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
    showMethodInheritance isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   368
        showMethodInheritance := ValueHolder with:false.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   369
        showMethodInheritance addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
    ^  showMethodInheritance
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
showMethodInheritance:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
    showMethodInheritance notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   376
	showMethodInheritance removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
    showMethodInheritance := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
    showMethodInheritance notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   380
	showMethodInheritance addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
showMethodTypeIcon
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
    showMethodTypeIcon isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   386
        showMethodTypeIcon := ValueHolder with:true.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   387
        showMethodTypeIcon addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
    ^  showMethodTypeIcon
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
showMethodTypeIcon:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
    showMethodTypeIcon notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   394
	showMethodTypeIcon removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
    showMethodTypeIcon := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
    showMethodTypeIcon notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   398
	showMethodTypeIcon addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   402
showSelectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   403
    |holder|
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   404
    
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   405
    showNameFilterHolder isNil ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   406
        masterApplication notNil ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   407
            holder := masterApplication perform:#showSelectorNameFilter ifNotUnderstood:nil.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   408
        ].
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   409
        holder isNil ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   410
            holder := ValueHolder with:false.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   411
        ].    
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   412
        showNameFilterHolder := IndirectValue for:holder.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   413
    ].
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   414
    ^  showNameFilterHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   415
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   416
    "Created: / 09-11-2017 / 20:24:22 / cg"
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   417
!
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   418
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   419
showSelectorNameFilter:aValueHolder
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   420
    self showSelectorNameFilter value:aValueHolder.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   421
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   422
    "Created: / 09-11-2017 / 20:24:08 / cg"
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   423
!
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   424
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
showSyntheticMethods
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
    showSyntheticMethods isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   427
        showSyntheticMethods := ValueHolder with:false.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   428
        showSyntheticMethods addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
    ^  showSyntheticMethods
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
    "Created: / 13-04-2012 / 16:03:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
showSyntheticMethods:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
    showSyntheticMethods notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   437
	showSyntheticMethods removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
    showSyntheticMethods := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
    showSyntheticMethods notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   441
	showSyntheticMethods addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
    "Created: / 13-04-2012 / 16:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
variableFilter
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
    variableFilter isNil ifTrue:[
15267
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   449
        variableFilter := ValueHolder with:nil.
f03e2a01f281 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15181
diff changeset
   450
        variableFilter addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
    ^  variableFilter
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
variableFilter:aValueHolder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
    variableFilter notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   457
	variableFilter removeDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
    variableFilter := aValueHolder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
    variableFilter notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   461
	variableFilter addDependent:self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
!MethodList methodsFor:'change & update'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
delayedUpdate:something with:aParameter from:changedObject
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
    |cls clsName sel oldMethod newMethod methods newSelection
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
     selectionHolder selection needSelectionChange|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
    selectionHolder := self selectedMethods.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
    selection := selectionHolder value.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
    changedObject == environment ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   475
        classes notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   476
            something == #classDefinition ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   477
                cls := aParameter.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   478
                clsName := cls name.
17224
e4fd06bddeec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17037
diff changeset
   479
                (classes contains:[:aClass | aClass notNil and:[aClass name = clsName]]) ifFalse:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   480
                    ^ self   "/ I don't care for that class
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   481
                ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   482
                classes := classes collect:[:eachClass | (environment classNamed:eachClass name) ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   483
                self invalidateList.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
"/                self updateList.
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   485
                ^ self.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   486
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   488
            something == #methodCategory ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   489
                "/ ignore here - methodCategoryList will tell me if required
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   490
                ^ self
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   491
            ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   492
            (something == #classOrganization
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   493
            or:[ something == #methodCategoryAdded
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   494
            or:[ something == #methodCategoryRemoved
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   495
            or:[ something == #methodCategoriesRemoved
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   496
            or:[ something == #methodCategoryRenamed ]]]]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   497
                "/ ignore here - methodCategoryList will tell me if required
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   498
                ^ self
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   499
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   501
            (something == #methodInClass
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   502
            or:[something == #methodCoverageInfo]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   503
                "/ a method has been added/changed
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   504
                cls := aParameter at:1.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   505
                (classes includesIdentical:cls) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   506
                    sel := aParameter at:2.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   507
                    oldMethod := aParameter at:3.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   508
                    newMethod := cls compiledMethodAt:sel.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   509
                    (oldMethod notNil and:[newMethod notNil]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   510
                        "a method was changed & accepted;
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   511
                         No need for a rescan of the methodDictionary;
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   512
                         however, ensure that the refs to the old method are updated
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   513
                        "
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   514
                        methods := selection.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   515
                        methods size > 0 ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   516
                            (methods includesIdentical:oldMethod) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   517
                                needSelectionChange := true.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   518
                            ]
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   519
                        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   520
                        methodList replaceAllIdentical:oldMethod with:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   521
                        lastSelectedMethods notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   522
                            lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   523
                        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   524
                        methods size > 0 ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   525
                            methods := methods asOrderedCollection.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   526
                            methods replaceAllIdentical:oldMethod with:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   527
                        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   529
                        needSelectionChange == true ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   530
                            selectionHolder setValue:methods.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   531
                            "/ self enqueueDelayedMethodsSelectionChanged.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   532
                            "/ need this to inform my browser that method was changed
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   533
                            "/ by someone else.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   534
                            selectionHolder changed.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   535
                        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   536
                        "/JV@2011-07-22: Update always - I need to see immediately that
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   537
                        "/the method has changed. Also, add/remove breakpoint etc.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
"/                        (variableFilter value size > 0
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
"/                        or:[oldMethod package ~= newMethod package
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
"/                        or:[oldMethod resources ~= newMethod resources
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
"/                        or:[showMethodComplexity value == true]]])
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   543
                        self autoUpdateOnChange ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   544
                            "/ only update that method's entry
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   545
                            self updateListEntryFor:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   546
                            "/ sigh - must invalidate
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   547
                            "/ self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   548
                        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   549
                        ^ self.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   550
                    ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   551
                    "/ method was added - update the methodList
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   552
                    "/ Q: is this needed (methodCategoryList should send me a new inGenerator)
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   553
                    self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   554
                ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   555
                ^ self.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   556
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   558
            something == #methodInClassRemoved ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   559
                cls := aParameter at:1.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   560
                (classes includesIdentical:cls) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   561
                    sel := aParameter at:2.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   562
                    "/ method was removed - update the methodList
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   563
                    "/ Q: is this needed (methodCategoryList should send me a new inGenerator)
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   564
                    self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   565
                ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   566
                ^ self.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   567
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   569
            something == #methodCoverageInfo ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   570
                "/ already checked if it is one of my classes
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   571
                self updateListEntryFor:aParameter.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
"/                self enqueueDelayedUpdateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
"/                listValid == true ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
"/                    self invalidateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
"/                ].
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   576
                ^ self.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   577
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   579
            (something == #methodTrap
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   580
            or:[ something == #lastTestRunResult
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   581
            or:[ something == #privacyOfMethod ]]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   582
                cls := aParameter at:1.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   583
                sel := aParameter at:2.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   584
                (classes includesIdentical:cls) ifFalse:[ ^ self].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   586
                newMethod := cls compiledMethodAt:sel.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   587
                newMethod isNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   588
                    self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   589
                    ^ self
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   590
                ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   592
                ((something == #privacyOfMethod) or:[something == #lastTestRunResult]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   593
                    self updateListEntryFor:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   594
                ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   596
                (something == #methodTrap) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   597
                    newMethod isWrapped ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   598
                        oldMethod := newMethod originalMethod
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   599
                    ] ifFalse:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   600
                        selection size > 0 ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   601
                            oldMethod := selection detect:[:each | each isWrapped and:[each originalMethod == newMethod]] ifNone:nil.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   602
                        ]
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   603
                    ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   605
                    selection size > 0 ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   606
                        (selection includesIdentical:oldMethod) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   607
                            needSelectionChange := true.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   608
                        ]
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   609
                    ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   610
                    methodList replaceAllIdentical:oldMethod with:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   611
                    lastSelectedMethods notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   612
                        lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   613
                    ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   614
                    selection size > 0 ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   615
                        selection := selection asOrderedCollection.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   616
                        selection replaceAllIdentical:oldMethod with:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   617
                    ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   618
                    needSelectionChange == true ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   619
                        selectionHolder changed.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   620
                    ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   622
                    "/ actually, could just change that single item ...
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   623
                    "/ ... might be cheaper, if list is huge.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   624
                    "/ only update that methods entry
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   625
                    self updateListEntryFor:newMethod.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   626
                    "/ self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   627
                ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   628
                ^ self
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   629
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   631
            (something == #projectOrganization
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   632
            or:[something == #lastTestRunResult]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   633
                aParameter notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   634
                    cls := aParameter at:1.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   635
                    cls notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   636
                        ((classes includesIdentical:cls theNonMetaclass)
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   637
                        or:[(classes includesIdentical:cls theMetaclass)]) ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   638
                            self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   639
                        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   640
                    ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   641
                ] ifFalse:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   642
                    self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   643
                ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   644
                ^ self
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   645
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   647
            "/ everything else is ignored
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   648
            "/ self halt.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   649
        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   650
        ^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
"/    something == #organization ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
"/self halt:'no longer'.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
"/^ self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
"/        "/ a methods cateory has changed
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
"/        (classes includesIdentical:changedObject) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
"/            aParameter isSymbol ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
"/                "/ a method with a new category
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
"/                (self methodList includesIdentical:(changedObject compiledMethodAt:aParameter)) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
"/                    self invalidateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
"/                ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
"/                ^ self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
"/            "/ a new category (no method yet)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
"/            self invalidateList
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
"/        ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
"/        ^ self
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
"/    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
"/    something == #methodDictionary ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
"/self halt:'no longer'.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
"/^ self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
"/        "/ a method has been added/removed
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
"/        (classes includesIdentical:changedObject) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
"/            aParameter isArray ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
"/                sel := aParameter at:1.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
"/                oldMethod := aParameter at:2.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
"/                newMethod := changedObject compiledMethodAt:sel.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
"/                oldMethod notNil ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   681
"/                    "a method was changed & accepted;
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
"/                     No need for a rescan of the methodDictionary;
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
"/                     however, ensure that the refs to the old method are updated
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
"/                    "
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
"/                    methods := selection.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
"/                    methods size > 0 ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
"/                        (methods includesIdentical:oldMethod) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
"/                            needSelectionChange := true.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
"/                        ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
"/                    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
"/                    methodList replaceAllIdentical:oldMethod with:newMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
"/                    lastSelectedMethods notNil ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
"/                        lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
"/                    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
"/                    methods size > 0 ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
"/                        methods := methods asOrderedCollection.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
"/                        methods replaceAllIdentical:oldMethod with:newMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
"/                    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   699
"/                    needSelectionChange == true ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   700
"/                        selectionHolder setValue:methods.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
"/                        selectionHolder changed.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
"/                    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
"/                    ^ self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
"/                ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
"/            "/ class has changed must update the methodList
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
"/            self invalidateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
"/        ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
"/        ^ self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
"/    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
"/    something == #projectOrganization ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
"/        ((classes includesIdentical:changedObject theNonMetaclass)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
"/        or:[(classes includesIdentical:changedObject theMetaclass)]) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
"/            self invalidateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
"/        ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
"/        ^ self
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
"/    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   720
    (changedObject == sortBy) ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   721
        listValid ~~ true ifTrue:[  "/ could be nil
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   722
            inGeneratorHolder value isNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   723
                "/ ok, no need to react on that one
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   724
                "/ (will invalidate anyway, once I have more info at hand)
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   725
                ^ self
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   726
            ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   727
        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   728
        self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   729
        ^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
    (changedObject == variableFilter
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
    or:[changedObject == filterClassVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
    or:[changedObject == showMethodInheritance
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
    or:[changedObject == showMethodComplexity
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
    or:[changedObject == showSyntheticMethods
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
    ]]]]) ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   738
        self invalidateList.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   739
        ^  self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
    changedObject == selectedMethodNameIndices ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   743
        newSelection := self selectedMethodNameIndices value collect:[:idx | methodList at:idx].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   744
        newSelection ~= selection ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   745
            selectionHolder value:newSelection.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   746
            lastSelectedMethods := newSelection.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   747
            lastSelectedMethods notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   748
                lastSelectedMethods := lastSelectedMethods asOrderedCollection
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   749
            ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   750
        ] ifFalse:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   751
            "/ a reselect - force update
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
"/            selection size == 1 ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   753
                selectionHolder setValue:newSelection.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   754
                selectionHolder changed:#value.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
"/            ].
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   756
        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   757
        ^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
    changedObject == selectionHolder ifTrue:[
16669
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   760
        self selectedMethodsChanged.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   761
        lastSelectedMethods := selectionHolder value.
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   762
        lastSelectedMethods notNil ifTrue:[
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   763
            lastSelectedMethods := lastSelectedMethods asOrderedCollection
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   764
        ].
95d91cbcf7a5 #OTHER by mawalch
mawalch
parents: 16497
diff changeset
   765
        ^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
"/    something == #methodTrap ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
"/self halt:'no longer'.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
"/^ self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
"/        (classes includesIdentical:changedObject) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
"/            newMethod := changedObject compiledMethodAt:aParameter.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
"/            newMethod isNil ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
"/                self invalidateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
"/                ^ self
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
"/            newMethod isWrapped ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
"/                oldMethod := newMethod originalMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
"/            ] ifFalse:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
"/                selection size > 0 ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
"/                    oldMethod := selection detect:[:each | each isWrapped and:[each originalMethod == newMethod]] ifNone:nil.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
"/                ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
"/
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
"/            selection size > 0 ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
"/                (selection includesIdentical:oldMethod) ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
"/                    needSelectionChange := true.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
"/                ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
"/"/            methodList replaceAllIdentical:oldMethod with:newMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
"/            lastSelectedMethods notNil ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
"/                lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
"/            selection size > 0 ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
"/                selection := selection asOrderedCollection.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
"/                selection replaceAllIdentical:oldMethod with:newMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
"/            needSelectionChange == true ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
"/                selectionHolder changed.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
"/            ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
"/            self invalidateList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
"/            ^ self
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
"/        ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
"/        ^ self
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
"/    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
    super delayedUpdate:something with:aParameter from:changedObject
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
    "Created: / 05-02-2000 / 13:42:14 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
    "Modified: / 24-08-2013 / 00:41:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   809
    "Modified: / 09-11-2017 / 19:53:17 / cg"
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   810
!
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   811
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   812
hideSelectorNameFilter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   813
    self showSelectorNameFilter value:false.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   814
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
   815
    "Created: / 09-11-2017 / 20:48:19 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
selectedMethodsChanged
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
    "the set of selected methods has changed;
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
     update the selection-index collection (for the selectionInListView)"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   822
    |indices methods reverseMap
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
     selectedMethodsHolder selectedMethods selectedMethodNameIndicesHolder|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    methods := methodList ? #().
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    methods size == 0 ifTrue:[
16063
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   827
        "/ this may happen during early startup,
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   828
        "/ when invoked with a preset methodSelection,
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   829
        "/ and the methodGenerator has not yet been setup
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   830
        "/ to not clobber the selection, defer the update
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   831
        "/ until the methodList arrives ...
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   832
        ^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
    selectedMethodsHolder := self selectedMethods.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
    selectedMethods := selectedMethodsHolder value.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
    "/ check if all is selected (likely)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
    ((selectedMethods size == methodList size)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
    and:[selectedMethods = methodList]) ifTrue:[
16063
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   841
        indices := (1 to:selectedMethods size)
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
    ] ifFalse:[
16063
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   843
        selectedMethods size > 100 ifTrue:[
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   844
            "/ check if all is selected (likely)
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   845
            ((selectedMethods size == methodList size)
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   846
            and:[selectedMethods = methodList]) ifTrue:[
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   847
                indices := (1 to:selectedMethods size)
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   848
            ] ifFalse:[
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   849
                "/ for big collections, generate a reverse map
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   850
                reverseMap := IdentityDictionary new.
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   851
                methods keysAndValuesDo:[:idx :mthd | reverseMap at:mthd put:idx].
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   852
                indices := selectedMethods 
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   853
                                collect:[:eachSelectedMethod |
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   854
                                    reverseMap at:eachSelectedMethod ifAbsent:0]
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   855
                                thenSelect:[:idx | idx ~~ 0]
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   856
            ]
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   857
        ] ifFalse:[
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   858
            indices := (selectedMethods ? #()) 
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   859
                            collect:[:eachSelectedMethod |
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   860
                                methods identityIndexOf:eachSelectedMethod]
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   861
                            thenSelect:[:idx | idx ~~ 0]
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   862
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
    selectedMethodNameIndicesHolder := self selectedMethodNameIndices.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
    selectedMethodNameIndicesHolder value ~= indices ifTrue:[
16063
bce10645c75d #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 16029
diff changeset
   867
        selectedMethodNameIndicesHolder value:indices.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
    ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
selectionChanged
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
    |methods|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
    methods := ((self selectedMethodNameIndices value) ? #()) collect:[:idx | methodList at:idx].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
    methods notEmpty ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   876
	lastSelectedMethods := methods asOrderedCollection.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
    "/ to allow reselect, change my valueHolder, even if the same collection
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
"/    self selectedMethods value ~= methods ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
   880
	self selectedMethods value:methods asOrderedCollection
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
"/    ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
    "Created: / 05-02-2000 / 13:42:14 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
    "Modified: / 05-02-2000 / 23:32:20 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
    "Modified: / 13-06-2013 / 12:19:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
selectionChangedByClick
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
    "we are not interested in that - get another notification
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
     via the changed valueHolder "
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
update:something with:aParameter from:changedObject
14958
7012d57bddc6 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14875
diff changeset
   894
    |cls clsName sel mthd mustFlushInheritanceInfo|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
    mustFlushInheritanceInfo := true.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
    "/ some can be ignored immediately
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
    changedObject == environment ifTrue:[
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   900
        classes isNil ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   901
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   902
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   903
        something isNil ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   904
            "/ self halt "/ huh - environment changed - so what ?
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   905
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   906
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   907
        something == #classComment ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   908
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   909
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   910
        something == #classVariables ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   911
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   912
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   913
        something == #organization ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   914
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   915
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   916
        something == #methodCategory ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   917
            "/ ignore here - methodCategoryList will tell me if required
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   918
            ^ self
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   919
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   920
        (something == #classOrganization
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   921
        or:[ something == #methodCategoryAdded
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   922
        or:[ something == #methodCategoryRemoved
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   923
        or:[ something == #methodCategoriesRemoved
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   924
        or:[ something == #methodCategoryRenamed ]]]]) ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   925
            "/ ignore here - methodCategoryList will tell me if required
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   926
            ^ self
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   927
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   929
        something == #methodCoverageInfo ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   930
            self showCoverageInformation value ifFalse:[^ self].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   931
            mthd := aParameter.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   932
            (classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   933
                ^ self   "/ I don't care for that class
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   934
            ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   935
            mustFlushInheritanceInfo := false.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   936
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   938
        (something == #methodTrap
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   939
        or:[ something == #methodPrivacy
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   940
        or:[ something == #lastTestRunResult] ]) ifTrue:[
14875
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   941
            cls := aParameter at:1.
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   942
            (classes includesIdentical:cls) ifFalse:[ ^ self].
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   943
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   944
            sel := aParameter at:2.
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   945
            mthd := cls compiledMethodAt:sel.
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   946
            (mthd notNil and:[mthd isWrapped or:[mthd isMethodWithBreakpoints]]) ifTrue:[
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   947
                |original|
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   948
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   949
                original := mthd originalMethod.
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   950
                (methodList includesIdentical:original) ifTrue:[
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   951
                    methodList replaceAll:original with:mthd.
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   952
                    lastSelectedMethods notNil ifTrue:[
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   953
                        lastSelectedMethods replaceAll:original with:mthd.
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   954
                    ].
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   955
                ]
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   956
            ].
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   957
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   958
            self window shown ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   959
                "JV@2011-11-17: Do not break the dependency here,
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   960
                 because then the window won't get updates once
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   961
                 deiconified -> leads to confusing behavior
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   962
                 (browser shows obsolete info)"
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   963
                "/changedObject removeDependent:self. "/ ?????
14875
fdaf043c900b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14847
diff changeset
   964
                listValid ifTrue:[ self invalidateList ].
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   965
                ^ self
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   966
            ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   967
            mustFlushInheritanceInfo := false.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   968
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   969
        something == #newClass ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   970
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   971
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   973
        (something == #methodInClass
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   974
        or:[ something == #methodInClassRemoved ]) ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   975
            cls := aParameter first.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   976
            clsName := cls name.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   977
            (classes contains:[:aClass | aClass name = clsName]) ifFalse:[
17037
e3e658289fcf #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16970
diff changeset
   978
                ^ self   "/ I don't care for that class
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   979
            ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   980
            sel := aParameter second.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   981
            (methodList contains:[:mthd | mthd getMclass notNil and:[mthd selector = sel]]) ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   982
                mustFlushInheritanceInfo := false.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   983
                self window topView hasFocus ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   984
                    self enqueueDelayedUpdate:something with:aParameter from:changedObject.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   985
                    ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   986
                ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   987
            ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   988
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   990
        mustFlushInheritanceInfo ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   991
            "/ as the organisation changes, flush my remembered redefinition-cache-info
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   992
            classAndSelectorsRedefinedBySubclassesOfClass := nil.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   993
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   995
        something == #classDefinition ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   996
            cls := aParameter.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   997
            clsName := cls name.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   998
            (classes contains:[:aClass | aClass name = clsName]) ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
   999
                ^ self   "/ I don't care for that class
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1000
            ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1001
            self enqueueDelayedUpdate:something with:aParameter from:changedObject.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1002
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1003
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1004
        something == #classRemove ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1005
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1006
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1007
        something == #classRename ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1008
            ^ self.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1009
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
    "/ these must lead to immediate update of the selectedMethods collection
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
    "/ (otherwise, that collection might be updated too late, leading to
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
    "/ an obsolete methods code being shown by the codeView.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1015
    (something == #methodInClass
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
    or:[ something == #methodCoverageInfo ]) ifTrue:[
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1017
        "/ as the organisation changes, flush my remembered redefinition-cache-info
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1018
        classAndSelectorsRedefinedBySubclassesOfClass := nil.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1019
        cls := aParameter at:1.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1020
        classes isNil ifTrue:[ ^ self ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1021
        (classes includesIdentical:cls) ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1022
            ^ self   "/ I dont care for that class
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1023
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1024
        self enqueueDelayedUpdate:something with:aParameter from:changedObject.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1025
        ^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    something == #coverageInfo ifTrue:[
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1029
        listValid == true ifTrue:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1030
            self enqueueDelayedUpdateList
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1031
        ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1032
        ^ self.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
    something == #methodInClassRemoved ifTrue:[
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1036
        cls := aParameter at:1.
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1037
        classes isNil ifTrue:[ ^ self ].
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1038
        (classes includesIdentical:cls) ifFalse:[
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1039
            ^ self   "/ I dont care for that class
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1040
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
    ].
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1042
    changedObject == nameFilterPatternHolder ifTrue:[
17738
ba971c5e2c72 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17736
diff changeset
  1043
        self nameFilter:(nameFilterPatternHolder value).
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1044
        ^ self.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1045
    ].
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1046
    
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
    super update:something with:aParameter from:changedObject
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
14276
4b778541d51a Fixed Tools::MethodList>>update:with:from for cases when classes instvar is not yet initialized.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14274
diff changeset
  1049
    "Modified: / 17-04-2014 / 21:48:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17738
ba971c5e2c72 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17736
diff changeset
  1050
    "Modified (comment): / 09-11-2017 / 21:05:27 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
!MethodList methodsFor:'drag & drop'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
canDropContext:aDropContext
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
    "I can receive methods (from another browser) and image filenames"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
    |objects|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
    "/ ignore drop from myself
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
    aDropContext sourceWidget == aDropContext targetWidget ifTrue:[^ false].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
    objects := aDropContext dropObjects collect:[:obj | obj theObject].
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1063
    (objects
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1064
	conform:[:anObject |
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1065
	    |mime|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1067
	    anObject isMethod
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1068
	    or:[ anObject isFilename
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1069
		    and:[ (mime := anObject mimeTypeFromName) notNil
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1070
		    and:[ mime isImageType ]]]
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1071
	]) ifFalse:[^ false].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
    self masterApplication theSingleSelectedClass isNil ifTrue:[^ false].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
    ^ true
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
    "Modified: / 13-09-2006 / 11:43:54 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
doDropContext:aDropContext
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
    |objects methods files browser cls|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
    browser := self masterApplication.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
    cls := browser theSingleSelectedClass.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
    objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
    methods := objects select:[:something | something isMethod].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
    aDropContext dragType == DropContext dragTypeCopy ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1089
	browser
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1090
	    copyMethods:methods
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1091
	    toClass:cls.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
    ] ifFalse:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1093
	browser
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1094
	    moveMethods:methods
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1095
	    toClass:cls.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1098
    files := objects select:[:something | something isFilename].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
    files do:[:eachFilename |
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1100
	|img sel mime|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1102
	((mime := eachFilename mimeTypeFromName) notNil
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1103
	and:[mime isImageType]) ifTrue:[
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1104
	    img := Image fromFile:eachFilename.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1105
	    sel := Dialog request:'Name of Image Method' initialAnswer:'img_',eachFilename withoutSuffix baseName.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1106
	    sel isEmptyOrNil ifTrue:[^ self].
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1107
	    browser theSingleSelectedClass programmingLanguage codeGeneratorClass
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1108
		createImageSpecMethodFor:img comment:'"Imported from ',eachFilename pathName,'"' in:cls selector:sel
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1109
	]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
    "Modified: / 13-09-2006 / 11:43:44 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
!MethodList methodsFor:'private'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1117
isMethodToBeShown:aMethod
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
    "invoked, when we get a change for aMethod which was previously not
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
     in the list (for example, if I show a filtered list).
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
     Check if that single method is to be shown now.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
     Used to speed up update for senders/string/implementors lists"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
    |generator|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
    generator := inGeneratorHolder value.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
    generator isNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1127
	^ false
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
    ].
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1129
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
    "/ generator generates nil-selector entries
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
    "/ to pass multiple-class and multiple-protocol info
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1132
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1133
    generator do:[:cls :cat :sel :mthd |
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1134
	mthd == aMethod ifTrue:[
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1135
	    mthd isSynthetic ifFalse:[
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1136
		sel notNil ifTrue:[
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
"/ cg: no longer filter those...
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1138
"/                    (packageFilter value isNil
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
"/                    or:[ packageFilter value includes:mthd package ]) ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1140
			^ true
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
"/                    ]
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1142
		]
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1143
	    ].
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1144
	    ^ false
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1145
	]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
    ^ false
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
    "Created: / 17-08-2011 / 15:03:34 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
listOfMethodNames
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1153
    |methods entries selectorBag newNameList allClasses newClasses
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
     allCategories                 "allSelectors"
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1155
     generator doShowClass doShowClassFirst doShowCategory enforceClassAndProtocolInList
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
     theMethod sortByClass anyMethodToWatch mclass
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1157
     packageFilterValue nameListEntryForExtensions
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
     suppressInheritanceInfoNow startTime|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
    suppressInheritanceInfoNow := (showMethodInheritance value ? true) not.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
    startTime := Timestamp now.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
    generator := inGeneratorHolder value.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
    generator isNil ifTrue:[
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1165
        ^ #()
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
    allClasses := IdentitySet new.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
    allCategories := IdentitySet new.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1169
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
    "/ allSelectors := Set new.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1171
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
    newClasses := IdentitySet new.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
    selectorBag := Bag new.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
    entries := OrderedCollection new.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    enforceClassAndProtocolInList := false.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
    anyMethodToWatch := false.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
    "/ no longer filter those
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
    "/ JV@2013-09-17: Why on hell not? A little explanation please!!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
    "/ Enabled again, because when i select package in a browser I expect
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
    "/ to see only methods belonging to that package!!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
    packageFilterValue := packageFilter value.
15310
c48dcb703855 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15267
diff changeset
  1183
    packageFilterValue notNil ifTrue:[
c48dcb703855 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15267
diff changeset
  1184
        (packageFilterValue includes:self class nameListEntryForALL) ifTrue:[
c48dcb703855 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15267
diff changeset
  1185
            packageFilterValue := nil
c48dcb703855 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15267
diff changeset
  1186
        ]
c48dcb703855 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15267
diff changeset
  1187
    ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
    "/ generator generates nil-selector entries
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
    "/ to pass multiple-class and multiple-protocol info
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
    nameListEntryForExtensions := self class nameListEntryForExtensions.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
    generator do:[:cls :cat :sel :mthd |
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1194
        |categoryIsExtensionsPseudoCategory|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
17740
91ed2b065441 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17738
diff changeset
  1196
        (sel isNil 
91ed2b065441 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17738
diff changeset
  1197
        or:[ nameFilter isEmptyOrNil
91ed2b065441 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17738
diff changeset
  1198
        or:[ nameFilter = '*'
91ed2b065441 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17738
diff changeset
  1199
        or:[ (nameFilter includesMatchCharacters not and:[sel includesString:nameFilter caseSensitive:false]) 
91ed2b065441 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17738
diff changeset
  1200
        or:[ nameFilter match:sel caseSensitive:false]]]]) ifTrue:[
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1201
            
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1202
            categoryIsExtensionsPseudoCategory := (cat = nameListEntryForExtensions).
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1203
            (cls isNil and:[ cat isNil and:[ sel isNil ] ]) ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1204
                enforceClassAndProtocolInList := true
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1205
            ] ifFalse:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1206
                cls notNil ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1207
                    allClasses add:cls.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1208
                ].
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1209
                "/ JV: Filter method through package filter
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1210
                "/ but not, if it is an extension method and we are showing extensions
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1211
                (mthd notNil
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1212
                    and:[ (mthd isSynthetic not or:[showSyntheticMethods value == true])
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1213
                    and:[ sel notNil ]]
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1214
                ) ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1215
                    (packageFilterValue isNil
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1216
                        or:[ (packageFilterValue includes:mthd package)
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1217
                        or:[ categoryIsExtensionsPseudoCategory and:[ mthd isExtension] ]]
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1218
                    ) ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1219
                        entries add:(Array with:cls with:sel with:mthd).
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1220
                        selectorBag add:sel.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1221
                        newClasses add:cls.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1222
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1223
                        allCategories add:mthd category.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1224
                        "/ allSelectors add:sel.
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1225
                    ]
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1226
                ]
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1227
            ].
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1228
            (mthd notNil and:[ mthd isWrapped ]) ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1229
                (mthd isTiming or:[ mthd isCounting or:[ mthd isCountingMemoryUsage ] ]) ifTrue:[
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1230
                    anyMethodToWatch := true
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1231
                ]
17736
3cb79393742d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17574
diff changeset
  1232
            ].
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1233
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
    showMethodInheritance value ~~ false ifTrue:[
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1236
        "/ collect redefinition information once (big speedup for #methodIsRedefinedbelow)
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1237
        classAndSelectorsRedefinedBySubclassesOfClass isNil ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1238
            classAndSelectorsRedefinedBySubclassesOfClass := IdentityDictionary new.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1239
        ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1240
        allClasses do:[:cls |
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1241
            |d|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1243
            d := classAndSelectorsRedefinedBySubclassesOfClass.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1244
            (d notNil and:[ (d includesKey:cls) not ]) ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1245
                cls isLoaded ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1246
                    d at:cls put:(self setOfAllSelectorsImplementedBelow:cls)
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1247
                ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1248
            ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1249
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
    ].
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1251
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
    "/ multiple classes must: add the className for some
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1253
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
    doShowClass := enforceClassAndProtocolInList or:[ allClasses size > 1 ].
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1255
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
    "/ multiple categories: must add the categorie for some
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1257
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
    doShowCategory := enforceClassAndProtocolInList or:[ allCategories size > 1 ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
    doShowClassFirst := doShowClass.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1261
    doShowClassFirst := doShowClass and:[ sortBy value == #class ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1262
    sortBy value == false ifTrue:[
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1263
        "/ do not sort
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1264
    ] ifFalse:[
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1265
        (doShowClass not and:[ sortBy value == #class ]) ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1266
            "/ multiple classes must add the className for some
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1267
            "/ check, if doShowClass must be enforced
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1268
            entries do:[:entry |
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1269
                |cls sel mthd s needClass|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1270
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1271
                "/ cls := entry at:1.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1272
                sel := entry at:2.
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1273
                "/ mthd := entry at:3.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1274
                doShowClass ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1275
                    doShowClass := (selectorBag occurrencesOf:sel) > 1
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1276
                ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1277
            ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1278
        ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1279
        sortByClass := doShowClass and:[ sortBy value == #class ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1280
        sortByClass ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1281
            entries
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1282
                sort:[:a :b |
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1283
                    |clsA clsB selA selB nmA nmB clsNmA clsNmB nsNmA nsNmB mthdA mthdB|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1284
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1285
                    clsA := a at:1. clsB := b at:1.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1286
                    clsNmA := clsA name.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1287
                    clsNmB := clsB name.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1288
                    clsNmA = clsNmB ifTrue:[
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1289
                        selA := a at:2. selB := b at:2.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1290
                        nmA := selA asSymbol selectorWithoutNameSpace.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1291
                        nmB := selB asSymbol selectorWithoutNameSpace.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1292
                        nmA = nmB ifTrue:[
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1293
                            mthdA := a at:3. mthdB := b at:3.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1294
                            nsNmA := mthdA nameSpaceName.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1295
                            nsNmB := mthdB nameSpaceName.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1296
                            nsNmA < nsNmB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1297
                        ] ifFalse:[ nmA < nmB ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1298
                    ] ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1299
                        clsNmA < clsNmB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1300
                    ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1301
                ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1302
        ] ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1303
            sortBy value == #category ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1304
                entries
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1305
                    sort:[:a :b |
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1306
                        |mthdA mthdB selA selB clsA clsB nmA nmB catA catB clsNmA clsNmB nsNmA nsNmB|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1307
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1308
                        mthdA := a at:3. mthdB := b at:3.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1309
                        catA := mthdA category.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1310
                        catB := mthdB category.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1311
                        catA = catB ifTrue:[
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1312
                            selA := a at:2. selB := b at:2.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1313
                            nmA := selA asSymbol selectorWithoutNameSpace.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1314
                            nmB := selB asSymbol selectorWithoutNameSpace.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1315
                            nmA = nmB ifTrue:[
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1316
                                clsA := a at:1. clsB := b at:1.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1317
                                clsNmA := clsA name.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1318
                                clsNmB := clsB name.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1319
                                clsNmA = clsNmB ifTrue:[
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1320
                                    nsNmA := mthdA nameSpaceName.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1321
                                    nsNmB := mthdB nameSpaceName.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1322
                                    nsNmA < nsNmB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1323
                                ] ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1324
                                    clsNmA < clsNmB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1325
                                ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1326
                            ] ifFalse:[ nmA < nmB ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1327
                        ] ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1328
                            catA < catB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1329
                        ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1330
                    ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1331
            ] ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1332
                entries
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1333
                    sort:[:a :b |
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1334
                        |nmA nmB clsNmA clsNmB nsNmA nsNmB|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1335
15322
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1336
                        nmA := (a at:2) asSymbol selectorWithoutNameSpace.
2a7a479bed32 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15310
diff changeset
  1337
                        nmB := (b at:2) asSymbol selectorWithoutNameSpace.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1338
                        nmA = nmB ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1339
                            clsNmA := (a at:1) name.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1340
                            clsNmB := (b at:1) name.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1341
                            clsNmA = clsNmB ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1342
                                nsNmA := (a at:3) nameSpaceName.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1343
                                nsNmB := (b at:3) nameSpaceName.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1344
                                nsNmA < nsNmB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1345
                            ] ifFalse:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1346
                                clsNmA < clsNmB
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1347
                            ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1348
                        ] ifFalse:[ nmA < nmB ]
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1349
                    ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1350
            ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1351
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1352
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1353
    methods := OrderedCollection new:(entries size).
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1354
    methodNameList := OrderedCollection new:(entries size).
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1355
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1356
    newNameList := OrderedCollection new:(entries size).
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1357
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1358
    "/ multiple classes must add the className for some
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1359
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1360
    entries do:[:entry |
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1361
        |cls sel mthd s needClass|
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1362
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1363
        cls := entry at:1.
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1364
        sel := entry at:2.
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1365
        mthd := entry at:3.
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1366
        needClass := doShowClass.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1367
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1368
"/        needClass ifFalse:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1369
"/            needClass := (selectorBag occurrencesOf:sel) > 1
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1370
"/        ].
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1371
        (suppressInheritanceInfoNow not
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1372
        and:[ (Timestamp now secondDeltaFrom:startTime) > 3 ]) ifTrue:[
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1373
            suppressInheritanceInfoNow := true.
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1374
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1375
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1376
        s := self
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1377
                listEntryForMethod:mthd
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1378
                selector:sel
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1379
                class:cls
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1380
                showClass:needClass
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1381
                showCategory:doShowCategory
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1382
                classFirst:doShowClassFirst
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1383
                suppressInheritanceInfo:suppressInheritanceInfoNow.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1384
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1385
        newNameList add:s.
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1386
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1387
        methods add:mthd.
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1388
        methodNameList add:{ cls name . sel}.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1389
    ].
16240
fa6c3b1bcec4 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16149
diff changeset
  1390
    
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1391
    self makeIndependent.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1392
    classes := newClasses.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1393
    self makeDependent.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1394
    methodList := methods.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1395
    methods size == 1 ifTrue:[
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1396
        theMethod := methods first.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1397
        mclass := theMethod mclass.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1398
        mclass isNil ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1399
            theMethod isWrapped ifTrue:[
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1400
                theMethod := theMethod originalMethod.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1401
                mclass := theMethod mclass.
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1402
            ].
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1403
        ].
15342
11dee514b0dd class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15326
diff changeset
  1404
        self methodLabelHolder 
11dee514b0dd class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15326
diff changeset
  1405
                value:(mclass isNil
14274
63c4f959ee7a class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14195
diff changeset
  1406
                    ifTrue:[ ('???' , ' ' , '???') ]
15342
11dee514b0dd class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15326
diff changeset
  1407
                    ifFalse:[ (mclass name ? '*unnamed*'), ' ' , (theMethod selector asString) ])
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1408
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1409
"/    anyMethodToWatch ifTrue:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1410
"/        self startWatchProcess.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1411
"/    ] ifFalse:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1412
"/        self stopWatchProcess.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1413
"/    ].
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1414
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1415
    "/ remember these, in case of an incremental (single method only)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1416
    "/ update in the future.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1417
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1418
    lastShowClass := doShowClass.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1419
    lastShowClassFirst := doShowClassFirst.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1420
    lastShowCategory := doShowCategory.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1421
    ^ newNameList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1422
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1423
    "Created: / 05-02-2000 / 22:43:40 / cg"
17365
1e3653d012c0 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17332
diff changeset
  1424
    "Modified: / 24-08-2010 / 20:34:09 / Jan Vrany"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1425
    "Modified (comment): / 17-09-2013 / 10:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17740
91ed2b065441 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17738
diff changeset
  1426
    "Modified: / 09-11-2017 / 21:11:06 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1427
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1428
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1429
makeDependent
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1430
    environment addDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1431
"/    ChangeSet addDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1432
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1433
    "Modified: / 10-11-2006 / 17:57:01 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1434
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1435
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1436
makeIndependent
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1437
    environment removeDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1438
"/    ChangeSet removeDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1439
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1440
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1441
method:mthd includesModsOfClassVariable:variablesToHighLight
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1442
    ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#modifiedClassVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1443
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1444
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1445
method:mthd includesModsOfInstanceVariable:variablesToHighLight
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1446
    ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#modifiedInstVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1447
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1448
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1449
method:mthd includesRefsToClassVariable:variablesToHighLight
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1450
    ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#usedClassVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1451
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1452
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1453
method:mthd includesRefsToInstanceVariable:variablesToHighLight
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1454
    ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#usedInstVars
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1455
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1456
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1457
method:mthd includesRefsToVariable:variablesToHighLight askParserWith:querySelector
16149
dca62d5ae26a #DOCUMENTATION
mawalch
parents: 16069
diff changeset
  1458
    |cls src parser usedVars anyVarNameAccessible|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1459
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1460
    cls := mthd mclass.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1461
    cls isNil ifTrue:[^ false].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1462
16149
dca62d5ae26a #DOCUMENTATION
mawalch
parents: 16069
diff changeset
  1463
    anyVarNameAccessible := cls allInstVarNames includesAny:variablesToHighLight.
dca62d5ae26a #DOCUMENTATION
mawalch
parents: 16069
diff changeset
  1464
    anyVarNameAccessible ifFalse:[
dca62d5ae26a #DOCUMENTATION
mawalch
parents: 16069
diff changeset
  1465
        anyVarNameAccessible := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1466
    ].
16149
dca62d5ae26a #DOCUMENTATION
mawalch
parents: 16069
diff changeset
  1467
    anyVarNameAccessible ifFalse:[
15181
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1468
        "/ no need to parse
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1469
        ^ false
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1470
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1471
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1472
    "/ JV Following code is just very bad. It assumes that method is a Smalltalk method.
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1473
    "/ But it may not, it could be JavaScript method, Java method or whatever fancy language
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1474
    "/ method. Should be actually delegated to the method itself, just as #messagesSend & co.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1475
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1476
    "/ I'm not going to refactor now to keep the differences between jv-branch and CVS
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1477
    "/ ss small as possible. This interface is bad anyway as method is parsed several times
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1478
    "/ to check different things. Once should be enough.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1479
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1480
    "/ Hack:
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1481
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1482
    mthd programmingLanguage isSmalltalk ifFalse:[
15181
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1483
        ^ [
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1484
            usedVars := mthd perform:querySelector.
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1485
            usedVars includesAny:variablesToHighLight
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1486
        ] on: Error do:[
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1487
            false
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1488
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1489
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1490
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1491
    src := mthd source.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1492
    src notNil ifTrue:[
15181
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1493
        "
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1494
         before doing a slow parse, quickly scan the
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1495
         methods source for the variables name ...
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1496
        "
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1497
        (variablesToHighLight contains:[:varName | src includesString:varName ]) ifTrue:[
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1498
            parser := Parser
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1499
                            parseMethod:src
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1500
                            in:cls
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1501
                            ignoreErrors:true
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1502
                            ignoreWarnings:true.
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1503
            (parser notNil and:[parser ~~ #Error]) ifTrue:[
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1504
                usedVars := parser perform:querySelector.
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1505
                (usedVars includesAny:variablesToHighLight)
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1506
                ifTrue:[
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1507
                    ^  true
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1508
                ]
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1509
            ]
a98e47efe63b class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 15077
diff changeset
  1510
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1511
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1512
    ^ false
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1513
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1514
    "Modified: / 30-08-2013 / 13:46:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1515
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1516
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1517
methodIsInheritedFromAbove:aMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1518
    |mClass|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1519
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1520
    mClass := aMethod mclass.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1521
    (mClass notNil and:[mClass superclass notNil]) ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1522
	^ (mClass superclass whichClassIncludesSelector:aMethod selector) notNil.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1523
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1524
    ^ false
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1525
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1526
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1527
methodIsRedefinedBelow:aMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1528
    |mclass subClasses setOfRedefinedSelectors|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1529
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1530
    mclass := aMethod mclass.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1531
    mclass isNil ifTrue:[^ false].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1532
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1533
    "/ if possible, make use of info prepared by listOfMethodNames
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1534
    classAndSelectorsRedefinedBySubclassesOfClass notNil
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1535
    ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1536
	setOfRedefinedSelectors := classAndSelectorsRedefinedBySubclassesOfClass at:mclass ifAbsent:nil.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1537
	setOfRedefinedSelectors notNil ifTrue:[
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1538
	    ^ setOfRedefinedSelectors includes:aMethod selector
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1539
	]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1540
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1541
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1542
    lastMethodClass == mclass ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1543
	subClasses := lastMethodClassesSubclasses
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1544
    ] ifFalse:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1545
	subClasses := aMethod mclass allSubclasses.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1546
	lastMethodClassesSubclasses := subClasses.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1547
	lastMethodClass := mclass.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1548
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1549
    ^ subClasses contains:[:cls | cls includesSelector:aMethod selector].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1550
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1551
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1552
redefinedOrInheritedIconFor:aMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1553
    |inherited redefined subclassResponsibility|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1554
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1555
    inherited := self methodIsInheritedFromAbove:aMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1556
    redefined := self methodIsRedefinedBelow:aMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1557
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1558
    inherited ifTrue:[
14684
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1559
        redefined ifTrue:[
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1560
            ^ self methodInheritedFromAboveAndRedefinedBelowIcon.
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1561
        ].
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1562
        ^ self methodInheritedFromAboveIcon.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1563
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1564
17574
10c33d58d868 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17471
diff changeset
  1565
    subclassResponsibility := aMethod isSubclassResponsibility.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1566
    redefined ifTrue:[
14684
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1567
        subclassResponsibility ifTrue:[
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1568
            ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1569
        ].
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1570
        ^ self methodRedefinedBelowIcon.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1571
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1572
    subclassResponsibility ifTrue:[
14684
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1573
        ^ self methodIsSubclassResponsibilityIcon.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1574
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1575
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1576
    ^ self methodEmptyInheritedIcon
17332
dd2807ba5610 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17224
diff changeset
  1577
17574
10c33d58d868 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17471
diff changeset
  1578
    "Modified: / 16-07-2017 / 11:34:14 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1579
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1580
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1581
release
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1582
    super release.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1583
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1584
    filterClassVars removeDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1585
    selectedMethodNameIndices removeDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1586
    showMethodInheritance removeDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1587
    variableFilter removeDependent:self.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1588
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1589
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1590
setOfAllSelectorsImplementedBelow:aClass
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1591
    |set|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1592
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1593
    set := IdentitySet new.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1594
    aClass allSubclassesDo:[:eachSubclass |
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1595
	set addAll:(eachSubclass methodDictionary keys).
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1596
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1597
    ^ set
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1598
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1599
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1600
updateList
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1601
    |prevSelection newList newSelection newSelIdx reverseMap sameContents newListSize oldListSize
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1602
     prevClasses methodSet selectedMethodsHolder|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1603
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1604
    selectedMethodsHolder := self selectedMethods.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1605
    prevSelection := selectedMethodsHolder value ? #().
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1606
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1607
    prevClasses := classes isNil ifTrue:[ #() ] ifFalse:[ classes copy ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1608
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1609
    oldListSize := self browserNameList size.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1610
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1611
    self topApplication withWaitCursorDo:[
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1612
        newList := self listOfMethodNames.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1613
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1614
    newListSize := newList size.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1615
    sameContents := self updateListFor:newList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1616
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1617
    sameContents ifFalse:[
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1618
"/      self browserNameList value:newList.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1619
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1620
        (prevSelection size == 0
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1621
        and:[selectedMethodsHolder value size ~~ 0]) ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1622
            "/ this happens during early startup time,
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1623
            "/ when the selection is already (pre-)set,
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1624
            "/ and the methodList is generated the first time
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1625
            "/ (i.e. when opened with preset selection
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1626
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1627
            "/ do not clobber the selection in this case.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1628
            prevSelection := selectedMethodsHolder value.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1629
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1630
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1631
        (methodList size == 0 or:[prevSelection size == 0]) ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1632
            newSelection := #()
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1633
        ] ifFalse:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1634
            methodSet := methodList.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1635
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1636
            "/ intersect is much faster with sets, if the number of items is large
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1637
            "/ however, only if it's worth building the set ...
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1638
            (methodSet size + prevSelection size) > 35 ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1639
                methodSet := methodSet asIdentitySet.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1640
            ].
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1641
            newSelection := methodSet intersect:prevSelection.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1642
        ].
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1643
        newSelection size > 0 ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1644
            newSelection size > 100 ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1645
                "/ need selection indices - might be expensive if done straight forward...
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1646
                reverseMap := IdentityDictionary new.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1647
                methodList keysAndValuesDo:[:idx :mthd | reverseMap at:mthd put:idx].
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1648
                newSelIdx := newSelection collect:[:mthd | reverseMap at:mthd].
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1649
            ] ifFalse:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1650
                newSelIdx := newSelection collect:[:mthd | methodList identityIndexOf:mthd]
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1651
            ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1652
"/ self halt.
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1653
            "/ force change (for dependents)
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1654
            newSelIdx ~= selectedMethodNameIndices value ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1655
                self selectedMethodNameIndices value:newSelIdx.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1656
            ].
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1657
        ] ifFalse:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1658
            lastSelectedMethods := selectedMethodsHolder value.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1659
            lastSelectedMethods notNil ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1660
                lastSelectedMethods := lastSelectedMethods asOrderedCollection
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1661
            ].
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1662
            selectedMethodNameIndices value size > 0 ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1663
                selectedMethodNameIndices value:#().
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1664
            ]
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1665
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1666
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1667
        newSelection ~= prevSelection ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1668
            self selectionChanged.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1669
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1670
    ] ifTrue:[
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1671
        "/ same list - but classes might have changed
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1672
        "/ that is the case, if the class selection has been changed,
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1673
        "/ to another class which has the same categories.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1674
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1675
        (prevClasses ~= (classes ? IdentitySet new)) ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1676
            (newListSize > 0 or:[oldListSize > 0]) ifTrue:[
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1677
                self selectionChanged.
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1678
            ]
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1679
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1680
    ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1681
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1682
    "Modified: / 05-03-2007 / 16:07:24 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1683
    "Modified: / 24-02-2014 / 11:08:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17406
30482cf03fc9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17365
diff changeset
  1684
    "Modified (comment): / 13-02-2017 / 20:33:21 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1685
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1686
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1687
updateListEntryFor:aMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1688
    "update my list for a single method.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1689
     (used when a single methods package, code or whatever changes, and a full udpate
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1690
      would be too slow)"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1691
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1692
    |s idx|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1693
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1694
    s := self
15077
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1695
            listEntryForMethod:aMethod
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1696
            selector:aMethod selector ? '*unbound*'
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1697
            class:aMethod mclass
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1698
            showClass:lastShowClass
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1699
            showCategory:lastShowCategory
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1700
            classFirst:lastShowClassFirst
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1701
            suppressInheritanceInfo:false.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1702
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1703
    idx := methodList identityIndexOf:aMethod.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1704
    idx == 0 ifTrue:[
15077
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1705
        aMethod isWrapped ifTrue:[
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1706
            idx := methodList identityIndexOf:aMethod originalMethod.
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1707
            idx == 0 ifTrue:[
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1708
                "/ aMethod (wrapped) has changed its status, but is not in the list.
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1709
                ^ self.
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1710
            ].
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1711
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1712
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1713
    idx == 0 ifTrue:[
15077
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1714
        "/ method was not previously shown; try to avoid a full update
16970
472000f80562 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 16891
diff changeset
  1715
        "/ (self isMethodToBeShown:aMethod) ifTrue:[
15077
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1716
            self invalidateList
16970
472000f80562 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 16891
diff changeset
  1717
        "/ ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1718
    ] ifFalse:[
15077
025a2e04b295 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14958
diff changeset
  1719
        self browserNameList at:idx put:s.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1720
    ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1721
16970
472000f80562 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 16891
diff changeset
  1722
    "Modified: / 16-10-2016 / 23:31:22 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1723
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1724
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1725
!MethodList methodsFor:'private-presentation'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1726
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1727
colorForCoverageInformationOfMethod:aMethod
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1728
    aMethod isInstrumented ifFalse:[^ nil].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1729
    aMethod category = 'documentation' ifTrue:[^ nil].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1730
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1731
    aMethod hasBeenCalled ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1732
	aMethod haveAllBlocksBeenExecuted ifTrue:[
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1733
	    ^ UserPreferences current colorForInstrumentedFullyCoveredCode
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1734
	].
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1735
	^ UserPreferences current colorForInstrumentedPartiallyCoveredCode
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1736
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1737
    ^ UserPreferences current colorForInstrumentedNeverCalledCode
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1738
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1739
    "Created: / 30-04-2010 / 11:53:38 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1740
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1741
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1742
listEntryForMethod:aMethod selector:selector class:cls showClass:showClass showCategory:showCategory classFirst:showClassFirst
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1743
    "answer a method list entry
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1744
     gimmics:
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1745
	adding a little image to breakPointed methods,
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1746
	inheritance indicators,
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1747
	highlight accessors of variable"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1748
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1749
    ^ self
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1750
	listEntryForMethod:aMethod
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1751
	selector:selector
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1752
	class:cls
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1753
	showClass:showClass showCategory:showCategory
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1754
	classFirst:showClassFirst
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1755
	suppressInheritanceInfo:false
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1756
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1757
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1758
listEntryForMethod:aMethod selector:selector class:cls showClass:showClass showCategory:showCategory classFirst:showClassFirst suppressInheritanceInfo:suppressInheritanceInfo
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1759
    "answer a method list entry
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1760
     gimmics:
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1761
        adding a little image to breakPointed methods,
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1762
        inheritance indicators,
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1763
        highlight accessors of variable"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1764
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1765
    |s icn variablesToHighlight classVarsToHighLight
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1766
     doHighLight doHighLightRed clr emp cat l redefIcon
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1767
     metrics complexity complexityString complexityIcon mark lastResultOrNil|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1768
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1769
    aMethod isNil ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1770
        "/ a non-existing (pseudo) method (such as required protocol)
16497
ecf4458da1db #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16240
diff changeset
  1771
        ^ selector withColor:Color red.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1772
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1773
17224
e4fd06bddeec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17037
diff changeset
  1774
    (showClassFirst and:[cls notNil]) ifTrue:[        
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1775
        s := aMethod printStringForBrowserWithSelector:selector allBold inClass:cls.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1776
        s := cls nameInBrowser , ' ' , s
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1777
    ] ifFalse:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1778
        s := aMethod printStringForBrowserWithSelector:selector inClass:cls.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1779
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1780
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1781
    "/
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1782
    "/ wrap icons (i.e. break- or trace points on the method)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1783
    "/ have higher prio ...
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1784
    "/
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1785
    (aMethod notNil and:[aMethod isWrapped]) ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1786
        (s endsWith:' !!') ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1787
            s := s copyButLast:2
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1788
        ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1789
        aMethod isBreakpointed ifTrue:[
14108
63d31145e7bb Use new icon names: fullBreakPointedIcon and lineBreakPointedIcon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14105
diff changeset
  1790
            icn := self fullBreakPointedIcon.
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1791
        ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1792
            aMethod isTimed ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1793
                icn := self timeIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1794
            ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1795
                icn := self traceIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1796
            ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1797
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1798
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1799
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1800
    "/
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1801
    "/ breakpoint icons (i.e. break- or trace points inside)
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1802
    "/
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1803
    icn isNil ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1804
        (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[
16029
ea99c06473a2 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15437
diff changeset
  1805
            aMethod hasEnabledBreakpoints ifTrue:[ 
ea99c06473a2 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15437
diff changeset
  1806
                icn := self lineBreakPointedIcon
ea99c06473a2 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15437
diff changeset
  1807
            ] ifFalse:[    
16891
02a3f0fafc59 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16669
diff changeset
  1808
                aMethod hasEnabledTracepoints ifTrue:[ 
02a3f0fafc59 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16669
diff changeset
  1809
                    icn := self lineTracePointedIcon
02a3f0fafc59 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16669
diff changeset
  1810
                ] ifFalse:[    
02a3f0fafc59 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16669
diff changeset
  1811
                    icn := self disabledBreakpointIcon
02a3f0fafc59 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16669
diff changeset
  1812
                ]    
16029
ea99c06473a2 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15437
diff changeset
  1813
            ].
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1814
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1815
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1816
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1817
    icn isNil ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1818
        showMethodTypeIcon value ~~ false ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1819
            icn := self resourceIconForMethod:aMethod.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1820
        ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1821
        icn isNil ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1822
            aMethod isProtected ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1823
                icn := self protectedMethodIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1824
            ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1825
                aMethod isPrivate ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1826
                    icn := self privateMethodIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1827
                ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1828
                    (aMethod isIgnored) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1829
                        icn := self ignoredMethodIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1830
                    ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1831
                        (aMethod isJavaMethod and:[aMethod isAbstract]) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1832
                            icn := self abstractMethodIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1833
                        ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1834
                    ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1835
                ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1836
            ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1837
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1838
    ].
17224
e4fd06bddeec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 17037
diff changeset
  1839
    (icn isNil and:[cls notNil]) ifTrue:[
16069
3b6e91bd072c #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 16063
diff changeset
  1840
        "/ (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
3b6e91bd072c #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 16063
diff changeset
  1841
        (((cls isSubclassOf:TestCase) and:[cls isAbstract not])
3b6e91bd072c #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 16063
diff changeset
  1842
        or:[showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[
3b6e91bd072c #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 16063
diff changeset
  1843
            (cls isTestSelector:selector) ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1844
                "JV@2011-11-17: Show thumbs even if not all test were run"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1845
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1846
                lastResultOrNil := cls rememberedOutcomeFor:selector.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1847
                lastResultOrNil notNil ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1848
                    |state|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1849
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1850
                    state := lastResultOrNil result.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1851
                    (state == TestResult statePass) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1852
                        icn := ToolbarIconLibrary testCasePassedIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1853
                    ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1854
                        (state == TestResult stateError) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1855
                            icn := ToolbarIconLibrary testCaseErrorIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1856
                        ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1857
                            (state == TestResult stateFail) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1858
                                icn := ToolbarIconLibrary testCaseFailedIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1859
                            ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1860
                                icn := ToolbarIconLibrary testCaseSkippedIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1861
                            ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1862
                        ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1863
                    ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1864
                ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1865
            ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1866
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1867
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1868
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1869
    showClass ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1870
        showClassFirst ifFalse:[
15426
5a619f0655fa class: Tools::MethodList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15342
diff changeset
  1871
            s := s , ' [' , cls nameInBrowser allBold , ']'.
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1872
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1873
    ].
14155
4a8e18d87366 class: Tools::MethodList
Stefan Vogel <sv@exept.de>
parents: 14108
diff changeset
  1874
    (showCategory and:[aMethod mclass notNil and:[aMethod mclass supportsMethodCategories]]) ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1875
        cat := aMethod category.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1876
        cat notNil ifTrue:[
16497
ecf4458da1db #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16240
diff changeset
  1877
            s := s , ' {' , (cat "allItalic" withColor:Color gray), '}'
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1878
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1879
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1880
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1881
    (self showCoverageInformation value and:[(clr := self colorForCoverageInformationOfMethod:aMethod) notNil]) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1882
        s := self colorize:s with:(#color->clr).
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1883
        "/ aMethod isInstrumented ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1884
        "/     icn := self instrumentationIcon
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1885
        "/ ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1886
    ] ifFalse:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1887
        (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1888
            mark := self class markForBeingInChangeList.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1889
            "/ mark := self colorizeForChangedCode:mark.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1890
            s := s , mark.
17037
e3e658289fcf #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16970
diff changeset
  1891
            "/ cg: I don't know why this was disabled - it is req'd to
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1892
            "/ see changed methods in a method list (implementors...)
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1893
            s := self colorizeForChangedCode:s.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1894
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1895
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1896
        (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1897
            s := (self colorizeForChangedCodeInSmallTeam:'!! '),s
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1898
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1899
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1900
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1901
    variablesToHighlight := variableFilter value.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1902
    variablesToHighlight size > 0 ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1903
        classVarsToHighLight := filterClassVars value.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1904
        classVarsToHighLight ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1905
            doHighLight := self method:aMethod includesRefsToClassVariable:variablesToHighlight.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1906
            doHighLight ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1907
                doHighLightRed := self method:aMethod includesModsOfClassVariable:variablesToHighlight.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1908
            ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1909
        ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1910
            doHighLight := self method:aMethod includesRefsToInstanceVariable:variablesToHighlight.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1911
            doHighLight ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1912
                doHighLightRed := self method:aMethod includesModsOfInstanceVariable:variablesToHighlight
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1913
            ]
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1914
        ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1915
        doHighLight ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1916
            s := s allBold.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1917
            doHighLightRed ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1918
                emp := (UserPreferences current emphasisForWrittenVariable)
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1919
            ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1920
                emp := (UserPreferences current emphasisForReadVariable)
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1921
            ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1922
            s := s emphasisAllAdd:emp
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1923
        ]
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1924
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1925
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1926
    (showMethodComplexity value == true
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1927
    and:[ OOM::MethodMetrics notNil ]) ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1928
        icn isNil ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1929
                metrics := OOM::MethodMetrics forMethod:aMethod.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1930
                complexity := metrics complexity ? 0.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1931
                complexityIcon := OOM::MethodMetrics iconForComplexity:complexity.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1932
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1933
                ShowComplexityValue == true ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1934
                    complexityString := '{' , complexity printString , '}'.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1935
                    s := complexityString , ' ' , s.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1936
                ].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1937
                "/ icn := icn ? complexityIcon.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1938
                s := LabelAndIcon icon:complexityIcon string:s.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1939
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1940
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1941
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1942
    (showMethodInheritance value ? true) ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1943
        suppressInheritanceInfo ifTrue:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1944
            redefIcon := self methodEmptyInheritedIcon.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1945
        ] ifFalse:[
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1946
            redefIcon := self redefinedOrInheritedIconFor:aMethod.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1947
        ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1948
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1949
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1950
    (icn notNil or:[redefIcon notNil]) ifTrue:[
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1951
        "/eXept version
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1952
        "/l := LabelAndIcon icon:redefIcon string:s.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1953
        "/l image:icn.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1954
        "/JV:
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1955
        l := LabelAndIcon icon:icn string:s.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1956
        l image:redefIcon.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1957
        icn isNil ifTrue:[l offset: 13].
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1958
        l gap:1.
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  1959
        ^ l
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1960
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1961
    ^ s
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1962
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1963
    "Created: / 22-10-1996 / 19:51:00 / cg"
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1964
    "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
15426
5a619f0655fa class: Tools::MethodList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15342
diff changeset
  1965
    "Modified: / 25-02-2015 / 17:14:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17471
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1966
    "Modified: / 15-03-2017 / 12:08:50 / cg"
14684
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1967
!
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1968
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1969
resourceIconForMethod:aMethod
17471
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1970
    self showImageResourceMethodsImages value ~~ false ifTrue:[
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1971
        (aMethod hasImageResource) ifTrue:[
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1972
            Error ignoreIn:[    
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1973
                |img|
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1974
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1975
                img := aMethod valueWithReceiver:nil arguments:nil.
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1976
                img notNil ifTrue:[
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1977
                    ((img width > 24) or:[img height > 24]) ifTrue:[
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1978
                        img := img magnifiedPreservingRatioTo:(24@24).
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1979
                    ].    
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1980
                    ^ img
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1981
                ].    
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1982
            ].
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1983
        ].
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1984
    ].
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1985
    
14684
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1986
    ^ SystemBrowser resourceIconForMethod:aMethod
4133aac4b6ce class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents: 14614
diff changeset
  1987
17471
1924428167ea #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17406
diff changeset
  1988
    "Modified: / 15-03-2017 / 12:09:43 / cg"
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1989
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1990
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1991
!MethodList methodsFor:'private-watching'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1992
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1993
startWatchProcess
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1994
    updateProcess notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1995
	^ self
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1996
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1997
    updateProcess := [
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1998
			[true] whileTrue:[
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  1999
			    Delay waitForSeconds:1.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2000
			    self enqueueDelayedUpdateList
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2001
			]
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2002
		     ] fork.
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2003
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2004
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2005
stopWatchProcess
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2006
    |p|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2007
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2008
    (p := updateProcess) notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2009
	updateProcess := nil.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2010
	p terminate
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2011
    ].
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2012
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2013
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2014
!MethodList methodsFor:'setup'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2015
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2016
postBuildWith:aBuilder
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2017
    |methodListView|
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2018
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2019
    super postBuildWith:aBuilder.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2020
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2021
    methodListView := aBuilder componentAt:'List'.
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2022
    methodListView notNil ifTrue:[
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2023
	methodListView allowDrag:true.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2024
	methodListView dragObjectConverter:[:obj |
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2025
					    |nm method idx|
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2026
14100
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2027
					    nm := obj theObject asString string string.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2028
					    idx := browserNameList value findFirst:[:item | item string string = nm].
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2029
					    method := methodList value at:idx.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2030
					    DropObject newMethod:method.
bf291c1fe96f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 14098
diff changeset
  2031
					 ].
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2032
    ]
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2033
! !
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2034
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2035
!MethodList class methodsFor:'documentation'!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2036
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2037
version
16029
ea99c06473a2 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15437
diff changeset
  2038
    ^ '$Header$'
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2039
!
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2040
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2041
version_CVS
16029
ea99c06473a2 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15437
diff changeset
  2042
    ^ '$Header$'
14098
b223b2302848 class: Tools::MethodList
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2043
! !
14105
efc7e0052de5 Fix in Tools::MethodList: fixed selector highlighting when both modified and with breakpoint.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14100
diff changeset
  2044