From 6ec81469610861219627bee1293f56f4a1598db0 Mon Sep 17 00:00:00 2001
From: cer <cer>
Date: Tue, 21 Apr 1992 16:40:06 +0000
Subject: [PATCH] Initial revision

---
 tk/ol-defs.lisp |  45 ++++++++++++++
 tk/ol-funs.lisp |  44 ++++++++++++++
 tk/xm-defs.lisp |  39 ++++++++++++
 tk/xt-defs.lisp | 156 ++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 284 insertions(+)
 create mode 100644 tk/ol-defs.lisp
 create mode 100644 tk/ol-funs.lisp
 create mode 100644 tk/xm-defs.lisp
 create mode 100644 tk/xt-defs.lisp

diff --git a/tk/ol-defs.lisp b/tk/ol-defs.lisp
new file mode 100644
index 00000000..91553888
--- /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 00000000..b9844b24
--- /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 00000000..85214ff8
--- /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 00000000..5604c3b0
--- /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)
-- 
GitLab