class ['a] affector : object .. end
['a]
object
end
Scene.subject
val mutable affected : 'a list
'a list
method affect : 'a -> unit
'a -> unit
method private dispatch : ('a -> unit) -> unit
('a -> unit) -> unit