/[cl-cairo2]/xlib.lisp
ViewVC logotype

Diff of /xlib.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 15 by tpapp, Thu Dec 20 13:05:07 2007 UTC revision 17 by tpapp, Sun Mar 23 22:58:24 2008 UTC
# Line 17  Line 17 
17  (defctype colormap xid)  (defctype colormap xid)
18  (defctype graphics-context xid)  (defctype graphics-context xid)
19  (defctype visual :pointer)  (defctype visual :pointer)
20  (defctype atom :unsigned-long)  (defctype xatom :unsigned-long)
21  (defctype bool :int)  (defctype bool :int)
22    
23  ;; constants  ;; constants
# Line 255  the power value." Line 255  the power value."
255    
256  ;; atoms & protocols  ;; atoms & protocols
257    
258  (defcfun ("XInternAtom" xinternatom) atom  (defcfun ("XInternAtom" xinternatom) xatom
259    (display display)    (display display)
260    (atom-name :string)    (atom-name :string)
261    (only-if-exists :int))    (only-if-exists :int))
# Line 304  the power value." Line 304  the power value."
304    (send-event bool)    (send-event bool)
305    (display display)    (display display)
306    (window window)    (window window)
307    (message-type atom)    (message-type xatom)
308    (format :int)    (format :int)
309    ;; we only use first field, union of message data is not included    ;; we only use first field, union of message data is not included
310    (data0 :unsigned-long))    (data0 :unsigned-long))

Legend:
Removed from v.15  
changed lines
  Added in v.17

  ViewVC Help
Powered by ViewVC 1.1.5