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