prepared to change of theme (incomplete)

pharo-project · Jan 31, 2020 · d6fabd5 · d6fabd5
1 parent b58fbb1
commit d6fabd5
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 0 deletions.
diff --git a/src/Calypso-Browser/ClyNotebookMorph.class.st b/src/Calypso-Browser/ClyNotebookMorph.class.st
@@ -80,6 +80,18 @@ ClyNotebookMorph >> postAddPage: aPage [
 	self addActions: aPage actions
 ]
 
+{ #category : #theme }
+ClyNotebookMorph >> themeChanged [
+
+	super themeChanged.
+	self toolbarMorph 
+		fillStyle: (SolidFillStyle color: self theme baseColor);
+		borderColor: self theme baseColor.
+	self tabSelectorMorph
+		color: self theme baseColor
+
+]
+
 { #category : #accessing }
 ClyNotebookMorph >> toolbarMorph [
 

diff --git a/src/Calypso-Browser/ClyNotebookPageActionButtonMorph.class.st b/src/Calypso-Browser/ClyNotebookPageActionButtonMorph.class.st
@@ -64,3 +64,22 @@ ClyNotebookPageActionButtonMorph >> icon: anObject [
 
 	icon := anObject
 ]
+
+{ #category : #theme }
+ClyNotebookPageActionButtonMorph >> themeChanged [
+	| baseColor |
+
+	super themeChanged.
+
+	baseColor := self theme baseColor.
+	self activeDisabledNotOverUpFillStyle: (self theme buttonDisabledFillStyleFor: self).
+	self activeEnabledNotOverUpFillStyle: baseColor.
+	self passiveEnabledNotOverUpFillStyle: baseColor.
+	self passiveDisabledNotOverUpFillStyle: baseColor.
+	self
+		activeEnabledOverUpFillStyle: (self theme buttonMouseOverFillStyleFor: self);
+		passiveEnabledOverUpFillStyle: (self theme buttonMouseOverFillStyleFor: self);
+		activeEnabledOverDownFillStyle: (self theme buttonPressedFillStyleFor: self);
+		passiveEnabledOverDownFillStyle: (self theme buttonPressedFillStyleFor: self)
+
+]