interface simulationclock : public screen
  {
    simulationclock(char* p,char* options = "");
    simulationclock(widget* w,char* p,char* options = "");
    virtual ~simulationclock();
  };
  

Creating this widget results in a clock that is updated to the current simulation time every time an event is activated.

    -foreground <color = white>
    -background <color = white>
    -width <coord = 200>    // width/200 == height/60
    -height <coord = 60>
  

    toplevel* t = new toplevel(".clock");
    simulationclock* s = new simulationclock(t,".c");
    tk -> pack(s);
    tk -> update();
  

This as an addition to application::main would add an extra clock widget.