diff --git a/motif/lisp/callbacks.lisp b/motif/lisp/callbacks.lisp index abd64767c44a42ef87ab21d4072b6a8b8eb510cf..9484c0f2baa279224f196d59b4ff0949a140da3f 100644 --- a/motif/lisp/callbacks.lisp +++ b/motif/lisp/callbacks.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.3 1994/10/31 04:54:48 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -213,7 +213,7 @@ (:include any-callback) (:print-function print-callback) (:constructor make-button-callback (reason event click-count))) - (click-count 0 :type fixnum)) + (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here. (defstruct (drawing-area-callback (:include any-callback) @@ -227,7 +227,7 @@ (:constructor make-drawn-button-callback (reason event window click-count))) window - (click-count 0 :type fixnum)) + (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here. ;;; RowColumnCallbackStruct is weird and probably not necessary