Re: Floating windows & lock position & do not allow resize & without title bar

Try the undocumented CAPI:INTERFACE initarg :WINDOW-STYLES :

(setq interface 
    (capi:display (make-instance 'capi:interface
                      :best-width 200
                      :best-height 200
                      :window-styles '(:always-on-top
                                       :borderless
                                       :hides-on-deactivate)
                      :x 20
                      :y 20))

Be carefull : there is no closebox on this example, then you have to close
the window programmatically with (quit-interface interface)

The possible arguments I know for :window-styles are :
   
        '(:always-on-top
          :borderless
          :hides-on-deactivate
          :internal-borderless
          :ignores-keyboard-input
          :movable-by-window-background)

Best

Denis


----------------------------------------------------
Denis Pousseur
6 clos du Drossart
1180 Bruxelles, Belgique

Mail :  denis.pousseur@compositeurs.be
Website : http://compositeurs.be
----------------------------------------------------


Le 23/11/05 7:05, « Pekka Tolonen » <pekka.tolonen@welho.com> a écrit :

> Hi, on the Macintosh Common Lisp there is a neat interface class called
> windoid that floats always on the top of the other windows. I'm wondering
> how to make this happen in LispWorks?
> 
> Is it also possible to lock the interface at a given position so that the
> user cannot move it?
> 
> And how to make the interface non-responding to interface size changes by
> the user?
> 
> I'm also wondering if it is possible to create a window without the title bar?
> 
> Pekka
> 
>