!7

p-subst {
  repeat with ms sleep 500 {
    awt {
      Component c = componentAtMouse();
      if (c != null) {
        Point d = mouseToComponent(c);
        print("Mouse: " + d.x + ", " + d.y + ": " + c);
        S word = wordAtMouse();
        if (nempty(word)) print("  " + quote(word));
      } else
        print("Mouse: " + c);
    }
  }
}