Application icon

Hello,

I'm trying to familiarize myself with CAPI.  Let's say that I have this bit
of code:

(in-package "CL-USER")

(capi:define-interface example (capi:document-frame)
  ()
  (:menus
   (file-menu "File"
              ("Open")))
  (:menu-bar file-menu)
  (:default-initargs
   :auto-menus nil
   :title "Example"))

(capi:display (make-instance 'example))


Also, I have a 16 x 16 pixel icon called example.bmp in the same directory.

How do I go about replacing the application icon in the toolbar in my
'example interface?  That is,
how do I replace the crayoned, blue "LW" with the application icon in
example.bmp ?

I'm using Lispworks Personal 4.2 under Windows 2000.

Thanks.

Re: Application icon

Asha Das wrote:

> I have a 16 x 16 pixel icon called example.bmp in the same directory.
> How do I go about replacing the application icon in the toolbar in my
> 'example interface?  That is,
> how do I replace the crayoned, blue "LW" with the application icon in
> example.bmp ?

You can pass an :ICON-FILE argument to the DELIVER function.
As in:
  (deliver 'run            ; function to run
           "program.exe"   ; name of program file
           5               ; severity level
           :icon-file (lw:current-pathname "example.bmp")
           :interface :capi
           :multiprocessing t)

> I'm using Lispworks Personal 4.2 under Windows 2000.

I think DELIVER is not included in the Personal Edition.

 --
Arthur Lemmens

Re: Application icon

Unable to parse email body. Email id is 249