X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.visual.lisp;fp=gdk%2Fgdk.visual.lisp;h=1bfca89bb7ded613c3e46537fa3d06d87cae7c64;hb=00346cf6cc21a7a1daa85c3c4bfcac0d86d023b2;hp=1579539410f9b3102ea72a61ae3d2c1104d0bdbf;hpb=44b7d0157ee74ec0565821064419b90cf0ab3050;p=cl-gtk2.git

diff --git a/gdk/gdk.visual.lisp b/gdk/gdk.visual.lisp
index 1579539..1bfca89 100644
--- a/gdk/gdk.visual.lisp
+++ b/gdk/gdk.visual.lisp
@@ -44,6 +44,7 @@
   (blue-mask :uint32)
   (blue-shift :int)
   (blue-prec :int))
+(defctype gdk-visual-cstruct (:struct gdk-visual-cstruct))
 
 (defmacro def-visual-accessor (slot)
   `(defun ,(intern (format nil "~A-GET-~A" (symbol-name 'gdk-visual) (symbol-name slot))) (visual)