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

Diff of /xlib.lisp

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

revision 11 by tpapp, Mon Aug 13 14:30:44 2007 UTC revision 13 by tpapp, Wed Aug 22 16:13:14 2007 UTC
# Line 13  Line 13 
13  (defctype drawable xid)  (defctype drawable xid)
14  (defctype window xid)  (defctype window xid)
15  (defctype pixmap xid)  (defctype pixmap xid)
16    (defctype cursor xid)
17    (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 atom :unsigned-long)
# Line 62  the power value." Line 64  the power value."
64    ownergrabbuttonmask 24)    ownergrabbuttonmask 24)
65    
66    
   
67  ;;;; error code handling  ;;;; error code handling
68  (defmacro check-status (call)  (defmacro check-status (call)
69    "Check the return calue of call, if nonzero, display an error message."    "Check the return calue of call, if nonzero, display an error message."
# Line 139  the power value." Line 140  the power value."
140    (border :unsigned-long)    (border :unsigned-long)
141    (background :unsigned-long))    (background :unsigned-long))
142    
143    (defcfun ("XCreateWindow" xcreatewindow) window
144      (display display)
145      (parent window)
146      (x :int)
147      (y :int)
148      (width :unsigned-int)
149      (height :unsigned-int)
150      (border-width :unsigned-int)
151      (depth :int)
152      (class :unsigned-int)
153      (visual visual)
154      (valuemask :unsigned-long)
155      (attributes :pointer))
156    
157    (defcstruct xsetwindowattributes
158      (background-pixmap pixmap)
159      (background-pixel :unsigned-long)
160      (border-pixmap pixmap)
161      (border-pixel :unsigned-long)
162      (bit-gravity :int)
163      (win-gravity :int)
164      (backing-store :int)
165      (backing-planes :unsigned-long)
166      (backing-pixel :unsigned-long)
167      (save-under bool)
168      (event-mask :long)
169      (do-not-propagate_mask :long)
170      (override-redirect bool)
171      (colormap colormap)
172      (cursor cursor))
173    
174    (define-bitmask-constants
175      CWBackPixmap       0
176      CWBackPixel        1
177      CWBorderPixmap     2
178      CWBorderPixel      3
179      CWBitGravity       4
180      CWWinGravity       5
181      CWBackingStore     6
182      CWBackingPlanes    7
183      CWBackingPixel     8
184      CWOverrideRedirect 9
185      CWSaveUnder        10
186      CWEventMask        11
187      CWDontPropagate    12
188      CWColormap         13
189      CWCursor           14)
190    
191    (defcfun ("XChangeWindowAttributes" xchangewindowattributes) :int
192      (display display)
193      (window window)
194      (valuemask :unsigned-long)
195      (attributes :pointer))
196    
197  (defcfun ("XDestroyWindow" xdestroywindow) :int  (defcfun ("XDestroyWindow" xdestroywindow) :int
198    (display display)    (display display)
199    (window window))    (window window))
# Line 170  the power value." Line 225  the power value."
225    (height :unsigned-int)    (height :unsigned-int)
226    (destination-x :int)    (destination-x :int)
227    (destination-y :int))    (destination-y :int))
   
228    
229    (defcfun ("XSetGraphicsExposures" xsetgraphicsexposures) :int
230      (display display)
231      (graphics-context graphics-context)
232      (graphics-exposures bool))
233    
234    
235  ;; synchronization & threads  ;; synchronization & threads
236    
237  (defcfun ("XInitThreads" xinitthreads) :int)  (defcfun ("XInitThreads" xinitthreads) :int)
238    
239    (defcfun ("XLockDisplay" xlockdisplay) :int
240      (display display))
241    
242    (defcfun ("XUnlockDisplay" xunlockdisplay) :int
243      (display display))
244    
245  (defcfun ("XSynchronize" xsynchronize) :int  (defcfun ("XSynchronize" xsynchronize) :int
246    (display display)    (display display)
247    (onoff :int))    (onoff :int))
# Line 243  the power value." Line 309  the power value."
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))
311    
312    (defcstruct xvisibilityevent
313      (type :int)
314      (serial :unsigned-long)
315      (send-event bool)
316      (display display)
317      (window window)
318      (state :int))
319    
320  (defcfun ("XNextEvent" xnextevent) :int  (defcfun ("XNextEvent" xnextevent) :int
321    (display display)    (display display)
322    (event-return :pointer))    (event-return :pointer))

Legend:
Removed from v.11  
changed lines
  Added in v.13

  ViewVC Help
Powered by ViewVC 1.1.5