[graphic-forms-cvs] r411 - in trunk: docs/website src/uitoolkit/graphics

[junrue at common-lisp.net]

Author: junrue
Date: Fri Dec 15 02:16:47 2006
New Revision: 411

Modified:
   trunk/docs/website/index.html
   trunk/src/uitoolkit/graphics/font.lisp
Log:
 

Modified: trunk/docs/website/index.html
==============================================================================
--- trunk/docs/website/index.html	(original)
+++ trunk/docs/website/index.html	Fri Dec 15 02:16:47 2006
@@ -30,24 +30,13 @@
   terms of the
   <a href="http://home.earthlink.net/~jdunrue/license.html">BSD License</a>.</p>
 
-  <p>The goal is to provide a <a href="http://www.lisp.org">Common Lisp</a>-based
-     toolkit for developing GUI applications on Windows. GUI features
-     are encapsulated by a thin abstraction layer offering a Lisp-friendly
-     interface. The library can be extended via
-     <a href="http://www.lisp.org">Common Lisp</a> bindings for system APIs.</p>
-  <p>Long-term goals for this project may include implementing an application
-     framework on top of the toolkit, a rapid UI development language, a
-     UI design tool, or some combination thereof.</p>
-
  <h3>Status</h3>
 
  <p>The current version is
     <a href="http://sourceforge.net/project/showfiles.php?group_id=163034">
     0.7.0</a>, released on 1 December 2006.</p>
- <p>Graphic-Forms is in the alpha stage of development,
-    meaning new features are still being added and existing features require
-    considerable testing. Brave souls who experiment with the code should expect
-    significant API and behavior changes for at least several more releases.</p>
+ <p><b>(12/14/2006) NOTE:</b> I have decided not to spend further time or
+    energy on this project.</p>
 
  <p>The supported Lisp implementations are:
  <ul>
@@ -56,12 +45,6 @@
    <li><a href="http://www.sbcl.org/">SBCL 0.9.15</a> or later</li>
  </ul>
 
- <p>The supported Windows versions are:
- <ul>
-   <li>XP SP2</li>
-   <li>Vista <i>(testing on RC 1 currently underway)</i></li>
- </ul>
-
  <h3 id="mailinglists">Mailing Lists</h3>
  <ul>
   <li>

Modified: trunk/src/uitoolkit/graphics/font.lisp
==============================================================================
--- trunk/src/uitoolkit/graphics/font.lisp	(original)
+++ trunk/src/uitoolkit/graphics/font.lisp	Fri Dec 15 02:16:47 2006
@@ -38,6 +38,8 @@
 ;;;
 
 (defmethod data-object ((self font) &optional gc)
+  (if (null gc)
+    (error 'gfs:toolkit-error :detail "gc argument required when calling data-object for font"))
   (if (or (gfs:disposed-p self) (gfs:disposed-p gc))
     (error 'gfs:disposed-error))
   (font->data (gfs:handle gc) (gfs:handle self)))