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

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

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv26829 Modified Files: README Log Message: Works with CLISP as well. Date: Mon Dec 20 16:47:32 2004 Author: bhaible Index: mcclim/README diff -u mcclim/README:1.1 mcclim/README:1.2 --- mcclim/README:1.1 Wed Nov 12 00:45:15 2003 +++ mcclim/README Mon Dec 20 16:47:32 2004 @@ -2,8 +2,8 @@ This is McCLIM, an implementation of the "Common Lisp Interface Manager CLIM II Specification." It currently works on X Windows using -CLX. It works with CMUCL, SBCL, OpenMCL, Allegro CL and LispWorks. The -INSTALL files in this directory give instructions for each Lisp +CLX. It works with CMUCL, SBCL, CLISP, OpenMCL, Allegro CL and LispWorks. +The INSTALL files in this directory give instructions for each Lisp implementation. Release notes for each release of McCLIM are in the ReleaseNotes directory.

1 0

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

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv26814/Apps/Listener Modified Files: util.lisp Log Message: (getenv, change-directory, run-program): Add support for CLISP. Date: Mon Dec 20 16:46:49 2004 Author: bhaible Index: mcclim/Apps/Listener/util.lisp diff -u mcclim/Apps/Listener/util.lisp:1.14 mcclim/Apps/Listener/util.lisp:1.15 --- mcclim/Apps/Listener/util.lisp:1.14 Fri Jul 23 14:36:45 2004 +++ mcclim/Apps/Listener/util.lisp Mon Dec 20 16:46:49 2004 @@ -64,12 +64,14 @@ #+sbcl (sb-ext:posix-getenv var) #+lispworks (lw:environment-variable var) #+openmcl (ccl::getenv var) + #+clisp (ext:getenv var) nil)) ;; Need to strip filename/type/version from directory?.. FIXME? (defun change-directory (pathname) "Ensure that the current directory seen by RUN-PROGRAM has changed, and update *default-pathname-defaults*" #+CMU (unix:unix-chdir (namestring pathname)) + #+clisp (ext:cd pathname) ; SBCL FIXME? (setf *default-pathname-defaults* pathname)) @@ -154,8 +156,9 @@ :shell-type "/bin/sh" :output-stream output :wait wait) + #+clisp (ext:run-program program :arguments args :wait wait) - #-(or CMU SBCL lispworks) + #-(or CMU SBCL lispworks clisp) (format T "~&Sorry, don't know how to run programs in your CL.~%")) ;;;; CLIM/UI utilities

1 0

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

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv26441/Apps/Listener Modified Files: listener.lisp Log Message: (display-wholine): Add support for CLISP. Date: Mon Dec 20 16:45:35 2004 Author: bhaible Index: mcclim/Apps/Listener/listener.lisp diff -u mcclim/Apps/Listener/listener.lisp:1.18 mcclim/Apps/Listener/listener.lisp:1.19 --- mcclim/Apps/Listener/listener.lisp:1.18 Mon Nov 15 08:07:26 2004 +++ mcclim/Apps/Listener/listener.lisp Mon Dec 20 16:45:34 2004 @@ -64,7 +64,8 @@ #+sbcl (sb-kernel:dynamic-usage) #+lispworks (getf (system:room-values) :total-allocated) #+openmcl (+ (ccl::%usedbytes) (ccl::%freebytes)) - #-(or cmu sbcl lispworks openmcl) 0)) + #+clisp (values (sys::%room)) + #-(or cmu sbcl lispworks openmcl clisp) 0)) (with-text-family (T :serif) (formatting-table (T :x-spacing '(3 :character)) (formatting-row (T)

1 0

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

20 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv26086/Apps/Listener Modified Files: dev-commands.lisp Log Message: (x-specializer-direct-generic-functions, count-internal-symbols, count-external-symbols): Add CLISP support. Date: Mon Dec 20 16:44:47 2004 Author: bhaible Index: mcclim/Apps/Listener/dev-commands.lisp diff -u mcclim/Apps/Listener/dev-commands.lisp:1.26 mcclim/Apps/Listener/dev-commands.lisp:1.27 --- mcclim/Apps/Listener/dev-commands.lisp:1.26 Mon Oct 18 08:30:37 2004 +++ mcclim/Apps/Listener/dev-commands.lisp Mon Dec 20 16:44:47 2004 @@ -617,9 +617,10 @@ (defun x-specializer-direct-generic-functions (specializer) ;; FIXME - move to CLIM-MOP #+PCL (pcl::specializer-direct-generic-functions specializer) #+SBCL (sb-pcl::specializer-direct-generic-functions specializer) + #+clisp (clos:specializer-direct-generic-functions specializer) #+openmcl-partial-mop (openmcl-mop:specializer-direct-generic-functions specializer) - #-(or PCL SBCL openmcl-partial-mop) + #-(or PCL SBCL clisp openmcl-partial-mop) (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this.")) (defun class-funcs (class) @@ -890,7 +891,8 @@ ;; hash table capacity #+cmu (values (lisp::internal-symbol-count package)) #+sbcl (values (sb-int:package-internal-symbol-count package)) - #-(or cmu sbcl) (portable-internal-symbol-count package)) + #+clisp (svref (sys::%record-ref *package* 1) 2) + #-(or cmu sbcl clisp) (portable-internal-symbol-count package)) (defun portable-external-symbol-count (package) (let ((n 0)) @@ -903,7 +905,8 @@ "Return the number of external symbols in PACKAGE." #+cmu (values (lisp::external-symbol-count package)) #+sbcl (values (sb-int:package-external-symbol-count package)) - #-(or cmu sbcl) (portable-external-symbol-count package)) + #+clisp (svref (sys::%record-ref *package* 0) 2) + #-(or cmu sbcl clisp) (portable-external-symbol-count package)) (defun package-grapher (stream package inferior-fun) "Draw package hierarchy graphs for `Show Package Users' and `Show Used Packages'."

1 0

[mcclim-cvs] CVS update: mcclim/Webpage/index.html
by bmastenbrook＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory common-lisp.net:/tmp/cvs-serv5662 Modified Files: index.html Log Message: Correct the spelling of Iban's name Date: Mon Dec 13 16:53:03 2004 Author: bmastenbrook Index: mcclim/Webpage/index.html diff -u mcclim/Webpage/index.html:1.9 mcclim/Webpage/index.html:1.10 --- mcclim/Webpage/index.html:1.9 Sun Dec 12 00:20:39 2004 +++ mcclim/Webpage/index.html Mon Dec 13 16:53:02 2004 @@ -79,7 +79,7 @@ <li>Gilbert Baumann</li> <li>Julien Boninfan</li> <li>Alexey Dejneka</li> - <li>Iban Hatchond</li> + <li>Iban Hatchondo</li> <li>Andy Hefner</li> <li>Mike McDonald</li> <li>Timothy Moore</li> @@ -92,7 +92,7 @@ </div> <br> <hr> -$Date: 2004/12/11 23:20:39 $ +$Date: 2004/12/13 15:53:02 $

1 0

[mcclim-cvs] CVS update: mcclim/Webpage/mcclim.css
by bmastenbrook＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory common-lisp.net:/tmp/cvs-serv1251 Modified Files: mcclim.css Log Message: display: table didn't do what I thought it did. display:box looks fine for now Date: Mon Dec 13 15:20:40 2004 Author: bmastenbrook Index: mcclim/Webpage/mcclim.css diff -u mcclim/Webpage/mcclim.css:1.2 mcclim/Webpage/mcclim.css:1.3 --- mcclim/Webpage/mcclim.css:1.2 Sat Dec 11 23:53:39 2004 +++ mcclim/Webpage/mcclim.css Mon Dec 13 15:20:40 2004 @@ -2,5 +2,5 @@ div.link-sidebar { border-top: 0.75pt solid black; border-right: 0.75pt solid black; border-bottom: 0.75pt solid black; margin: 1em 1em 1em 0em; padding: 0.5em; float: left; } div.link-sidebar ul { padding: 0 0 0 1em; margin: 0; } div.link-sidebar li { display: list-item; list-style: square; line-height: 150%; } -div.main-body { width: 60%; margin-right: 20%; margin-left: 20%; display: table; } +div.main-body { width: 60%; margin-right: 20%; margin-left: 20%; display: box; } body { padding: 0; margin: 0; font-family: serif; }

1 0

[mcclim-cvs] CVS update: mcclim/Spec/src/spec-macros.tex
by tmoore＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Spec/src In directory common-lisp.net:/tmp/cvs-serv27680/Spec/src Modified Files: spec-macros.tex Log Message: Bring command table inheritence in line with the 2.2 spec described in the Franz User Manual. All command tables must inherit, one way or another, from global-command-table. Change add-command-to-command-table so that command table designators work too. Date: Mon Dec 13 13:18:12 2004 Author: tmoore Index: mcclim/Spec/src/spec-macros.tex diff -u mcclim/Spec/src/spec-macros.tex:1.1 mcclim/Spec/src/spec-macros.tex:1.2 --- mcclim/Spec/src/spec-macros.tex:1.1 Mon Dec 11 08:00:00 2000 +++ mcclim/Spec/src/spec-macros.tex Mon Dec 13 13:18:12 2004 @@ -55,7 +55,7 @@ \gdef\cl{\bgroup \catcode`\-=\active \def-{{\tt \char`\-}\penalty\exhyphenpenalty}% \@cl}} -\def\@cl#1{\tt#1\egroup} +\def\@cl#1{\texttt{#1}\egroup} %% Use \concept when you are introducing a term for the first time, and %% want it in the index. Use \term after that.

1 0

[mcclim-cvs] CVS update: mcclim/Doc/manual.tex mcclim/Doc/spec-macros.tex
by tmoore＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Doc In directory common-lisp.net:/tmp/cvs-serv27680/Doc Modified Files: manual.tex spec-macros.tex Log Message: Bring command table inheritence in line with the 2.2 spec described in the Franz User Manual. All command tables must inherit, one way or another, from global-command-table. Change add-command-to-command-table so that command table designators work too. Date: Mon Dec 13 13:18:06 2004 Author: tmoore Index: mcclim/Doc/manual.tex diff -u mcclim/Doc/manual.tex:1.21 mcclim/Doc/manual.tex:1.22 --- mcclim/Doc/manual.tex:1.21 Thu Jul 22 21:46:23 2004 +++ mcclim/Doc/manual.tex Mon Dec 13 13:18:06 2004 @@ -41,6 +41,7 @@ \newcommand{\longref}[1]{(See \ref{#1})} \newcommand{\var}[1]{\textit{#1}} +\newcommand{\nil}[0]{\cl{nil}} \title{McCLIM 0.01 user's manual} \author{Robert Strandh \\ strandh(a)labri.fr} @@ -73,8 +74,20 @@ protocols, classes, functions, macros, etc. that are part of the specification. -This manual documents McCLIM 0.01 which is a partial implementation of -the CLIM 2.0 specification. +\section{Standards} +This manual documents McCLIM 0.01 which is a mostly complete implementation of +the CLIM~2.0 specification and its revision~2.2. To our knowledge +version~2.2 of the CLIM specification is only documented in the ``CLIM~2 +User's Guide'' by Franz. While that document is not a formal +specification, it does contain many cleanups and is often clearer than +the official specification; on the other hand, the original +specification is a useful reference. This manual will note where +McCLIM has followed the 2.2 API. + +Also, some protocols mentioned in the 2.0 specification, such as parts +of the incremental redisplay protocol, are clearly internal to CLIM +and not well described. It will be noted here when they are partially +implemented in McCLIM or not implemented at all. \part{Getting Started} @@ -169,7 +182,6 @@ The following programs are currently \textbf{known not to work}: \begin{itemize} -\item \texttt{Apps/Scigraph} \item \texttt{Examples/fire.lisp} \item \texttt{Examples/gadget-test-kr.lisp} \item \texttt{Examples/gadget-test.lisp} @@ -1261,6 +1273,19 @@ \arg{record-type} is evaluated. +\chapter{Command Processing} + +\defmacro {define-command-table} {name \key inherit-from menu + inherit-menu} +\defun {make-command-table} {name \key inherit-from inherit-menu + (errorp t)} + +By default command tables inherit from +\cl{global-command-table}. According to the CLIM~2.0 specification, a +command table inherits from no command table if \nil\ is passed as an +explicit argument to \arg{inherit-from}. In revision~2.2 all command +tables must inherit from \cl{global-command-table}. McCLIM treats a +\nil\ value of \arg{inherit-from} as specifying \cl{'(global-command-table)}. \part{Extensions} Index: mcclim/Doc/spec-macros.tex diff -u mcclim/Doc/spec-macros.tex:1.1 mcclim/Doc/spec-macros.tex:1.2 --- mcclim/Doc/spec-macros.tex:1.1 Tue Jul 3 09:20:34 2001 +++ mcclim/Doc/spec-macros.tex Mon Dec 13 13:18:06 2004 @@ -55,7 +55,7 @@ \gdef\cl{\bgroup \catcode`\-=\active \def-{{\tt \char`\-}\penalty\exhyphenpenalty}% \@cl}} -\def\@cl#1{\tt#1\egroup} +\def\@cl#1{\texttt{#1}\egroup} %% Use \concept when you are introducing a term for the first time, and %% want it in the index. Use \term after that.

1 0

[mcclim-cvs] CVS update: mcclim/commands.lisp
by tmoore＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv27680 Modified Files: commands.lisp Log Message: Bring command table inheritence in line with the 2.2 spec described in the Franz User Manual. All command tables must inherit, one way or another, from global-command-table. Change add-command-to-command-table so that command table designators work too. Date: Mon Dec 13 13:18:05 2004 Author: tmoore Index: mcclim/commands.lisp diff -u mcclim/commands.lisp:1.49 mcclim/commands.lisp:1.50 --- mcclim/commands.lisp:1.49 Mon Nov 8 05:19:35 2004 +++ mcclim/commands.lisp Mon Dec 13 13:18:05 2004 @@ -148,8 +148,16 @@ args))) menu)) +(setf (gethash 'global-command-table *command-tables*) + (make-instance 'standard-command-table + :name 'global-command-table + :inherit-from nil + :menu nil)) + ; adjusted to allow anonymous command-tables for menu-bars (defun make-command-table (name &key inherit-from menu (errorp t)) + (unless inherit-from + (setq inherit-from '(global-command-table))) (if (and name errorp (gethash name *command-tables*)) (error 'command-table-already-exists) (let ((result (make-instance 'standard-command-table :name name @@ -159,20 +167,18 @@ (setf (gethash name *command-tables*) result)) result))) -(make-command-table 'global-command-table) -(make-command-table 'user-command-table :inherit-from '(global-command-table)) +(make-command-table 'user-command-table) -(defmacro define-command-table (name &key - (inherit-from '(global-command-table)) - menu) - `(let ((old-table (gethash ',name *command-tables* nil))) +(defmacro define-command-table (name &key inherit-from menu) + `(let ((old-table (gethash ',name *command-tables* nil)) + (inherit-from-arg (or ',inherit-from '(global-command-table)))) (if old-table (with-slots (inherit-from menu) old-table - (setq inherit-from ',inherit-from + (setq inherit-from inherit-from-arg menu (menu-items-from-list ',menu)) old-table) (make-command-table ',name - :inherit-from ',inherit-from + :inherit-from inherit-from-arg :menu ',menu :errorp nil)))) @@ -231,7 +237,8 @@ ((consp menu) (values (car menu) (cdr menu)))) (when keystroke - (add-keystroke-to-command-table command-table keystroke :command command-name :errorp nil)) + (add-keystroke-to-command-table table keystroke + :command command-name :errorp nil)) (let* ((item (if menu (apply #'make-menu-item menu-name :command menu-command @@ -243,10 +250,9 @@ :command-name command-name :command-line-name name))) (after (getf menu-options :after))) - (when (and errorp (gethash command-name (commands command-table))) + (when (and errorp (gethash command-name (commands table))) (error 'command-already-present)) - (remove-command-from-command-table command-name command-table - :errorp nil) + (remove-command-from-command-table command-name table :errorp nil) (setf (gethash command-name (commands table)) item) (when name (setf (gethash name (command-line-names table)) command-name))

1 0

[mcclim-cvs] CVS update: mcclim/Webpage/index.html
by bmastenbrook＠common-lisp.net 11 Dec '04

11 Dec '04

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory common-lisp.net:/tmp/cvs-serv13384 Modified Files: index.html Log Message: Link to Gilbert's version of the CLIM specification Date: Sun Dec 12 00:20:40 2004 Author: bmastenbrook Index: mcclim/Webpage/index.html diff -u mcclim/Webpage/index.html:1.8 mcclim/Webpage/index.html:1.9 --- mcclim/Webpage/index.html:1.8 Sat Dec 11 23:11:22 2004 +++ mcclim/Webpage/index.html Sun Dec 12 00:20:39 2004 @@ -25,7 +25,7 @@ <h2>What is McCLIM?</h2> <p> McCLIM is an open source implementation of the - Common Lisp Interface Manager <a href="spec/clim.html">specification</a>. + Common Lisp Interface Manager <a href="http://www.stud.uni-karlsruhe.de/~unk6/clim-spec/">specification</a>. </p> <p> It is licensed under the <a href="License">GNU Library General Public License</a>. @@ -92,7 +92,7 @@ </div> <br> <hr> -$Date: 2004/12/11 22:11:22 $ +$Date: 2004/12/11 23:20:39 $

1 0