comparison src/frame.c @ 97449:d3a738f747c6

(Qns_parse_geometry): New var. (Fx_parse_geometry): For HAVE_NS, call ns-parse-geometry.

97448:c8189c33c2e6

/* Lower limit value of the frame opacity (alpha transparency).  */

Lisp_Object Vframe_alpha_lower_limit;

#endif

Lisp_Object Qframep, Qframe_live_p;
Lisp_Object Qicon, Qmodeline;
Lisp_Object Qonly;

}




DEFUN ("x-parse-geometry", Fx_parse_geometry, Sx_parse_geometry, 1, 1, 0,
       doc: /* Parse an X-style geometry string STRING.
Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
The properties returned may include `top', `left', `height', and `width'.
The value of `left' or `top' may be an integer,

  CHECK_STRING (string);

  geometry = XParseGeometry ((char *) SDATA (string),
			     &x, &y, &width, &height);

#if 0
  if (!!(geometry & XValue) != !!(geometry & YValue))
    error ("Must specify both x and y position, or neither");
#endif

  result = Qnil;
  if (geometry & XValue)
    {
      Lisp_Object element;

  if (geometry & HeightValue)
    result = Fcons (Fcons (Qheight, make_number (height)), result);

  return result;
}

/* Calculate the desired size and position of frame F.
   Return the flags saying which aspects were specified.

   Also set the win_gravity and size_hint_flags of F.

  Qterminal = intern ("terminal");
  staticpro (&Qterminal);
  Qterminal_live_p = intern ("terminal-live-p");
  staticpro (&Qterminal_live_p);

  {
    int i;

    for (i = 0; i < sizeof (frame_parms) / sizeof (frame_parms[0]); i++)
      {

97449:d3a738f747c6

/* Lower limit value of the frame opacity (alpha transparency).  */

Lisp_Object Vframe_alpha_lower_limit;

#endif

#ifdef HAVE_NS
Lisp_Object Qns_parse_geometry;
#endif

Lisp_Object Qframep, Qframe_live_p;
Lisp_Object Qicon, Qmodeline;
Lisp_Object Qonly;

}




#ifdef HAVE_NS

/* We used to define x-parse-geometry directly in ns-win.el, but that
   confused make-docfile: the documentation string in ns-win.el was
   used for x-parse-geometry even in non-NS builds..  */

DEFUN ("x-parse-geometry", Fx_parse_geometry, Sx_parse_geometry, 1, 1, 0,
       doc: /* Parse a Nextstep-style geometry string STRING.
Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
The properties returned may include `top', `left', `height', and `width'.
This works by calling `ns-parse-geometry'.  */)
     (string)
     Lisp_Object string;
{
  call1 (Qns_parse_geometry, string);
}

#else /* !HAVE_NS */

DEFUN ("x-parse-geometry", Fx_parse_geometry, Sx_parse_geometry, 1, 1, 0,
       doc: /* Parse an X-style geometry string STRING.
Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
The properties returned may include `top', `left', `height', and `width'.
The value of `left' or `top' may be an integer,

  CHECK_STRING (string);

  geometry = XParseGeometry ((char *) SDATA (string),
			     &x, &y, &width, &height);
  result = Qnil;
  if (geometry & XValue)
    {
      Lisp_Object element;

  if (geometry & HeightValue)
    result = Fcons (Fcons (Qheight, make_number (height)), result);

  return result;
}
#endif /* HAVE_NS */


/* Calculate the desired size and position of frame F.
   Return the flags saying which aspects were specified.

   Also set the win_gravity and size_hint_flags of F.

  Qterminal = intern ("terminal");
  staticpro (&Qterminal);
  Qterminal_live_p = intern ("terminal-live-p");
  staticpro (&Qterminal_live_p);

#ifdef HAVE_NS
  Qns_parse_geometry = intern ("ns-parse-geometry");
  staticpro (&Qns_parse_geometry);
#endif

  {
    int i;

    for (i = 0; i < sizeof (frame_parms) / sizeof (frame_parms[0]); i++)
      {