--- a/Tools__MethodCategoryList.st Fri Mar 01 16:13:35 2019 +0100
+++ b/Tools__MethodCategoryList.st Fri Mar 01 16:18:29 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -498,7 +496,7 @@
listValid == true ifTrue:[ self invalidateList ].
selectedCategories := selectedProtocolsHolder value.
- selectedCategories size > 0 ifTrue:[
+ selectedCategories size ~~ 0 ifTrue:[
selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
selectedCategories := selectedCategories collect:[:each | each string].
@@ -523,7 +521,7 @@
oldMethod := aParameter at:3.
newMethod := cls compiledMethodAt:sel.
oldMethod notNil ifTrue:[
- variableFilter value size > 0 ifTrue:[
+ variableFilter value size ~~ 0 ifTrue:[
"/ sigh - must invalidate
listValid == true ifTrue:[ self invalidateList ].
].
@@ -535,7 +533,7 @@
"/ if it's category is selected, updateOutputGenerator
selectedCategories := selectedProtocolsHolder value.
- selectedCategories size > 0 ifTrue:[
+ selectedCategories size ~~ 0 ifTrue:[
selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
selectedCategories := selectedCategories collect:[:each | each string].
@@ -694,7 +692,7 @@
changedObject == inGeneratorHolder ifTrue:[
selectedCategories := selectedProtocolsHolder value.
- selectedCategories size > 0 ifTrue:[
+ selectedCategories size ~~ 0 ifTrue:[
oldSelectedProtocols := selectedCategories ? #().
oldSelectedProtocols := oldSelectedProtocols collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
oldSelectedProtocols := oldSelectedProtocols collect:[:each | each string].
@@ -712,6 +710,7 @@
"Created: / 05-02-2000 / 13:42:10 / cg"
"Modified: / 23-09-2011 / 20:37:31 / cg"
"Modified (comment): / 13-02-2017 / 20:33:18 / cg"
+ "Modified: / 01-03-2019 / 16:17:43 / Claus Gittinger"
!
getSelectedProtocolsFromIndices
@@ -776,7 +775,7 @@
oldMethod := aParameter at:3.
newMethod := cls compiledMethodAt:sel.
oldMethod notNil ifTrue:[
- variableFilter value size > 0 ifTrue:[
+ variableFilter value size ~~ 0 ifTrue:[
"/ sigh - must invalidate
listValid ifTrue:[ self invalidateList ].
^ self.
@@ -840,6 +839,7 @@
super update:something with:aParameter from:changedObject.
"Modified: / 05-06-2012 / 23:38:31 / cg"
+ "Modified: / 01-03-2019 / 16:17:50 / Claus Gittinger"
! !
!MethodCategoryList methodsFor:'drag & drop'!
@@ -930,7 +930,7 @@
leafClasses remove:nil ifAbsent:[]. "/ may happen when hierarchies are changed elsewhere.
- (leafClasses size > 0 and:[protocols size > 0]) ifTrue:[
+ (leafClasses size ~~ 0 and:[protocols size ~~ 0]) ifTrue:[
allProtocols := protocols includes:(self class nameListEntryForALL).
superSendProtocols := protocols includes:(self class nameListEntryForSuperSend).
uncommentedProtocols := protocols includes:(self class nameListEntryForUncommented).
@@ -1154,6 +1154,7 @@
"Created: / 05-02-2000 / 13:42:10 / cg"
"Modified: / 25-02-2017 / 18:34:28 / cg"
+ "Modified: / 01-03-2019 / 16:16:58 / Claus Gittinger"
! !
!MethodCategoryList methodsFor:'private'!
@@ -1387,10 +1388,10 @@
]
].
- AdditionalEmptyCategoriesPerClassName size > 0 ifTrue:[
+ AdditionalEmptyCategoriesPerClassName size ~~ 0 ifTrue:[
clsName := cls name.
emptyProtocols := AdditionalEmptyCategoriesPerClassName at:clsName ifAbsent:nil.
- emptyProtocols size > 0 ifTrue:[
+ emptyProtocols size ~~ 0 ifTrue:[
emptyProtocols remove:cat ifAbsent:nil.
].
emptyProtocols size == 0 ifTrue:[
@@ -1644,10 +1645,10 @@
categoryList at:idx put:item.
].
- classesProcessed size > 0 ifTrue:[
+ classesProcessed size ~~ 0 ifTrue:[
"/ those are simulated - in ST/X, empty categories do not
"/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyCategoriesPerClassName size > 0 ifTrue:[
+ AdditionalEmptyCategoriesPerClassName size ~~ 0 ifTrue:[
AdditionalEmptyCategoriesPerClassName keysAndValuesDo:[:clsName :protocols |
(classesProcessed contains:[:cls | cls name = clsName]) ifTrue:[
categoryList addAll:protocols.
@@ -1732,6 +1733,7 @@
"Created: / 05-02-2000 / 13:42:11 / cg"
"Modified: / 31-08-2011 / 16:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 05-07-2017 / 10:52:23 / cg"
+ "Modified: / 01-03-2019 / 16:17:34 / Claus Gittinger"
!
makeDependent
@@ -1778,7 +1780,7 @@
rawList := self rawProtocolList value.
newSelection := prevSelection select:[:item | item notNil and:[rawList includes:item string]].
- newSelection size > 0 ifTrue:[
+ newSelection size ~~ 0 ifTrue:[
"/ force change (for dependents)
"/ selectedProtocolsHolder value:nil.
"/ selectedProtocolsHolder value:newSelection.
@@ -1790,7 +1792,7 @@
prevSelection := selectedProtocolsHolder value.
selectedProtocolsHolder value:nil.
].
- (prevSelection size > 0 or:[newSelection size > 0]) ifTrue:[
+ (prevSelection size ~~ 0 or:[newSelection size ~~ 0]) ifTrue:[
self enqueueDelayedUpdateOutputGenerator.
"/ self updateOutputGenerator.
].
@@ -1804,7 +1806,7 @@
"/ to another class which has the same categories.
(prevClasses size ~= classes size
or:[prevClasses asOrderedCollection ~= (classes ? #()) asOrderedCollection ]) ifTrue:[
- (newList size > 0 or:[oldList size > 0]) ifTrue:[
+ (newList size ~~ 0 or:[oldList size ~~ 0]) ifTrue:[
self updateOutputGenerator
]
] ifFalse:[
@@ -1815,6 +1817,7 @@
"Created: / 05-02-2000 / 13:42:11 / cg"
"Modified: / 23-03-2012 / 15:53:41 / cg"
+ "Modified: / 01-03-2019 / 16:18:07 / Claus Gittinger"
! !
!MethodCategoryList methodsFor:'private-info'!