hg/stx-libtool: comparison Tools

equal deleted inserted replaced

-:9e5f512a75a7
+:0690de3bd379
 "Modified: / 25.2.2000 / 23:53:51 / cg"
 !
 delayedUpdate:something with:aParameter from:changedObject
-|cls classes chgClass wg|
+|cls classes chgClass wg savedList|
 classes := self classList value ? #().
 self inSlaveModeOrInvisible ifTrue:[
-	self invalidateList.
+self invalidateList.
-	^ self.
+^ self.
 ].
 "/    (self slaveMode value == true) ifTrue:[^ self].
 "/    self slaveMode value isNil ifTrue:[
 "/        self window shown ifFalse:[
 "/            ^ self
 "/        ].
 "/    ].
 changedObject == slaveMode ifTrue:[
-	listValid ~~ true ifTrue:[
+listValid ~~ true ifTrue:[
-	    self enqueueDelayedUpdateList.
+self enqueueDelayedUpdateList.
-	].
+].
-	self enqueueDelayedClassSelectionChanged.
+self enqueueDelayedClassSelectionChanged.
-	^  self
+^  self
 ].
 changedObject == Smalltalk ifTrue:[
-	something == #methodInClass ifTrue:[
+something == #methodInClass ifTrue:[
-	    ^ self "no interest"
+^ self "no interest"
-	].
+].
-	something == #methodInClassRemoved ifTrue:[
+something == #methodInClassRemoved ifTrue:[
-	    "/ must update the list, if the methods package is different from
+"/ must update the list, if the methods package is different from
-	    "/ the classes package (to undo any has-exension highlighting)
+"/ the classes package (to undo any has-exension highlighting)
-	    cls := aParameter first.
+cls := aParameter first.
-	    self updateListsFor:cls.
+self updateListsFor:cls.
-	    ^ self
+^ self
-	].
+].
-	something == #organization ifTrue:[^ self "no interest" ].
+something == #organization ifTrue:[^ self "no interest" ].
-	(something == #classDefinition
+(something == #classDefinition
-	or:[something == #classVariables
+or:[something == #classVariables
-	or:[something == #newClass]]) ifTrue:[
+or:[something == #newClass]]) ifTrue:[
-	    "/ update that class in my classList and the selection
+"/ update that class in my classList and the selection
-	    listValid ifTrue:[
+listValid ifTrue:[
-		self classDefinitionChanged:aParameter.
+self classDefinitionChanged:aParameter.
-	    ].
+].
-	    ^ self.
+^ self.
-	].
+].
-	(something == #lastTestRunResult) ifTrue:[
+(something == #lastTestRunResult) ifTrue:[
-	    "/ update that class in my classList and the selection
+"/ update that class in my classList and the selection
-	    listValid ifTrue:[
+listValid ifTrue:[
-		self updateListsFor:aParameter.
+self updateListsFor:aParameter.
-		"/ self classDefinitionChanged:aParameter.
+"/ self classDefinitionChanged:aParameter.
-	    ].
+].
-	    ^ self.
+^ self.
-	].
+].
-	something == #classRemove ifTrue:[
+something == #classRemove ifTrue:[
-	    "/ update my classList and the selection
+"/ update my classList and the selection
-	    self classRemoved:aParameter.
+self classRemoved:aParameter.
-	    ^ self.
+^ self.
-	].
+].
-	something == #classRename ifTrue:[
+something == #classRename ifTrue:[
-	    "/ update that class in my classList and the selection
+"/ update that class in my classList and the selection
-	    listValid ifTrue:[
+listValid ifTrue:[
-		aParameter isArray ifTrue:[
+aParameter isArray ifTrue:[
-		    cls := aParameter at:1.
+cls := aParameter at:1.
-		    self classDefinitionChanged:cls.
+self classDefinitionChanged:cls.
-		]
+]
-	    ].
+].
-	    ^ self.
+^ self.
-	].
+].
-	something == #projectOrganization ifTrue:[
+something == #projectOrganization ifTrue:[
-	    aParameter isNil ifTrue:[
+aParameter isNil ifTrue:[
-		self invalidateList.
+self invalidateList.
-		organizerMode value == #project ifTrue:[
+organizerMode value == #project ifTrue:[
-		    self enqueueDelayedUpdateOutputGenerator.
+self enqueueDelayedUpdateOutputGenerator.
-		].
+].
-		^ self
+^ self
-	    ].
+].
-	    cls := aParameter at:1.
+cls := aParameter at:1.
-	    cls notNil ifTrue:[  "/ should not happen (but does occasionally)
+cls notNil ifTrue:[  "/ should not happen (but does occasionally)
-		((classes includes:cls theMetaclass)
+((classes includes:cls theMetaclass)
-		or:[(classes includes:cls theNonMetaclass)]) ifTrue:[
+or:[(classes includes:cls theNonMetaclass)]) ifTrue:[
-		    self invalidateList.
+self invalidateList.
-		    organizerMode value == #project ifTrue:[
+organizerMode value == #project ifTrue:[
-			self enqueueDelayedUpdateOutputGenerator.
+self enqueueDelayedUpdateOutputGenerator.
-		    ]
+]
-		].
+].
-	    ].
+].
-	    ^ self
+^ self
-	].
+].
-	^ self.
+^ self.
 ].
 (something == #lastTestRunResult) ifTrue:[
-	^ self
+^ self
 ].
 changedObject == ChangeSet ifTrue:[
-	wg := self windowGroup.
+wg := self windowGroup.
-	wg isNil ifTrue:[
+wg isNil ifTrue:[
-	    changedObject removeDependent:self.
+changedObject removeDependent:self.
-	] ifFalse:[
+] ifFalse:[
-	    "/ react on changes of the changeSet to recolorize items
+"/ react on changes of the changeSet to recolorize items
-	    something == #addChange: ifTrue:[
+something == #addChange: ifTrue:[
-		chgClass := aParameter changeClass.
+chgClass := aParameter changeClass.
-		chgClass notNil ifTrue:[
+chgClass notNil ifTrue:[
-		    ((classes includes:chgClass theNonMetaclass)
+((classes includes:chgClass theNonMetaclass)
-		    or:[classes includes:chgClass theMetaclass]) ifTrue:[
+or:[classes includes:chgClass theMetaclass]) ifTrue:[
-			"/ remove all other addChange notifications ...
+"/ remove all other addChange notifications ...
-			wg sensor
+wg sensor
-			    flushEventsFor:self
+flushEventsFor:self
-			    where:[:ev | ev isMessageSendEvent
+where:[:ev | ev isMessageSendEvent
-					 and:[ev selector == #delayedUpdate:with:from:
+and:[ev selector == #delayedUpdate:with:from:
-					 and:[(ev arguments at:3) == ChangeSet]]].
+and:[(ev arguments at:3) == ChangeSet]]].
-			self reconstructNameList.
+self reconstructNameList.
-		    ]
+]
-		]
+]
-	    ] ifFalse:[
+] ifFalse:[
-		"/ remove all other ChangeSet notifications ...
+"/ remove all other ChangeSet notifications ...
-		wg sensor
+wg sensor
-		    flushEventsFor:self
+flushEventsFor:self
-		    where:[:ev | ev isMessageSendEvent
+where:[:ev | ev isMessageSendEvent
-				 and:[ev selector == #delayedUpdate:with:from:
+and:[ev selector == #delayedUpdate:with:from:
-				 and:[(ev arguments at:3) == ChangeSet]]].
+and:[(ev arguments at:3) == ChangeSet]]].
-		self reconstructNameList.
+self reconstructNameList.
-	    ].
+].
-	].
+].
-	^ self
+^ self
 ].
 changedObject == self selectedClasses ifTrue:[
-	slaveMode value ~~ true ifTrue:[
+slaveMode value ~~ true ifTrue:[
-	    listValid == true ifFalse:[
+savedList := self selectedClasses value.
-		self updateList
+lastSelectedClasses := nil.
-	    ].
+listValid == true ifFalse:[
-	    self selectedClassesChanged.
+self updateList
-	    self updateOutputGenerator.
+].
-	] ifFalse:[
+self selectedClasses setValue:savedList.
-	    listValid := false.
+self selectedClassesChanged.
-	].
+self updateOutputGenerator.
-	^ self
+] ifFalse:[
+listValid := false.
+].
+^ self
 ].
 (changedObject == meta
 or:[changedObject == selectedClassNameIndices]) ifTrue:[
-	self selectionChanged.
+self selectionChanged.
-	^ self
+^ self
 ].
 changedObject == showClassPackages ifTrue:[
-	self classNameList value:nil.
+self classNameList value:nil.
-	self invalidateList.
+self invalidateList.
-	^ self
+^ self
 ].
 (changedObject == hideUnloadedClasses
 or:[changedObject == hidePrivateClasses
 or:[changedObject == nameSpaceFilter
 or:[changedObject == packageFilter]]]) ifTrue:[
-	self invalidateList.
+self invalidateList.
-	^ self
+^ self
 ].
 super delayedUpdate:something with:aParameter from:changedObject
 "Modified: / 13.11.2001 / 11:32:10 / cg"
 ! !
 !ClassList class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.41 2009-10-25 01:37:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.42 2009-11-05 21:56:43 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.41 2009-10-25 01:37:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.42 2009-11-05 21:56:43 cg Exp $'
 ! !

changeset 9204	0690de3bd379
parent 9075	08ec2bc8bf92
child 9371	d0828a270e10