Commit bc4063d1 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Pass the state to the observer

parent 068580be
......@@ -40,9 +40,7 @@ package body Properties is
-- Put_Line ("[OBS] Context set to: " & GSER.Image (My_Observer.Ctxt));
-- Set the observer's monitors
My_Observer.Event := Event;
My_Observer.St := Full_State.User_State;
My_Observer.Observe;
My_Observer.Observe (Full_State.User_State, Event);
-- Read the modified state from the observer
Event := My_Observer.Event;
Full_State.User_state := My_Observer.St;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment