with Reactor; use Reactor; procedure ReactorDemo is One : Reactor_Ptr; Two : Reactor_Ptr; Three : Reactor_Ptr; Four : Reactor_Ptr; Five : Reactor_Ptr; Six : Reactor_Ptr; begin One := new Reactor_Type(Name => new String'("One")); Two := new Reactor_Type(Name => new String'("Two")); Three := new Reactor_Type(Name => new String'("Three")); Four := new Reactor_Type(Name => new String'("Four")); Five := new Reactor_Type(Name => new String'("Five")); Six := new Reactor_Type(Name => new String'("Six")); Add_Dependent (Model => One, View => Two); Add_Dependent (Model => One, View => Three); Add_Dependent (Model => Two, View => Four); Add_Dependent (Model => Two, View => Five); Add_Dependent (Model => Two, View => Six); Add_Dependent (Model => Three, View => Six); Add_Dependent (Model => Four, View => Six); Change (One); end ReactorDemo;