Stk.MiscSourceUtilities.
Not useful for library's user.
type 'a state_machine = {state : unit -> 'a;set_state : 'a -> unit;f : (int * int) option -> Tsdl.Sdl.event -> bool;}val mk_state_machine :
'a ->
('a -> (int * int) option -> Tsdl.Sdl.event -> ('a * bool) option) ->
'a state_machine