This methods uses a similar search technique as used by device->event and is first of all intended to help writing gestures that have to relate two graphical objects, possibly not placed on the same device object. Examples are class connect_gesture or a drag-and-drop gesture.

device<-find performs the following steps:

• Traverse the list device<-graphicals from tail to head (i.e. starting at the topmost graphical). For each graphical:
• if at is given and graphical->in_event_area fails Continue with the next graphical
• if the graphical is a device object Recursively call device<-find on the device. Return with the result if any.
• if the graphical is not a device Evaluate the condition and return the graphical if the condition succeeds.
• Finally, evaluate the condition on the device itself and return the device if the condition succeeds.

  The following example finds a graphical that defines the send-method drop in the same window as where the event occurred:

  ...
  get(@event?window, find, @event,
          message(@arg1, has_send_method, drop), Gr),
  ...