[graphic-forms-cvs] r291 - in trunk: docs/manual docs/manual/gfs src/uitoolkit/system
junrue at common-lisp.net
junrue at common-lisp.net
Mon Oct 2 23:12:21 UTC 2006
Author: junrue
Date: Mon Oct 2 19:12:20 2006
New Revision: 291
Added:
trunk/docs/manual/gfs/empty-span-p.html
trunk/docs/manual/gfs/equal-size-p.html
trunk/docs/manual/gfs/location.html
trunk/docs/manual/gfs/size-function.html
Modified:
trunk/docs/manual/Graphic-FormsProgrammingReference.wcp
trunk/docs/manual/SystemPackage.html
trunk/docs/manual/gfs/code.html
trunk/docs/manual/gfs/dlg-code.html
trunk/docs/manual/gfs/rectangle.html
trunk/docs/manual/gfs/size.html
trunk/docs/manual/gfs/span.html
trunk/src/uitoolkit/system/datastructs.lisp
Log:
Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp
==============================================================================
--- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp (original)
+++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp Mon Oct 2 19:12:20 2006
@@ -92,7 +92,7 @@
DefaultTopic=Introduction.html
[TOPICS]
-TitleList=46
+TitleList=50
TitleList.Title.0=Legal Information
TitleList.Level.0=0
TitleList.Url.0=LegalInfo.html
@@ -111,7 +111,7 @@
TitleList.Keywords.1=
TitleList.ContextNumber.1=
TitleList.ApplyTemp.1=0
-TitleList.Expanded.1=1
+TitleList.Expanded.1=0
TitleList.Kind.1=0
TitleList.Title.2=Prerequisites
TitleList.Level.2=1
@@ -273,284 +273,324 @@
TitleList.ApplyTemp.17=0
TitleList.Expanded.17=0
TitleList.Kind.17=0
-TitleList.Title.18=handle
+TitleList.Title.18=empty-span-p
TitleList.Level.18=2
-TitleList.Url.18=gfs\handle.html
+TitleList.Url.18=gfs\empty-span-p.html
TitleList.Icon.18=0
TitleList.Status.18=0
-TitleList.Keywords.18=handle
+TitleList.Keywords.18=empty-span-p
TitleList.ContextNumber.18=
TitleList.ApplyTemp.18=0
TitleList.Expanded.18=0
TitleList.Kind.18=0
-TitleList.Title.19=make-point
+TitleList.Title.19=equal-size-p
TitleList.Level.19=2
-TitleList.Url.19=gfs\make-point.html
+TitleList.Url.19=gfs\equal-size-p.html
TitleList.Icon.19=0
TitleList.Status.19=0
-TitleList.Keywords.19=make-point
+TitleList.Keywords.19=equal-size-p
TitleList.ContextNumber.19=
TitleList.ApplyTemp.19=0
TitleList.Expanded.19=0
TitleList.Kind.19=0
-TitleList.Title.20=make-rectangle
+TitleList.Title.20=handle
TitleList.Level.20=2
-TitleList.Url.20=gfs\make-rectangle.html
+TitleList.Url.20=gfs\handle.html
TitleList.Icon.20=0
TitleList.Status.20=0
-TitleList.Keywords.20=make-rectangle
+TitleList.Keywords.20=handle
TitleList.ContextNumber.20=
TitleList.ApplyTemp.20=0
TitleList.Expanded.20=0
TitleList.Kind.20=0
-TitleList.Title.21=make-size
+TitleList.Title.21=location
TitleList.Level.21=2
-TitleList.Url.21=gfs\make-size.html
+TitleList.Url.21=gfs\location.html
TitleList.Icon.21=0
TitleList.Status.21=0
-TitleList.Keywords.21=make-size
+TitleList.Keywords.21=location`\
TitleList.ContextNumber.21=
TitleList.ApplyTemp.21=0
TitleList.Expanded.21=0
TitleList.Kind.21=0
-TitleList.Title.22=make-span
+TitleList.Title.22=make-point
TitleList.Level.22=2
-TitleList.Url.22=gfs\make-span.html
+TitleList.Url.22=gfs\make-point.html
TitleList.Icon.22=0
TitleList.Status.22=0
-TitleList.Keywords.22=make-span
+TitleList.Keywords.22=make-point
TitleList.ContextNumber.22=
TitleList.ApplyTemp.22=0
TitleList.Expanded.22=0
TitleList.Kind.22=0
-TitleList.Title.23=native-object
+TitleList.Title.23=make-rectangle
TitleList.Level.23=2
-TitleList.Url.23=gfs\native-object.html
+TitleList.Url.23=gfs\make-rectangle.html
TitleList.Icon.23=0
TitleList.Status.23=0
-TitleList.Keywords.23=native-object
+TitleList.Keywords.23=make-rectangle
TitleList.ContextNumber.23=
TitleList.ApplyTemp.23=0
TitleList.Expanded.23=0
TitleList.Kind.23=0
-TitleList.Title.24=point
+TitleList.Title.24=make-size
TitleList.Level.24=2
-TitleList.Url.24=gfs\point.html
+TitleList.Url.24=gfs\make-size.html
TitleList.Icon.24=0
TitleList.Status.24=0
-TitleList.Keywords.24=point
+TitleList.Keywords.24=make-size
TitleList.ContextNumber.24=
TitleList.ApplyTemp.24=0
TitleList.Expanded.24=0
TitleList.Kind.24=0
-TitleList.Title.25=point-x
+TitleList.Title.25=make-span
TitleList.Level.25=2
-TitleList.Url.25=gfs\point-x.html
+TitleList.Url.25=gfs\make-span.html
TitleList.Icon.25=0
TitleList.Status.25=0
-TitleList.Keywords.25=point-x
+TitleList.Keywords.25=make-span
TitleList.ContextNumber.25=
TitleList.ApplyTemp.25=0
TitleList.Expanded.25=0
TitleList.Kind.25=0
-TitleList.Title.26=point-y
+TitleList.Title.26=native-object
TitleList.Level.26=2
-TitleList.Url.26=gfs\point-y.html
+TitleList.Url.26=gfs\native-object.html
TitleList.Icon.26=0
TitleList.Status.26=0
-TitleList.Keywords.26=point-y
+TitleList.Keywords.26=native-object
TitleList.ContextNumber.26=
TitleList.ApplyTemp.26=0
TitleList.Expanded.26=0
TitleList.Kind.26=0
-TitleList.Title.27=rectangle
+TitleList.Title.27=point
TitleList.Level.27=2
-TitleList.Url.27=gfs\rectangle.html
+TitleList.Url.27=gfs\point.html
TitleList.Icon.27=0
TitleList.Status.27=0
-TitleList.Keywords.27=rectangle
+TitleList.Keywords.27=point
TitleList.ContextNumber.27=
TitleList.ApplyTemp.27=0
TitleList.Expanded.27=0
TitleList.Kind.27=0
-TitleList.Title.28=size
+TitleList.Title.28=point-x
TitleList.Level.28=2
-TitleList.Url.28=gfs\size.html
+TitleList.Url.28=gfs\point-x.html
TitleList.Icon.28=0
TitleList.Status.28=0
-TitleList.Keywords.28=size
+TitleList.Keywords.28=point-x
TitleList.ContextNumber.28=
TitleList.ApplyTemp.28=0
TitleList.Expanded.28=0
TitleList.Kind.28=0
-TitleList.Title.29=size-height
+TitleList.Title.29=point-y
TitleList.Level.29=2
-TitleList.Url.29=gfs\size-height.html
+TitleList.Url.29=gfs\point-y.html
TitleList.Icon.29=0
TitleList.Status.29=0
-TitleList.Keywords.29=size-height`\
+TitleList.Keywords.29=point-y
TitleList.ContextNumber.29=
TitleList.ApplyTemp.29=0
TitleList.Expanded.29=0
TitleList.Kind.29=0
-TitleList.Title.30=size-width
+TitleList.Title.30=rectangle
TitleList.Level.30=2
-TitleList.Url.30=gfs\size-width.html
+TitleList.Url.30=gfs\rectangle.html
TitleList.Icon.30=0
TitleList.Status.30=0
-TitleList.Keywords.30=size-width
+TitleList.Keywords.30=rectangle
TitleList.ContextNumber.30=
TitleList.ApplyTemp.30=0
TitleList.Expanded.30=0
TitleList.Kind.30=0
-TitleList.Title.31=span
+TitleList.Title.31=size
TitleList.Level.31=2
-TitleList.Url.31=gfs\span.html
+TitleList.Url.31=gfs\size.html
TitleList.Icon.31=0
TitleList.Status.31=0
-TitleList.Keywords.31=span
+TitleList.Keywords.31=size
TitleList.ContextNumber.31=
TitleList.ApplyTemp.31=0
TitleList.Expanded.31=0
TitleList.Kind.31=0
-TitleList.Title.32=span-end
+TitleList.Title.32=size
TitleList.Level.32=2
-TitleList.Url.32=gfs\span-end.html
+TitleList.Url.32=gfs\size-function.html
TitleList.Icon.32=0
TitleList.Status.32=0
-TitleList.Keywords.32=span-end`\
+TitleList.Keywords.32=
TitleList.ContextNumber.32=
TitleList.ApplyTemp.32=0
TitleList.Expanded.32=0
TitleList.Kind.32=0
-TitleList.Title.33=span-start
+TitleList.Title.33=size-height
TitleList.Level.33=2
-TitleList.Url.33=gfs\span-start.html
+TitleList.Url.33=gfs\size-height.html
TitleList.Icon.33=0
TitleList.Status.33=0
-TitleList.Keywords.33=span-start`\
+TitleList.Keywords.33=size-height`\
TitleList.ContextNumber.33=
TitleList.ApplyTemp.33=0
TitleList.Expanded.33=0
TitleList.Kind.33=0
-TitleList.Title.34=toolkit-error
+TitleList.Title.34=size-width
TitleList.Level.34=2
-TitleList.Url.34=gfs\toolkit-error.html
+TitleList.Url.34=gfs\size-width.html
TitleList.Icon.34=0
TitleList.Status.34=0
-TitleList.Keywords.34=toolkit-error`\:detail`\
+TitleList.Keywords.34=size-width
TitleList.ContextNumber.34=
TitleList.ApplyTemp.34=0
TitleList.Expanded.34=0
TitleList.Kind.34=0
-TitleList.Title.35=toolkit-warning
+TitleList.Title.35=span
TitleList.Level.35=2
-TitleList.Url.35=gfs\toolkit-warning.html
+TitleList.Url.35=gfs\span.html
TitleList.Icon.35=0
TitleList.Status.35=0
-TitleList.Keywords.35=toolkit-warning
+TitleList.Keywords.35=span
TitleList.ContextNumber.35=
TitleList.ApplyTemp.35=0
TitleList.Expanded.35=0
TitleList.Kind.35=0
-TitleList.Title.36=win32-error
+TitleList.Title.36=span-end
TitleList.Level.36=2
-TitleList.Url.36=gfs\win32-error.html
+TitleList.Url.36=gfs\span-end.html
TitleList.Icon.36=0
TitleList.Status.36=0
-TitleList.Keywords.36=win32-error`\:code`\
+TitleList.Keywords.36=span-end`\
TitleList.ContextNumber.36=
TitleList.ApplyTemp.36=0
TitleList.Expanded.36=0
TitleList.Kind.36=0
-TitleList.Title.37=win32-warning
+TitleList.Title.37=span-start
TitleList.Level.37=2
-TitleList.Url.37=gfs\win32-warning.html
+TitleList.Url.37=gfs\span-start.html
TitleList.Icon.37=0
TitleList.Status.37=0
-TitleList.Keywords.37=win32-warning
+TitleList.Keywords.37=span-start`\
TitleList.ContextNumber.37=
TitleList.ApplyTemp.37=0
TitleList.Expanded.37=0
TitleList.Kind.37=0
-TitleList.Title.38=Widgets Package
-TitleList.Level.38=1
-TitleList.Url.38=WidgetsPackage.html
+TitleList.Title.38=toolkit-error
+TitleList.Level.38=2
+TitleList.Url.38=gfs\toolkit-error.html
TitleList.Icon.38=0
TitleList.Status.38=0
-TitleList.Keywords.38=GFW`\graphic-forms.uitoolkit.widgets
+TitleList.Keywords.38=toolkit-error`\:detail`\
TitleList.ContextNumber.38=
TitleList.ApplyTemp.38=0
-TitleList.Expanded.38=1
+TitleList.Expanded.38=0
TitleList.Kind.38=0
-TitleList.Title.39=event-dispatcher
+TitleList.Title.39=toolkit-warning
TitleList.Level.39=2
-TitleList.Url.39=gfw\event-dispatcher.html
+TitleList.Url.39=gfs\toolkit-warning.html
TitleList.Icon.39=0
TitleList.Status.39=0
-TitleList.Keywords.39=event-dispatcher
+TitleList.Keywords.39=toolkit-warning
TitleList.ContextNumber.39=
TitleList.ApplyTemp.39=0
TitleList.Expanded.39=0
TitleList.Kind.39=0
-TitleList.Title.40=event-source
+TitleList.Title.40=win32-error
TitleList.Level.40=2
-TitleList.Url.40=gfw\event-source.html
+TitleList.Url.40=gfs\win32-error.html
TitleList.Icon.40=0
TitleList.Status.40=0
-TitleList.Keywords.40=event-source
+TitleList.Keywords.40=win32-error`\:code`\
TitleList.ContextNumber.40=
TitleList.ApplyTemp.40=0
TitleList.Expanded.40=0
TitleList.Kind.40=0
-TitleList.Title.41=Miscellaneous Topics
-TitleList.Level.41=0
-TitleList.Url.41=MiscellaneousTopics.html
+TitleList.Title.41=win32-warning
+TitleList.Level.41=2
+TitleList.Url.41=gfs\win32-warning.html
TitleList.Icon.41=0
TitleList.Status.41=0
-TitleList.Keywords.41=
+TitleList.Keywords.41=win32-warning
TitleList.ContextNumber.41=
TitleList.ApplyTemp.41=0
-TitleList.Expanded.41=1
+TitleList.Expanded.41=0
TitleList.Kind.41=0
-TitleList.Title.42=Image Data Plugins
+TitleList.Title.42=Widgets Package
TitleList.Level.42=1
-TitleList.Url.42=ImageDataPlugins.html
+TitleList.Url.42=WidgetsPackage.html
TitleList.Icon.42=0
TitleList.Status.42=0
-TitleList.Keywords.42=
+TitleList.Keywords.42=GFW`\graphic-forms.uitoolkit.widgets
TitleList.ContextNumber.42=
TitleList.ApplyTemp.42=0
TitleList.Expanded.42=0
TitleList.Kind.42=0
-TitleList.Title.43=Terminology Conventions
-TitleList.Level.43=0
-TitleList.Url.43=TerminologyConventions.html
+TitleList.Title.43=event-dispatcher
+TitleList.Level.43=2
+TitleList.Url.43=gfw\event-dispatcher.html
TitleList.Icon.43=0
TitleList.Status.43=0
-TitleList.Keywords.43=
+TitleList.Keywords.43=event-dispatcher
TitleList.ContextNumber.43=
TitleList.ApplyTemp.43=0
TitleList.Expanded.43=0
TitleList.Kind.43=0
-TitleList.Title.44=Glossary
-TitleList.Level.44=0
-TitleList.Url.44=Glossary.html
+TitleList.Title.44=event-source
+TitleList.Level.44=2
+TitleList.Url.44=gfw\event-source.html
TitleList.Icon.44=0
TitleList.Status.44=0
-TitleList.Keywords.44=
+TitleList.Keywords.44=event-source
TitleList.ContextNumber.44=
TitleList.ApplyTemp.44=0
TitleList.Expanded.44=0
TitleList.Kind.44=0
-TitleList.Title.45=Footnotes
+TitleList.Title.45=Miscellaneous Topics
TitleList.Level.45=0
-TitleList.Url.45=Footnotes.html
+TitleList.Url.45=MiscellaneousTopics.html
TitleList.Icon.45=0
TitleList.Status.45=0
TitleList.Keywords.45=
TitleList.ContextNumber.45=
TitleList.ApplyTemp.45=0
TitleList.Expanded.45=0
-TitleList.Kind.45=1
+TitleList.Kind.45=0
+TitleList.Title.46=Image Data Plugins
+TitleList.Level.46=1
+TitleList.Url.46=ImageDataPlugins.html
+TitleList.Icon.46=0
+TitleList.Status.46=0
+TitleList.Keywords.46=
+TitleList.ContextNumber.46=
+TitleList.ApplyTemp.46=0
+TitleList.Expanded.46=0
+TitleList.Kind.46=0
+TitleList.Title.47=Terminology Conventions
+TitleList.Level.47=0
+TitleList.Url.47=TerminologyConventions.html
+TitleList.Icon.47=0
+TitleList.Status.47=0
+TitleList.Keywords.47=
+TitleList.ContextNumber.47=
+TitleList.ApplyTemp.47=0
+TitleList.Expanded.47=0
+TitleList.Kind.47=0
+TitleList.Title.48=Glossary
+TitleList.Level.48=0
+TitleList.Url.48=Glossary.html
+TitleList.Icon.48=0
+TitleList.Status.48=0
+TitleList.Keywords.48=
+TitleList.ContextNumber.48=
+TitleList.ApplyTemp.48=0
+TitleList.Expanded.48=0
+TitleList.Kind.48=0
+TitleList.Title.49=Footnotes
+TitleList.Level.49=0
+TitleList.Url.49=Footnotes.html
+TitleList.Icon.49=0
+TitleList.Status.49=0
+TitleList.Keywords.49=
+TitleList.ContextNumber.49=
+TitleList.ApplyTemp.49=0
+TitleList.Expanded.49=0
+TitleList.Kind.49=1
Modified: trunk/docs/manual/SystemPackage.html
==============================================================================
--- trunk/docs/manual/SystemPackage.html (original)
+++ trunk/docs/manual/SystemPackage.html Mon Oct 2 19:12:20 2006
@@ -42,12 +42,16 @@
href="gfs/detail.html">detail</A>, <A
href="gfs/dispose.html">dispose</A>, <A
href="gfs/disposed-p.html">disposed-p</A>, <A
-href="gfs/dlg-code.html">dlg-code</A>, <A href="gfs/handle.html">handle</A>,
+href="gfs/dlg-code.html">dlg-code</A>, <A
+href="gfs/empty-span-p.html">empty-span-p</A>, <A
+href="gfs/equal-size-p.html">equal-size-p</A>, <A href="gfs/handle.html">handle</A>, <A
+href="gfs/location.html">location</A>,
<A href="gfs/make-point.html">make-point</A>, <A
href="gfs/make-rectangle.html">make-rectangle</A>, <A
href="gfs/make-size.html">make-size</A>, <A
href="gfs/make-span.html">make-span</A>, <A href="gfs/point-x.html">point-x</A>,
<A href="gfs/point-y.html">point-y</A>, <A
+href="gfs/size-function.html">size</A>, <A
href="gfs/size-height.html">size-height</A>, <A
href="gfs/size-width.html">size-width</A>, <A
href="gfs/span-end.html">span-end</A>, <A
Modified: trunk/docs/manual/gfs/code.html
==============================================================================
--- trunk/docs/manual/gfs/code.html (original)
+++ trunk/docs/manual/gfs/code.html Mon Oct 2 19:12:20 2006
@@ -23,10 +23,11 @@
<EM>condition</EM>) => <EM>integer</EM></P>
<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>Returns the Win32 error code
-for the specified <EM>condition</EM>, which must be of type <A
+for the specified <EM>condition</EM>, which must be of
+type <A
href="win32-error.html">win32-error</A> or <A
-href="win32-warning.html">win32-warning</A>
-.</FONT></P>
+href="win32-warning.html">win32-warning</A> or
+subclasses thereof.</FONT></P>
<HR>
<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
Modified: trunk/docs/manual/gfs/dlg-code.html
==============================================================================
--- trunk/docs/manual/gfs/dlg-code.html (original)
+++ trunk/docs/manual/gfs/dlg-code.html Mon Oct 2 19:12:20 2006
@@ -24,7 +24,8 @@
href="comdlg-error.html">comdlg-error</A></EM>) => <EM>integer</EM></P>
<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>Returns the Win32 extended Common Dialog error code
-for the specified <EM>condition</EM>
+for the specified <EM><A
+href="comdlg-error.html">comdlg-error</A></EM>
.</FONT></P>
<HR>
Added: trunk/docs/manual/gfs/empty-span-p.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfs/empty-span-p.html Mon Oct 2 19:12:20 2006
@@ -0,0 +1,56 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>empty-span-p</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body>
+<H4><FONT face=Arial>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse"
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+ <TBODY>
+ <TR>
+ <TD width="60%"><STRONG>empty-span-p</STRONG></TD></FONT>
+ <TD>
+ <P><FONT face=Arial
+size=2>[Function]</FONT> </P></TD></TR></TBODY></TABLE>
+<HR></H4>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial><STRONG>syntax</STRONG></FONT></P>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT
+face=Arial size=2><FONT face=Arial size=2>(gfs:empty-span-p
+<EM><A
+href="span.html">span</A></EM>)
+=> <EM>boolean</EM></FONT></FONT></P><FONT
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2> Returns T if the <EM>start</EM> and
+<EM>end</EM> of <A
+href="span.html"><EM>span</EM></A>
+ are the same
+
+ value.</FONT></P>
+<P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="span-end.html">span-end</A>, <A
+href="span-start.html">span-start</A></P>
+<P>
+<HR>
+
+<P></P>
+
+<P></P>
+
+<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
+<P dir=ltr style="MARGIN-RIGHT: 0px">
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+
+ <TR>
+ <TD width="60%"> </TD>
+ <TD>
+ <P><FONT size=1>Copyright © 2006, Jack D. Unrue</FONT>
+</P></TD></TR></TABLE></P></FONT></FONT></FONT></body>
+</html>
Added: trunk/docs/manual/gfs/equal-size-p.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfs/equal-size-p.html Mon Oct 2 19:12:20 2006
@@ -0,0 +1,56 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>equal-size-p</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body>
+<H4><FONT face=Arial>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse"
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+ <TBODY>
+ <TR>
+ <TD width="60%"><STRONG>equal-size-p</STRONG></TD></FONT>
+ <TD>
+ <P><FONT face=Arial
+size=2>[Function]</FONT> </P></TD></TR></TBODY></TABLE>
+<HR></H4>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial><STRONG>syntax</STRONG></FONT></P>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT
+face=Arial size=2><FONT face=Arial size=2>(gfs:equal-size-p <A
+href="size.html"><EM>size1</EM></A><EM> </EM><A
+href="size.html"><EM>size2</EM></A>)
+=> <EM>boolean</EM></FONT></FONT></P><FONT
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2> Returns T if <A
+href="size.html"><EM>size1</EM></A> and <A
+href="size.html"><EM>size2</EM></A> have the same <EM>height</EM> and
+<EM>width</EM>
+ slot
+
+ values.</FONT></P>
+<P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="size-height.html">size-height</A>, <A
+href="size-width.html">size-width</A></P>
+<P>
+<HR>
+</P>
+
+<P></P>
+
+<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
+<P dir=ltr style="MARGIN-RIGHT: 0px">
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+
+ <TR>
+ <TD width="60%"> </TD>
+ <TD>
+ <P><FONT size=1>Copyright © 2006, Jack D. Unrue</FONT>
+</P></TD></TR></TABLE></P></FONT></FONT></FONT></body>
+</html>
Added: trunk/docs/manual/gfs/location.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfs/location.html Mon Oct 2 19:12:20 2006
@@ -0,0 +1,53 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>location</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body>
+<H4><FONT face=Arial>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse"
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+ <TBODY>
+ <TR>
+ <TD width="60%"><STRONG>location</STRONG></TD></FONT>
+ <TD>
+ <P><FONT face=Arial
+size=2>[Function]</FONT> </P></TD></TR></TBODY></TABLE>
+<HR></H4>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial><STRONG>syntax</STRONG></FONT></P>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT
+face=Arial size=2><FONT face=Arial size=2>(gfs:location
+<EM><A
+href="rectangle.html">rectangle</A></EM>) => <EM><A
+href="point.html"> point</A> </EM></FONT></FONT></P><FONT
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2> Returns <A
+href="point.html"><EM>point</EM></A> identifying the coordinates of the
+upper-left cornder of <A
+href="rectangle.html"><EM>rectangle</EM></A> . For
+performance reasons, a reference to the existing slot value is
+
+ returned.</FONT></P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="make-rectangle.html">make-rectangle</A></P>
+<P>
+<HR>
+
+<P></P>
+
+<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
+<P dir=ltr style="MARGIN-RIGHT: 0px">
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+
+ <TR>
+ <TD width="60%"> </TD>
+ <TD>
+ <P><FONT size=1>Copyright © 2006, Jack D. Unrue</FONT>
+</P></TD></TR></TABLE></P></FONT></FONT></FONT></body>
+</html>
Modified: trunk/docs/manual/gfs/rectangle.html
==============================================================================
--- trunk/docs/manual/gfs/rectangle.html (original)
+++ trunk/docs/manual/gfs/rectangle.html Mon Oct 2 19:12:20 2006
@@ -40,10 +40,13 @@
height.</FONT></TD></TR></TABLE></EM></FONT></FONT><FONT face=Arial></P>
<H4><FONT face=Arial>see also</FONT></H4>
<P><FONT size=2><A href="copy-rectangle.html">copy-rectangle</A>, <A
-href="make-rectangle.html">make-rectangle</A></FONT></P>
+href="location.html">location</A>, <A
+href="make-rectangle.html">make-rectangle</A>, <A
+href="size-function.html">size</A></FONT></P>
<P>
<HR>
-</P>
+
+<P></P>
<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT size=2> </FONT></P>
<P dir=ltr style="MARGIN-RIGHT: 0px">
Added: trunk/docs/manual/gfs/size-function.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfs/size-function.html Mon Oct 2 19:12:20 2006
@@ -0,0 +1,54 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>size</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body>
+<H4><FONT face=Arial>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse"
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+ <TBODY>
+ <TR>
+ <TD width="60%"><STRONG>size</STRONG></TD></FONT>
+ <TD>
+ <P><FONT face=Arial
+size=2>[Function]</FONT> </P></TD></TR></TBODY></TABLE>
+<HR></H4>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial><STRONG>syntax</STRONG></FONT></P>
+ <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT
+face=Arial size=2><FONT face=Arial size=2>(gfs:size
+<EM><A
+href="rectangle.html">rectangle</A></EM>)
+=> <A href="size.html"><EM>size</EM></A><EM>
+</EM></FONT></FONT></P><FONT
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2> Returns <A
+href="size.html"><EM>size</EM></A> identifying the coordinates of the
+upper-left cornder of <A
+href="rectangle.html"><EM>rectangle</EM></A> . For
+performance reasons, a reference to the existing slot value is
+
+ returned.</FONT></P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="make-rectangle.html">make-rectangle</A></P>
+<P>
+<HR>
+
+<P></P>
+
+<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
+<P dir=ltr style="MARGIN-RIGHT: 0px">
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+
+ <TR>
+ <TD width="60%"> </TD>
+ <TD>
+ <P><FONT size=1>Copyright © 2006, Jack D. Unrue</FONT>
+</P></TD></TR></TABLE></P></FONT></FONT></FONT></body>
+</html>
Modified: trunk/docs/manual/gfs/size.html
==============================================================================
--- trunk/docs/manual/gfs/size.html (original)
+++ trunk/docs/manual/gfs/size.html Mon Oct 2 19:12:20 2006
@@ -34,8 +34,17 @@
<TD><FONT size=2>An integer
specifying the width of the
area.</FONT></TD></TR></TABLE></EM></FONT></P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="copy-size.html">copy-size</A>, <A
+href="equal-size-p.html">equal-size-p</A>, <A
+href="make-size.html">make-size</A>, <A
+href="size-height.html">size-height</A>, <A
+href="size-width.html">size-width</A></P>
+<P>
<HR>
+<P></P>
+
<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
<P dir=ltr style="MARGIN-RIGHT: 0px">
<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
Modified: trunk/docs/manual/gfs/span.html
==============================================================================
--- trunk/docs/manual/gfs/span.html (original)
+++ trunk/docs/manual/gfs/span.html Mon Oct 2 19:12:20 2006
@@ -34,8 +34,16 @@
<TD><FONT size=2>An integer
specifying the ending position of the
span.</FONT></TD></TR></TABLE></EM></FONT></P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="copy-span.html">copy-span</A>, <A
+href="empty-span-p.html">empty-span-p</A>, <A
+href="make-span.html">make-span</A>, <A
+href="span-end.html">span-end</A>, <A href="span-start.html">span-start</A></P>
+<P>
<HR>
+<P></P>
+
<P dir=ltr style="MARGIN-RIGHT: 0px"> </P>
<P dir=ltr style="MARGIN-RIGHT: 0px">
<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
Modified: trunk/src/uitoolkit/system/datastructs.lisp
==============================================================================
--- trunk/src/uitoolkit/system/datastructs.lisp (original)
+++ trunk/src/uitoolkit/system/datastructs.lisp Mon Oct 2 19:12:20 2006
@@ -41,12 +41,15 @@
(defstruct span (start 0) (end 0))
-(defmacro location (rect)
- `(rectangle-location ,rect))
-
-(defmacro size (rect)
- `(rectangle-size ,rect))
+(declaim (inline location))
+(defun location (rect)
+ (rectangle-location rect))
+
+(declaim (inline size))
+(defun size (size)
+ (rectangle-size rect))
+(declaim (inline empty-span-p))
(defun empty-span-p (span)
(= (span-start span) (span-end span)))
More information about the Graphic-forms-cvs
mailing list