#TUNING by exept
class: Tools::NewSystemBrowser
changed:
#classMenuSetTag (send #== instead of #=)
#hasProjectSelectedAndSubversionRepositoryExistsHolder (send #== instead of #=)
#selectedCategoriesAsEnvironment (send #== instead of #=)
#selectedClassesAsEnvironment (send #== instead of #=)
#selectedLintRuleClassesAsEnvironment (send #== instead of #=)
#selectedNamespacesAsEnvironment (send #== instead of #=)
#selectedPackagesAsEnvironment (send #== instead of #=)
#selectedProtocolsAsEnvironment (send #== instead of #=)
#updateSpecialCodeEditorVisibilityForClass:method:
--- a/Tools__NewSystemBrowser.st Sun Sep 08 16:58:50 2019 +0200
+++ b/Tools__NewSystemBrowser.st Sun Sep 08 17:00:17 2019 +0200
@@ -19729,7 +19729,7 @@
subjects := self selectedCategoriesValue.
^ (CategoryEnvironment new)
categories:subjects;
- label:(subjects size = 1
+ label:(subjects size == 1
ifTrue:[ 'class category ' , (subjects anElement ? '')]
ifFalse:[ subjects size printString , ' class categories' ]);
yourself
@@ -19754,7 +19754,7 @@
allSubjects addAll:(subjects collect:[:cls | cls theMetaclass]).
^ (ClassEnvironment new)
classes:allSubjects;
- label:(subjects size = 1
+ label:(subjects size == 1
ifTrue:[ 'class ' , subjects anyOne fullName ]
ifFalse:[ subjects size printString , ' classes' ]);
yourself
@@ -19801,7 +19801,7 @@
classes := self selectedLintRuleClasses value.
^ (ClassEnvironment new)
classes:classes;
- label:(classes size = 1
+ label:(classes size == 1
ifTrue:[ 'class ' , classes anyOne fullName ]
ifFalse:[ classes size printString , ' classes' ]);
yourself
@@ -19825,7 +19825,7 @@
subjects := self selectedNamespacesValue.
^ (NamespaceEnvironment new)
namespaceNames:subjects;
- label:(subjects size = 1
+ label:(subjects size == 1
ifTrue:[ 'namespace ' , subjects anyOne ]
ifFalse:[ subjects size printString , ' namespaces' ]);
yourself
@@ -19922,7 +19922,7 @@
^ (PackageEnvironment new)
packageNames:subjects;
- label:(subjects size = 1
+ label:(subjects size == 1
ifTrue:[ 'package: ' , subjects anyOne ]
ifFalse:[ subjects size printString , ' packages' ]);
yourself
@@ -19951,7 +19951,7 @@
^ ProtocolEnvironment new
class: theClass
protocols: protocols;
- label:(protocols size = 1
+ label:(protocols size == 1
ifTrue:[ 'protocol "' , protocols anElement printString , '" in ' , className ]
ifFalse:[ protocols size printString , ' protocols in ' , className ]);
yourself
@@ -23443,7 +23443,7 @@
hasProjectSelectedAndSubversionRepositoryExistsHolder
^ [ self hasProjectSelected
- and:[self selectedProjects value size = 1
+ and:[self selectedProjects value size == 1
and:[self hasSubversionRepositoryFor: self selectedProjects value anyOne]]]
"Created: / 31-03-2008 / 15:07:52 / janfrog"
@@ -38163,7 +38163,7 @@
Dialog warn:(resources
stringWithCRs:'Could not fetch tag information.\\Please check your sourcecode manager settings.\(and possibly the network for reachability of the repository)').
] do:[
- tagAndRevision := self askForTagForClasses:classes askForRevision:(classes size = 1).
+ tagAndRevision := self askForTagForClasses:classes askForRevision:(classes size == 1).
].
tag := tagAndRevision key.
tag isEmptyOrNil ifTrue:[^ self ].
@@ -62974,7 +62974,7 @@
actionList add:[ self updateCodeEditorVisibilityForCanvasEditor:editorCanvas class:aClassOrNil method:aMethod ].
].
- (hideSpecialEditor and:[tabList size = 1]) ifTrue:[
+ (hideSpecialEditor and:[tabList size == 1]) ifTrue:[
"/ sigh - setting an empty list also changes the selection to 0 (side effect in NoteBookView).
"/ To avoid flickering change messages, preSet its value to 0.
self selectedEditorNoteBookTabIndexHolder setValue:0.