[graphic-forms-cvs] r295 - in trunk: . docs/manual docs/manual/gfg docs/manual/gfw src/tests/uitoolkit

junrue at common-lisp.net junrue at common-lisp.net
Mon Oct 9 22:03:04 UTC 2006


Author: junrue
Date: Mon Oct  9 18:03:01 2006
New Revision: 295

Added:
   trunk/docs/manual/gfg/color-blue.html
   trunk/docs/manual/gfg/color-green.html
   trunk/docs/manual/gfg/color-red.html
   trunk/docs/manual/gfg/color-to-rgb.html
   trunk/docs/manual/gfg/color.html
   trunk/docs/manual/gfg/copy-color.html
   trunk/docs/manual/gfg/make-color.html
   trunk/docs/manual/gfg/rgb-to-color.html
   trunk/docs/manual/gfw/event-select.html
   trunk/docs/manual/gfw/with-graphics-context.html
   trunk/src/tests/uitoolkit/scroll-text-panel.lisp
Modified:
   trunk/docs/manual/Graphic-FormsProgrammingReference.wcp
   trunk/docs/manual/gfw/event-dispatcher.html
   trunk/graphic-forms-tests.asd
   trunk/src/tests/uitoolkit/scroll-grid-panel.lisp
   trunk/src/tests/uitoolkit/scroll-tester.lisp
Log:
initial steps towards text scroll testing; more doc work

Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp
==============================================================================
--- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp	(original)
+++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp	Mon Oct  9 18:03:01 2006
@@ -92,7 +92,7 @@
 DefaultTopic=Introduction.html
 
 [TOPICS]
-TitleList=59
+TitleList=69
 TitleList.Title.0=Legal Information
 TitleList.Level.0=0
 TitleList.Url.0=LegalInfo.html
@@ -151,536 +151,636 @@
 TitleList.Keywords.5=GFG`\graphic-forms.uitoolkit.graphics
 TitleList.ContextNumber.5=
 TitleList.ApplyTemp.5=0
-TitleList.Expanded.5=0
+TitleList.Expanded.5=1
 TitleList.Kind.5=0
-TitleList.Title.6=System Package
-TitleList.Level.6=1
-TitleList.Url.6=SystemPackage.html
+TitleList.Title.6=color
+TitleList.Level.6=2
+TitleList.Url.6=gfg\color.html
 TitleList.Icon.6=0
 TitleList.Status.6=0
-TitleList.Keywords.6=GFS`\graphic-forms.uitoolkit.system
+TitleList.Keywords.6=color`\
 TitleList.ContextNumber.6=
 TitleList.ApplyTemp.6=0
-TitleList.Expanded.6=1
+TitleList.Expanded.6=0
 TitleList.Kind.6=0
-TitleList.Title.7=code
+TitleList.Title.7=color->rgb
 TitleList.Level.7=2
-TitleList.Url.7=gfs\code.html
+TitleList.Url.7=gfg\color-to-rgb.html
 TitleList.Icon.7=0
 TitleList.Status.7=0
-TitleList.Keywords.7=code
+TitleList.Keywords.7=color->rgb`\COLORREF
 TitleList.ContextNumber.7=
 TitleList.ApplyTemp.7=0
 TitleList.Expanded.7=0
 TitleList.Kind.7=0
-TitleList.Title.8=comdlg-error
+TitleList.Title.8=color-blue
 TitleList.Level.8=2
-TitleList.Url.8=gfs\comdlg-error.html
+TitleList.Url.8=gfg\color-blue.html
 TitleList.Icon.8=0
 TitleList.Status.8=0
-TitleList.Keywords.8=comdlg-error`\:dlg-code
+TitleList.Keywords.8=color-blue
 TitleList.ContextNumber.8=
 TitleList.ApplyTemp.8=0
 TitleList.Expanded.8=0
 TitleList.Kind.8=0
-TitleList.Title.9=copy-point
+TitleList.Title.9=color-green
 TitleList.Level.9=2
-TitleList.Url.9=gfs\copy-point.html
+TitleList.Url.9=gfg\color-green.html
 TitleList.Icon.9=0
 TitleList.Status.9=0
-TitleList.Keywords.9=copy-point
+TitleList.Keywords.9=
 TitleList.ContextNumber.9=
 TitleList.ApplyTemp.9=0
 TitleList.Expanded.9=0
 TitleList.Kind.9=0
-TitleList.Title.10=copy-rectangle
+TitleList.Title.10=color-red
 TitleList.Level.10=2
-TitleList.Url.10=gfs\copy-rectangle.html
+TitleList.Url.10=gfg\color-red.html
 TitleList.Icon.10=0
 TitleList.Status.10=0
-TitleList.Keywords.10=copy-rectangle
+TitleList.Keywords.10=color-red
 TitleList.ContextNumber.10=
 TitleList.ApplyTemp.10=0
 TitleList.Expanded.10=0
 TitleList.Kind.10=0
-TitleList.Title.11=copy-size
+TitleList.Title.11=copy-color
 TitleList.Level.11=2
-TitleList.Url.11=gfs\copy-size.html
+TitleList.Url.11=gfg\copy-color.html
 TitleList.Icon.11=0
 TitleList.Status.11=0
-TitleList.Keywords.11=copy-size
+TitleList.Keywords.11=copy-color
 TitleList.ContextNumber.11=
 TitleList.ApplyTemp.11=0
 TitleList.Expanded.11=0
 TitleList.Kind.11=0
-TitleList.Title.12=copy-span
+TitleList.Title.12=make-color
 TitleList.Level.12=2
-TitleList.Url.12=gfs\copy-span.html
+TitleList.Url.12=gfg\make-color.html
 TitleList.Icon.12=0
 TitleList.Status.12=0
-TitleList.Keywords.12=copy-span
+TitleList.Keywords.12=make-color
 TitleList.ContextNumber.12=
 TitleList.ApplyTemp.12=0
 TitleList.Expanded.12=0
 TitleList.Kind.12=0
-TitleList.Title.13=detail
+TitleList.Title.13=rgb->color
 TitleList.Level.13=2
-TitleList.Url.13=gfs\detail.html
+TitleList.Url.13=gfg\rgb-to-color.html
 TitleList.Icon.13=0
 TitleList.Status.13=0
-TitleList.Keywords.13=detail
+TitleList.Keywords.13=rgb->color
 TitleList.ContextNumber.13=
 TitleList.ApplyTemp.13=0
 TitleList.Expanded.13=0
 TitleList.Kind.13=0
-TitleList.Title.14=dispose
-TitleList.Level.14=2
-TitleList.Url.14=gfs\dispose.html
+TitleList.Title.14=System Package
+TitleList.Level.14=1
+TitleList.Url.14=SystemPackage.html
 TitleList.Icon.14=0
 TitleList.Status.14=0
-TitleList.Keywords.14=disposed
+TitleList.Keywords.14=GFS`\graphic-forms.uitoolkit.system
 TitleList.ContextNumber.14=
 TitleList.ApplyTemp.14=0
-TitleList.Expanded.14=0
+TitleList.Expanded.14=1
 TitleList.Kind.14=0
-TitleList.Title.15=disposed-error
+TitleList.Title.15=code
 TitleList.Level.15=2
-TitleList.Url.15=gfs\disposed-error.html
+TitleList.Url.15=gfs\code.html
 TitleList.Icon.15=0
 TitleList.Status.15=0
-TitleList.Keywords.15=disposed-error
+TitleList.Keywords.15=code
 TitleList.ContextNumber.15=
 TitleList.ApplyTemp.15=0
 TitleList.Expanded.15=0
 TitleList.Kind.15=0
-TitleList.Title.16=disposed-p
+TitleList.Title.16=comdlg-error
 TitleList.Level.16=2
-TitleList.Url.16=gfs\disposed-p.html
+TitleList.Url.16=gfs\comdlg-error.html
 TitleList.Icon.16=0
 TitleList.Status.16=0
-TitleList.Keywords.16=disposed-p
+TitleList.Keywords.16=comdlg-error`\:dlg-code
 TitleList.ContextNumber.16=
 TitleList.ApplyTemp.16=0
 TitleList.Expanded.16=0
 TitleList.Kind.16=0
-TitleList.Title.17=dlg-code
+TitleList.Title.17=copy-point
 TitleList.Level.17=2
-TitleList.Url.17=gfs\dlg-code.html
+TitleList.Url.17=gfs\copy-point.html
 TitleList.Icon.17=0
 TitleList.Status.17=0
-TitleList.Keywords.17=dlg-code
+TitleList.Keywords.17=copy-point
 TitleList.ContextNumber.17=
 TitleList.ApplyTemp.17=0
 TitleList.Expanded.17=0
 TitleList.Kind.17=0
-TitleList.Title.18=empty-span-p
+TitleList.Title.18=copy-rectangle
 TitleList.Level.18=2
-TitleList.Url.18=gfs\empty-span-p.html
+TitleList.Url.18=gfs\copy-rectangle.html
 TitleList.Icon.18=0
 TitleList.Status.18=0
-TitleList.Keywords.18=empty-span-p
+TitleList.Keywords.18=copy-rectangle
 TitleList.ContextNumber.18=
 TitleList.ApplyTemp.18=0
 TitleList.Expanded.18=0
 TitleList.Kind.18=0
-TitleList.Title.19=equal-size-p
+TitleList.Title.19=copy-size
 TitleList.Level.19=2
-TitleList.Url.19=gfs\equal-size-p.html
+TitleList.Url.19=gfs\copy-size.html
 TitleList.Icon.19=0
 TitleList.Status.19=0
-TitleList.Keywords.19=equal-size-p
+TitleList.Keywords.19=copy-size
 TitleList.ContextNumber.19=
 TitleList.ApplyTemp.19=0
 TitleList.Expanded.19=0
 TitleList.Kind.19=0
-TitleList.Title.20=handle
+TitleList.Title.20=copy-span
 TitleList.Level.20=2
-TitleList.Url.20=gfs\handle.html
+TitleList.Url.20=gfs\copy-span.html
 TitleList.Icon.20=0
 TitleList.Status.20=0
-TitleList.Keywords.20=handle
+TitleList.Keywords.20=copy-span
 TitleList.ContextNumber.20=
 TitleList.ApplyTemp.20=0
 TitleList.Expanded.20=0
 TitleList.Kind.20=0
-TitleList.Title.21=location
+TitleList.Title.21=detail
 TitleList.Level.21=2
-TitleList.Url.21=gfs\location.html
+TitleList.Url.21=gfs\detail.html
 TitleList.Icon.21=0
 TitleList.Status.21=0
-TitleList.Keywords.21=location`\
+TitleList.Keywords.21=detail
 TitleList.ContextNumber.21=
 TitleList.ApplyTemp.21=0
 TitleList.Expanded.21=0
 TitleList.Kind.21=0
-TitleList.Title.22=make-point
+TitleList.Title.22=dispose
 TitleList.Level.22=2
-TitleList.Url.22=gfs\make-point.html
+TitleList.Url.22=gfs\dispose.html
 TitleList.Icon.22=0
 TitleList.Status.22=0
-TitleList.Keywords.22=make-point
+TitleList.Keywords.22=disposed
 TitleList.ContextNumber.22=
 TitleList.ApplyTemp.22=0
 TitleList.Expanded.22=0
 TitleList.Kind.22=0
-TitleList.Title.23=make-rectangle
+TitleList.Title.23=disposed-error
 TitleList.Level.23=2
-TitleList.Url.23=gfs\make-rectangle.html
+TitleList.Url.23=gfs\disposed-error.html
 TitleList.Icon.23=0
 TitleList.Status.23=0
-TitleList.Keywords.23=make-rectangle
+TitleList.Keywords.23=disposed-error
 TitleList.ContextNumber.23=
 TitleList.ApplyTemp.23=0
 TitleList.Expanded.23=0
 TitleList.Kind.23=0
-TitleList.Title.24=make-size
+TitleList.Title.24=disposed-p
 TitleList.Level.24=2
-TitleList.Url.24=gfs\make-size.html
+TitleList.Url.24=gfs\disposed-p.html
 TitleList.Icon.24=0
 TitleList.Status.24=0
-TitleList.Keywords.24=make-size
+TitleList.Keywords.24=disposed-p
 TitleList.ContextNumber.24=
 TitleList.ApplyTemp.24=0
 TitleList.Expanded.24=0
 TitleList.Kind.24=0
-TitleList.Title.25=make-span
+TitleList.Title.25=dlg-code
 TitleList.Level.25=2
-TitleList.Url.25=gfs\make-span.html
+TitleList.Url.25=gfs\dlg-code.html
 TitleList.Icon.25=0
 TitleList.Status.25=0
-TitleList.Keywords.25=make-span
+TitleList.Keywords.25=dlg-code
 TitleList.ContextNumber.25=
 TitleList.ApplyTemp.25=0
 TitleList.Expanded.25=0
 TitleList.Kind.25=0
-TitleList.Title.26=native-object
+TitleList.Title.26=empty-span-p
 TitleList.Level.26=2
-TitleList.Url.26=gfs\native-object.html
+TitleList.Url.26=gfs\empty-span-p.html
 TitleList.Icon.26=0
 TitleList.Status.26=0
-TitleList.Keywords.26=native-object
+TitleList.Keywords.26=empty-span-p
 TitleList.ContextNumber.26=
 TitleList.ApplyTemp.26=0
 TitleList.Expanded.26=0
 TitleList.Kind.26=0
-TitleList.Title.27=point
+TitleList.Title.27=equal-size-p
 TitleList.Level.27=2
-TitleList.Url.27=gfs\point.html
+TitleList.Url.27=gfs\equal-size-p.html
 TitleList.Icon.27=0
 TitleList.Status.27=0
-TitleList.Keywords.27=point
+TitleList.Keywords.27=equal-size-p
 TitleList.ContextNumber.27=
 TitleList.ApplyTemp.27=0
 TitleList.Expanded.27=0
 TitleList.Kind.27=0
-TitleList.Title.28=point-x
+TitleList.Title.28=handle
 TitleList.Level.28=2
-TitleList.Url.28=gfs\point-x.html
+TitleList.Url.28=gfs\handle.html
 TitleList.Icon.28=0
 TitleList.Status.28=0
-TitleList.Keywords.28=point-x
+TitleList.Keywords.28=handle
 TitleList.ContextNumber.28=
 TitleList.ApplyTemp.28=0
 TitleList.Expanded.28=0
 TitleList.Kind.28=0
-TitleList.Title.29=point-y
+TitleList.Title.29=location
 TitleList.Level.29=2
-TitleList.Url.29=gfs\point-y.html
+TitleList.Url.29=gfs\location.html
 TitleList.Icon.29=0
 TitleList.Status.29=0
-TitleList.Keywords.29=point-y
+TitleList.Keywords.29=location`\
 TitleList.ContextNumber.29=
 TitleList.ApplyTemp.29=0
 TitleList.Expanded.29=0
 TitleList.Kind.29=0
-TitleList.Title.30=rectangle
+TitleList.Title.30=make-point
 TitleList.Level.30=2
-TitleList.Url.30=gfs\rectangle.html
+TitleList.Url.30=gfs\make-point.html
 TitleList.Icon.30=0
 TitleList.Status.30=0
-TitleList.Keywords.30=rectangle
+TitleList.Keywords.30=make-point
 TitleList.ContextNumber.30=
 TitleList.ApplyTemp.30=0
 TitleList.Expanded.30=0
 TitleList.Kind.30=0
-TitleList.Title.31=size
+TitleList.Title.31=make-rectangle
 TitleList.Level.31=2
-TitleList.Url.31=gfs\size.html
+TitleList.Url.31=gfs\make-rectangle.html
 TitleList.Icon.31=0
 TitleList.Status.31=0
-TitleList.Keywords.31=size
+TitleList.Keywords.31=make-rectangle
 TitleList.ContextNumber.31=
 TitleList.ApplyTemp.31=0
 TitleList.Expanded.31=0
 TitleList.Kind.31=0
-TitleList.Title.32=size
+TitleList.Title.32=make-size
 TitleList.Level.32=2
-TitleList.Url.32=gfs\size-function.html
+TitleList.Url.32=gfs\make-size.html
 TitleList.Icon.32=0
 TitleList.Status.32=0
-TitleList.Keywords.32=
+TitleList.Keywords.32=make-size
 TitleList.ContextNumber.32=
 TitleList.ApplyTemp.32=0
 TitleList.Expanded.32=0
 TitleList.Kind.32=0
-TitleList.Title.33=size-height
+TitleList.Title.33=make-span
 TitleList.Level.33=2
-TitleList.Url.33=gfs\size-height.html
+TitleList.Url.33=gfs\make-span.html
 TitleList.Icon.33=0
 TitleList.Status.33=0
-TitleList.Keywords.33=size-height`\
+TitleList.Keywords.33=make-span
 TitleList.ContextNumber.33=
 TitleList.ApplyTemp.33=0
 TitleList.Expanded.33=0
 TitleList.Kind.33=0
-TitleList.Title.34=size-width
+TitleList.Title.34=native-object
 TitleList.Level.34=2
-TitleList.Url.34=gfs\size-width.html
+TitleList.Url.34=gfs\native-object.html
 TitleList.Icon.34=0
 TitleList.Status.34=0
-TitleList.Keywords.34=size-width
+TitleList.Keywords.34=native-object
 TitleList.ContextNumber.34=
 TitleList.ApplyTemp.34=0
 TitleList.Expanded.34=0
 TitleList.Kind.34=0
-TitleList.Title.35=span
+TitleList.Title.35=point
 TitleList.Level.35=2
-TitleList.Url.35=gfs\span.html
+TitleList.Url.35=gfs\point.html
 TitleList.Icon.35=0
 TitleList.Status.35=0
-TitleList.Keywords.35=span
+TitleList.Keywords.35=point
 TitleList.ContextNumber.35=
 TitleList.ApplyTemp.35=0
 TitleList.Expanded.35=0
 TitleList.Kind.35=0
-TitleList.Title.36=span-end
+TitleList.Title.36=point-x
 TitleList.Level.36=2
-TitleList.Url.36=gfs\span-end.html
+TitleList.Url.36=gfs\point-x.html
 TitleList.Icon.36=0
 TitleList.Status.36=0
-TitleList.Keywords.36=span-end`\
+TitleList.Keywords.36=point-x
 TitleList.ContextNumber.36=
 TitleList.ApplyTemp.36=0
 TitleList.Expanded.36=0
 TitleList.Kind.36=0
-TitleList.Title.37=span-start
+TitleList.Title.37=point-y
 TitleList.Level.37=2
-TitleList.Url.37=gfs\span-start.html
+TitleList.Url.37=gfs\point-y.html
 TitleList.Icon.37=0
 TitleList.Status.37=0
-TitleList.Keywords.37=span-start`\
+TitleList.Keywords.37=point-y
 TitleList.ContextNumber.37=
 TitleList.ApplyTemp.37=0
 TitleList.Expanded.37=0
 TitleList.Kind.37=0
-TitleList.Title.38=toolkit-error
+TitleList.Title.38=rectangle
 TitleList.Level.38=2
-TitleList.Url.38=gfs\toolkit-error.html
+TitleList.Url.38=gfs\rectangle.html
 TitleList.Icon.38=0
 TitleList.Status.38=0
-TitleList.Keywords.38=toolkit-error`\:detail`\
+TitleList.Keywords.38=rectangle
 TitleList.ContextNumber.38=
 TitleList.ApplyTemp.38=0
 TitleList.Expanded.38=0
 TitleList.Kind.38=0
-TitleList.Title.39=toolkit-warning
+TitleList.Title.39=size
 TitleList.Level.39=2
-TitleList.Url.39=gfs\toolkit-warning.html
+TitleList.Url.39=gfs\size.html
 TitleList.Icon.39=0
 TitleList.Status.39=0
-TitleList.Keywords.39=toolkit-warning
+TitleList.Keywords.39=size
 TitleList.ContextNumber.39=
 TitleList.ApplyTemp.39=0
 TitleList.Expanded.39=0
 TitleList.Kind.39=0
-TitleList.Title.40=win32-error
+TitleList.Title.40=size
 TitleList.Level.40=2
-TitleList.Url.40=gfs\win32-error.html
+TitleList.Url.40=gfs\size-function.html
 TitleList.Icon.40=0
 TitleList.Status.40=0
-TitleList.Keywords.40=win32-error`\:code`\
+TitleList.Keywords.40=
 TitleList.ContextNumber.40=
 TitleList.ApplyTemp.40=0
 TitleList.Expanded.40=0
 TitleList.Kind.40=0
-TitleList.Title.41=win32-warning
+TitleList.Title.41=size-height
 TitleList.Level.41=2
-TitleList.Url.41=gfs\win32-warning.html
+TitleList.Url.41=gfs\size-height.html
 TitleList.Icon.41=0
 TitleList.Status.41=0
-TitleList.Keywords.41=win32-warning
+TitleList.Keywords.41=size-height`\
 TitleList.ContextNumber.41=
 TitleList.ApplyTemp.41=0
 TitleList.Expanded.41=0
 TitleList.Kind.41=0
-TitleList.Title.42=Widgets Package
-TitleList.Level.42=1
-TitleList.Url.42=WidgetsPackage.html
+TitleList.Title.42=size-width
+TitleList.Level.42=2
+TitleList.Url.42=gfs\size-width.html
 TitleList.Icon.42=0
 TitleList.Status.42=0
-TitleList.Keywords.42=GFW`\graphic-forms.uitoolkit.widgets
+TitleList.Keywords.42=size-width
 TitleList.ContextNumber.42=
 TitleList.ApplyTemp.42=0
-TitleList.Expanded.42=1
+TitleList.Expanded.42=0
 TitleList.Kind.42=0
-TitleList.Title.43=default-message-filter
+TitleList.Title.43=span
 TitleList.Level.43=2
-TitleList.Url.43=gfw\default-message-filter.html
+TitleList.Url.43=gfs\span.html
 TitleList.Icon.43=0
 TitleList.Status.43=0
-TitleList.Keywords.43=default-message-filter`\GetMessage`\MSG`\
+TitleList.Keywords.43=span
 TitleList.ContextNumber.43=
 TitleList.ApplyTemp.43=0
 TitleList.Expanded.43=0
 TitleList.Kind.43=0
-TitleList.Title.44=event-activate
+TitleList.Title.44=span-end
 TitleList.Level.44=2
-TitleList.Url.44=gfw\event-activate.html
+TitleList.Url.44=gfs\span-end.html
 TitleList.Icon.44=0
 TitleList.Status.44=0
-TitleList.Keywords.44=event-activate
+TitleList.Keywords.44=span-end`\
 TitleList.ContextNumber.44=
 TitleList.ApplyTemp.44=0
 TitleList.Expanded.44=0
 TitleList.Kind.44=0
-TitleList.Title.45=event-arm
+TitleList.Title.45=span-start
 TitleList.Level.45=2
-TitleList.Url.45=gfw\event-arm.html
+TitleList.Url.45=gfs\span-start.html
 TitleList.Icon.45=0
 TitleList.Status.45=0
-TitleList.Keywords.45=event-arm
+TitleList.Keywords.45=span-start`\
 TitleList.ContextNumber.45=
 TitleList.ApplyTemp.45=0
 TitleList.Expanded.45=0
 TitleList.Kind.45=0
-TitleList.Title.46=event-close
+TitleList.Title.46=toolkit-error
 TitleList.Level.46=2
-TitleList.Url.46=gfw\event-close.html
+TitleList.Url.46=gfs\toolkit-error.html
 TitleList.Icon.46=0
 TitleList.Status.46=0
-TitleList.Keywords.46=event-close
+TitleList.Keywords.46=toolkit-error`\:detail`\
 TitleList.ContextNumber.46=
 TitleList.ApplyTemp.46=0
 TitleList.Expanded.46=0
 TitleList.Kind.46=0
-TitleList.Title.47=event-deactivate
+TitleList.Title.47=toolkit-warning
 TitleList.Level.47=2
-TitleList.Url.47=gfw\event-deactivate.html
+TitleList.Url.47=gfs\toolkit-warning.html
 TitleList.Icon.47=0
 TitleList.Status.47=0
-TitleList.Keywords.47=event-deactivate
+TitleList.Keywords.47=toolkit-warning
 TitleList.ContextNumber.47=
 TitleList.ApplyTemp.47=0
 TitleList.Expanded.47=0
 TitleList.Kind.47=0
-TitleList.Title.48=event-default-action
+TitleList.Title.48=win32-error
 TitleList.Level.48=2
-TitleList.Url.48=gfw\event-default-action.html
+TitleList.Url.48=gfs\win32-error.html
 TitleList.Icon.48=0
 TitleList.Status.48=0
-TitleList.Keywords.48=event-default-action
+TitleList.Keywords.48=win32-error`\:code`\
 TitleList.ContextNumber.48=
 TitleList.ApplyTemp.48=0
 TitleList.Expanded.48=0
 TitleList.Kind.48=0
-TitleList.Title.49=event-dispatcher
+TitleList.Title.49=win32-warning
 TitleList.Level.49=2
-TitleList.Url.49=gfw\event-dispatcher.html
+TitleList.Url.49=gfs\win32-warning.html
 TitleList.Icon.49=0
 TitleList.Status.49=0
-TitleList.Keywords.49=event-dispatcher
+TitleList.Keywords.49=win32-warning
 TitleList.ContextNumber.49=
 TitleList.ApplyTemp.49=0
 TitleList.Expanded.49=0
 TitleList.Kind.49=0
-TitleList.Title.50=event-dispose
-TitleList.Level.50=2
-TitleList.Url.50=gfw\event-dispose.html
+TitleList.Title.50=Widgets Package
+TitleList.Level.50=1
+TitleList.Url.50=WidgetsPackage.html
 TitleList.Icon.50=0
 TitleList.Status.50=0
-TitleList.Keywords.50=event-dispose
+TitleList.Keywords.50=GFW`\graphic-forms.uitoolkit.widgets
 TitleList.ContextNumber.50=
 TitleList.ApplyTemp.50=0
 TitleList.Expanded.50=0
 TitleList.Kind.50=0
-TitleList.Title.51=event-source
+TitleList.Title.51=default-message-filter
 TitleList.Level.51=2
-TitleList.Url.51=gfw\event-source.html
+TitleList.Url.51=gfw\default-message-filter.html
 TitleList.Icon.51=0
 TitleList.Status.51=0
-TitleList.Keywords.51=event-source
+TitleList.Keywords.51=default-message-filter`\GetMessage`\MSG`\
 TitleList.ContextNumber.51=
 TitleList.ApplyTemp.51=0
 TitleList.Expanded.51=0
 TitleList.Kind.51=0
-TitleList.Title.52=message-loop
+TitleList.Title.52=event-activate
 TitleList.Level.52=2
-TitleList.Url.52=gfw\message-loop.html
+TitleList.Url.52=gfw\event-activate.html
 TitleList.Icon.52=0
 TitleList.Status.52=0
-TitleList.Keywords.52=message-loop
+TitleList.Keywords.52=event-activate
 TitleList.ContextNumber.52=
 TitleList.ApplyTemp.52=0
 TitleList.Expanded.52=0
 TitleList.Kind.52=0
-TitleList.Title.53=obtain-event-time
+TitleList.Title.53=event-arm
 TitleList.Level.53=2
-TitleList.Url.53=gfw\obtain-event-time.html
+TitleList.Url.53=gfw\event-arm.html
 TitleList.Icon.53=0
 TitleList.Status.53=0
-TitleList.Keywords.53=obtain-event-time
+TitleList.Keywords.53=event-arm
 TitleList.ContextNumber.53=
 TitleList.ApplyTemp.53=0
 TitleList.Expanded.53=0
 TitleList.Kind.53=0
-TitleList.Title.54=Miscellaneous Topics
-TitleList.Level.54=0
-TitleList.Url.54=MiscellaneousTopics.html
+TitleList.Title.54=event-close
+TitleList.Level.54=2
+TitleList.Url.54=gfw\event-close.html
 TitleList.Icon.54=0
 TitleList.Status.54=0
-TitleList.Keywords.54=
+TitleList.Keywords.54=event-close
 TitleList.ContextNumber.54=
 TitleList.ApplyTemp.54=0
 TitleList.Expanded.54=0
 TitleList.Kind.54=0
-TitleList.Title.55=Image Data Plugins
-TitleList.Level.55=1
-TitleList.Url.55=ImageDataPlugins.html
+TitleList.Title.55=event-deactivate
+TitleList.Level.55=2
+TitleList.Url.55=gfw\event-deactivate.html
 TitleList.Icon.55=0
 TitleList.Status.55=0
-TitleList.Keywords.55=
+TitleList.Keywords.55=event-deactivate
 TitleList.ContextNumber.55=
 TitleList.ApplyTemp.55=0
 TitleList.Expanded.55=0
 TitleList.Kind.55=0
-TitleList.Title.56=Terminology Conventions
-TitleList.Level.56=0
-TitleList.Url.56=TerminologyConventions.html
+TitleList.Title.56=event-default-action
+TitleList.Level.56=2
+TitleList.Url.56=gfw\event-default-action.html
 TitleList.Icon.56=0
 TitleList.Status.56=0
-TitleList.Keywords.56=
+TitleList.Keywords.56=event-default-action
 TitleList.ContextNumber.56=
 TitleList.ApplyTemp.56=0
 TitleList.Expanded.56=0
 TitleList.Kind.56=0
-TitleList.Title.57=Glossary
-TitleList.Level.57=0
-TitleList.Url.57=Glossary.html
+TitleList.Title.57=event-dispatcher
+TitleList.Level.57=2
+TitleList.Url.57=gfw\event-dispatcher.html
 TitleList.Icon.57=0
 TitleList.Status.57=0
-TitleList.Keywords.57=
+TitleList.Keywords.57=event-dispatcher
 TitleList.ContextNumber.57=
 TitleList.ApplyTemp.57=0
 TitleList.Expanded.57=0
 TitleList.Kind.57=0
-TitleList.Title.58=Footnotes
-TitleList.Level.58=0
-TitleList.Url.58=Footnotes.html
+TitleList.Title.58=event-dispose
+TitleList.Level.58=2
+TitleList.Url.58=gfw\event-dispose.html
 TitleList.Icon.58=0
 TitleList.Status.58=0
-TitleList.Keywords.58=
+TitleList.Keywords.58=event-dispose
 TitleList.ContextNumber.58=
 TitleList.ApplyTemp.58=0
 TitleList.Expanded.58=0
-TitleList.Kind.58=1
+TitleList.Kind.58=0
+TitleList.Title.59=event-select
+TitleList.Level.59=2
+TitleList.Url.59=gfw\event-select.html
+TitleList.Icon.59=0
+TitleList.Status.59=0
+TitleList.Keywords.59=event-select
+TitleList.ContextNumber.59=
+TitleList.ApplyTemp.59=0
+TitleList.Expanded.59=0
+TitleList.Kind.59=0
+TitleList.Title.60=event-source
+TitleList.Level.60=2
+TitleList.Url.60=gfw\event-source.html
+TitleList.Icon.60=0
+TitleList.Status.60=0
+TitleList.Keywords.60=event-source
+TitleList.ContextNumber.60=
+TitleList.ApplyTemp.60=0
+TitleList.Expanded.60=0
+TitleList.Kind.60=0
+TitleList.Title.61=message-loop
+TitleList.Level.61=2
+TitleList.Url.61=gfw\message-loop.html
+TitleList.Icon.61=0
+TitleList.Status.61=0
+TitleList.Keywords.61=message-loop
+TitleList.ContextNumber.61=
+TitleList.ApplyTemp.61=0
+TitleList.Expanded.61=0
+TitleList.Kind.61=0
+TitleList.Title.62=obtain-event-time
+TitleList.Level.62=2
+TitleList.Url.62=gfw\obtain-event-time.html
+TitleList.Icon.62=0
+TitleList.Status.62=0
+TitleList.Keywords.62=obtain-event-time
+TitleList.ContextNumber.62=
+TitleList.ApplyTemp.62=0
+TitleList.Expanded.62=0
+TitleList.Kind.62=0
+TitleList.Title.63=with-graphics-context
+TitleList.Level.63=2
+TitleList.Url.63=gfw\with-graphics-context.html
+TitleList.Icon.63=0
+TitleList.Status.63=0
+TitleList.Keywords.63=with-graphics-context
+TitleList.ContextNumber.63=
+TitleList.ApplyTemp.63=0
+TitleList.Expanded.63=0
+TitleList.Kind.63=0
+TitleList.Title.64=Miscellaneous Topics
+TitleList.Level.64=0
+TitleList.Url.64=MiscellaneousTopics.html
+TitleList.Icon.64=0
+TitleList.Status.64=0
+TitleList.Keywords.64=
+TitleList.ContextNumber.64=
+TitleList.ApplyTemp.64=0
+TitleList.Expanded.64=0
+TitleList.Kind.64=0
+TitleList.Title.65=Image Data Plugins
+TitleList.Level.65=1
+TitleList.Url.65=ImageDataPlugins.html
+TitleList.Icon.65=0
+TitleList.Status.65=0
+TitleList.Keywords.65=
+TitleList.ContextNumber.65=
+TitleList.ApplyTemp.65=0
+TitleList.Expanded.65=0
+TitleList.Kind.65=0
+TitleList.Title.66=Terminology Conventions
+TitleList.Level.66=0
+TitleList.Url.66=TerminologyConventions.html
+TitleList.Icon.66=0
+TitleList.Status.66=0
+TitleList.Keywords.66=
+TitleList.ContextNumber.66=
+TitleList.ApplyTemp.66=0
+TitleList.Expanded.66=0
+TitleList.Kind.66=0
+TitleList.Title.67=Glossary
+TitleList.Level.67=0
+TitleList.Url.67=Glossary.html
+TitleList.Icon.67=0
+TitleList.Status.67=0
+TitleList.Keywords.67=
+TitleList.ContextNumber.67=
+TitleList.ApplyTemp.67=0
+TitleList.Expanded.67=0
+TitleList.Kind.67=0
+TitleList.Title.68=Footnotes
+TitleList.Level.68=0
+TitleList.Url.68=Footnotes.html
+TitleList.Icon.68=0
+TitleList.Status.68=0
+TitleList.Keywords.68=
+TitleList.ContextNumber.68=
+TitleList.ApplyTemp.68=0
+TitleList.Expanded.68=0
+TitleList.Kind.68=1
 

Added: trunk/docs/manual/gfg/color-blue.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/color-blue.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,58 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>color-blue</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>color-blue</STRONG></TD>
+    <TD>
+      <P><FONT size=2>[Slot Accessor]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<H4></FONT><FONT face=Arial>syntax</FONT></H4>
+  <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT 
+face=Arial size=2><FONT face=Arial size=2>(gfg:color-blue 
+<EM><A 
+href="color.html">color</A></EM>) => 
+<EM> integer</EM></FONT></FONT></P>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>(setf (gfg:color-blue <EM><A 
+href="color.html">color</A></EM>) <EM>integer</EM>)</FONT></P><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>arguments 
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>color</FONT></EM></TD>
+    <TD><FONT size=2>The <A href="color.html">color</A> object whose blue 
+      component is to be queried or updated.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><EM><FONT size=2>integer</FONT></EM></TD>
+    <TD><FONT size=2>An integer in 
+      the range 0 - 
+255.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>Returns (sets) the blue component of the specified <A 
+href="color.html">color</A>.   
+       </FONT></P>
+<HR>
+
+<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/gfg/color-green.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/color-green.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,58 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>color-green</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>color-green</STRONG></TD>
+    <TD>
+      <P><FONT size=2>[Slot Accessor]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<H4></FONT><FONT face=Arial>syntax</FONT></H4>
+  <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT 
+face=Arial size=2><FONT face=Arial size=2>(gfg:color-green 
+<EM><A 
+href="color.html">color</A></EM>) => 
+<EM> integer</EM></FONT></FONT></P>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>(setf (gfg:color-green <EM><A 
+href="color.html">color</A></EM>) <EM>integer</EM>)</FONT></P><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>arguments 
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>color</FONT></EM></TD>
+    <TD><FONT size=2>The <A href="color.html">color</A>  object whose green 
+      component is to be queried or updated.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><EM><FONT size=2>integer</FONT></EM></TD>
+    <TD><FONT size=2>An integer in 
+      the range 0 - 
+255.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>Returns (sets) the green component of the specified <A 
+href="color.html">color</A>.   
+       </FONT></P>
+<HR>
+
+<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/gfg/color-red.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/color-red.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,58 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>color-red</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>color-red</STRONG></TD>
+    <TD>
+      <P><FONT size=2>[Slot Accessor]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<H4></FONT><FONT face=Arial>syntax</FONT></H4>
+  <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT 
+face=Arial size=2><FONT face=Arial size=2>(gfg:color-red 
+<EM><A 
+href="color.html">color</A></EM>) => 
+<EM> integer</EM></FONT></FONT></P>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>(setf (gfg:color-red <EM><A 
+href="color.html">color</A></EM>) <EM>integer</EM>)</FONT></P><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>arguments 
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>color</FONT></EM></TD>
+    <TD><FONT size=2>The <A href="color.html">color</A>  object whose red 
+      component is to be queried or updated.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><EM><FONT size=2>integer</FONT></EM></TD>
+    <TD><FONT size=2>An integer in 
+      the range 0 - 
+255.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>Returns (sets) the red component of the specified <A 
+href="color.html">color</A>.   
+       </FONT></P>
+<HR>
+
+<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/gfg/color-to-rgb.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/color-to-rgb.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,65 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>color->rgb</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>color->rgb</STRONG></TD>
+    <TD>
+      <P><FONT size=2> [Macro]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<P></FONT><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>(gfg:color->rgb <EM><A href="color.html">color</A></EM> ) => <FONT face=Courier 
+size=3>COLORREF</FONT></P>
+<H4><FONT face=Arial>
+<H4><FONT face=Arial>arguments</FONT></H4>
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>color</FONT></EM></TD>
+    <TD><FONT size=2>A color to 
+      be converted to the Win32 <FONT face=Courier size=3>COLORREF</FONT> 
+           representation.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>        This macro converts a color object to the Win32 
+<FONT face=Courier size=3>COLORREF</FONT>  
+ representation, which in CFFI terms is defined as an alias for <FONT face=Courier 
+size=3>:unsigned-long</FONT>                
+            
+             
+              
+            
+              
+  
+         
+       </FONT></P></FONT></FONT></FONT>
+<H4><FONT face=Arial>see also</FONT></H4><FONT face=Arial size=2><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<P><A href="rgb-to-color.html">rgb->color</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>

Added: trunk/docs/manual/gfg/color.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/color.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,69 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>color</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial size=2>
+<H4><FONT face=Arial>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>color</STRONG></TD>
+    <TD>
+      <P><FONT 
+size=2>[Structure]</FONT> </P></TD></TR></TABLE> 
+ 
+</FONT>
+<HR></H4>
+<H4><FONT face=Arial>description</FONT></H4><FONT face=Arial size=2>
+  <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>This structure represents a color in the RGB color 
+model. Each color component value is specified in the range 0 - 
+  255.</FONT></FONT></P>
+<H4><FONT face=Arial>slots</FONT></H4><FONT face=Arial size=2><EM>
+<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="20%"><EM><FONT size=2>blue</FONT></EM></TD>
+    <TD><FONT size=2>  
+        The blue component.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><EM><FONT size=2>green</FONT></EM></TD>
+    <TD><FONT size=2>  
+        The green 
+component.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><FONT size=2><EM>red</EM></FONT></TD>
+    <TD><FONT size=2>   The red 
+component.</FONT></TD></TR></TABLE></EM></FONT> </FONT><FONT face=Arial><FONT face=Arial size=2><EM></P>
+<H4></EM></FONT>see also</FONT></H4>
+<P><FONT face=Arial size=2><FONT face=Arial size=2><A href="color-blue.html">color-blue</A>, 
+<A href="color-green.html">color-green</A>, <A 
+href="color-red.html">color-red</A>,  <A 
+href="color-to-rgb.html">color->rgb</A>, <A 
+href="copy-color.html">copy-color</A>, <A href="make-color.html">make-color</A>,   <A 
+href="rgb-to-color.html">rgb->color</A> <A 
+href="point-y.html"></A></FONT></FONT></P>
+<P><FONT face=Arial size=2><FONT face=Arial size=2><EM>
+<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></EM></FONT></FONT></body>
+</html>

Added: trunk/docs/manual/gfg/copy-color.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/copy-color.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,56 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>copy-color</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>copy-color</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>(gfg:copy-color 
+<EM><A 
+href="color.html">color</A></EM>) 
+=> <A href="color.html">new color</A> <EM> </EM></FONT></FONT></P><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>arguments 
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>color</FONT></EM></TD>
+    <TD><FONT size=2>The <A href="color.html">color</A> structure to be 
+      copied.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>    Returns a new <A 
+href="point.html">color</A>  whose color component values were copied from the   
+       original.</FONT></P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="make-color.html">make-color</A></P>
+<P>
+<HR>
+
+<P></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/gfg/make-color.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/make-color.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,68 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>make-color</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>
+  
+  <TR>
+    <TD width="60%"><STRONG>make-color</STRONG></TD>
+    <TD>
+      <P><FONT 
+size=2>[Function]</FONT> </P></TD></TR></TABLE></FONT><FONT face=Arial size=2>
+<HR></H4></FONT>
+<H4 dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial>syntax</FONT></H4>
+  <P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial><FONT 
+size=2>(gfg:make-color :blue <EM>integer</EM> :green <EM>integer</EM> :red <EM>integer</EM>) 
+=> <EM><A 
+href="point.html">color</A> </EM></FONT></FONT></P><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<H4><FONT face=Arial>arguments 
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>:blue</FONT></EM></TD>
+    <TD><FONT size=2> The 
+      blue color component (0 - 255).</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><EM><FONT size=2>:green</FONT></EM></TD>
+    <TD><FONT size=2>The green 
+      color component (0 - 
+255).</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><FONT size=2><EM>:red</EM></FONT></TD>
+    <TD><FONT 
+size=2>The red color 
+      component (0 - 
+255).</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>    Returns a newly-created <A 
+href="color.html">color</A>.         
+       </FONT></P>
+<H4><FONT face=Arial>see also</FONT></H4>
+<P><A href="copy-color.html">copy-color</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>

Added: trunk/docs/manual/gfg/rgb-to-color.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/rgb-to-color.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,71 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>rgb->color</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>rgb->color</STRONG></TD>
+    <TD>
+      <P><FONT size=2> [Macro]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<P></FONT><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>(gfg:rgb->color <FONT face=Courier 
+size=3><EM>COLORREF</EM></FONT>) => <EM><A 
+href="color.html">color</A></EM></P>
+<H4><FONT face=Arial>
+<H4>arguments</H4>
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><FONT 
+      face=Courier><EM>COLORREF</EM></FONT></TD>
+    <TD><FONT size=2>  
+         A Win32 <FONT face=Courier size=3>COLORREF</FONT> value to 
+      be translated to a <A 
+      href="color.html">color</A> 
+           object.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>            This macro converts a Win32 
+<FONT face=Courier size=3>COLORREF</FONT>  
+ value, which in CFFI terms is defined as an alias for <FONT face=Courier 
+size=3>:unsigned-long<FONT face=Arial size=2>, to a <A 
+href="color.html">color</A> 
+object.</FONT></FONT>                
+            
+             
+              
+            
+              
+  
+         
+       </FONT></P></FONT></FONT></FONT>
+<H4><FONT face=Arial>see also</FONT></H4><FONT face=Arial size=2><FONT 
+face=Arial size=2><FONT face=Arial size=2>
+<P><A href="color-to-rgb.html">color->rgb</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/gfw/event-dispatcher.html
==============================================================================
--- trunk/docs/manual/gfw/event-dispatcher.html	(original)
+++ trunk/docs/manual/gfw/event-dispatcher.html	Mon Oct  9 18:03:01 2006
@@ -38,9 +38,9 @@
     <TD width="28%"><FONT size=1>scrolling-event-dispatcher</FONT></TD>
     <TD width="28%"><FONT size=1></FONT></TD>
     <TD width="28%"><FONT size=1></FONT></TD></TR></TBODY></TABLE></FONT></P>
-<P dir=ltr style="MARGIN-RIGHT: 0px"> Applications define 
-subclasses of this class and implement one or more 
-of the event functions in order to implement desired 
+<P dir=ltr style="MARGIN-RIGHT: 0px"> Applications define subclasses 
+of this class and implement one or more of 
+the event generic functions in order to implement desired 
 behavior.</FONT></FONT></P>
 <H4><FONT face=Arial>see 
 also</FONT></H4>

Added: trunk/docs/manual/gfw/event-select.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfw/event-select.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,61 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>event-select</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>event-select</STRONG></TD>
+    <TD>
+      <P><FONT size=2>[Generic Function]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<P></FONT><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>(gfw:event-select <EM><A 
+href="event-dispatcher.html">event-dispatcher</A> widget</EM>)</P>
+<H4><FONT face=Arial>arguments 
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>event-dispatcher</FONT></EM></TD>
+    <TD><FONT size=2>The <A href="event-dispatcher.html" >event-dispatcher</A> that will 
+      process the selection event.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><FONT size=2><EM>widget</EM></FONT></TD>
+    <TD><FONT size=2>The widget (or 
+      sub-element thereof) being 
+selected.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>       Implement a method for this generic function to 
+handle notification that <EM>widget</EM>               
+            
+              
+              
+              or  
+            
+        some sub-element of widget has been 
+ selected. 
+Selection may occur via the mouse or   
+       keyboard.</FONT></P>
+<HR>
+
+<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/gfw/with-graphics-context.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfw/with-graphics-context.html	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,66 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>with-graphics-context</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body><FONT face=Arial>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" 
+borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="60%"><STRONG>with-graphics-context</STRONG></TD>
+    <TD>
+      <P><FONT size=2> [Macro]</FONT> </P></TD></TR></TABLE>
+<HR></H4>
+<P></FONT><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>(gfw:with-graphics-context (<EM>graphics-context</EM> &optional 
+<EM>thing</EM>) &body<EM> body</EM>)</P>
+<H4><FONT face=Arial>
+<H4><FONT face=Arial>arguments</FONT></H4>
+<P>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff 
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+  
+  <TR>
+    <TD width="20%"><EM><FONT size=2>graphics-context</FONT></EM></TD>
+    <TD><FONT size=2>A symbol 
+      naming the graphics-context object to be created.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><EM><FONT size=2>thing</FONT></EM></TD>
+    <TD><FONT size=2>An instance of 
+      a widget subclass or an 
+image.</FONT></TD></TR>
+  <TR>
+    <TD width="20%"><FONT size=2><EM>body</EM></FONT></TD>
+    <TD><FONT size=2>Application code to make use of 
+  <EM>graphics-context</EM>.</FONT></TD></TR></TABLE></P>description</FONT></H4><FONT face=Arial size=2>
+<P dir=ltr style="MARGIN-RIGHT: 0px"><FONT face=Arial size=2>        This macro manages the lifetime of a graphics-context 
+object for use by the code of <EM>body</EM>. The <EM>graphics-context</EM>  will be associated 
+with <EM>thing</EM> if it              
+            
+             
+              
+            
+           is specified. Otherwise, 
+ this 
+macro creates a graphics-context compatible with the   
+       display.</FONT></P>
+<HR>
+
+<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/graphic-forms-tests.asd
==============================================================================
--- trunk/graphic-forms-tests.asd	(original)
+++ trunk/graphic-forms-tests.asd	Mon Oct  9 18:03:01 2006
@@ -92,5 +92,6 @@
                      (:file "drawing-tester")
                      (:file "widget-tester")
                      (:file "scroll-grid-panel")
+                     (:file "scroll-text-panel")
                      (:file "scroll-tester")
                      (:file "windlg")))))))))

Modified: trunk/src/tests/uitoolkit/scroll-grid-panel.lisp
==============================================================================
--- trunk/src/tests/uitoolkit/scroll-grid-panel.lisp	(original)
+++ trunk/src/tests/uitoolkit/scroll-grid-panel.lisp	Mon Oct  9 18:03:01 2006
@@ -42,6 +42,9 @@
 
 (defclass scroll-grid-panel-events (gfw:event-dispatcher) ())
 
+(defun select-grid (disp item)
+  (declare (ignore disp item)))
+
 (defun make-scroll-grid-panel (parent)
   (let ((panel-size (gfs:make-size :width (1+ (* (gfs:size-width *grid-model-size*) +grid-cell-extent+))
                                    :height (1+ (* (gfs:size-height *grid-model-size*) +grid-cell-extent+))))

Modified: trunk/src/tests/uitoolkit/scroll-tester.lisp
==============================================================================
--- trunk/src/tests/uitoolkit/scroll-tester.lisp	(original)
+++ trunk/src/tests/uitoolkit/scroll-tester.lisp	Mon Oct  9 18:03:01 2006
@@ -49,18 +49,36 @@
 
 (defun scroll-tester-internal ()
   (setf *default-pathname-defaults* (parse-namestring gfsys::*gf-tests-dir*))
-  (let ((disp (make-instance 'scroll-tester-events))
-        (layout (make-instance 'gfw:heap-layout))
-        (menubar (gfw:defmenu ((:item    "&File"
-                                :submenu ((:item "E&xit" :callback #'scroll-tester-exit)))))))
-    (setf *scroll-tester-win* (make-instance 'gfw:top-level :dispatcher disp
-                                                            :layout layout
-                                                            :style '(:workspace :horizontal-scrollbar :vertical-scrollbar)))
-    (let ((icons (make-instance 'gfg:icon-bundle :file (merge-pathnames "default.ico")))
-          (panel (make-scroll-grid-panel *scroll-tester-win*)))
+  (let ((layout (make-instance 'gfw:heap-layout))
+        (icons (make-instance 'gfg:icon-bundle :file (merge-pathnames "default.ico"))))
+    (setf *scroll-tester-win* (make-instance 'gfw:top-level
+                                             :dispatcher (make-instance 'scroll-tester-events)
+                                             :layout layout
+                                             :style '(:workspace :horizontal-scrollbar :vertical-scrollbar)))
+    (setf (gfw:image *scroll-tester-win*) icons)
+    (let* ((grid-panel (make-scroll-grid-panel *scroll-tester-win*))
+           (text-panel (make-scroll-text-panel *scroll-tester-win*))
+           (select-grid (lambda (disp item)
+                          (declare (ignore disp item))
+                          (setf (gfw:top-child-of layout) grid-panel)
+                          (gfw:layout *scroll-tester-win*)))
+           (select-text (lambda (disp item)
+                          (declare (ignore disp item))
+                          (setf (gfw:top-child-of layout) text-panel)
+                          (gfw:layout *scroll-tester-win*)))
+           (manage-tests-menu (lambda (disp menu)
+                                (declare (ignore disp))
+                                (let ((top (gfw::obtain-top-child *scroll-tester-win*))
+                                      (items (gfw:items-of menu)))
+                                  (gfw:check (elt items 0) (eql top grid-panel))
+                                  (gfw:check (elt items 1) (eql top text-panel)))))
+           (menubar (gfw:defmenu ((:item    "&File"
+                                   :submenu ((:item "E&xit"        :callback #'scroll-tester-exit)))
+                                  (:item    "&Tests"               :callback manage-tests-menu
+                                   :submenu ((:item "&Simple Grid" :callback select-grid)
+                                             (:item "&Text"        :callback select-text)))))))
       (setf (gfw:menu-bar *scroll-tester-win*) menubar
-            (gfw:top-child-of layout) panel
-            (gfw:image *scroll-tester-win*) icons))
+            (gfw:top-child-of layout) grid-panel))
     (setf (gfw:text *scroll-tester-win*) "Scroll Tester"
           (gfw:size *scroll-tester-win*) (gfs:make-size :width 300 :height 275))
     (gfw:show *scroll-tester-win* t)))

Added: trunk/src/tests/uitoolkit/scroll-text-panel.lisp
==============================================================================
--- (empty file)
+++ trunk/src/tests/uitoolkit/scroll-text-panel.lisp	Mon Oct  9 18:03:01 2006
@@ -0,0 +1,46 @@
+;;;;
+;;;; scroll-text-panel.lisp
+;;;;
+;;;; Copyright (C) 2006, Jack D. Unrue
+;;;; All rights reserved.
+;;;;
+;;;; Redistribution and use in source and binary forms, with or without
+;;;; modification, are permitted provided that the following conditions
+;;;; are met:
+;;;; 
+;;;;     1. Redistributions of source code must retain the above copyright
+;;;;        notice, this list of conditions and the following disclaimer.
+;;;; 
+;;;;     2. Redistributions in binary form must reproduce the above copyright
+;;;;        notice, this list of conditions and the following disclaimer in the
+;;;;        documentation and/or other materials provided with the distribution.
+;;;; 
+;;;;     3. Neither the names of the authors nor the names of its contributors
+;;;;        may be used to endorse or promote products derived from this software
+;;;;        without specific prior written permission.
+;;;; 
+;;;; THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS "AS IS" AND ANY
+;;;; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DIS-
+;;;; CLAIMED.  IN NO EVENT SHALL THE AUTHORS AND CONTRIBUTORS BE LIABLE FOR ANY
+;;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+;;;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+;;;; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+;;;; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+;;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;;
+
+(in-package #:graphic-forms.uitoolkit.tests)
+
+(defclass text-grid-panel-events (gfw:event-dispatcher) ())
+
+(defun make-scroll-text-panel (parent)
+  (declare (ignore parent)))
+
+#|
+  (gfw:with-graphics-context (gc panel)
+    (let* ((font (make-instance 'gfg:font :gc gc))
+           (metrics (gfg:metrics gc font))))))
+
+|#
\ No newline at end of file



More information about the Graphic-forms-cvs mailing list