December 2004 - mcclim-cvs@common-lisp.net

[mcclim-cvs] CVS update: mcclim/decls.lisp
by rstrandh＠common-lisp.net 30 Dec '04

30 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv4521 Modified Files: decls.lisp Log Message: added `fixed-position' to the declaration of the generic function `invoke-updating-output'. Date: Thu Dec 30 11:09:41 2004 Author: rstrandh Index: mcclim/decls.lisp diff -u mcclim/decls.lisp:1.29 mcclim/decls.lisp:1.30 --- mcclim/decls.lisp:1.29 Tue May 18 12:47:46 2004 +++ mcclim/decls.lisp Thu Dec 30 11:09:40 2004 @@ -122,7 +122,7 @@ ;;;; 21.2 (defgeneric invoke-updating-output (stream continuation record-type unique-id id-test cache-value cache-test - &key all-new parent-cache)) + &key fixed-position all-new parent-cache)) ;;;; 24.4 (defgeneric presentation-replace-input

1 0

[mcclim-cvs] CVS update: mcclim/Apps/Scigraph/scigraph/package.lisp
by rstrandh＠common-lisp.net 28 Dec '04

28 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph In directory common-lisp.net:/tmp/cvs-serv22091 Modified Files: package.lisp Log Message: Patch to fix problem with a clash of the symbol VARIABLE in the CL package. Thanks to Paulo Amoroso. Date: Tue Dec 28 12:45:33 2004 Author: rstrandh Index: mcclim/Apps/Scigraph/scigraph/package.lisp diff -u mcclim/Apps/Scigraph/scigraph/package.lisp:1.2 mcclim/Apps/Scigraph/scigraph/package.lisp:1.3 --- mcclim/Apps/Scigraph/scigraph/package.lisp:1.2 Mon Nov 3 15:02:28 2003 +++ mcclim/Apps/Scigraph/scigraph/package.lisp Tue Dec 28 12:45:30 2004 @@ -39,8 +39,8 @@ (eval-when (compile load eval) (defpackage GRAPH - #-allegro (:nicknames gr) ; "GR" names something already. - #+allegro (:shadow variable) ; shouldn't be inherited but is + #-allegro (:nicknames gr) ; "GR" names something already. + (:shadow variable) ; shouldn't be inherited but is #+MCL (:shadow copy) (:use dwim-lisp tool statistics)))

1 0

[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp
by rstrandh＠common-lisp.net 28 Dec '04

28 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory common-lisp.net:/tmp/cvs-serv17031 Modified Files: port.lisp Log Message: Fix for method X-pixel. It now uses the screen of the port as opposed to the first screen of the display. Thanks to Martin Rydström for this patch. Date: Tue Dec 28 11:06:21 2004 Author: rstrandh Index: mcclim/Backends/CLX/port.lisp diff -u mcclim/Backends/CLX/port.lisp:1.100 mcclim/Backends/CLX/port.lisp:1.101 --- mcclim/Backends/CLX/port.lisp:1.100 Sat Dec 11 22:15:22 2004 +++ mcclim/Backends/CLX/port.lisp Tue Dec 28 11:06:21 2004 @@ -1063,8 +1063,7 @@ (or (gethash color table) (setf (gethash color table) (multiple-value-bind (r g b) (color-rgb color) - (xlib:alloc-color (xlib:screen-default-colormap - (first (xlib:display-roots (clx-port-display port)))) + (xlib:alloc-color (xlib:screen-default-colormap (clx-port-screen port)) (xlib:make-color :red r :green g :blue b))))))) (defmethod port-mirror-width ((port clx-port) sheet)

1 0

[mcclim-cvs] CVS update: mcclim/Doc/manual.tex
by rstrandh＠common-lisp.net 28 Dec '04

28 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Doc In directory common-lisp.net:/tmp/cvs-serv14627 Modified Files: manual.tex Log Message: Fixed minor typos. Thanks to Robert P. Goldman for reporting them. Date: Tue Dec 28 10:17:08 2004 Author: rstrandh Index: mcclim/Doc/manual.tex diff -u mcclim/Doc/manual.tex:1.22 mcclim/Doc/manual.tex:1.23 --- mcclim/Doc/manual.tex:1.22 Mon Dec 13 13:18:06 2004 +++ mcclim/Doc/manual.tex Tue Dec 28 10:17:07 2004 @@ -234,13 +234,13 @@ \section{Panes and Gadgets} A CLIM application is made up of a hierarchy of \gloss{panes} and -\gloss{gadgets} (gadgets are special kinds of panes). Theses elements -correspond to what other toolkits may call \emph{widgets}. +\gloss{gadgets} (gadgets are special kinds of panes). These elements +correspond to what other toolkits call \emph{widgets}. Frequently used CLIM gadgets are \gadget{button}s, \gadget{slider}s, etc, and typical panes are the layout panes such as \pane{hbox}, \pane{vbox}, \pane{hrack}, etc. -\section{Defining Appliction Frames} +\section{Defining Application Frames} Each CLIM application is defined by an \gloss{application frame}. An application frame is an instance of the class @@ -291,7 +291,7 @@ application frame. The third argument to \texttt{define-application-frame} is a list of -CLOS slots to be added to any instance if this kind of application +CLOS slots to be added to any instance of this kind of application frame. These slots are typically used for holding all application-specific data. The current instance if the application frame type will always be the value of the special variable

1 0

[mcclim-cvs] CVS update: mcclim/Lisp-Dep/fix-clisp.lisp
by bhaible＠common-lisp.net 20 Dec '04

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory common-lisp.net:/tmp/cvs-serv26929/Lisp-Dep Added Files: fix-clisp.lisp Log Message: Package setup and misc fixes for running on CLISP. Date: Mon Dec 20 16:51:56 2004 Author: bhaible

1 0

[mcclim-cvs] CVS update: mcclim/INSTALL.CLISP
by bhaible＠common-lisp.net 20 Dec '04

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26914 Added Files: INSTALL.CLISP Log Message: Installation instructions that assume GNU CLISP. Date: Mon Dec 20 16:51:27 2004 Author: bhaible

1 0

[mcclim-cvs] CVS update: mcclim/utils.lisp
by bhaible＠common-lisp.net 20 Dec '04

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26892 Modified Files: utils.lisp Log Message: (get-environment-variable): Add support for CLISP. Date: Mon Dec 20 16:50:22 2004 Author: bhaible Index: mcclim/utils.lisp diff -u mcclim/utils.lisp:1.38 mcclim/utils.lisp:1.39 --- mcclim/utils.lisp:1.38 Wed Oct 6 14:03:56 2004 +++ mcclim/utils.lisp Mon Dec 20 16:50:22 2004 @@ -22,7 +22,7 @@ (defun get-environment-variable (string) #+excl (sys:getenv string) #+cmu (cdr (assoc string ext:*environment-list* :test #'string=)) - #+clisp (sys::getenv (string string)) + #+clisp (ext:getenv (string string)) #+sbcl (sb-ext::posix-getenv string) #+openmcl (ccl::getenv string) #+lispworks (lw:environment-variable string)

1 0

[mcclim-cvs] CVS update: mcclim/system.lisp
by bhaible＠common-lisp.net 20 Dec '04

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26874 Modified Files: system.lisp Log Message: Add support for CLISP. Date: Mon Dec 20 16:49:49 2004 Author: bhaible Index: mcclim/system.lisp diff -u mcclim/system.lisp:1.105 mcclim/system.lisp:1.106 --- mcclim/system.lisp:1.105 Tue Dec 7 05:49:51 2004 +++ mcclim/system.lisp Mon Dec 20 16:49:49 2004 @@ -81,6 +81,7 @@ #+sbcl "Lisp-Dep/fix-sbcl" #+openmcl "Lisp-Dep/fix-openmcl" #+lispworks "Lisp-Dep/fix-lispworks" + #+clisp "Lisp-Dep/fix-clisp" "package") (clim-defsystem (:clim-core :depends-on (:clim-lisp))

1 0

[mcclim-cvs] CVS update: mcclim/package.lisp
by bhaible＠common-lisp.net 20 Dec '04

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26859 Modified Files: package.lisp Log Message: Add CLISP support. It now has a GRAY package. Date: Mon Dec 20 16:49:20 2004 Author: bhaible Index: mcclim/package.lisp diff -u mcclim/package.lisp:1.45 mcclim/package.lisp:1.46 --- mcclim/package.lisp:1.45 Tue Dec 7 05:49:51 2004 +++ mcclim/package.lisp Mon Dec 20 16:49:19 2004 @@ -185,9 +185,8 @@ #:with-standard-io-syntax #:write #:write-byte #:write-char #:write-line #:write-sequence #:write-string #:write-to-string #:y-or-n-p #:yes-or-no-p #:zerop)) (packages - #+clisp '(:common-lisp :clos) #+gcl '(:lisp :pcl) - #-(or clisp gcl) '(:common-lisp)) + #-(or gcl) '(:common-lisp)) (gray-symbols '(#:fundamental-stream #:fundamental-input-stream @@ -218,7 +217,7 @@ #:stream-read-byte #:stream-write-byte )) (gray-packages - `(#+clisp ,@'(:lisp) + `(#+clisp ,@'(:gray) #+cmu ,@'(:ext) #+mcl ,@'(:ccl) #+allegro ,@'(:common-lisp :excl :stream)

1 0

[mcclim-cvs] CVS update: mcclim/describe.lisp
by bhaible＠common-lisp.net 20 Dec '04

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26844 Modified Files: describe.lisp Log Message: (describe-object@symbol): Add CLISP support. Date: Mon Dec 20 16:48:31 2004 Author: bhaible Index: mcclim/describe.lisp diff -u mcclim/describe.lisp:1.10 mcclim/describe.lisp:1.11 --- mcclim/describe.lisp:1.10 Mon Nov 15 05:47:41 2004 +++ mcclim/describe.lisp Mon Dec 20 16:48:30 2004 @@ -70,7 +70,8 @@ (let ((arglist #+excl (excl:arglist (symbol-function thing)) #+cmu (kernel:%function-arglist (symbol-function thing)) #+sbcl (sb-kernel:%simple-fun-arglist (symbol-function thing)) - #-(or excl cmu sbcl) "( ??? )")) + #+clisp (ext:arglist (symbol-function thing)) + #-(or excl cmu sbcl clisp) "( ??? )")) (when arglist (clim:present arglist (clim:presentation-type-of arglist)

1 0