/*
 *  OBJC_FIND                                   (C) Digital Design 1990
 *
 *  Ermitteln eines Objektes, das sich unter dem Mauszeiger befindet.
 */
#include <gemdefs.h>

int objc_find( OBJECT *ob_ftree, int ob_fstartob, int ob_fdepth,
               int ob_fmx, int ob_fmy )
{
  intin[0] = ob_fstartob; /* der Index des Objektes, bei dem die Suche  *
                           * beginnen soll                              */
  intin[1] = ob_fdepth; /* die Anzahl der Ebenen, die abgesucht werden  *
                         * sollen (Vereinbarung wie bei ÝOBJC_DRAWÝOBJC_DRA.CÝ)      */
  intin[2] = ob_fmx; /* X-Position des Mauszeigers                      */
  intin[3] = ob_fmy; /* Y-Position des Mauszeigers                      */
  addrin[0] = ob_ftree; /* Adresse des abzusuchenden Objektbaumes       */

  AES( 43, 4, 1, 1, 0 );

  return intout[0]; /* = ob_fobnum: Index des Objektes, auf dem sich    *
                     * der Mauszeiger befindet (-1 = kein Objekt        *
                     * befindet sich unter dem Mauszeiger).             */
}