with (classes) {
//
with (OCP) {
//
OCP.Navigator = function ()
{
 with (GUI.Common.Alignable) call(this, AlignLeft, null, 210);
 with (XHTML.events) call(this, click, mouseover, mouseout);

 with (Navigator)
 {
  this.clicked = click;

  this.mouseover =
  this.mouseout = mouseMoved;

  with (this)
  {
   addObserver(this);
  }
 }

 return this;
}
//
Navigator.Events =
{
 linkRequest : "OCP_Navigator_linkRequest",
 pageRequest : "OCP_Navigator_pageRequest"
}
//
Navigator.construct = function (The_HTMLDivElement) { return Navigator.call(The_HTMLDivElement); }
//
Navigator.click = function (The_MouseEvent) { with (Navigator) with (this)
{
 var Clicked_HTMLElement = The_MouseEvent.target;

 switch (Clicked_HTMLElement)
 {
  default: switch (Clicked_HTMLElement.nodeName.toLowerCase())
  {
   case "button": with (Clicked_HTMLElement) switch (name)
   {
    case "reportError": broadcast(Events.linkRequest, "mailto: ocp-directors@acadiau.ca");
     break;
    case "projectNews": broadcast(Events.linkRequest, "http://ocpnews.blogspot.com/");
     break;
    default: broadcast(Events.pageRequest, name + ".html");
   }
    break;
   default:;
  }
 }
}}
//
Navigator.mouseMoved = function (The_MouseEvent) { with (Navigator) with (this)
{
 with (The_MouseEvent) switch (target.nodeName.toLowerCase())
 {
  case "button": target.className = type == XHTML.events.mouseover? type : "";
   break;
  default:;
 }
}}
//
}
//
}