diff --git a/tk/ol-defs.lisp b/tk/ol-defs.lisp new file mode 100644 index 0000000000000000000000000000000000000000..9155388866275e536456644cdb5adafb8c763aba --- /dev/null +++ b/tk/ol-defs.lisp @@ -0,0 +1,45 @@ +;; -*- mode: common-lisp; package: tk -*- +;; +;; -[]- +;; +;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved. +;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved. +;; +;; The software, data and information contained herein are proprietary +;; to, and comprise valuable trade secrets of, Franz, Inc. They are +;; given in confidence by Franz, Inc. pursuant to a written license +;; agreement, and may be stored and used only in accordance with the terms +;; of such license. +;; +;; Restricted Rights Legend +;; ------------------------ +;; Use, duplication, and disclosure of the software, data and information +;; contained herein by any agency, department or entity of the U.S. +;; Government are subject to restrictions of Restricted Rights for +;; Commercial Software developed at private expense as specified in FAR +;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as +;; applicable. +;; +;; $fiHeader: ol-init.lisp,v 1.8 92/03/24 19:36:17 cer Exp $ + +;; +;; This file contains compile time only code -- put in clim-debug.fasl. +;; + +(in-package :tk) + +(def-c-type (ol-callback-struct :no-defuns) :struct + (reason :int)) + +(def-c-type (ol-expose-callback-struct :no-defuns) :struct + (reason :int) + (event * x11:xevent)) + + +(def-c-type (ol-resize-callback-struct :no-defuns) :struct + (reason :int) + (x xt-position) + (y xt-position) + (width xt-dimension) + (height xt-dimension)) + diff --git a/tk/ol-funs.lisp b/tk/ol-funs.lisp new file mode 100644 index 0000000000000000000000000000000000000000..b9844b2464fad7299f4ed26ab0e644adce204ef6 --- /dev/null +++ b/tk/ol-funs.lisp @@ -0,0 +1,44 @@ +;; -*- mode: common-lisp; package: tk -*- +;; +;; -[]- +;; +;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved. +;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved. +;; +;; The software, data and information contained herein are proprietary +;; to, and comprise valuable trade secrets of, Franz, Inc. They are +;; given in confidence by Franz, Inc. pursuant to a written license +;; agreement, and may be stored and used only in accordance with the terms +;; of such license. +;; +;; Restricted Rights Legend +;; ------------------------ +;; Use, duplication, and disclosure of the software, data and information +;; contained herein by any agency, department or entity of the U.S. +;; Government are subject to restrictions of Restricted Rights for +;; Commercial Software developed at private expense as specified in FAR +;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as +;; applicable. +;; +;; $fiHeader: ol-init.lisp,v 1.8 92/03/24 19:36:17 cer Exp $ + +;; +;; This file contains compile time only code -- put in clim-debug.fasl. +;; + +(in-package :tk) + +(defforeign 'ol_toolkit_initialize :entry-point "_OlToolkitInitialize") + +(defforeign 'ol_set_warning_handler + :entry-point "_OlSetWarningHandler") + +(defforeign 'ol_set_error_handler + :entry-point "_OlSetErrorHandler") + +(defforeign 'ol_set_va_display_error_msg_handler + :entry-point "_OlSetVaDisplayErrorMsgHandler") + +(defforeign 'ol_set_va_display_warning_msg_handler + :entry-point "_OlSetVaDisplayWarningMsgHandler") + diff --git a/tk/xm-defs.lisp b/tk/xm-defs.lisp new file mode 100644 index 0000000000000000000000000000000000000000..85214ff85b994869c61b3f4b01697e52a6bf2420 --- /dev/null +++ b/tk/xm-defs.lisp @@ -0,0 +1,39 @@ +;; -*- mode: common-lisp; package: tk -*- +;; +;; -[]- +;; +;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved. +;; copyright (c) 1986-1992 Franz Inc, Berkeley, CA All rights reserved. +;; +;; The software, data and information contained herein are proprietary +;; to, and comprise valuable trade secrets of, Franz, Inc. They are +;; given in confidence by Franz, Inc. pursuant to a written license +;; agreement, and may be stored and used only in accordance with the terms +;; of such license. +;; +;; Restricted Rights Legend +;; ------------------------ +;; Use, duplication, and disclosure of the software, data and information +;; contained herein by any agency, department or entity of the U.S. +;; Government are subject to restrictions of Restricted Rights for +;; Commercial Software developed at private expense as specified in FAR +;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as +;; applicable. +;; +;; $fiHeader: xm-funs.lisp,v 1.1 92/03/30 17:58:42 cer Exp $ + +;; +;; This file contains compile time only code -- put in clim-debug.fasl. +;; + +(in-package :tk) + +(def-c-type (xm-proto-callback-info :no-defuns) :struct + (handle :int) + (data :int)) + +(def-c-type (xm-protocol :no-defuns) :struct + (object * :char) + (ext * :char) + (protocol * :char)) + diff --git a/tk/xt-defs.lisp b/tk/xt-defs.lisp new file mode 100644 index 0000000000000000000000000000000000000000..5604c3b0c13b4973fe38d44f687be7ad538d0d36 --- /dev/null +++ b/tk/xt-defs.lisp @@ -0,0 +1,156 @@ +;; -*- mode: common-lisp; package: tk -*- +;; +;; -[]- +;; +;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved. +;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved. +;; +;; The software, data and information contained herein are proprietary +;; to, and comprise valuable trade secrets of, Franz, Inc. They are +;; given in confidence by Franz, Inc. pursuant to a written license +;; agreement, and may be stored and used only in accordance with the terms +;; of such license. +;; +;; Restricted Rights Legend +;; ------------------------ +;; Use, duplication, and disclosure of the software, data and information +;; contained herein by any agency, department or entity of the U.S. +;; Government are subject to restrictions of Restricted Rights for +;; Commercial Software developed at private expense as specified in FAR +;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as +;; applicable. +;; +;; $fiHeader: xt-defs,v 1.7 92/03/30 17:51:58 cer Exp $ + +;; +;; This file contains compile time only code -- put in clim-debug.fasl. +;; + +(in-package :tk) + + +(def-c-typedef :cardinal :unsigned-int) +(def-c-typedef xt-proc * :unsigned-long) +(def-c-typedef action-list * :char) +(def-c-typedef resource-list * :char) +(def-c-typedef xrm-quark :int) +(def-c-typedef xrm-quark-list * :int) +(def-c-typedef boolean :unsigned-long) +(def-c-typedef xrm-class xrm-quark) +(def-c-typedef xt-enum :long) +(def-c-typedef xt-version-type :long) +(def-c-typedef xt-geometry-mask :unsigned-int) +(def-c-typedef xt-position :short) +(def-c-typedef xt-dimension :unsigned-short) + + +(def-c-type (xrm-resource :no-defuns) :struct + (name xrm-quark) + (class xrm-quark) + (type xrm-quark) + (size :cardinal) + (offset :long) + (default-type xrm-quark) + (default-addr * :char)) + +(def-c-type (xrm-resource-array :no-defuns) 1 xrm-resource) + +(def-c-type (xt-class :no-defuns) :struct + (superclass :long) + (name * :char) + (widget-size :cardinal) + (class-initialize xt-proc) + (class-part-initialize xt-proc) + (inited xt-enum) + (initialize xt-proc) + (initialize-hook xt-proc) + (realize xt-proc) + (actions action-list) + (num-actions :cardinal) + (resources resource-list) + (num-resources :cardinal) + (xrm-class xrm-class) + (compress-motion boolean) + (compress-exposure xt-enum) + (compress-enter-leave boolean) + (visible-interest boolean) + (destroy xt-proc) + (resize xt-proc) + (expose xt-proc) + (set-values xt-proc) + (set-values-hook xt-proc) + (set-values-almost xt-proc) + (get-values-hook xt-proc) + (accept-focus xt-proc) + (version xt-version-type) + (callback-private * :char)) + +(def-c-type (x-resource :no-defuns) :struct + (name * :char) + (class * :char) + (type * :char) + (size :cardinal) + (offset :cardinal) + (default-type * :char) + (default-addr * :char) + ) + +;; Horrible internal stuff + + + +(def-c-type (xt-offset-rec :no-defuns) :struct + (next * :char) + (name xrm-quark) + (offset :int)) + +(defun import-offset-list (x) + (let ((r nil)) + (do ((x x (xt-offset-rec-next x))) + ((zerop x) + (nreverse r)) + (push (list (xt-offset-rec-name x) + (xt-offset-rec-offset x)) r)))) + +(def-c-type (xt-widget :no-defuns) :struct + (self :unsigned-long) + (widget-class :unsigned-long) + ) + +(def-c-type (x-resource-list :in-foreign-space :no-defuns) 1 x-resource) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(def-c-type (x-push-button-callback-struct :no-defuns) :struct + (reason :int) + (event * x11:xevent) + (click-count :int)) + +(def-c-type (x-drawing-area-callback :no-defuns) :struct + (reason :int) + (event * x11:xevent) + (window x11:window)) + +(def-c-type (xcharstruct-vector :no-defuns) 1 x11:xcharstruct) + +(def-c-type (xfontname-list :no-defuns) 1 * :char) + +(def-c-type (xfontstruct-array :no-defuns) 1 x11::xfontstruct) + +(def-c-type (class-array :no-defuns) 1 :unsigned-long) + +(def-c-type (x-arglist :in-foreign-space :no-defuns) 1 :unsigned-long) + +(def-c-type (xt-widget-list :no-defuns) 1 * xt-widget) + +(def-c-type (xt-widget-geometry :no-defuns) :struct + (request-mode xt-geometry-mask) + (x xt-position) + (y xt-position) + (width xt-dimension) + (height xt-dimension) + (border-width xt-dimension) + (sibling xt-widget) + (stack-mode :int)) + +(def-c-type (xpoint-array :no-defuns) 1 x11::xpoint)