front most window

hi

is there a function to find the most front window ?

thanks for your help

Carlos

Re: front most window

Hello Carlos,

| is there a function to find the most front window ?
|
| thanks for your help

On Windows, the following works for me:

(defun current-top-level-interface ()
 #+win32 (when-let (window ww::*active-window*) (win32::r-top-element
window)))
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru

Re: front most window

This is maybe not the most efficient way but it works on mac (and, I
suppose, on any plateform) :

(defun front-window (&optional (class 'interface))
  (car (collect-interfaces class :screen :any :sort-by :visible)))


Best

Denis

-------------------------------------------------------
Denis Pousseur
70 rue de Wansijn
1180 Bruxelles, Belgique

Tel : 32 (0)2 219 31 09
Mail :  denis.pousseur@gmail.com
-------------------------------------------------------

Le 24/10/07 17:14, « [NOM] » <[ADRESSE]> a écrit :

> 
> hi
> 
> is there a function to find the most front window ?
> 
> thanks for your help
> 
> Carlos
>

Re: front most window

it works

THANKS

Le 24 oct. 07 à 19:03, Denis Pousseur a écrit :

(car (collect-interfaces class :screen :any :sort-by :visible))