[graphic-forms-cvs] r346 - in trunk: docs/manual src/uitoolkit/widgets
junrue at common-lisp.net
junrue at common-lisp.net
Wed Oct 18 18:16:11 UTC 2006
Author: junrue
Date: Wed Oct 18 14:16:10 2006
New Revision: 346
Added:
trunk/docs/manual/gfs-symbols.xml
Removed:
trunk/docs/manual/gfs-function-data.xml
trunk/docs/manual/gfs-type-data.xml
Modified:
trunk/docs/manual/Makefile
trunk/docs/manual/clhs-table.xml
trunk/docs/manual/gf-data.xsl
trunk/docs/manual/graphic-forms.xml
trunk/docs/manual/system-package.xml
trunk/docs/manual/win32-api-table.xml
trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp
Log:
Modified: trunk/docs/manual/Makefile
==============================================================================
--- trunk/docs/manual/Makefile (original)
+++ trunk/docs/manual/Makefile Wed Oct 18 14:16:10 2006
@@ -7,22 +7,19 @@
COMMON-DEPS = gf-data.xsl clhs-table.xml win32-api-table.xml
-INTERIM-XML = system-types.xml system-functions.xml
+TMP-XML = gfs-tmp.xml
XSLT-PROC = xsltproc --nonet
-docs: system-types.xml system-functions.xml
+docs: gfs-tmp.xml
$(XSLT-PROC) graphic-forms.xsl graphic-forms.xml
-hhc htmlhelp.hhp
-system-types.xml: gfs-type-data.xml $(COMMON-DEPS)
- $(XSLT-PROC) --output $@ gf-data.xsl gfs-type-data.xml
-
-system-functions.xml: gfs-function-data.xml $(COMMON-DEPS)
- $(XSLT-PROC) --output $@ gf-data.xsl gfs-function-data.xml
+gfs-tmp.xml: gfs-symbols.xml $(COMMON-DEPS)
+ $(XSLT-PROC) --output $@ gf-data.xsl gfs-symbols.xml
clean:
- rm -f $(INTERIM-XML)
+ rm -f $(TMP-XML)
find . \( -name "*~" -o -name "*.html" -o -name "*.hhk" -o -name "*.hhc" -o -name "*.hhp" \) -exec rm {} \;
scrub: clean
Modified: trunk/docs/manual/clhs-table.xml
==============================================================================
--- trunk/docs/manual/clhs-table.xml (original)
+++ trunk/docs/manual/clhs-table.xml Wed Oct 18 14:16:10 2006
@@ -6,7 +6,8 @@
-->
<clhs-table>
- <entry name="error" url="http://www.lispworks.com/documentation/HyperSpec/Body/e_error.htm"/>
- <entry name="list" url="http://www.lispworks.com/documentation/HyperSpec/Body/t_list.htm"/>
- <entry name="string" url="http://www.lispworks.com/documentation/HyperSpec/Body/t_string.htm"/>
+ <entry name="error" url="http://www.lispworks.com/documentation/HyperSpec/Body/e_error.htm"/>
+ <entry name="list" url="http://www.lispworks.com/documentation/HyperSpec/Body/t_list.htm"/>
+ <entry name="string" url="http://www.lispworks.com/documentation/HyperSpec/Body/t_string.htm"/>
+ <entry name="warning" url="http://www.lispworks.com/documentation/HyperSpec/Body/e_warnin.htm"/>
</clhs-table>
Modified: trunk/docs/manual/gf-data.xsl
==============================================================================
--- trunk/docs/manual/gf-data.xsl (original)
+++ trunk/docs/manual/gf-data.xsl Wed Oct 18 14:16:10 2006
@@ -40,7 +40,9 @@
<xsl:attribute name="colwidth"><xsl:value-of select="$col2-width"/></xsl:attribute>
</xsl:element>
<xsl:element name="tbody">
- <xsl:apply-templates/>
+ <xsl:apply-templates>
+ <xsl:sort select="@name" order="ascending" case-order="upper-first"/>
+ </xsl:apply-templates>
</xsl:element>
</xsl:element>
</xsl:element>
@@ -51,6 +53,7 @@
<xsl:element name="para">
<xsl:attribute name="role">normal</xsl:attribute>
+ [<xsl:value-of select="../@name"/>]
<xsl:value-of select="$page-type"/>
</xsl:element>
</xsl:template>
@@ -180,6 +183,13 @@
<xsl:attribute name="renderas">sect2</xsl:attribute>
initargs
</xsl:element>
+ <xsl:for-each select="argument">
+ <xsl:element name="indexterm">
+ <xsl:element name="primary">
+ <xsl:value-of select="@name"/>
+ </xsl:element>
+ </xsl:element>
+ </xsl:for-each>
<xsl:call-template name="emit-table">
<xsl:with-param name="col2-width">5*</xsl:with-param>
</xsl:call-template>
@@ -283,9 +293,7 @@
<xsl:call-template name="emit-index-term"/>
- <xsl:element name="title">
- <xsl:call-template name="create-id"/>
- </xsl:element>
+ <xsl:element name="title"><xsl:value-of select="@name"/></xsl:element>
<xsl:call-template name="emit-page-type">
<xsl:with-param name="page-type">[<xsl:value-of select="$page-type"/>]</xsl:with-param>
@@ -304,9 +312,7 @@
<xsl:call-template name="emit-index-term"/>
- <xsl:element name="title">
- <xsl:call-template name="create-id"/>
- </xsl:element>
+ <xsl:element name="title"><xsl:value-of select="@name"/></xsl:element>
<xsl:call-template name="emit-page-type">
<xsl:with-param name="page-type">[<xsl:value-of select="$page-type"/>]</xsl:with-param>
@@ -318,28 +324,34 @@
</xsl:element>
</xsl:template>
- <xsl:template match="/package/class">
+ <xsl:template match="class">
<xsl:call-template name="emit-type-section">
<xsl:with-param name="page-type">Class</xsl:with-param>
</xsl:call-template>
</xsl:template>
- <xsl:template match="/package/condition">
+ <xsl:template match="condition">
<xsl:call-template name="emit-type-section">
<xsl:with-param name="page-type">Condition</xsl:with-param>
</xsl:call-template>
</xsl:template>
- <xsl:template match="/package/slot-accessor">
+ <xsl:template match="slot-accessor">
<xsl:call-template name="emit-function-section">
<xsl:with-param name="page-type">Slot Accessor</xsl:with-param>
</xsl:call-template>
</xsl:template>
- <xsl:template match="/package/slot-reader">
+ <xsl:template match="slot-reader">
<xsl:call-template name="emit-function-section">
<xsl:with-param name="page-type">Slot Reader</xsl:with-param>
</xsl:call-template>
</xsl:template>
+ <xsl:template match="/package">
+ <xsl:apply-templates>
+ <xsl:sort select="@name" order="ascending" case-order="upper-first"/>
+ </xsl:apply-templates>
+ </xsl:template>
+
</xsl:stylesheet>
Added: trunk/docs/manual/gfs-symbols.xml
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfs-symbols.xml Wed Oct 18 14:16:10 2006
@@ -0,0 +1,178 @@
+<?xml version="1.0"?>
+<!--
+ gfs-package-data.xml
+
+ Copyright (c) 2006, Jack D. Unrue
+-->
+
+<package name="gfs">
+
+ <condition name="toolkit-error">
+ <description>
+ <hierarchy>
+ <inherits>
+ <refclhs>error</refclhs>
+ </inherits>
+ <inheritedby>
+ <reftopic>gfs:win32-error</reftopic>
+ </inheritedby>
+ </hierarchy>
+ This error is raised to indicate invalid argument values or inconsistent
+ state.
+ </description>
+ <initargs>
+ <argument name=":detail">
+ <description>
+ A <refclhs>string</refclhs> supplying additional problem information.
+ </description>
+ </argument>
+ </initargs>
+ <seealso>
+ <reftopic>gfs:detail</reftopic>
+ <reftopic>gfs:toolkit-warning</reftopic>
+ <reftopic>gfs:win32-warning</reftopic>
+ </seealso>
+ </condition>
+
+ <condition name="toolkit-warning">
+ <description>
+ <hierarchy>
+ <inherits>
+ <refclhs>warning</refclhs>
+ </inherits>
+ <inheritedby>
+ <reftopic>gfs:win32-warning</reftopic>
+ </inheritedby>
+ </hierarchy>
+ This warning is raised to indicate non-fatal problems that nevertheless
+ may represent application logic errors.
+ </description>
+ <initargs>
+ <argument name=":detail">
+ <description>
+ A <refclhs>string</refclhs> supplying additional problem information.
+ </description>
+ </argument>
+ </initargs>
+ <seealso>
+ <reftopic>gfs:detail</reftopic>
+ <reftopic>gfs:toolkit-error</reftopic>
+ <reftopic>gfs:win32-error</reftopic>
+ </seealso>
+ </condition>
+
+ <condition name="win32-error">
+ <description>
+ <hierarchy>
+ <inherits>
+ <reftopic>gfs:toolkit-error</reftopic>
+ </inherits>
+ <inheritedby>
+ <reftopic>gfs:comdlg-error</reftopic>
+ </inheritedby>
+ </hierarchy>
+ This error is raised to indicate that a Win32 API function has failed.
+ </description>
+ <initargs>
+ <argument name=":code">
+ <description>
+ The error code returned by <refwin32api>GetLastError</refwin32api>.
+ </description>
+ </argument>
+ <argument name=":detail">
+ <description>
+ See <reftopic>gfs:toolkit-error</reftopic>.
+ </description>
+ </argument>
+ </initargs>
+ <seealso>
+ <reftopic>gfs:code</reftopic>
+ <reftopic>gfs:detail</reftopic>
+ <reftopic>gfs:toolkit-warning</reftopic>
+ <reftopic>gfs:win32-warning</reftopic>
+ </seealso>
+ </condition>
+
+ <condition name="win32-warning">
+ <description>
+ <hierarchy>
+ <inherits>
+ <reftopic>gfs:toolkit-warning</reftopic>
+ </inherits>
+ </hierarchy>
+ This warning is reported when a Win32 API function has failed in a
+ non-fatal manner which may indicate a logic error on the part of
+ the application.
+ </description>
+ <initargs>
+ <argument name=":code">
+ <description>
+ The error code returned by <refwin32api>GetLastError</refwin32api>.
+ </description>
+ </argument>
+ <argument name=":detail">
+ <description>
+ See <reftopic>gfs:toolkit-error</reftopic>.
+ </description>
+ </argument>
+ </initargs>
+ <seealso>
+ <reftopic>gfs:code</reftopic>
+ <reftopic>gfs:detail</reftopic>
+ <reftopic>gfs:toolkit-error</reftopic>
+ <reftopic>gfs:win32-error</reftopic>
+ </seealso>
+ </condition>
+
+ <condition name="comdlg-error">
+ <description>
+ <hierarchy>
+ <inherits>
+ <reftopic>gfs:win32-error</reftopic>
+ </inherits>
+ </hierarchy>
+ This error is raised to indicate that a Win32 Common Dialog API function
+ has failed.
+ </description>
+ <initargs>
+ <argument name=":dlg-code">
+ <description>
+ The error code returned by <refwin32api>CommDlgExtendedError</refwin32api>.
+ </description>
+ </argument>
+ <argument name=":code">
+ <description>
+ See <reftopic>gfs:win32-error</reftopic>.
+ </description>
+ </argument>
+ <argument name=":detail">
+ <description>
+ See <reftopic>gfs:toolkit-error</reftopic>.
+ </description>
+ </argument>
+ </initargs>
+ <seealso>
+ <reftopic>gfs:code</reftopic>
+ <reftopic>gfs:detail</reftopic>
+ <reftopic>gfs:toolkit-warning</reftopic>
+ <reftopic>gfs:win32-warning</reftopic>
+ </seealso>
+ </condition>
+
+ <slot-reader name="code">
+ <arguments>
+ <argument name="condition">
+ <description>
+ The <reftopic>gfs:win32-error</reftopic> or <reftopic>gfs:win32-warning</reftopic>
+ object to be queried.
+ </description>
+ </argument>
+ </arguments>
+ <return type="integer"/>
+ <description>
+ Returns the Win32 error code for <refargument>condition</refargument>
+ as determined by <refwin32api>GetLastError</refwin32api>.
+ </description>
+ </slot-reader>
+
+</package>
Modified: trunk/docs/manual/graphic-forms.xml
==============================================================================
--- trunk/docs/manual/graphic-forms.xml (original)
+++ trunk/docs/manual/graphic-forms.xml Wed Oct 18 14:16:10 2006
@@ -10,8 +10,7 @@
<!ENTITY introduction SYSTEM "introduction.xml">
<!ENTITY api SYSTEM "api.xml">
<!ENTITY gfspkg SYSTEM "system-package.xml">
- <!ENTITY gfstypes SYSTEM "system-types.xml"> <!-- generated file -->
- <!ENTITY gfsfuncs SYSTEM "system-functions.xml"> <!-- generated file -->
+ <!ENTITY gfssymbols SYSTEM "gfs-tmp.xml"> <!-- generated file -->
<!ENTITY misctopics SYSTEM "miscellaneous-topics.xml">
<!ENTITY imdataplugins SYSTEM "image-data-plugins.xml">
<!ENTITY glossary SYSTEM "glossary.xml">
@@ -19,10 +18,12 @@
<book>
<title>Graphic-Forms</title>
- <subtitle>Programming Reference (version 0.6)</subtitle>
+ <subtitle>
+ A Common Lisp user interface toolkit for Windows.
+ </subtitle>
<bridgehead renderas="sect2">
- A Common Lisp user interface toolkit for the Windows platform.
+ Programming Reference (version 0.6)
</bridgehead>
Modified: trunk/docs/manual/system-package.xml
==============================================================================
--- trunk/docs/manual/system-package.xml (original)
+++ trunk/docs/manual/system-package.xml Wed Oct 18 14:16:10 2006
@@ -38,7 +38,6 @@
win32-warning
</para>
- &gfstypes;
- &gfsfuncs;
+ &gfssymbols;
</chapter>
Modified: trunk/docs/manual/win32-api-table.xml
==============================================================================
--- trunk/docs/manual/win32-api-table.xml (original)
+++ trunk/docs/manual/win32-api-table.xml Wed Oct 18 14:16:10 2006
@@ -6,5 +6,6 @@
-->
<win32-api-table>
- <entry name="GetLastError" url="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/getlasterror.asp"/>
+ <entry name="CommDlgExtendedError" url="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/commondialogboxlibrary/commondialogboxreference/commondialogboxfunctions/commdlgextendederror.asp"/>
+ <entry name="GetLastError" url="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/getlasterror.asp"/>
</win32-api-table>
Modified: trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp (original)
+++ trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Wed Oct 18 14:16:10 2006
@@ -131,7 +131,6 @@
;;;
(defmethod event-pre-resize ((disp scrolling-event-dispatcher) (window window) rect type)
- (declare (ignore type))
(let ((h-step (gfs:size-width (step-increments disp)))
(v-step (gfs:size-height (step-increments disp)))
(outer-size (gfw:size window))
More information about the Graphic-forms-cvs
mailing list