We want to include the use of winhelp in our Win 95 program, but
didn't find out, how the data parameter in call like

(win:winhelp (pc:window-handle *screen*) "XXX.HLP"  win:help_context
data :static)

has to be defined in order to transfer context numbers or strings to the
Windows system.
It didn't work to use lisp numbers? Could you provide an example?

Regard

P. Matthis









;; Patch of send-request
;; after win:ddegetdata the handle has to be freed 
(defun send-request (client-port item &key (link :cold)(timeout 1000))
   ;; Does a DDE Request (or starts or stops asking for Advice)
   ;; LINK can be one of (:cold :warm :hot :stop)
   (let ((global-buffer-handle (client-transaction link client-port
                                  item nil timeout))
         length)
      (cond ((and global-buffer-handle
                  (not (null-handle-p hconv global-buffer-handle)))
             (setq length (win:ddegetdata global-buffer-handle ct:hnull
0 0))
             (ensure-buffer-size length)
             (win:ddegetdata global-buffer-handle *buffer* *buffer-size*
0)
             (win:ddefreedatahandle global-buffer-handle) ;; free handle
necessary
               ;otherwise a crash occurs after heavy DDE-traffic
             (and (plusp length)
                  (convert-returned-dde-string (string-from-buffer
length)))
             )
            (t
               (lisp-warning "The DDE server did not respond the the ~
request for item ~s of topic ~s"
                  item (port-topic client-port))
               nil))))

9
-- 
*********************************************************
* Dipl. Math. Dr. Peter Matthis                         *
* Office:                         Home:                 *
*  Universitdtsklinikum           Passenheimer Str. 13  *
*  Rudolf Virchow                 14055 Berlin          *
*  Kinderklinik                   Tel.: (+49)30 30099033*
*  Am Augustenburger Platz 1      Fax : (+49)30 45482043*
*  13353 Berlin                   D2  : (+49)1723111011 *
*   Germany                                             *
*  Tel.: (+49) 30 45066047                              *
*  Fax : (+49) 30 45066920                              *
*  e-mail: <ukrv.de at matthis>        <ibm.net at matthis>       *
*********************************************************