Merge pull request #1646 from terpon/1645-SpPaginatorPageMorph-newCon…

…tentMorph-background SpPaginatorPageMorph and SpPaginatorSelectionMorph fixes for theme
pharo-spec · Jan 9, 2025 · c34e8e0 · c34e8e0
2 parents e92931a + 6459e14
commit c34e8e0
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 8 deletions.
diff --git a/src/Spec2-Adapters-Morphic/PharoDarkTheme.extension.st b/src/Spec2-Adapters-Morphic/PharoDarkTheme.extension.st
@@ -1,11 +1,5 @@
 Extension { #name : 'PharoDarkTheme' }
 
-{ #category : '*Spec2-Adapters-Morphic' }
-PharoDarkTheme >> paginatorSelectionColor [
-
-	^ self lightBaseColor alpha: 0.8
-]
-
 { #category : '*Spec2-Adapters-Morphic' }
 PharoDarkTheme >> popoverButtonColor [
 

diff --git a/src/Spec2-Adapters-Morphic/SpPaginatorPageMorph.class.st b/src/Spec2-Adapters-Morphic/SpPaginatorPageMorph.class.st
@@ -73,7 +73,7 @@ SpPaginatorPageMorph >> mouseDown: event [
 SpPaginatorPageMorph >> newContentMorph [
 
 	^ Morph new
-		color: Color white;
+		color: self theme backgroundColor;
 		borderColor: self theme borderColor;
 		borderWidth: 1;
 		hResizing: #spaceFill;

diff --git a/src/Spec2-Adapters-Morphic/UITheme.extension.st b/src/Spec2-Adapters-Morphic/UITheme.extension.st
@@ -10,7 +10,7 @@ UITheme >> modalBackdropColor [
 { #category : '*Spec2-Adapters-Morphic' }
 UITheme >> paginatorSelectionColor [
 
-	^ self darkBaseColor alpha: 0.8
+	^ colorPalette paginatorSelectionColor 
 ]
 
 { #category : '*Spec2-Adapters-Morphic' }