ToSkinEventAction takes the skin event as 2d argument

Author: plantec

src/Toplo-Tests/ToStyleScriptTest.class.st

@@ -261,7 +261,7 @@ ToStyleScriptTest >> testWhenDo [
 		wasHere := true.
 		theStyleScript
 			when: ToEnabledSkinEvent
-			do: [ :e | e size: 40 asPoint ]].
+			do: [ :e :evt | e size: 40 asPoint ]].
 	self assert: styleScript styleRules size equals: 1.
 	styleRule := styleScript styleRules first.
 	self assert: wasHere.

src/Toplo-Tests/ToStyleSheetApplicationTest.class.st

@@ -252,10 +252,10 @@ ToStyleSheetApplicationTest >> testSkinWith2SkinEventActionOnSameSkinEventEvent
 	styleSheet select: (ToIdSelector new id: #a) style: [ :sr |
 		sr
 			when: ToInstallSkinEvent
-			do: [ :e | e border: (BlBorder paint: Color red width: 3) ].
+			do: [ :e :evt | e border: (BlBorder paint: Color red width: 3) ].
 		sr
 			when: ToInstallSkinEvent
-			do: [ :e | e border: (BlBorder paint: Color blue width: 1) ] ].
+			do: [ :e :evt | e border: (BlBorder paint: Color blue width: 1) ] ].
 
 	elem := ToElement new.
 	space root addChild: elem.

src/Toplo/ToPropertyWriter.class.st

@@ -31,7 +31,7 @@ ToPropertyWriter >> animation: aPropertyAnimation [
 ]
 
 { #category : #'look event handling' }
-ToPropertyWriter >> applyOn: anObject [
+ToPropertyWriter >> applyOn: anObject withSkinEvent: aSkinEvent [
 
 	self writeTo: anObject
 ]

src/Toplo/ToSkinEventAction.class.st

@@ -27,9 +27,9 @@ ToSkinEventAction >> action: aValuable [
 ]
 
 { #category : #'look event handling' }
-ToSkinEventAction >> applyOn: anObject [
+ToSkinEventAction >> applyOn: anObject withSkinEvent: aSkinEvent [
 
-	self action value: anObject
+	self action cull: anObject cull: aSkinEvent
 ]
 
 { #category : #testing }

src/Toplo/ToSkinEventListener.class.st

@@ -8,7 +8,7 @@ Class {
 }
 
 { #category : #'look event handling' }
-ToSkinEventListener >> applyOn: anObject [
+ToSkinEventListener >> applyOn: anObject withSkinEvent: aSkinEvent [
 
 	self subclassResponsibility 
 ]
@@ -55,5 +55,5 @@ ToSkinEventListener >> receiveEvent: aSkinEvent [
 	| target |
 	(self canReceiveEvent: aSkinEvent) ifFalse: [ ^ self ].
 	target := aSkinEvent currentTarget.
-	self applyOn: target
+	self applyOn: target withSkinEvent: aSkinEvent
 ]