hg/stx-libtool: comparison Tools

equal deleted inserted replaced

-:273637686948
+:d9730a8d7c52
-"{ Package: 'stx:__NoProject__' }"
+"{ Package: 'stx:libtool' }"
 "{ NameSpace: Tools }"
 BrowserList subclass:#ClassCategoryList
 	instanceVariableNames:'categoryList classes allSelected'
 <resource: #canvas>
 ^
 #(#FullSpec
-#name: #singleCategoryWindowSpec
+	#name: #singleCategoryWindowSpec
-#window:
+	#window:
 #(#WindowSpec
-#label: 'ClassCategoryList'
+	  #label: 'ClassCategoryList'
-#name: 'ClassCategoryList'
+	  #name: 'ClassCategoryList'
-#min: #(#Point 0 0)
+	  #min: #(#Point 0 0)
-#max: #(#Point 1024 721)
+	  #max: #(#Point 1024 721)
-#bounds: #(#Rectangle 218 175 518 475)
+	  #bounds: #(#Rectangle 218 175 518 475)
-)
+	)
-#component:
+	#component:
 #(#SpecCollection
-#collection: #(
+	  #collection: #(
-#(#LabelSpec
+	   #(#LabelSpec
-#label: 'ClassCategoryName'
+	      #label: 'ClassCategoryName'
-#name: 'ClassCategoryLabel'
+	      #name: 'ClassCategoryLabel'
-#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
+	      #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
-#translateLabel: true
+	      #translateLabel: true
-#labelChannel: #classCategoryLabelHolder
+	      #labelChannel: #classCategoryLabelHolder
-#menu: #menuHolder
+	      #menu: #menuHolder
-)
+	    )
-)
+	   )
-)
+	)
 )
 !
 windowSpec
 "This resource specification was automatically generated
 <resource: #canvas>
 ^
 #(#FullSpec
-#name: #windowSpec
+	#name: #windowSpec
-#window:
+	#window:
 #(#WindowSpec
-#label: 'ClassCategoryList'
+	  #label: 'ClassCategoryList'
-#name: 'ClassCategoryList'
+	  #name: 'ClassCategoryList'
-#min: #(#Point 0 0)
+	  #min: #(#Point 0 0)
-#max: #(#Point 1024 721)
+	  #max: #(#Point 1024 721)
-#bounds: #(#Rectangle 13 23 313 323)
+	  #bounds: #(#Rectangle 13 23 313 323)
-)
+	)
-#component:
+	#component:
 #(#SpecCollection
-#collection: #(
+	  #collection: #(
-#(#SequenceViewSpec
+	   #(#SequenceViewSpec
-#name: 'List'
+	      #name: 'List'
-#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-#tabable: true
+	      #tabable: true
-#model: #selectedCategories
+	      #model: #selectedCategories
-#menu: #menuHolder
+	      #menu: #menuHolder
-#hasHorizontalScrollBar: true
+	      #hasHorizontalScrollBar: true
-#hasVerticalScrollBar: true
+	      #hasVerticalScrollBar: true
-#miniScrollerHorizontal: true
+	      #miniScrollerHorizontal: true
-#isMultiSelect: true
+	      #isMultiSelect: true
-#valueChangeSelector: #selectionChangedByClick
+	      #valueChangeSelector: #selectionChangedByClick
-#useIndex: false
+	      #useIndex: false
-#sequenceList: #categoryList
+	      #sequenceList: #categoryList
-#doubleClickChannel: #doubleClickChannel
+	      #doubleClickChannel: #doubleClickChannel
-#properties:
+	      #properties:
-#(#PropertyListDictionary
+	     #(#PropertyListDictionary
-#dragArgument: nil
+		#dragArgument: nil
-#dropArgument: nil
+		#dropArgument: nil
-#canDropSelector: #canDrop:
+		#canDropSelector: #canDrop:
-#dropSelector: #doDrop:
+		#dropSelector: #doDrop:
-)
+	      )
-)
+	    )
-)
+	   )
-)
+	)
 )
 "Created: / 5.2.2000 / 13:42:11 / cg"
 "Modified: / 18.8.2000 / 20:11:49 / cg"
 ! !
 nameListEntryForALL categoryOfClass wg|
 selectedCategories := self selectedCategoriesStrings.
 changedObject == Smalltalk ifTrue:[
-((something == #classVariables)
+	((something == #classVariables)
-or:[something == #classDefinition]) ifTrue:[
+	or:[something == #classDefinition]) ifTrue:[
-listValid == true ifTrue:[
+	    listValid == true ifTrue:[
-categoryOfClass := aParameter category.
+		categoryOfClass := aParameter category.
-(categoryList value includes:categoryOfClass) ifFalse:[
+		(categoryList value includes:categoryOfClass) ifFalse:[
-self invalidateList.
+		    self invalidateList.
-].
+		].
-slaveMode value ~~ true ifTrue:[
+		slaveMode value ~~ true ifTrue:[
-(selectedCategories includes:categoryOfClass) ifTrue:[
+		    (selectedCategories includes:categoryOfClass) ifTrue:[
-"/ a selected class has changed
+			"/ a selected class has changed
-"/ in order to give others a chance to update their list before,
+			"/ in order to give others a chance to update their list before,
-"/ this one is always enqueued for delayed update (even if immediateUpdate is true)
+			"/ this one is always enqueued for delayed update (even if immediateUpdate is true)
-"/ self enqueueDelayedUpdateOutputGenerator
+			"/ self enqueueDelayedUpdateOutputGenerator
-self enqueueMessage:#updateOutputGenerator for:self arguments:#()
+			self enqueueMessage:#updateOutputGenerator for:self arguments:#()
-].
+		    ].
-].
+		].
-].
+	    ].
-^ self
+	    ^ self
-].
+	].
-something == #newClass ifTrue:[
+	something == #newClass ifTrue:[
-categoryOfClass := aParameter category.
+	    categoryOfClass := aParameter category.
 "/            listValid == true ifTrue:[
-(categoryList value includes:categoryOfClass) ifFalse:[
+		(categoryList value includes:categoryOfClass) ifFalse:[
-self invalidateList.
+		    self invalidateList.
-].
+		].
 "/            ].
-slaveMode value ~~ true ifTrue:[
+	    slaveMode value ~~ true ifTrue:[
-(selectedCategories includes:categoryOfClass) ifTrue:[
+		(selectedCategories includes:categoryOfClass) ifTrue:[
-self enqueueDelayedUpdateOutputGenerator
+		    self enqueueDelayedUpdateOutputGenerator
-].
+		].
-].
+	    ].
-^ self
+	    ^ self
-].
+	].
-self invalidateList.
+	self invalidateList.
-(something == #classRemove
+	(something == #classRemove
-or:[something == #projectOrganization
+	or:[something == #projectOrganization
-or:[something == #organization]]) ifTrue:[
+	or:[something == #organization]]) ifTrue:[
-slaveMode value ~~ true ifTrue:[
+	    slaveMode value ~~ true ifTrue:[
-"/ sorry: cannot filter on category (already changed to #removed)
+		"/ sorry: cannot filter on category (already changed to #removed)
-self enqueueDelayedUpdateOutputGenerator
+		self enqueueDelayedUpdateOutputGenerator
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 changedObject == ChangeSet ifTrue:[
-"/ remove all other change notifications from the eventQueue
+	"/ remove all other change notifications from the eventQueue
-wg := self windowGroup.
+	wg := self windowGroup.
-wg isNil ifTrue:[
+	wg isNil ifTrue:[
-"/ oops - should no longer be dependent...
+	    "/ oops - should no longer be dependent...
-changedObject removeDependent:self.
+	    changedObject removeDependent:self.
-] ifFalse:[
+	] ifFalse:[
-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]]].
-].
+	].
-something == #addChange: ifTrue:[
+	something == #addChange: ifTrue:[
-"/ only need to invalidate, if that change changes my emphasis
+	    "/ only need to invalidate, if that change changes my emphasis
-"/ (i.e. if its a new methodChange)
+	    "/ (i.e. if its a new methodChange)
 "/            self invalidateList.
-aParameter isMethodChange ifTrue:[
+	    aParameter isMethodChange ifTrue:[
-(ChangeSet current
+		(ChangeSet current
-count:[:chg | chg notNil and:[chg isMethodChange
+		    count:[:chg | chg notNil and:[chg isMethodChange
-and:[ chg className = aParameter className ]]])
+				  and:[ chg className = aParameter className ]]])
-== 1 ifTrue:[
+		== 1 ifTrue:[
-"/ that methodChange is the first for this method.
+		    "/ that methodChange is the first for this method.
-aParameter changeClass ifNotNil:[
+		    aParameter changeClass ifNotNil:[
-self colorizeCategoryAsChanged:(aParameter changeClass category).
+			self colorizeCategoryAsChanged:(aParameter changeClass category).
-]
+		    ]
-]
+		]
-].
+	    ].
-^ self
+	    ^ self
-].
+	].
-self invalidateList.
+	self invalidateList.
-^ self
+	^ self
 ].
 changedObject == nameSpaceFilter ifTrue:[
-"/ all might be more or less than before ...
+	"/ all might be more or less than before ...
-allSelected := false.
+	allSelected := false.
 ].
 changedObject == packageFilter ifTrue:[
-"/ all might be more or less than before ...
+	"/ all might be more or less than before ...
-allSelected := false.
+	allSelected := false.
 ].
 selectedCategoriesHolder := self selectedCategories.
 changedObject == selectedCategoriesHolder ifTrue:[
-categoryList isNil ifTrue:[
+	categoryList isNil ifTrue:[
-"/ oops - hurry up
+	    "/ oops - hurry up
-self invalidateList.
+	    self invalidateList.
-].
+	].
-nameListEntryForALL := self class nameListEntryForALL.
+	nameListEntryForALL := self class nameListEntryForALL.
-selectedCategories size > 1 ifTrue:[
+	selectedCategories size > 1 ifTrue:[
-(selectedCategories includes:nameListEntryForALL) ifTrue:[
+	    (selectedCategories includes:nameListEntryForALL) ifTrue:[
-self makeSelectionOtherThanAllVisible.
+		self makeSelectionOtherThanAllVisible.
-]
+	    ]
-].
+	].
-"/ if all selected before AND allSelected after, no need to update the output generator
+	"/ if all selected before AND allSelected after, no need to update the output generator
-allSelectedBefore := allSelected ? false.
+	allSelectedBefore := allSelected ? false.
-allSelected := selectedCategories includes:nameListEntryForALL.
+	allSelected := selectedCategories includes:nameListEntryForALL.
-(allSelectedBefore and:[allSelected]) ifTrue:[
+	(allSelectedBefore and:[allSelected]) ifTrue:[
-^ self
+	    ^ self
-].
+	].
 ].
 super delayedUpdate:something with:aParameter from:changedObject
 "Created: / 5.2.2000 / 13:42:12 / cg"
 ! !
 !ClassCategoryList class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.1 2004-02-26 18:55:56 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.2 2004-02-26 19:03:55 cg Exp $'
 ! !

changeset 5592	d9730a8d7c52
parent 5591	273637686948
child 5909	95cd2d9822b3