Skip to content
Snippets Groups Projects
Commit fb4f2f27 authored by cer's avatar cer
Browse files

Makefile autoload postscript

clim/accept-values.lisp		ignore decl
clim/accept.lisp		ignore decl
clim/activities.lisp		Extended activities protocol to handle
                                exiting frames and selecting initial
                                and next frames
clim/clim-defs.lisp		ignore decl
clim/cursor.lisp		ignore decl
clim/gestures.lisp		asynchronous abort
clim/graphics-recording.lisp	bezier-polygon code
clim/input-protocol.lisp	asynchronous abort
clim/interactive-defs.lisp	asynchronous abort
                                ignore decl
clim/output-protocol.lisp		ignore decl
clim/presentations.lisp		putting options in input-context to
                                fix completion problem
clim/ptypes2.lisp		swm goof
clim/standard-types.lisp
climtoys/test-demos.lisp
climtoys/test-clim.lisp		Added support for button press and
                                release and presentation release
demo/bitmap-editor.lisp		Tidied up the user interface.
demo/cad-demo.lisp		added ignore decl
demo/ico.lisp			added ignore decl
demo/listener.lisp		added ignore decl
demo/navfun.lisp		undid swms changes
demo/plot.lisp			removed require climps - since it
                                should autoload
postscript/sysdcl.lisp		postscript autoload
silica/gadgets.lisp		added text-style slot menu bars
silica/graphics.lisp		added bezeier curve
test/test-suite.lisp		added test for draw-points*, ignore decls
                                avv align-prompts,
tk/callbacks.lisp		ignore decls
tk/event.lisp			ignore decls
tk/graphics.lisp		Removed dummy defns,
tk/macros.lisp			Removed unused type parameter
tk/make-widget.lisp		ignore decl
tk/resources.lisp		ignore decl and convertor for ol-edit-more
tk/xm-font-list.lisp		ignore decl
tk/xm-protocols.lisp		ignore decl
tk/xt-defs.lisp			added xarc-array
tk-silica/image.lisp		Tidied up code
tk-silica/last.lisp		special decl
tk-silica/ol-gadgets.lisp	text style in menus
tk-silica/xm-dialogs.lisp 	option scrollbar support
tk-silica/xm-frames.lisp	text style in menus
tk-silica/xm-gadgets.lisp	ignore decl
tk-silica/xm-silica.lisp	ignore decl
tk-silica/xt-cursor.lisp	ignore decl
tk-silica/xt-frames.lisp	:menu bar can be a list with options
                                such as text-style
tk-silica/xt-graphics.lisp	made medium-draw-points* work, added
                                bezier curve code
tk-silica/xt-silica.lisp	ignore decl, unused function.
utils/lisp-utilities.lisp	ignore decl, deleted unused code
utils/packages.lisp		exported bezier functions, map over frames
utils/processes.lisp		unused argument in macro
utils/region-arithmetic.lisp	renamed flet intersection to eliminate warning
parent 91f205f1
No related branches found
No related tags found
No related merge requests found
;; -*- mode: common-lisp; package: postscript-clim -*-
;;
;; -[]-
;;
;; 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$
(in-package :postscript-clim)
(macrolet ((def-ps-stubs (functions macros)
`(progn
,@(mapcar #'(lambda (fn)
`(excl::def-autoload-function ,fn "climps.fasl"))
functions)
,@(mapcar #'(lambda (macro)
`(excl::def-autoload-macro ,macro "climps.fasl"))
macros))))
(def-ps-stubs
;;-- We have to do this because its not exported.
;;-- if it were we could make the package autoloaded too
(invoke-with-output-to-postscript-stream)
(with-output-to-postscript-stream)))
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable. ;; applicable.
;; ;;
;; $fiHeader: macros.lisp,v 1.10 92/05/13 17:10:21 cer Exp $ ;; $fiHeader: macros.lisp,v 1.11 92/07/01 15:44:32 cer Exp $
(in-package :tk) (in-package :tk)
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
(if (null bindings) (if (null bindings)
`(progn ,@body) `(progn ,@body)
(destructuring-bind (destructuring-bind
((var value &optional (type :signed-long)) &rest more-bindings) bindings ((var value) &rest more-bindings) bindings
(let ((val (gensym))) (let ((val (gensym)))
`(let ((,val ,value) `(let ((,val ,value)
(,var (or (pop *temp-with-ref-par*) (,var (or (pop *temp-with-ref-par*)
......
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable. ;; applicable.
;; ;;
;; $fiHeader: make-widget.lisp,v 1.5 92/04/03 12:04:04 cer Exp $ ;; $fiHeader: make-widget.lisp,v 1.6 92/07/27 19:29:08 cer Exp $
(in-package :tk) (in-package :tk)
...@@ -38,6 +38,7 @@ ...@@ -38,6 +38,7 @@
(apply #'create-widget name class parent args)))) (apply #'create-widget name class parent args))))
(defmethod make-widget ((w shell) &rest args &key parent (name "") &allow-other-keys) (defmethod make-widget ((w shell) &rest args &key parent (name "") &allow-other-keys)
(declare (ignore args parent name))
(error "shells not made this way")) (error "shells not made this way"))
......
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable. ;; applicable.
;; ;;
;; $fiHeader: xm-protocols.lisp,v 1.7 92/04/28 09:25:10 cer Exp Locker: cer $ ;; $fiHeader: xm-protocols.lisp,v 1.8 92/05/13 17:10:32 cer Exp $
(in-package :tk) (in-package :tk)
...@@ -29,6 +29,7 @@ ...@@ -29,6 +29,7 @@
(call-data (call-data
:unsigned-long)) :unsigned-long))
(declare (ignore something-weird-widget))
;;-- Seems that the first argument is not a widget but a pointer to ;;-- Seems that the first argument is not a widget but a pointer to
;;-- one of the above, and that the protocol component is the widget ;;-- one of the above, and that the protocol component is the widget
#+debug #+debug
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment