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