comment in ToCheckableData>>privateChecked:

src/Toplo-Widget-Button/ToCheckableData.class.st

@@ -118,14 +118,20 @@ ToCheckableData >> owner: aCheckable [
 
 { #category : #'checking protocol' }
 ToCheckableData >> privateChecked: aBooleanOrIndeterminate [
+	" notice a change of the state and send an event for the skin.
+	Sent locally from the checkable>>checked: method and can be sent from
+	the checkableGroup of the checkable."
 
 	| prev request |
 	request := aBooleanOrIndeterminate.
 	checked = request ifTrue: [ ^ self ].
 	prev := checked.
 	checked := request.
-	" finally dispatch the event used to generate the state for the skin "
-	owner dispatchEvent: (ToCheckableCheckEvent current: request previous: prev)
+	" finally dispatch the event used to generate the state for the skin.
+	implementation note: we need this additional event for the skin.
+	This event can be used if one need to handle the look change "
+	owner dispatchEvent:
+		(ToCheckableCheckEvent current: request previous: prev)
 ]
 
 { #category : #'checking protocol' }