diff --git a/tk/xm-defs.lisp b/tk/xm-defs.lisp index 33834d270c47c780809b00a8bea679a6c4c05667..877c85fe1a01ebb3b87ba830dca0463b08851550 100644 --- a/tk/xm-defs.lisp +++ b/tk/xm-defs.lisp @@ -20,7 +20,7 @@ ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; applicable. ;; -;; $fiHeader: xm-defs.lisp,v 1.5 92/05/13 17:10:31 cer Exp Locker: cer $ +;; $fiHeader: xm-defs.lisp,v 1.6 92/06/29 14:04:26 cer Exp $ ;; ;; This file contains compile time only code -- put in clim-debug.fasl. @@ -39,6 +39,13 @@ (def-c-typedef xm-string :int) +(def-c-type (xm-text-field-callback-struct :no-defuns) :struct + (reason :int) + (event * x11:xevent) + (doit :int) + ;; and more later + ) + (def-c-type (xm-file-selection-box-callback-struct :no-defuns) :struct (reason :int) (event * x11:xevent)