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 ...@@ -40,9 +40,7 @@ package body Properties is
-- Put_Line ("[OBS] Context set to: " & GSER.Image (My_Observer.Ctxt)); -- Put_Line ("[OBS] Context set to: " & GSER.Image (My_Observer.Ctxt));
-- Set the observer's monitors -- Set the observer's monitors
My_Observer.Event := Event; My_Observer.Observe (Full_State.User_State, Event);
My_Observer.St := Full_State.User_State;
My_Observer.Observe;
-- Read the modified state from the observer -- Read the modified state from the observer
Event := My_Observer.Event; Event := My_Observer.Event;
Full_State.User_state := My_Observer.St; 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