remove interactionState:

pharo-project · May 1, 2024 · db9e39e · db9e39e
1 parent fa9e2f8
commit db9e39e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 28 deletions.
diff --git a/src/Morphic-Widgets-Basic/LabelMorph.class.st b/src/Morphic-Widgets-Basic/LabelMorph.class.st
@@ -182,12 +182,6 @@ LabelMorph >> initialize [
 		enabled: true
 ]
 
-{ #category : 'protocol' }
-LabelMorph >> interactionState: aSymbol [
-	"Backstop here to prevent 'legacy' color handling being applied from
-	pluggable buttons."
-]
-
 { #category : 'layout' }
 LabelMorph >> minHeight [
 	"Answer the receiver's minimum height.

diff --git a/src/Morphic-Widgets-Basic/PluggableButtonMorph.class.st b/src/Morphic-Widgets-Basic/PluggableButtonMorph.class.st
@@ -333,23 +333,14 @@ PluggableButtonMorph >> browseAction [
 PluggableButtonMorph >> changed [
 	"Update the fillStyle here."
 
-	|lc pc bs|
+	| aBorderStyle|
 	self assureExtension.
-	extension borderStyle: (bs := self borderStyleToUse).
-	borderColor := bs style.
-	borderWidth := bs width.
+	extension borderStyle: (aBorderStyle := self borderStyleToUse).
+	borderColor := aBorderStyle style.
+	borderWidth := aBorderStyle width.
 	extension fillStyle: self fillStyleToUse.
 	self layoutInset: (self theme buttonLabelInsetFor: self).
 	self privateColor: self fillStyle asColor.
-	(self labelMorph respondsTo: #interactionState:)
-		ifTrue: [self labelMorph interactionState: self interactionState]
-		ifFalse: [(self labelMorph isNil
-			or: [label isMorph]) ifFalse: [
-				pc := self normalColor.
-				lc := self enabled
-					ifTrue: [pc contrastingBlackAndWhiteColor]
-					ifFalse: [pc contrastingBlackAndWhiteColor muchDarker].
-				self labelMorph color: lc]].
 	super changed
 ]
 

diff --git a/src/Morphic-Widgets-Windows/PanelMorph.class.st b/src/Morphic-Widgets-Windows/PanelMorph.class.st
@@ -122,15 +122,6 @@ PanelMorph >> initialize [
 		beSticky "stop being grabbed"
 ]
 
-{ #category : 'protocol' }
-PanelMorph >> interactionState: aSymbol [
-	"Pass on to submorphs."
-
-	self submorphsDo: [:m |
-		(m respondsTo: #interactionState:) ifTrue: [
-			m interactionState: aSymbol]]
-]
-
 { #category : 'protocol' }
 PanelMorph >> isResizeableMorph: submorph forSplitter: e [
 	| done |