Package OpenCAGE.Controller.Pipe_Segments.Milestone

This package holds the milestone pipe segment. Its only purpose is to notify the attached observers when it is called from the pipe.

Class Milestone_Observer

An observer that observers a Milestone_Pipe_Segment

Operations

public Reached( Ada.Strings.Unbounded.Unbounded_String Id, OpenCAGE.Controller.Command.Command Command);

called by the milestone pipe segment when the segment is called from the pipe

Class Milestone_Pipe_Segment

extends OpenCAGE.Controller.Pipe_Segments.Pipe_Segment

This Milestone_Pipe_Segement implementation tells the attached observers that it is called by the pipe.

Attributes

private OpenCAGE.Controller.Pipe_Segments.Milestone.Milestone_Observers_Lists.List Observers 

the observers to notify

private Ada.Strings.Unbounded.Unbounded_String Id 

a unique identifier for the milestone pipe segment

Operations

public Take( OpenCAGE.Controller.Command.Command Cmd);

Takes a Command object.

public Attach( OpenCAGE.Controller.Pipe_Segments.Milestone.Milestone_Observer Observer);

attach the given observer to the model

public Detach( OpenCAGE.Controller.Pipe_Segments.Milestone.Milestone_Observer Observer);

detach the given observer to the model

public Notify( Ada.Strings.Unbounded.Unbounded_String Id, OpenCAGE.Controller.Command.Command Command);

Notify the attached observers that the segment is reached.