Dmitri Ivanov | 1 Jul 2004 08:16
Picon

Re: window always on top

Hello Andrew,

| Is there a way to make a window always on top of another??? thanks!

AFAIK, there are two possibilities.

(1) Arrange the top window as a toolbar within capi:docking-layout.
Drawbacks:
- you cannot get feedback when the user makes this toolbar show or hide
- you can only specify initial coordinates for this window by means of capi:define-interface
but cannot save and restore them later.

(2) Display the top window in the same process as the parent window, e.g.

(capi:display (make-instance 'top-interface)
     ;:window-styles '(:hides-on-deactivate
     ;   :always-on-top :movable-by-window-background)
      :owner parent-interface
     :process nil)))

Drawback: none of the window styles works on Windows.
--
Sincerely,
Dmitri Ivanov
lisp.ystok.ru

Jeff Caldwell | 2 Jul 2004 08:23
Picon
Favicon

Re: window always on top

The window styles don't work on Windows. Do they work
on the Mac?

If you're willing to do something different for each
platform, here is something that works for Windows. 

(defconstant fli-hwnd-top-most -1)
(defconstant fli-swp-no-move 2)
(defconstant fli-swp-no-size 1)

(fli:define-c-typedef fli-hwnd (:unsigned :long))
(fli:define-c-typedef fli-bool (:boolean :int))

(fli:define-foreign-function
    (get-parent "GetParent")
    ((hwnd fli-hwnd))
  :result-type fli-hwnd
  :calling-convention :stdcall)

(fli:define-foreign-function
    (set-window-pos "SetWindowPos")
    ((hwnd fli-hwnd)
     (hwnd-insert-after :int) ;; really fli-hwnd
     (x :int)
     (y :int)
     (width :int)
     (height :int)
     (u-flags (:unsigned :int)))
   :result-type fli-bool
   :calling-convention :stdcall)
(Continue reading)

Jeff Caldwell | 2 Jul 2004 09:13
Picon
Favicon

Re: window always on top

If I quit making these 2am and 3am posts, maybe I'll
quit making silly errors. 

Unsetting the top-most attribute would involve calling
set-window-pos again with one of:

fli-hwnd-bottom 1           ;; bottom of z order
fli-hwnd-no-top-most -2     ;; no z-order change
fli-hwnd-top 0              ;; top of z order

One probably would want to continue to use
fli-swp-no-move and fli-swp-no-size.

Jeff

--- Jeff Caldwell <jdcal <at> yahoo.com> wrote:
...
> Unsetting the top-most attribute would involve
> getting
> the current window style and then unsetting the
> fli-swp-no-move and fli-swp-no-size bits with the
> set-window-pos function.

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

Jeff Caldwell | 2 Jul 2004 11:26
Picon
Favicon

RE: Foreign Function Calls to Java

On 2004/06/23, Rich Hickey announced the pending
release of jfli, a comprehensive Lisp-y interface to
the Java Native Interface (JNI). Rich estimated jfli
will be in beta in a month. Thanks, Rich!

I need to commit to a direction before then, so I
wrote a minimal test bed to prove to myself that I can
meet my promises even if jfli is delayed for any
reason. This testbed is not a substitute for jfli in
any manner. I look forward eagerly to jfli's release.

If anyone is interested in a "sneak peek" at Java-Lisp
integration, you may download the code from:

http://199.234.154.207/jni-lisp.html

The code is tested in Lispworks for Windows. The Lisp
and Java code is portable. The C code, in c2lisp.c, is
Windows-specific but should easily be portable. The C
code is minimal. Only functions FillVMArgs and
Java_Lisp_callVoidPtrJstring are required. FillVMArgs
could be replaced with FLI calls from Lispworks.
Except for 3 lines of debug code,
Java_Lisp_callVoidPtrJstring is a 4-line function
enabling callbacks to Lisp from Java.

Jeff

		
__________________________________
(Continue reading)

davef | 2 Jul 2004 14:44
Favicon

Re: interface focus and tabbing


 > With LWM I can't seem to find a way to handle tabbing between interface 
 > elements except for text fields. For example, I have a simple interface 
 > with one text-input-pane and one multi-column-list-panel. When the 
 > focus is with the text-input-pane and the user hits the tab key, the 
 > focus does not change

This is a bug which we'll fix for the next release.

Thanks for reporting it.

                          even though the multi-column-list-panel was 
 > created with :accepts-focus-p (the only way to give focus to the list 
 > panel is to click on it). I tried using the :completion-function with 
 > the text-input-pane and as best I can tell it never gets called when 
 > the tab key is pressed. I also want to return focus from the list panel 
 > back to the text-input-pane when the tab key is pressed. Is there a way 
 > to accomplish this with capi?

We'll fix that too. I can't think of a workaround in LispWorks for
Macintosh 4.3.

--
Dave Fox			

Xanalys                 http://www.lispworks.com
Compass House
Vision Park, Chivers Way
Histon
Cambridge, CB4 9AD
(Continue reading)

Dirk Gerrits | 6 Jul 2004 15:42

Problems getting started with LispWorks 4.3 Personal Edition in GNU/Linux

Hello,

I'm having problems getting started with LispWorks 4.3 Personal Editon
under GNU/Linux, and I was hoping some one here could tell me what I'm
doing wrong.

After downloading

  lwlper43.tar.gz
  lwlperdoc43.tar.gz,
  lwlper-license.sh
  lwlper-install.sh

I ran

  sh lwlper-license.sh
  sh lwlper-install.sh

as root.  After getting a lot of warnings about chown using '.' instead
of ':', installation was complete.  This did not create a symlink to
lispworks-personal-4300 in /usr/bin so I did that myself.  I then edited
/usr/local/lib/LispWorksPersonal/lib/4-3-0-0/config/use-motif-library
where I set :prefer-version to 2, because that's what the Knowledge Base
tells me to do for OpenMotif.

Now when I run lispworks-personal-4300, LispWorks doesn't start, but
only produces the output I've attached to this e-mail.

I'm using Gentoo Linux with a v2.6 kernel, X.Org 6.7.0, OpenMotif
2.1.30 on a Pentium-M 1.4GHz laptop.
(Continue reading)

davef | 6 Jul 2004 16:02
Favicon

Re: Problems getting started with LispWorks 4.3 Personal Edition in GNU/Linux


 > I'm having problems getting started with LispWorks 4.3 Personal Editon
 > under GNU/Linux, and I was hoping some one here could tell me what I'm
 > doing wrong.
 > 
 > After downloading
 > 
 >   lwlper43.tar.gz
 >   lwlperdoc43.tar.gz,
 >   lwlper-license.sh
 >   lwlper-install.sh
 > 
 > I ran
 > 
 >   sh lwlper-license.sh
 >   sh lwlper-install.sh
 > 
 > as root.  After getting a lot of warnings about chown using '.' instead
 > of ':', installation was complete.  This did not create a symlink to
 > lispworks-personal-4300 in /usr/bin so I did that myself. 

Sorry about the chown warnings -- we have now updated the script to
match the GNU syntax.

                                                             I then edited
 > /usr/local/lib/LispWorksPersonal/lib/4-3-0-0/config/use-motif-library
 > where I set :prefer-version to 2, because that's what the Knowledge Base
 > tells me to do for OpenMotif.

Not for version 4.3 though.
(Continue reading)

Dirk Gerrits | 6 Jul 2004 17:12

Re: Problems getting started with LispWorks 4.3 Personal Edition in GNU/Linux

davef <at> xanalys.com writes:

>  > I'm having problems getting started with LispWorks 4.3 Personal Editon
>  > under GNU/Linux, and I was hoping some one here could tell me what I'm
>  > doing wrong.
...
>
> Sorry about the chown warnings -- we have now updated the script to
> match the GNU syntax.

Great.  Not that it was such a big deal, but it was kind of annoying.

>  > /usr/local/lib/LispWorksPersonal/lib/4-3-0-0/config/use-motif-library
>  > where I set :prefer-version to 2, because that's what the Knowledge Base
>  > tells me to do for OpenMotif.
>
> Not for version 4.3 though.

Ah you're right.  I didn't even notice the version.  Mea culpa.

> The error occurs because :PREFER-VERSION should be set to :MOTIF or
> :LESSTIF in LispWorks 4.3 (LispWorks 4.2 used numbers). 
...
> LispWorks 4.3 needs OpenMotif 2.2 (libXm.so.3).

I've now set :PREFER-VERSION to :MOTIF and I managed to install
OpenMotif 2.2.  The demo applications that come with it seem to work,
but LispWorks doesn't.  When I start LispWorks now, I get a Motif window
titled 'Message' with an OK button and the text:

(Continue reading)

PERROT Stephane | 6 Jul 2004 19:05
Picon

Re: Problems getting started with LispWorks 4.3 Personal Edition in GNU/Linux

Dirk Gerrits wrote:

Hi Dirk

>davef <at> xanalys.com writes:
>
>  
>
>> > I'm having problems getting started with LispWorks 4.3 Personal Editon
>> > under GNU/Linux, and I was hoping some one here could tell me what I'm
>> > doing wrong.
>>    
>>
>...
>  
>
>>Sorry about the chown warnings -- we have now updated the script to
>>match the GNU syntax.
>>    
>>
>
>Great.  Not that it was such a big deal, but it was kind of annoying.
>
>  
>
>> > /usr/local/lib/LispWorksPersonal/lib/4-3-0-0/config/use-motif-library
>> > where I set :prefer-version to 2, because that's what the Knowledge Base
>> > tells me to do for OpenMotif.
>>
>>Not for version 4.3 though.
(Continue reading)

Dirk Gerrits | 6 Jul 2004 23:08

Re: Problems getting started with LispWorks 4.3 Personal Edition in GNU/Linux

"PERROT Stephane" <stephane.perrot <at> c-s.fr> writes:

> Dirk Gerrits wrote:
>
>>I've now set :PREFER-VERSION to :MOTIF and I managed to install
>>OpenMotif 2.2.  The demo applications that come with it seem to work,
>>but LispWorks doesn't.  When I start LispWorks now, I get a Motif window
>>titled 'Message' with an OK button and the text:
>>
>>    XERROR
>>      Display:#<X-LIBRARY:DISPLAY ":0.0" = #x08071AC0>
>>      Error: BadName (named color or font does not exist)
>>      Major opcode of failed request: 45 (X_OpenFont)
>>
>>  
>>
> This seems to me to be a font problem...:-). 

Really? :)

> I'm using myself LW Personal for Linux/Motif (4.3.6)
> on a gentoo 1.4 (with xfree 4.3.0-r2) and everything works nicely.
>
> On my display, I've got 8942 available fonts (xlsfonts | wc -l), of
> which 1040 are courier fonts,
> and 1040 times fonts

$ xlsfonts | grep courier | wc -l
1056
$ xlsfonts | grep times | wc -l
(Continue reading)


Gmane