comparison src/xmenu.c @ 2153:42ceb87b43a1

(Fx_popup_menu): Allow a frame instead of a window, in arg. Use Fcar, Fcdr when extracting from event, to check data types.

2152:078737073080

      x = Fcar (tem);
      y = Fcar (Fcdr (tem));
    }
  else
    {
      tem = EVENT_START (position);
      window = POSN_WINDOW (tem);
      tem = POSN_WINDOW_POSN (tem);
      x = Fcar (tem);
      y = Fcdr (tem);
    }
  CHECK_NUMBER (x, 0);
  CHECK_NUMBER (y, 0);

2153:42ceb87b43a1

      x = Fcar (tem);
      y = Fcar (Fcdr (tem));
    }
  else
    {
      tem = Fcar (Fcdr (position));  /* EVENT_START (position) */
      window = Fcar (tem);	     /* POSN_WINDOW (tem) */
      tem = Fcar (Fcdr (Fcdr (tem))); /* POSN_WINDOW_POSN (tem) */
      x = Fcar (tem);
      y = Fcdr (tem);
    }
  CHECK_NUMBER (x, 0);
  CHECK_NUMBER (y, 0);