improve ToToggleMenuItemSkin

Author: plantec

src/Toplo-Widget-Menu/ToToggleMenuItemSkin.class.st

@@ -9,13 +9,20 @@ ToToggleMenuItemSkin >> checkedSkinEvent: anEvent [
 
 	super checkedSkinEvent: anEvent.
 	anEvent elementDo: [ :e |
+			e
+				listElementDo: [ :l |
+						e holder nodeContainer
+							addTokenNamed: #'color-bg-container'
+							withValue: (e valueOfTokenNamed: #'color-primary-checked') ]
+				ifNone: [
+				e background: (e valueOfTokenNamed: #'color-primary-checked') ].
 			e
 				addTokenNamed: #'color-text'
 				withValue: (e valueOfTokenNamed: #'text-color-primary-checked').
-			e background: (e valueOfTokenNamed: #'color-primary-checked').
+
 			e iconDo: [ :ic |
-					ic adaptToColor:
-						(e valueOfTokenNamed: #'text-color-primary-checked') ] ]
+				ic adaptToColor:
+					(e valueOfTokenNamed: #'text-color-primary-checked') ] ]
 ]
 
 { #category : #'event handling' }
@@ -55,9 +62,12 @@ ToToggleMenuItemSkin >> uncheckedSkinEvent: anEvent [
 
 	super uncheckedSkinEvent: anEvent.
 	anEvent elementDo: [ :e |
-		e removeTokenNamed: #'color-text'.
-		e labelDo: [ :lab | lab requestNewSkin ].
-		e background: BlBackground transparent.
-		e iconDo: [ :ic |
-			ic adaptToColor: (e valueOfTokenNamed: #'color-text') ].]
+			e removeTokenNamed: #'color-text'.
+			e labelDo: [ :lab | lab requestNewSkin ].
+			e
+				listElementDo: [ :l |
+				e holder nodeContainer removeTokenNamed: #'color-bg-container' ]
+				ifNone: [ e background: BlBackground transparent ].
+			e iconDo: [ :ic |
+				ic adaptToColor: (e valueOfTokenNamed: #'color-text') ] ]
 ]