RE: Delivering an application with a capi listener

Hi Dave. Yes, this is enough to get us going. Thanks for the jumpstart...
 
dey

-----Original Message-----
From: David Fox [mailto:davef@xanalys.com]
Sent: Monday, April 28, 2003 1:09 PM
To: dyoung@bloodhoundinc.com
Cc: lisp-hug@xanalys.com
Subject: Re: Delivering an application with a capi listener



   Greetings. We'd like to deliver (read "lispworks delivery") a server-type
   application that employs a capi listener as its only interface. All
   input/output should be via the listener, including any debugger
   interactions. How might I accomplish this? In other words, how do I write
   the interface such that, when we start the delivered app, the listener
   appears as the toplevel windows and all interaction is directed there,
   rather than the console?

   Windows 2000, LispWorks 4.2.7. Thanks much...

Something like this:

-----------------------------dy.lisp----------------------------------
(in-package "CL-USER")

(capi:define-interface my-listener () ()
  (:panes 
   (lp
    capi:listener-pane :echo-area t))
  (:layouts
   (main
   capi:simple-layout
   '(lp)))
  (:default-initargs 
   :title "My Listening Interface"))

(defun foo () 
  (capi:display (make-instance 'my-listener)))
----------------------------------------------------------------------

-----------------------------deliver.lisp-----------------------------
(in-package "CL-USER")

(load-all-patches)

(compile-file-if-needed (current-pathname "dy" "lisp") :load t)

(deliver 'foo "dy" 5 
         :interface :capi 
         :keep-debug-mode t 
         :editor-commands-to-keep :all-groups 
         :editor-style :emacs)
----------------------------------------------------------------------


Dave Fox
Xanalys
Compass House
Vision Park
Chivers Way
Histon
Cambridge
CB4 9AD
England

Email: davef@xanalys.com
Tel:   +44 1223 253793
Fax:   +44 1223 257812
These opinions are not necessarily those of Xanalys.