From dbarlow at common-lisp.net  Sat Dec 11 20:41:27 2004
From: dbarlow at common-lisp.net (Dan Barlow)
Date: Sat, 11 Dec 2004 21:41:27 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/index.html 
Message-ID: <20041211204127.B4129885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage
In directory common-lisp.net:/tmp/cvs-serv4456

Modified Files:
	index.html 
Log Message:
remove stale links
Date: Sat Dec 11 21:41:26 2004
Author: dbarlow

Index: mcclim/Webpage/index.html
diff -u mcclim/Webpage/index.html:1.6 mcclim/Webpage/index.html:1.7
--- mcclim/Webpage/index.html:1.6	Wed Oct  1 14:23:43 2003
+++ mcclim/Webpage/index.html	Sat Dec 11 21:41:26 2004
@@ -51,6 +51,14 @@
 	  </ul>
 	  <h2>Recent News</h2>
 	  <p>
+	    McCLIM CVS hosting moved to <a
+	    href="http://common-lisp.net/">common-lisp.net</a>;
+	    if you're a developer you should already have heard about
+	    this (if not, mail admin at common-lisp.net).  To check out
+	    from the new CVS location, see the <a
+	    href="http://common-lisp.net/faq.shtml" >instructions here</a>
+
+	  <p>
 	    Tim Moore presented a
 	    <a href="./clim-paper.pdf">paper</a>
 	    written by Robert Strandh and himself
@@ -61,9 +69,10 @@
     </table>
     <br>
     <hr>
+$Date: 2004/12/11 20:41:26 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
-Last modified: Sun Aug 31 11:42:46 EDT 2003
+<!-- Last modified: Sun Aug 31 11:42:46 EDT 2003 -->
 <!-- hhmts end -->
   </body>
 </html>



From dbarlow at common-lisp.net  Sat Dec 11 20:41:31 2004
From: dbarlow at common-lisp.net (Dan Barlow)
Date: Sat, 11 Dec 2004 21:41:31 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/downloads/index.html 
Message-ID: <20041211204131.64F2D885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage/downloads
In directory common-lisp.net:/tmp/cvs-serv4456/downloads

Modified Files:
	index.html 
Log Message:
remove stale links
Date: Sat Dec 11 21:41:27 2004
Author: dbarlow

Index: mcclim/Webpage/downloads/index.html
diff -u mcclim/Webpage/downloads/index.html:1.7 mcclim/Webpage/downloads/index.html:1.8
--- mcclim/Webpage/downloads/index.html:1.7	Wed Nov 12 18:45:09 2003
+++ mcclim/Webpage/downloads/index.html	Sat Dec 11 21:41:27 2004
@@ -24,9 +24,10 @@
 	<td valign="top" width="80%">
 	  <h2>CVS</h2>
 	  <p>
-	    Read only access to the CVS tree is available. Set your CVSROOT to
-	    ":pserver:cvs at clim.mikemac.com:/home/depot" and use a password of
-	    "FreeCLIM". Then check out McCLIM.
+	    Read only access to the CVS tree is available in the
+	    <tt>mcclim</tt> module : see the 
+	    <a href="http://common-lisp.net/faq.shtml"
+	    >common-lisp.net CVS instructions</a>
 	  </p>
 	  <p>
 	    We have a mailing list where all CVS commits are sent and where the developers
@@ -41,26 +42,20 @@
 	  </p>
 	  <h2>Tarballs</h2>
 	  <p>
-	    A compressed tar file of the <a href="./McCLIM.tgz">sources</a> is made nightly.
-	    An uncompress version is <a href="./McCLIM.tar">here</a>.
+	    A compressed tar file of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">sources</a> is made nightly.
 	  </p>
 	  <h2>Releases</h2>
-	  <ul>
-	    <li><a href="./snapshots/src/McCLIM-0.9.tgz">McCLIM-0.9.tgz</a></li>
-	  </ul>
-	  <h2>Snapshots</h2>
-	  <h4>Monthly Source Tarballs</h4>
-	  <ul>
-	    <li><a href="./snapshots/src/McCLIM-20031101.tgz">McCLIM-20031101.tgz</a></li>
-	  </ul>
+	  The most recent release of McCLIM was 0.9, in November
+	  2003.  It's probably a better idea to use the CVS version instead
 	</td>
       </tr>
     </table>
     <br>
     <hr>
+$Date: 2004/12/11 20:41:27 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
-Last modified: Wed Nov 12 12:42:16 EST 2003
+<!-- Last modified: Wed Nov 12 12:42:16 EST 2003 -->
 <!-- hhmts end -->
   </body>
 </html>



From dbarlow at common-lisp.net  Sat Dec 11 20:51:15 2004
From: dbarlow at common-lisp.net (Dan Barlow)
Date: Sat, 11 Dec 2004 21:51:15 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/downloads/index.html 
Message-ID: <20041211205115.9158E885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage/downloads
In directory common-lisp.net:/tmp/cvs-serv5253/downloads

Modified Files:
	index.html 
Log Message:
update mailing list links
Date: Sat Dec 11 21:51:14 2004
Author: dbarlow

Index: mcclim/Webpage/downloads/index.html
diff -u mcclim/Webpage/downloads/index.html:1.8 mcclim/Webpage/downloads/index.html:1.9
--- mcclim/Webpage/downloads/index.html:1.8	Sat Dec 11 21:41:27 2004
+++ mcclim/Webpage/downloads/index.html	Sat Dec 11 21:51:14 2004
@@ -27,19 +27,19 @@
 	    Read only access to the CVS tree is available in the
 	    <tt>mcclim</tt> module : see the 
 	    <a href="http://common-lisp.net/faq.shtml"
-	    >common-lisp.net CVS instructions</a>
-	  </p>
-	  <p>
-	    We have a mailing list where all CVS commits are sent and where the developers
-	    discuss McCLIM. If you'd like to be added to the mailing list, please send
-	    <a href="mailto:mikemac at mikemac.com">me</a> a note and I'll add you.
-	    We don't list the address of the list because we all get enough spam without
-	    the McCLIM list getting it too!
-	  </p>
-	  <p>
-	    If you need write privileges, please
-	    <a href="mailto:mikemac at mikemac.com">Email</a> and I'll added you.
+	    >common-lisp.net CVS instructions</a>.  You can also 
+	    <a
+	    href="http://common-lisp.net/cgi-bin/viewcvs.cgi/mcclim/?cvsroot=mcclim"
+	    >browse the repository</a> with CVSWeb.
 	  </p>
+	  <h2>Mailing lists</h2>
+	  <ul>
+	  <li><a href="http://common-lisp.net/mailman/listinfo/mcclim-announce"
+	   >mcclim-announce</a> : (announcements only, low traffic)</a>
+	  <li> <a href="http://common-lisp.net/mailman/listinfo/mcclim-devel"
+	   >mcclim-devel</a> : developer discussion</a>
+	  <li> <a href="http://common-lisp.net/mailman/listinfo/mcclim-cvs"
+	   >mcclim-cvs</a> : CVS commit messages</a>
 	  <h2>Tarballs</h2>
 	  <p>
 	    A compressed tar file of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">sources</a> is made nightly.
@@ -52,7 +52,7 @@
     </table>
     <br>
     <hr>
-$Date: 2004/12/11 20:41:27 $
+$Date: 2004/12/11 20:51:14 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
 <!-- Last modified: Wed Nov 12 12:42:16 EST 2003 -->



From dbarlow at common-lisp.net  Sat Dec 11 20:52:17 2004
From: dbarlow at common-lisp.net (Dan Barlow)
Date: Sat, 11 Dec 2004 21:52:17 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/downloads/index.html 
Message-ID: <20041211205217.4CA70885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage/downloads
In directory common-lisp.net:/tmp/cvs-serv5278/downloads

Modified Files:
	index.html 
Log Message:
close tag, oops
Date: Sat Dec 11 21:52:03 2004
Author: dbarlow

Index: mcclim/Webpage/downloads/index.html
diff -u mcclim/Webpage/downloads/index.html:1.9 mcclim/Webpage/downloads/index.html:1.10
--- mcclim/Webpage/downloads/index.html:1.9	Sat Dec 11 21:51:14 2004
+++ mcclim/Webpage/downloads/index.html	Sat Dec 11 21:52:02 2004
@@ -40,6 +40,7 @@
 	   >mcclim-devel</a> : developer discussion</a>
 	  <li> <a href="http://common-lisp.net/mailman/listinfo/mcclim-cvs"
 	   >mcclim-cvs</a> : CVS commit messages</a>
+	  </ul>
 	  <h2>Tarballs</h2>
 	  <p>
 	    A compressed tar file of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">sources</a> is made nightly.
@@ -52,7 +53,7 @@
     </table>
     <br>
     <hr>
-$Date: 2004/12/11 20:51:14 $
+$Date: 2004/12/11 20:52:02 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
 <!-- Last modified: Wed Nov 12 12:42:16 EST 2003 -->



From ahefner at common-lisp.net  Sat Dec 11 21:15:25 2004
From: ahefner at common-lisp.net (Andy Hefner)
Date: Sat, 11 Dec 2004 22:15:25 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp 
Message-ID: <20041211211525.91930885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv6179

Modified Files:
	port.lisp 
Log Message:
Fix to send-selection to make requests for :STRING and :TEXT work
correctly.


Date: Sat Dec 11 22:15:23 2004
Author: ahefner

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.99 mcclim/Backends/CLX/port.lisp:1.100
--- mcclim/Backends/CLX/port.lisp:1.99	Tue Dec  7 05:49:51 2004
+++ mcclim/Backends/CLX/port.lisp	Sat Dec 11 22:15:22 2004
@@ -1371,14 +1371,14 @@
            (xlib:change-property requestor property
                                  (utf-8-encode
                                   (concatenate 'vector (map 'vector #'char-code string)))
-                                               #|(list #x20AC) (list #x2261)|#
-                                 :UTF8_STRING ;###
+                                 ;;:UTF8_STRING ;###
+                                 target
                                  8)            
            (xlib:send-event requestor
                             :selection-notify nil
                             :window requestor
                             :selection :primary
-                            :target :UTF8_STRING  ;;target   (?)
+                            :target target ;; :UTF8_STRING 
                             :property property
                             :time time))
           ((member target '(:COMPOUND_TEXT))



From bmastenbrook at common-lisp.net  Sat Dec 11 22:11:24 2004
From: bmastenbrook at common-lisp.net (Brian Mastenbrook)
Date: Sat, 11 Dec 2004 23:11:24 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/index.html 
Message-ID: <20041211221124.72EA3885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage
In directory common-lisp.net:/tmp/cvs-serv9241

Modified Files:
	index.html 
Log Message:
Clean up the main page, eliminate the "downloads" page that involved a lot of things other than downloads, and point at the cliki. Also, the formatting has been cleaned up a bit, which involved a fair bit of violence to the indentation, natch.

Date: Sat Dec 11 23:11:22 2004
Author: bmastenbrook

Index: mcclim/Webpage/index.html
diff -u mcclim/Webpage/index.html:1.7 mcclim/Webpage/index.html:1.8
--- mcclim/Webpage/index.html:1.7	Sat Dec 11 21:41:26 2004
+++ mcclim/Webpage/index.html	Sat Dec 11 23:11:22 2004
@@ -2,74 +2,97 @@
 <html>
   <head>
     <title>McCLIM</title>
+    <link rel="stylesheet" type="text/css" href="mcclim.css">
   </head>
-
+  
   <body>
     <br>
-    <center><img src="McCLIM-3.png"></center>
-
-    <table width="100%">
-      <tr>
-	<td></td>
-	<td valign="top" width="80%">
-	  <center><h1>Welcome</h1></center>
-	</td>
-      </tr>
-      <tr>
-	<td valign="top">
-	  <a href="images/index.html">Images</a><br><br>
-	  <a href="downloads/index.html">Downloads</a><br><br>
-	  <a href="mail/index.html">Mail Archive</a><br><br>
-	</td>
-	<td valign="top" width="80%">
-	  <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>.
-	  </p>
-	  <p>
-	    It is licensed under the <a href="License">GNU Library General Public License</a>.
-	  </p>
-	  <h2>Who's involved?</h2>
-	  <p>
-	    McCLIM is written by a diverse group of individuals from across the world.
-	    The primary developers include:
-	  </p>
-	  <ul>
-	    <li>Gilbert Baumann</li>
-	    <li>Julien Boninfan</li>
-	    <li>Alexey Dejneka</li>
-	    <li>Iban Hatchond</li>
-	    <li>Andy Hefner</li>
-	    <li>Mike McDonald</li>
-	    <li>Timothy Moore</li>
-	    <li>Edena Pixel</li>
-	    <li>Arnaud Rouanet</li>
-	    <li>Lionel Salabartan</li>
-	    <li>Brian Spilsbury</li>
-	    <li>Robert Strandh</li>
-	  </ul>
-	  <h2>Recent News</h2>
-	  <p>
-	    McCLIM CVS hosting moved to <a
-	    href="http://common-lisp.net/">common-lisp.net</a>;
-	    if you're a developer you should already have heard about
-	    this (if not, mail admin at common-lisp.net).  To check out
-	    from the new CVS location, see the <a
-	    href="http://common-lisp.net/faq.shtml" >instructions here</a>
-
-	  <p>
-	    Tim Moore presented a
-	    <a href="./clim-paper.pdf">paper</a>
-	    written by Robert Strandh and himself
-	    at the International Lisp Conference during the last week of October 2002.
-	  </p>
-	</td>
-      </tr>
-    </table>
+    <center>
+      <img src="McCLIM-3.png">
+      <h1>Welcome</h1>
+    </center>
+    
+    <div class="link-sidebar">
+      <ul>
+        <li><a href="#cvs">CVS</a>
+        <li><a href="#downloads">Downloads</a>
+        <li><a href="#mail">Mailing Lists</a>
+        <li><a href="http://mcclim.cliki.net/Screenshot">Screenshots</a>
+        <li><a href="http://mcclim.cliki.net/">Wiki</a>
+      </ul>
+    </div>
+    <div class="main-body">
+      <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>.
+      </p>
+      <p>
+        It is licensed under the <a href="License">GNU Library General Public License</a>.
+      </p>
+      <p>
+        The <a href="http://mcclim.cliki.net/">McCLIM Wiki</a>
+        contains quite a bit of information about McCLIM, including a
+        list of applications using it, and many screenshots of these.
+      </p>
+      <h2><a name="cvs">CVS</a></h2>
+      <p>
+	Read only access to the CVS tree is available in the
+	<tt>mcclim</tt> module: see the 
+	<a href="http://common-lisp.net/faq.shtml">common-lisp.net CVS instructions</a>.
+        You can also 
+        <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/mcclim/?cvsroot=mcclim">browse the repository</a> with CVSWeb.
+      </p>
+      <h2><a name="mail">Mailing lists</a></h2>
+      <ul>
+        <li><a href="http://common-lisp.net/mailman/listinfo/mcclim-devel"
+	       >mcclim-devel</a>: developer discussion; probably the best place to ask for help
+	<li><a href="http://common-lisp.net/mailman/listinfo/mcclim-announce"
+               >mcclim-announce</a>: (announcements only, low traffic)
+        <li><a href="http://common-lisp.net/mailman/listinfo/mcclim-cvs"
+	       >mcclim-cvs</a>: CVS commit messages
+      </ul>
+      <h2><a name="downloads">Releases</a></h2>
+      A compressed tar file of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">sources</a> is made nightly.
+      <p>
+        The most recent release of McCLIM was 0.9, in November
+	2003.  It's probably a better idea to use the CVS version instead, as there have been many bug fixes and performance improvements since then.
+      </p>
+      <h2>Recent News</h2>
+      <p>
+        McCLIM CVS hosting moved to
+        <a href="http://common-lisp.net/">common-lisp.net</a>;
+        if you're a developer you should already have heard about
+        this (if not, mail admin at common-lisp.net).
+      <p>
+        Tim Moore presented a
+        <a href="clim-paper.pdf">paper</a>
+        written by Robert Strandh and himself
+        at the International Lisp Conference during the last week of October 2002.
+      </p>
+      <h2>Who's involved?</h2>
+      <p>
+        McCLIM is written by a diverse group of individuals from across the world.
+        The primary developers include:
+      </p>
+      <ul>
+        <li>Gilbert Baumann</li>
+        <li>Julien Boninfan</li>
+        <li>Alexey Dejneka</li>
+        <li>Iban Hatchond</li>
+        <li>Andy Hefner</li>
+        <li>Mike McDonald</li>
+        <li>Timothy Moore</li>
+        <li>Edena Pixel</li>
+        <li>Arnaud Rouanet</li>
+        <li>Lionel Salabartan</li>
+        <li>Brian Spilsbury</li>
+        <li>Robert Strandh</li>
+      </ul>
+    </div>
     <br>
     <hr>
-$Date: 2004/12/11 20:41:26 $
+$Date: 2004/12/11 22:11:22 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
 <!-- Last modified: Sun Aug 31 11:42:46 EDT 2003 -->



From bmastenbrook at common-lisp.net  Sat Dec 11 22:12:04 2004
From: bmastenbrook at common-lisp.net (Brian Mastenbrook)
Date: Sat, 11 Dec 2004 23:12:04 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/mcclim.css 
Message-ID: <20041211221204.60733885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage
In directory common-lisp.net:/tmp/cvs-serv9270

Added Files:
	mcclim.css 
Log Message:
The stylesheet for the web page.

Date: Sat Dec 11 23:12:03 2004
Author: bmastenbrook




From bmastenbrook at common-lisp.net  Sat Dec 11 22:53:41 2004
From: bmastenbrook at common-lisp.net (Brian Mastenbrook)
Date: Sat, 11 Dec 2004 23:53:41 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/mcclim.css 
Message-ID: <20041211225341.F1220885C9@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Webpage
In directory common-lisp.net:/tmp/cvs-serv11451

Modified Files:
	mcclim.css 
Log Message:
Change body to serif font

Date: Sat Dec 11 23:53:40 2004
Author: bmastenbrook

Index: mcclim/Webpage/mcclim.css
diff -u mcclim/Webpage/mcclim.css:1.1 mcclim/Webpage/mcclim.css:1.2
--- mcclim/Webpage/mcclim.css:1.1	Sat Dec 11 23:12:02 2004
+++ mcclim/Webpage/mcclim.css	Sat Dec 11 23:53:39 2004
@@ -3,4 +3,4 @@
 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; }
-body { padding: 0; margin: 0; }
\ No newline at end of file
+body { padding: 0; margin: 0; font-family: serif; }
\ No newline at end of file



From bmastenbrook at common-lisp.net  Sat Dec 11 23:20:41 2004
From: bmastenbrook at common-lisp.net (Brian Mastenbrook)
Date: Sun, 12 Dec 2004 00:20:41 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/index.html 
Message-ID: <20041211232041.646A3885C9@common-lisp.net>

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 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
 <!-- Last modified: Sun Aug 31 11:42:46 EDT 2003 -->



From tmoore at common-lisp.net  Mon Dec 13 12:18:06 2004
From: tmoore at common-lisp.net (Timothy Moore)
Date: Mon, 13 Dec 2004 13:18:06 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/commands.lisp 
Message-ID: <20041213121806.BF594884A9@common-lisp.net>

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))



From tmoore at common-lisp.net  Mon Dec 13 12:18:09 2004
From: tmoore at common-lisp.net (Timothy Moore)
Date: Mon, 13 Dec 2004 13:18:09 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Doc/manual.tex
	mcclim/Doc/spec-macros.tex 
Message-ID: <20041213121809.C208E884A9@common-lisp.net>

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 at 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.



From tmoore at common-lisp.net  Mon Dec 13 12:18:15 2004
From: tmoore at common-lisp.net (Timothy Moore)
Date: Mon, 13 Dec 2004 13:18:15 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Spec/src/spec-macros.tex 
Message-ID: <20041213121815.432F1884A9@common-lisp.net>

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.



From bmastenbrook at common-lisp.net  Mon Dec 13 14:20:41 2004
From: bmastenbrook at common-lisp.net (Brian Mastenbrook)
Date: Mon, 13 Dec 2004 15:20:41 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/mcclim.css 
Message-ID: <20041213142041.B21FF884F9@common-lisp.net>

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; }



From bmastenbrook at common-lisp.net  Mon Dec 13 15:53:03 2004
From: bmastenbrook at common-lisp.net (Brian Mastenbrook)
Date: Mon, 13 Dec 2004 16:53:03 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Webpage/index.html 
Message-ID: <20041213155303.2DA05884F7@common-lisp.net>

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 $
 <!-- Created: Sat Nov  2 11:00:35 EST 2002 -->
 <!-- hhmts start -->
 <!-- Last modified: Sun Aug 31 11:42:46 EDT 2003 -->



From bhaible at common-lisp.net  Mon Dec 20 15:44:49 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:44:49 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Apps/Listener/dev-commands.lisp 
Message-ID: <20041220154449.F3B42884F7@common-lisp.net>

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'."



From bhaible at common-lisp.net  Mon Dec 20 15:45:38 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:45:38 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Apps/Listener/listener.lisp 
Message-ID: <20041220154538.F0B36884F7@common-lisp.net>

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)                        



From bhaible at common-lisp.net  Mon Dec 20 15:46:50 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:46:50 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Apps/Listener/util.lisp 
Message-ID: <20041220154650.90380884F7@common-lisp.net>

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



From bhaible at common-lisp.net  Mon Dec 20 15:47:33 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:47:33 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/README 
Message-ID: <20041220154733.CA191884F7@common-lisp.net>

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.
 



From bhaible at common-lisp.net  Mon Dec 20 15:48:32 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:48:32 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/describe.lisp 
Message-ID: <20041220154832.0C6D5884F7@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv26844

Modified Files:
	describe.lisp 
Log Message:
(describe-object at 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)



From bhaible at common-lisp.net  Mon Dec 20 15:49:22 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:49:22 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/package.lisp 
Message-ID: <20041220154922.D7F81884F7@common-lisp.net>

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)



From bhaible at common-lisp.net  Mon Dec 20 15:49:51 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:49:51 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/system.lisp 
Message-ID: <20041220154951.A4740884F7@common-lisp.net>

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))



From bhaible at common-lisp.net  Mon Dec 20 15:50:24 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:50:24 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/utils.lisp 
Message-ID: <20041220155024.9233C884F7@common-lisp.net>

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)



From bhaible at common-lisp.net  Mon Dec 20 15:51:27 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:51:27 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/INSTALL.CLISP 
Message-ID: <20041220155127.EB176884F7@common-lisp.net>

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




From bhaible at common-lisp.net  Mon Dec 20 15:51:57 2004
From: bhaible at common-lisp.net (Bruno Haible)
Date: Mon, 20 Dec 2004 16:51:57 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Lisp-Dep/fix-clisp.lisp 
Message-ID: <20041220155157.95126884F7@common-lisp.net>

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




From rstrandh at common-lisp.net  Tue Dec 28 09:17:08 2004
From: rstrandh at common-lisp.net (Robert Strandh)
Date: Tue, 28 Dec 2004 10:17:08 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Doc/manual.tex 
Message-ID: <20041228091708.2AF62884A9@common-lisp.net>

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



From rstrandh at common-lisp.net  Tue Dec 28 10:06:22 2004
From: rstrandh at common-lisp.net (Robert Strandh)
Date: Tue, 28 Dec 2004 11:06:22 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp 
Message-ID: <20041228100622.1F668884A9@common-lisp.net>

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)



From rstrandh at common-lisp.net  Tue Dec 28 11:45:39 2004
From: rstrandh at common-lisp.net (Robert Strandh)
Date: Tue, 28 Dec 2004 12:45:39 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/Apps/Scigraph/scigraph/package.lisp
Message-ID: <20041228114539.CCC97884A5@common-lisp.net>

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)))
 



From rstrandh at common-lisp.net  Thu Dec 30 10:09:43 2004
From: rstrandh at common-lisp.net (Robert Strandh)
Date: Thu, 30 Dec 2004 11:09:43 +0100 (CET)
Subject: [mcclim-cvs] CVS update: mcclim/decls.lisp 
Message-ID: <20041230100943.AC20C884A5@common-lisp.net>

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