All Rights Reserved

	      All Rights Reserved

    ^

	#name: #singleMethodWindowSpec

	#window:

	  #label: 'SingleSelectorList'

	  #name: 'SingleSelectorList'

	  #min: #(#Point 0 0)

	  #max: #(#Point 1024 721)

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

	)

	#component:

	  #collection: #(

	   #(#LabelSpec

	      #label: 'MethodName'

	      #name: 'MethodLabel'

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

	      #translateLabel: true

	      #labelChannel: #methodLabelHolder

	      #menu: #menuHolder

	   )

	   )

	)

    ^

	name: windowSpec

	window:

	  label: 'SelectorList'

	  name: 'SelectorList'

	  min: (Point 0 0)

	  bounds: (Rectangle 0 0 300 300)

	)

	component:

	  collection: (

	   (SequenceViewSpec

	      name: 'List'

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

	      tabable: true

	      model: selectedMethodNameIndices

	      menu: menuHolder

	      hasHorizontalScrollBar: true

	      hasVerticalScrollBar: true

	      miniScrollerHorizontal: true

	      isMultiSelect: true

	      valueChangeSelector: selectionChangedByClick

	      useIndex: true

	      sequenceList: browserNameList

	      doubleClickChannel: doubleClickChannel

	      properties:

	     (PropertyListDictionary

		canDropSelector: canDropContext:

		dragArgument: nil

		dropArgument: nil

		dropSelector: doDropContext:

	      )

	    )

	   )

	)

	#(doubleClickChannel action)

	#filterClassVars

	#forceGeneratorTrigger

	#immediateUpdate

	#inGeneratorHolder

	#menuHolder

	#methodCategoryHolder

	#packageFilter

	#selectedMethods

	#selectionChangeCondition

	#showCoverageInformation

	#showImageResourceMethodsImages

	#showMethodComplexity

	#showMethodInheritance

	#showMethodTypeIcon

	#sortBy

	#updateTrigger

	#variableFilter

	#showSyntheticMethods

	browserNameList := List new.

	filterClassVars := false asValue.

	filterClassVars addDependent:self

	filterClassVars removeDependent:self

	filterClassVars addDependent:self

	selectedMethodNameIndices := ValueHolder new.

	selectedMethodNameIndices addDependent:self

	showImageResourceMethodsImages := false asValue.

	showImageResourceMethodsImages addDependent:self

	showImageResourceMethodsImages removeDependent:self

	showImageResourceMethodsImages addDependent:self

	showMethodComplexity := false asValue.

	showMethodComplexity addDependent:self

	showMethodComplexity removeDependent:self

	showMethodComplexity addDependent:self

	showMethodInheritance := false asValue.

	showMethodInheritance addDependent:self

	showMethodInheritance removeDependent:self

	showMethodInheritance addDependent:self

	showMethodTypeIcon := true asValue.

	showMethodTypeIcon addDependent:self

	showMethodTypeIcon removeDependent:self

	showMethodTypeIcon addDependent:self

	showSyntheticMethods := false asValue.

	showSyntheticMethods addDependent:self

	showSyntheticMethods removeDependent:self

	showSyntheticMethods addDependent:self

	variableFilter := nil asValue.

	variableFilter addDependent:self

	variableFilter removeDependent:self

	variableFilter addDependent:self

	classes notNil ifTrue:[

	    something == #classDefinition ifTrue:[

		cls := aParameter.

		(classes contains:[:aClass | aClass name == cls name]) ifFalse:[

		    ^ self   "/ I dont care for that class

		].

		classes := classes collect:[:eachClass | eachClass isMeta ifTrue:[

							     (Smalltalk at:eachClass theNonMetaclass name) class

							 ] ifFalse:[

							     Smalltalk at:eachClass name

							 ]

					   ].

		self invalidateList.

		^ self.

	    ].

	    something == #methodCategory ifTrue:[

		"/ ignore here - methodCategoryList will tell me if required

		^ self

	    ].

	    (something == #classOrganization

	    or:[ something == #methodCategoryAdded

	    or:[ something == #methodCategoryRemoved

	    or:[ something == #methodCategoriesRemoved

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

		"/ ignore here - methodCategoryList will tell me if required

		^ self

	    ].

	    something == #methodInClass ifTrue:[

		"/ a method has been added/changed

		cls := aParameter at:1.

		(classes includesIdentical:cls) ifTrue:[

		    sel := aParameter at:2.

		    oldMethod := aParameter at:3.

		    newMethod := cls compiledMethodAt:sel.

		    (oldMethod notNil and:[newMethod notNil]) ifTrue:[

			"a method was changed & acccepted;

			 No need for a rescan of the methodDictionary;

			 however, ensure that the refs to the old method are updated

			"

			methods := selection.

			methods size > 0 ifTrue:[

			    (methods includesIdentical:oldMethod) ifTrue:[

				needSelectionChange := true.

			    ]

			].

			methodList replaceAllIdentical:oldMethod with:newMethod.

			lastSelectedMethods notNil ifTrue:[

			    lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod

			].

			methods size > 0 ifTrue:[

			    methods := methods asOrderedCollection.

			    methods replaceAllIdentical:oldMethod with:newMethod.

			].

			needSelectionChange == true ifTrue:[

			    selectionHolder setValue:methods.

			    "/ self enqueueDelayedMethodsSelectionChanged.

			    "/ need this to inform my browser that method was changed

			    "/ by someone else.

			    selectionHolder changed.

			].

			"/JV@2011-07-22: Update always - I need to see immediately that

			"/the method has changed. Also, add/remove breakpoint etc.

			self autoUpdateOnChange ifTrue:[

			    "/ only update that method's entry

			    self updateListEntryFor:newMethod.

			    "/ sigh - must invalidate

			    "/ self invalidateList.

			].

			^ self.

		    ].

		    "/ method was added - update the methodList

		    "/ Q: is this needed (methodCategoryList should send me a new inGenerator)

		    self invalidateList.

		].

		^ self.

	    ].

	    something == #methodInClassRemoved ifTrue:[

		cls := aParameter at:1.

		(classes includesIdentical:cls) ifTrue:[

		    sel := aParameter at:2.

		    "/ method was removed - update the methodList

		    "/ Q: is this needed (methodCategoryList should send me a new inGenerator)

		    self invalidateList.

		].

		^ self.

	    ].

	    something == #methodCoverageInfo ifTrue:[

		"/ already checked if it is one of my classes

		self updateListEntryFor:aParameter.

		^ self.

	    ].

	    (something == #methodTrap

	    or:[ something == #lastTestRunResult

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

		cls := aParameter at:1.

		sel := aParameter at:2.

		(classes includesIdentical:cls) ifFalse:[ ^ self].

		newMethod := cls compiledMethodAt:sel.

		newMethod isNil ifTrue:[

		    self invalidateList.

		    ^ self

		].

		((something == #privacyOfMethod) or:[something == #lastTestRunResult]) ifTrue:[

		    self updateListEntryFor:newMethod.

		].

		(something == #methodTrap) ifTrue:[

		    newMethod isWrapped ifTrue:[

			oldMethod := newMethod originalMethod

		    ] ifFalse:[

			selection size > 0 ifTrue:[

			    oldMethod := selection detect:[:each | each isWrapped and:[each originalMethod == newMethod]] ifNone:nil.

			]

		    ].

		    selection size > 0 ifTrue:[

			(selection includesIdentical:oldMethod) ifTrue:[

			    needSelectionChange := true.