Merge pull request #1458 from hernanmd/add_alternate_row_color_treetable

Add alternateRowsColor for Tree Table presenter.
pharo-spec · Sep 25, 2023 · 898acf0 · 898acf0
2 parents e8de07a + a9027c2
commit 898acf0
Show file tree

Hide file tree

Showing 263 changed files with 4,019 additions and 3,484 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicTreeTableAdapter.class.st
@@ -113,6 +113,11 @@ SpMorphicTreeTableAdapter >> addModelTo: tableMorph [
 			to: self
 ]
 
+{ #category : 'drawing' }
+SpMorphicTreeTableAdapter >> alternateRowsColor [
+	self widgetDo: [ :w | w alternateRowsColor: true ]
+]
+
 { #category : 'factory' }
 SpMorphicTreeTableAdapter >> basicSelectionChanged: ann [
 	| selection |

diff --git a/src/Spec2-Core/KMCategory.extension.st b/src/Spec2-Core/KMCategory.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #KMCategory }
+Extension { #name : 'KMCategory' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 KMCategory >> , aKMCategory [ 
 	| newCategory |
 

diff --git a/src/Spec2-Core/MacOSPlatform.extension.st b/src/Spec2-Core/MacOSPlatform.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #MacOSPlatform }
+Extension { #name : 'MacOSPlatform' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 MacOSPlatform >> configureApplication: anApplication configuration: aConfiguration [
 
 	aConfiguration configureOSX: anApplication

diff --git a/src/Spec2-Core/ManifestSpec2Core.class.st b/src/Spec2-Core/ManifestSpec2Core.class.st
@@ -6,42 +6,44 @@ Spec is a framework in Pharo for describing user interfaces. It allows for the c
 I contain the core of Spec 2. By core I mean all the code defining the basics of Spec and the basic widgets users should use to build their applications.
 "
 Class {
-	#name : #ManifestSpec2Core,
-	#superclass : #PackageManifest,
-	#category : #'Spec2-Core-Manifest'
+	#name : 'ManifestSpec2Core',
+	#superclass : 'PackageManifest',
+	#category : 'Spec2-Core-Manifest',
+	#package : 'Spec2-Core',
+	#tag : 'Manifest'
 }
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleExcessiveMethodsRuleV1FalsePositive [
 	^ #(#(#(#RGClassDefinition #(#SpPresenter)) #'2016-07-01T15:56:13.465539+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleExcessiveVariablesRuleV1FalsePositive [
 	^ #(#(#(#RGClassDefinition #(#SpPresenter)) #'2016-07-01T15:56:13.372336+02:00') #(#(#RGClassDefinition #(#SpAbstractWidgetPresenter)) #'2016-07-01T15:56:13.372528+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleGTExampleNotDefinedRuleV1FalsePositive [
 	^ #(#(#(#RGClassDefinition #(#SpPresenter)) #'2016-07-01T15:56:13.363445+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleImplementedNotSentRuleV1FalsePositive [
 	^ #(#(#(#RGMethodDefinition #(#'TreePresenter class' #exampleWithNoSpecifiedNodes #true)) #'2016-07-01T15:56:13.496495+02:00') #(#(#RGMethodDefinition #(#'DiffPresenter class' #exampleWithoutOptions #true)) #'2016-07-01T15:56:13.496444+02:00') #(#(#RGMethodDefinition #(#'DiffPresenter class' #exampleWithOptions #true)) #'2016-07-01T15:56:13.496455+02:00') #(#(#RGMethodDefinition #(#'TreePresenter class' #exampleWithCustomColumnsAndNodesAndChildren #true)) #'2016-07-01T15:56:13.496426+02:00') #(#(#RGMethodDefinition #(#'TreePresenter class' #exampleOfAutoRefreshOnExpand #true)) #'2016-07-01T15:56:13.496465+02:00') #(#(#RGMethodDefinition #(#'TreePresenter class' #exampleWithCustomColumnsAndNodes #true)) #'2016-07-01T15:56:13.496478+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleLongMethodsRuleV1FalsePositive [
 	^ #(#(#(#RGMethodDefinition #(#SpAbstractWidgetPresenter #initialize #false)) #'2016-07-01T15:56:13.356024+02:00') #(#(#RGMethodDefinition #(#SpPresenter #initialize #false)) #'2016-07-01T15:56:13.355982+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleRBOverridesDeprecatedMethodRuleV1FalsePositive [
 	^ #(#(#(#RGMethodDefinition #(#SpMenuItemPresenter #name #false)) #'2016-07-01T15:56:13.378417+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestSpec2Core class >> ruleUsesTrueRuleV1FalsePositive [
 	^ #(#(#(#RGMethodDefinition #(#'DiffPresenter class' #exampleWithOptions #true)) #'2016-07-01T15:56:13.475288+02:00') )
 ]
diff --git a/src/Spec2-Core/Model.extension.st b/src/Spec2-Core/Model.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Model }
+Extension { #name : 'Model' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 Model >> isSpAnnouncingObject [
 
 	^ true

diff --git a/src/Spec2-Core/OSPlatform.extension.st b/src/Spec2-Core/OSPlatform.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #OSPlatform }
+Extension { #name : 'OSPlatform' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 OSPlatform >> configureApplication: anApplication configuration: aConfiguration [
 
 ]
diff --git a/src/Spec2-Core/Object.extension.st b/src/Spec2-Core/Object.extension.st
@@ -1,24 +1,24 @@
-Extension { #name : #Object }
+Extension { #name : 'Object' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 Object >> asPresenter [
 
 	^ self asString asPresenter
 ]
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 Object >> isPresenter [
 
 	^ false
 ]
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 Object >> isSpAnnouncingObject [
 
 	^ false
 ]
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 Object >> isSpLayout [
 
 	^ false

diff --git a/src/Spec2-Core/ObservableValueHolder.extension.st b/src/Spec2-Core/ObservableValueHolder.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ObservableValueHolder }
+Extension { #name : 'ObservableValueHolder' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 ObservableValueHolder >> unsubscribe: anObject [ 
 
 	subscriptions := subscriptions reject: [ :each | each receiver = anObject ].

diff --git a/src/Spec2-Core/OrderedDictionary.extension.st b/src/Spec2-Core/OrderedDictionary.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #OrderedDictionary }
+Extension { #name : 'OrderedDictionary' }
 
-{ #category : #'*Spec2-Core' }
+{ #category : '*Spec2-Core' }
 OrderedDictionary >> replaceKey: aKey with: otherKey [
 	| value index |