On 9/10/07, Dan Merillat <[EMAIL PROTECTED]> wrote:
>
> Basically, they add to xmotion if it's too narrow, and ymotion if it's
> too wide. The code is pretty ancient, and has a do { } while loop in
> it which means if the implementation is screwed up it can simply spin.
> Sawfish does recognize PAspect in the C source, but I don't know my
> lisp well enough to see how it's used. Anyone?
>
Using my Lisp mad skillz, in lisp/sawfish/wm/commands/move-resize.jl, line 48:
[...]
;; todo:
;; * obey the aspect ratio size hints
[...]
In src/windows.c it's defined a list with the aspect constraints at line 1200
[...]
if (flags & PAspect)
{
ret = Fcons (Fcons (Qmin_aspect,
Fcons (rep_MAKE_INT(hints->min_aspect.x),
rep_MAKE_INT(hints->min_aspect.y))),
Fcons (Fcons (Qmax_aspect,
Fcons (rep_MAKE_INT(hints->max_aspect.x),
rep_MAKE_INT(hints->max_aspect.y))),
ret));
}
[...]
but seems it's not used anywhere.
Is move-resize.jl the right place to put code for aspect constraint?
--
Andrea
