[graphic-forms-cvs] r296 - in trunk: . docs/manual docs/manual/gfg docs/manual/gfs docs/manual/gfw src/tests/uitoolkit src/uitoolkit/graphics src/uitoolkit/system src/uitoolkit/widgets
junrue at common-lisp.net
junrue at common-lisp.net
Tue Oct 10 07:13:09 UTC 2006
Author: junrue
Date: Tue Oct 10 03:13:08 2006
New Revision: 296
Added:
trunk/docs/manual/gfg/font.html
Modified:
trunk/NEWS.txt
trunk/docs/manual/Graphic-FormsProgrammingReference.wcp
trunk/docs/manual/gfg/make-color.html
trunk/docs/manual/gfs/native-object.html
trunk/docs/manual/gfw/event-dispatcher.html
trunk/docs/manual/gfw/event-source.html
trunk/src/tests/uitoolkit/scroll-text-panel.lisp
trunk/src/uitoolkit/graphics/font.lisp
trunk/src/uitoolkit/system/gdi32.lisp
trunk/src/uitoolkit/system/system-constants.lisp
trunk/src/uitoolkit/widgets/widget.lisp
trunk/src/uitoolkit/widgets/window.lisp
Log:
implemented gfg:font for windows; improved font initialize-instance; more docs
Modified: trunk/NEWS.txt
==============================================================================
--- trunk/NEWS.txt (original)
+++ trunk/NEWS.txt Tue Oct 10 03:13:08 2006
@@ -30,6 +30,8 @@
. Improved GFW:HEAP-LAYOUT such that it obeys the top child's minimum and
maximum sizes, if any such sizes are set.
+. Added GFG:FONT method for querying the current font selected for a window.
+
. Did some housecleaning of the item-manager protocol and heavily refactored
the implementation of item-manager base functionality.
Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp
==============================================================================
--- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp (original)
+++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp Tue Oct 10 03:13:08 2006
@@ -2,7 +2,7 @@
Title=Graphic-Forms Programming Reference
RootDir=
DefaultTopic=Introduction.html
-CompiledFile=graphic-forms.chm
+CompiledFile=C:\projects\public\build\docs\graphic-forms\graphic-forms.chm
CustomTemplate=
DefaultTemplate=1
Encoding=Windows-1252
@@ -15,7 +15,7 @@
HtmlHelpTitle=Graphic-Forms Programming Reference
HtmlHelpTitleSame=1
WebHelpDefault=Introduction.html
-WebHelpOutputFolder=c:\projects\public\graphic-forms\docs\manual\html
+WebHelpOutputFolder=c:\projects\public\build\docs\graphic-forms
WebHelpTemplate=
WebHelpTitle=Graphic-Forms Programming Reference
WebHelpDefaultSame=1
@@ -92,7 +92,7 @@
DefaultTopic=Introduction.html
[TOPICS]
-TitleList=69
+TitleList=70
TitleList.Title.0=Legal Information
TitleList.Level.0=0
TitleList.Url.0=LegalInfo.html
@@ -213,539 +213,539 @@
TitleList.ApplyTemp.11=0
TitleList.Expanded.11=0
TitleList.Kind.11=0
-TitleList.Title.12=make-color
+TitleList.Title.12=font
TitleList.Level.12=2
-TitleList.Url.12=gfg\make-color.html
+TitleList.Url.12=gfg\font.html
TitleList.Icon.12=0
TitleList.Status.12=0
-TitleList.Keywords.12=make-color
+TitleList.Keywords.12=font
TitleList.ContextNumber.12=
TitleList.ApplyTemp.12=0
TitleList.Expanded.12=0
TitleList.Kind.12=0
-TitleList.Title.13=rgb->color
+TitleList.Title.13=make-color
TitleList.Level.13=2
-TitleList.Url.13=gfg\rgb-to-color.html
+TitleList.Url.13=gfg\make-color.html
TitleList.Icon.13=0
TitleList.Status.13=0
-TitleList.Keywords.13=rgb->color
+TitleList.Keywords.13=make-color
TitleList.ContextNumber.13=
TitleList.ApplyTemp.13=0
TitleList.Expanded.13=0
TitleList.Kind.13=0
-TitleList.Title.14=System Package
-TitleList.Level.14=1
-TitleList.Url.14=SystemPackage.html
+TitleList.Title.14=rgb->color
+TitleList.Level.14=2
+TitleList.Url.14=gfg\rgb-to-color.html
TitleList.Icon.14=0
TitleList.Status.14=0
-TitleList.Keywords.14=GFS`\graphic-forms.uitoolkit.system
+TitleList.Keywords.14=rgb->color
TitleList.ContextNumber.14=
TitleList.ApplyTemp.14=0
-TitleList.Expanded.14=1
+TitleList.Expanded.14=0
TitleList.Kind.14=0
-TitleList.Title.15=code
-TitleList.Level.15=2
-TitleList.Url.15=gfs\code.html
+TitleList.Title.15=System Package
+TitleList.Level.15=1
+TitleList.Url.15=SystemPackage.html
TitleList.Icon.15=0
TitleList.Status.15=0
-TitleList.Keywords.15=code
+TitleList.Keywords.15=GFS`\graphic-forms.uitoolkit.system
TitleList.ContextNumber.15=
TitleList.ApplyTemp.15=0
-TitleList.Expanded.15=0
+TitleList.Expanded.15=1
TitleList.Kind.15=0
-TitleList.Title.16=comdlg-error
+TitleList.Title.16=code
TitleList.Level.16=2
-TitleList.Url.16=gfs\comdlg-error.html
+TitleList.Url.16=gfs\code.html
TitleList.Icon.16=0
TitleList.Status.16=0
-TitleList.Keywords.16=comdlg-error`\:dlg-code
+TitleList.Keywords.16=code
TitleList.ContextNumber.16=
TitleList.ApplyTemp.16=0
TitleList.Expanded.16=0
TitleList.Kind.16=0
-TitleList.Title.17=copy-point
+TitleList.Title.17=comdlg-error
TitleList.Level.17=2
-TitleList.Url.17=gfs\copy-point.html
+TitleList.Url.17=gfs\comdlg-error.html
TitleList.Icon.17=0
TitleList.Status.17=0
-TitleList.Keywords.17=copy-point
+TitleList.Keywords.17=comdlg-error`\:dlg-code
TitleList.ContextNumber.17=
TitleList.ApplyTemp.17=0
TitleList.Expanded.17=0
TitleList.Kind.17=0
-TitleList.Title.18=copy-rectangle
+TitleList.Title.18=copy-point
TitleList.Level.18=2
-TitleList.Url.18=gfs\copy-rectangle.html
+TitleList.Url.18=gfs\copy-point.html
TitleList.Icon.18=0
TitleList.Status.18=0
-TitleList.Keywords.18=copy-rectangle
+TitleList.Keywords.18=copy-point
TitleList.ContextNumber.18=
TitleList.ApplyTemp.18=0
TitleList.Expanded.18=0
TitleList.Kind.18=0
-TitleList.Title.19=copy-size
+TitleList.Title.19=copy-rectangle
TitleList.Level.19=2
-TitleList.Url.19=gfs\copy-size.html
+TitleList.Url.19=gfs\copy-rectangle.html
TitleList.Icon.19=0
TitleList.Status.19=0
-TitleList.Keywords.19=copy-size
+TitleList.Keywords.19=copy-rectangle
TitleList.ContextNumber.19=
TitleList.ApplyTemp.19=0
TitleList.Expanded.19=0
TitleList.Kind.19=0
-TitleList.Title.20=copy-span
+TitleList.Title.20=copy-size
TitleList.Level.20=2
-TitleList.Url.20=gfs\copy-span.html
+TitleList.Url.20=gfs\copy-size.html
TitleList.Icon.20=0
TitleList.Status.20=0
-TitleList.Keywords.20=copy-span
+TitleList.Keywords.20=copy-size
TitleList.ContextNumber.20=
TitleList.ApplyTemp.20=0
TitleList.Expanded.20=0
TitleList.Kind.20=0
-TitleList.Title.21=detail
+TitleList.Title.21=copy-span
TitleList.Level.21=2
-TitleList.Url.21=gfs\detail.html
+TitleList.Url.21=gfs\copy-span.html
TitleList.Icon.21=0
TitleList.Status.21=0
-TitleList.Keywords.21=detail
+TitleList.Keywords.21=copy-span
TitleList.ContextNumber.21=
TitleList.ApplyTemp.21=0
TitleList.Expanded.21=0
TitleList.Kind.21=0
-TitleList.Title.22=dispose
+TitleList.Title.22=detail
TitleList.Level.22=2
-TitleList.Url.22=gfs\dispose.html
+TitleList.Url.22=gfs\detail.html
TitleList.Icon.22=0
TitleList.Status.22=0
-TitleList.Keywords.22=disposed
+TitleList.Keywords.22=detail
TitleList.ContextNumber.22=
TitleList.ApplyTemp.22=0
TitleList.Expanded.22=0
TitleList.Kind.22=0
-TitleList.Title.23=disposed-error
+TitleList.Title.23=dispose
TitleList.Level.23=2
-TitleList.Url.23=gfs\disposed-error.html
+TitleList.Url.23=gfs\dispose.html
TitleList.Icon.23=0
TitleList.Status.23=0
-TitleList.Keywords.23=disposed-error
+TitleList.Keywords.23=disposed
TitleList.ContextNumber.23=
TitleList.ApplyTemp.23=0
TitleList.Expanded.23=0
TitleList.Kind.23=0
-TitleList.Title.24=disposed-p
+TitleList.Title.24=disposed-error
TitleList.Level.24=2
-TitleList.Url.24=gfs\disposed-p.html
+TitleList.Url.24=gfs\disposed-error.html
TitleList.Icon.24=0
TitleList.Status.24=0
-TitleList.Keywords.24=disposed-p
+TitleList.Keywords.24=disposed-error
TitleList.ContextNumber.24=
TitleList.ApplyTemp.24=0
TitleList.Expanded.24=0
TitleList.Kind.24=0
-TitleList.Title.25=dlg-code
+TitleList.Title.25=disposed-p
TitleList.Level.25=2
-TitleList.Url.25=gfs\dlg-code.html
+TitleList.Url.25=gfs\disposed-p.html
TitleList.Icon.25=0
TitleList.Status.25=0
-TitleList.Keywords.25=dlg-code
+TitleList.Keywords.25=disposed-p
TitleList.ContextNumber.25=
TitleList.ApplyTemp.25=0
TitleList.Expanded.25=0
TitleList.Kind.25=0
-TitleList.Title.26=empty-span-p
+TitleList.Title.26=dlg-code
TitleList.Level.26=2
-TitleList.Url.26=gfs\empty-span-p.html
+TitleList.Url.26=gfs\dlg-code.html
TitleList.Icon.26=0
TitleList.Status.26=0
-TitleList.Keywords.26=empty-span-p
+TitleList.Keywords.26=dlg-code
TitleList.ContextNumber.26=
TitleList.ApplyTemp.26=0
TitleList.Expanded.26=0
TitleList.Kind.26=0
-TitleList.Title.27=equal-size-p
+TitleList.Title.27=empty-span-p
TitleList.Level.27=2
-TitleList.Url.27=gfs\equal-size-p.html
+TitleList.Url.27=gfs\empty-span-p.html
TitleList.Icon.27=0
TitleList.Status.27=0
-TitleList.Keywords.27=equal-size-p
+TitleList.Keywords.27=empty-span-p
TitleList.ContextNumber.27=
TitleList.ApplyTemp.27=0
TitleList.Expanded.27=0
TitleList.Kind.27=0
-TitleList.Title.28=handle
+TitleList.Title.28=equal-size-p
TitleList.Level.28=2
-TitleList.Url.28=gfs\handle.html
+TitleList.Url.28=gfs\equal-size-p.html
TitleList.Icon.28=0
TitleList.Status.28=0
-TitleList.Keywords.28=handle
+TitleList.Keywords.28=equal-size-p
TitleList.ContextNumber.28=
TitleList.ApplyTemp.28=0
TitleList.Expanded.28=0
TitleList.Kind.28=0
-TitleList.Title.29=location
+TitleList.Title.29=handle
TitleList.Level.29=2
-TitleList.Url.29=gfs\location.html
+TitleList.Url.29=gfs\handle.html
TitleList.Icon.29=0
TitleList.Status.29=0
-TitleList.Keywords.29=location`\
+TitleList.Keywords.29=handle
TitleList.ContextNumber.29=
TitleList.ApplyTemp.29=0
TitleList.Expanded.29=0
TitleList.Kind.29=0
-TitleList.Title.30=make-point
+TitleList.Title.30=location
TitleList.Level.30=2
-TitleList.Url.30=gfs\make-point.html
+TitleList.Url.30=gfs\location.html
TitleList.Icon.30=0
TitleList.Status.30=0
-TitleList.Keywords.30=make-point
+TitleList.Keywords.30=location`\
TitleList.ContextNumber.30=
TitleList.ApplyTemp.30=0
TitleList.Expanded.30=0
TitleList.Kind.30=0
-TitleList.Title.31=make-rectangle
+TitleList.Title.31=make-point
TitleList.Level.31=2
-TitleList.Url.31=gfs\make-rectangle.html
+TitleList.Url.31=gfs\make-point.html
TitleList.Icon.31=0
TitleList.Status.31=0
-TitleList.Keywords.31=make-rectangle
+TitleList.Keywords.31=make-point
TitleList.ContextNumber.31=
TitleList.ApplyTemp.31=0
TitleList.Expanded.31=0
TitleList.Kind.31=0
-TitleList.Title.32=make-size
+TitleList.Title.32=make-rectangle
TitleList.Level.32=2
-TitleList.Url.32=gfs\make-size.html
+TitleList.Url.32=gfs\make-rectangle.html
TitleList.Icon.32=0
TitleList.Status.32=0
-TitleList.Keywords.32=make-size
+TitleList.Keywords.32=make-rectangle
TitleList.ContextNumber.32=
TitleList.ApplyTemp.32=0
TitleList.Expanded.32=0
TitleList.Kind.32=0
-TitleList.Title.33=make-span
+TitleList.Title.33=make-size
TitleList.Level.33=2
-TitleList.Url.33=gfs\make-span.html
+TitleList.Url.33=gfs\make-size.html
TitleList.Icon.33=0
TitleList.Status.33=0
-TitleList.Keywords.33=make-span
+TitleList.Keywords.33=make-size
TitleList.ContextNumber.33=
TitleList.ApplyTemp.33=0
TitleList.Expanded.33=0
TitleList.Kind.33=0
-TitleList.Title.34=native-object
+TitleList.Title.34=make-span
TitleList.Level.34=2
-TitleList.Url.34=gfs\native-object.html
+TitleList.Url.34=gfs\make-span.html
TitleList.Icon.34=0
TitleList.Status.34=0
-TitleList.Keywords.34=native-object
+TitleList.Keywords.34=make-span
TitleList.ContextNumber.34=
TitleList.ApplyTemp.34=0
TitleList.Expanded.34=0
TitleList.Kind.34=0
-TitleList.Title.35=point
+TitleList.Title.35=native-object
TitleList.Level.35=2
-TitleList.Url.35=gfs\point.html
+TitleList.Url.35=gfs\native-object.html
TitleList.Icon.35=0
TitleList.Status.35=0
-TitleList.Keywords.35=point
+TitleList.Keywords.35=native-object
TitleList.ContextNumber.35=
TitleList.ApplyTemp.35=0
TitleList.Expanded.35=0
TitleList.Kind.35=0
-TitleList.Title.36=point-x
+TitleList.Title.36=point
TitleList.Level.36=2
-TitleList.Url.36=gfs\point-x.html
+TitleList.Url.36=gfs\point.html
TitleList.Icon.36=0
TitleList.Status.36=0
-TitleList.Keywords.36=point-x
+TitleList.Keywords.36=point
TitleList.ContextNumber.36=
TitleList.ApplyTemp.36=0
TitleList.Expanded.36=0
TitleList.Kind.36=0
-TitleList.Title.37=point-y
+TitleList.Title.37=point-x
TitleList.Level.37=2
-TitleList.Url.37=gfs\point-y.html
+TitleList.Url.37=gfs\point-x.html
TitleList.Icon.37=0
TitleList.Status.37=0
-TitleList.Keywords.37=point-y
+TitleList.Keywords.37=point-x
TitleList.ContextNumber.37=
TitleList.ApplyTemp.37=0
TitleList.Expanded.37=0
TitleList.Kind.37=0
-TitleList.Title.38=rectangle
+TitleList.Title.38=point-y
TitleList.Level.38=2
-TitleList.Url.38=gfs\rectangle.html
+TitleList.Url.38=gfs\point-y.html
TitleList.Icon.38=0
TitleList.Status.38=0
-TitleList.Keywords.38=rectangle
+TitleList.Keywords.38=point-y
TitleList.ContextNumber.38=
TitleList.ApplyTemp.38=0
TitleList.Expanded.38=0
TitleList.Kind.38=0
-TitleList.Title.39=size
+TitleList.Title.39=rectangle
TitleList.Level.39=2
-TitleList.Url.39=gfs\size.html
+TitleList.Url.39=gfs\rectangle.html
TitleList.Icon.39=0
TitleList.Status.39=0
-TitleList.Keywords.39=size
+TitleList.Keywords.39=rectangle
TitleList.ContextNumber.39=
TitleList.ApplyTemp.39=0
TitleList.Expanded.39=0
TitleList.Kind.39=0
TitleList.Title.40=size
TitleList.Level.40=2
-TitleList.Url.40=gfs\size-function.html
+TitleList.Url.40=gfs\size.html
TitleList.Icon.40=0
TitleList.Status.40=0
-TitleList.Keywords.40=
+TitleList.Keywords.40=size
TitleList.ContextNumber.40=
TitleList.ApplyTemp.40=0
TitleList.Expanded.40=0
TitleList.Kind.40=0
-TitleList.Title.41=size-height
+TitleList.Title.41=size
TitleList.Level.41=2
-TitleList.Url.41=gfs\size-height.html
+TitleList.Url.41=gfs\size-function.html
TitleList.Icon.41=0
TitleList.Status.41=0
-TitleList.Keywords.41=size-height`\
+TitleList.Keywords.41=
TitleList.ContextNumber.41=
TitleList.ApplyTemp.41=0
TitleList.Expanded.41=0
TitleList.Kind.41=0
-TitleList.Title.42=size-width
+TitleList.Title.42=size-height
TitleList.Level.42=2
-TitleList.Url.42=gfs\size-width.html
+TitleList.Url.42=gfs\size-height.html
TitleList.Icon.42=0
TitleList.Status.42=0
-TitleList.Keywords.42=size-width
+TitleList.Keywords.42=size-height`\
TitleList.ContextNumber.42=
TitleList.ApplyTemp.42=0
TitleList.Expanded.42=0
TitleList.Kind.42=0
-TitleList.Title.43=span
+TitleList.Title.43=size-width
TitleList.Level.43=2
-TitleList.Url.43=gfs\span.html
+TitleList.Url.43=gfs\size-width.html
TitleList.Icon.43=0
TitleList.Status.43=0
-TitleList.Keywords.43=span
+TitleList.Keywords.43=size-width
TitleList.ContextNumber.43=
TitleList.ApplyTemp.43=0
TitleList.Expanded.43=0
TitleList.Kind.43=0
-TitleList.Title.44=span-end
+TitleList.Title.44=span
TitleList.Level.44=2
-TitleList.Url.44=gfs\span-end.html
+TitleList.Url.44=gfs\span.html
TitleList.Icon.44=0
TitleList.Status.44=0
-TitleList.Keywords.44=span-end`\
+TitleList.Keywords.44=span
TitleList.ContextNumber.44=
TitleList.ApplyTemp.44=0
TitleList.Expanded.44=0
TitleList.Kind.44=0
-TitleList.Title.45=span-start
+TitleList.Title.45=span-end
TitleList.Level.45=2
-TitleList.Url.45=gfs\span-start.html
+TitleList.Url.45=gfs\span-end.html
TitleList.Icon.45=0
TitleList.Status.45=0
-TitleList.Keywords.45=span-start`\
+TitleList.Keywords.45=span-end`\
TitleList.ContextNumber.45=
TitleList.ApplyTemp.45=0
TitleList.Expanded.45=0
TitleList.Kind.45=0
-TitleList.Title.46=toolkit-error
+TitleList.Title.46=span-start
TitleList.Level.46=2
-TitleList.Url.46=gfs\toolkit-error.html
+TitleList.Url.46=gfs\span-start.html
TitleList.Icon.46=0
TitleList.Status.46=0
-TitleList.Keywords.46=toolkit-error`\:detail`\
+TitleList.Keywords.46=span-start`\
TitleList.ContextNumber.46=
TitleList.ApplyTemp.46=0
TitleList.Expanded.46=0
TitleList.Kind.46=0
-TitleList.Title.47=toolkit-warning
+TitleList.Title.47=toolkit-error
TitleList.Level.47=2
-TitleList.Url.47=gfs\toolkit-warning.html
+TitleList.Url.47=gfs\toolkit-error.html
TitleList.Icon.47=0
TitleList.Status.47=0
-TitleList.Keywords.47=toolkit-warning
+TitleList.Keywords.47=toolkit-error`\:detail`\
TitleList.ContextNumber.47=
TitleList.ApplyTemp.47=0
TitleList.Expanded.47=0
TitleList.Kind.47=0
-TitleList.Title.48=win32-error
+TitleList.Title.48=toolkit-warning
TitleList.Level.48=2
-TitleList.Url.48=gfs\win32-error.html
+TitleList.Url.48=gfs\toolkit-warning.html
TitleList.Icon.48=0
TitleList.Status.48=0
-TitleList.Keywords.48=win32-error`\:code`\
+TitleList.Keywords.48=toolkit-warning
TitleList.ContextNumber.48=
TitleList.ApplyTemp.48=0
TitleList.Expanded.48=0
TitleList.Kind.48=0
-TitleList.Title.49=win32-warning
+TitleList.Title.49=win32-error
TitleList.Level.49=2
-TitleList.Url.49=gfs\win32-warning.html
+TitleList.Url.49=gfs\win32-error.html
TitleList.Icon.49=0
TitleList.Status.49=0
-TitleList.Keywords.49=win32-warning
+TitleList.Keywords.49=win32-error`\:code`\
TitleList.ContextNumber.49=
TitleList.ApplyTemp.49=0
TitleList.Expanded.49=0
TitleList.Kind.49=0
-TitleList.Title.50=Widgets Package
-TitleList.Level.50=1
-TitleList.Url.50=WidgetsPackage.html
+TitleList.Title.50=win32-warning
+TitleList.Level.50=2
+TitleList.Url.50=gfs\win32-warning.html
TitleList.Icon.50=0
TitleList.Status.50=0
-TitleList.Keywords.50=GFW`\graphic-forms.uitoolkit.widgets
+TitleList.Keywords.50=win32-warning
TitleList.ContextNumber.50=
TitleList.ApplyTemp.50=0
TitleList.Expanded.50=0
TitleList.Kind.50=0
-TitleList.Title.51=default-message-filter
-TitleList.Level.51=2
-TitleList.Url.51=gfw\default-message-filter.html
+TitleList.Title.51=Widgets Package
+TitleList.Level.51=1
+TitleList.Url.51=WidgetsPackage.html
TitleList.Icon.51=0
TitleList.Status.51=0
-TitleList.Keywords.51=default-message-filter`\GetMessage`\MSG`\
+TitleList.Keywords.51=GFW`\graphic-forms.uitoolkit.widgets
TitleList.ContextNumber.51=
TitleList.ApplyTemp.51=0
-TitleList.Expanded.51=0
+TitleList.Expanded.51=1
TitleList.Kind.51=0
-TitleList.Title.52=event-activate
+TitleList.Title.52=default-message-filter
TitleList.Level.52=2
-TitleList.Url.52=gfw\event-activate.html
+TitleList.Url.52=gfw\default-message-filter.html
TitleList.Icon.52=0
TitleList.Status.52=0
-TitleList.Keywords.52=event-activate
+TitleList.Keywords.52=default-message-filter`\GetMessage`\MSG`\
TitleList.ContextNumber.52=
TitleList.ApplyTemp.52=0
TitleList.Expanded.52=0
TitleList.Kind.52=0
-TitleList.Title.53=event-arm
+TitleList.Title.53=event-activate
TitleList.Level.53=2
-TitleList.Url.53=gfw\event-arm.html
+TitleList.Url.53=gfw\event-activate.html
TitleList.Icon.53=0
TitleList.Status.53=0
-TitleList.Keywords.53=event-arm
+TitleList.Keywords.53=event-activate
TitleList.ContextNumber.53=
TitleList.ApplyTemp.53=0
TitleList.Expanded.53=0
TitleList.Kind.53=0
-TitleList.Title.54=event-close
+TitleList.Title.54=event-arm
TitleList.Level.54=2
-TitleList.Url.54=gfw\event-close.html
+TitleList.Url.54=gfw\event-arm.html
TitleList.Icon.54=0
TitleList.Status.54=0
-TitleList.Keywords.54=event-close
+TitleList.Keywords.54=event-arm
TitleList.ContextNumber.54=
TitleList.ApplyTemp.54=0
TitleList.Expanded.54=0
TitleList.Kind.54=0
-TitleList.Title.55=event-deactivate
+TitleList.Title.55=event-close
TitleList.Level.55=2
-TitleList.Url.55=gfw\event-deactivate.html
+TitleList.Url.55=gfw\event-close.html
TitleList.Icon.55=0
TitleList.Status.55=0
-TitleList.Keywords.55=event-deactivate
+TitleList.Keywords.55=event-close
TitleList.ContextNumber.55=
TitleList.ApplyTemp.55=0
TitleList.Expanded.55=0
TitleList.Kind.55=0
-TitleList.Title.56=event-default-action
+TitleList.Title.56=event-deactivate
TitleList.Level.56=2
-TitleList.Url.56=gfw\event-default-action.html
+TitleList.Url.56=gfw\event-deactivate.html
TitleList.Icon.56=0
TitleList.Status.56=0
-TitleList.Keywords.56=event-default-action
+TitleList.Keywords.56=event-deactivate
TitleList.ContextNumber.56=
TitleList.ApplyTemp.56=0
TitleList.Expanded.56=0
TitleList.Kind.56=0
-TitleList.Title.57=event-dispatcher
+TitleList.Title.57=event-default-action
TitleList.Level.57=2
-TitleList.Url.57=gfw\event-dispatcher.html
+TitleList.Url.57=gfw\event-default-action.html
TitleList.Icon.57=0
TitleList.Status.57=0
-TitleList.Keywords.57=event-dispatcher
+TitleList.Keywords.57=event-default-action
TitleList.ContextNumber.57=
TitleList.ApplyTemp.57=0
TitleList.Expanded.57=0
TitleList.Kind.57=0
-TitleList.Title.58=event-dispose
+TitleList.Title.58=event-dispatcher
TitleList.Level.58=2
-TitleList.Url.58=gfw\event-dispose.html
+TitleList.Url.58=gfw\event-dispatcher.html
TitleList.Icon.58=0
TitleList.Status.58=0
-TitleList.Keywords.58=event-dispose
+TitleList.Keywords.58=event-dispatcher
TitleList.ContextNumber.58=
TitleList.ApplyTemp.58=0
TitleList.Expanded.58=0
TitleList.Kind.58=0
-TitleList.Title.59=event-select
+TitleList.Title.59=event-dispose
TitleList.Level.59=2
-TitleList.Url.59=gfw\event-select.html
+TitleList.Url.59=gfw\event-dispose.html
TitleList.Icon.59=0
TitleList.Status.59=0
-TitleList.Keywords.59=event-select
+TitleList.Keywords.59=event-dispose
TitleList.ContextNumber.59=
TitleList.ApplyTemp.59=0
TitleList.Expanded.59=0
TitleList.Kind.59=0
-TitleList.Title.60=event-source
+TitleList.Title.60=event-select
TitleList.Level.60=2
-TitleList.Url.60=gfw\event-source.html
+TitleList.Url.60=gfw\event-select.html
TitleList.Icon.60=0
TitleList.Status.60=0
-TitleList.Keywords.60=event-source
+TitleList.Keywords.60=event-select
TitleList.ContextNumber.60=
TitleList.ApplyTemp.60=0
TitleList.Expanded.60=0
TitleList.Kind.60=0
-TitleList.Title.61=message-loop
+TitleList.Title.61=event-source
TitleList.Level.61=2
-TitleList.Url.61=gfw\message-loop.html
+TitleList.Url.61=gfw\event-source.html
TitleList.Icon.61=0
TitleList.Status.61=0
-TitleList.Keywords.61=message-loop
+TitleList.Keywords.61=event-source
TitleList.ContextNumber.61=
TitleList.ApplyTemp.61=0
TitleList.Expanded.61=0
TitleList.Kind.61=0
-TitleList.Title.62=obtain-event-time
+TitleList.Title.62=message-loop
TitleList.Level.62=2
-TitleList.Url.62=gfw\obtain-event-time.html
+TitleList.Url.62=gfw\message-loop.html
TitleList.Icon.62=0
TitleList.Status.62=0
-TitleList.Keywords.62=obtain-event-time
+TitleList.Keywords.62=message-loop
TitleList.ContextNumber.62=
TitleList.ApplyTemp.62=0
TitleList.Expanded.62=0
TitleList.Kind.62=0
-TitleList.Title.63=with-graphics-context
+TitleList.Title.63=obtain-event-time
TitleList.Level.63=2
-TitleList.Url.63=gfw\with-graphics-context.html
+TitleList.Url.63=gfw\obtain-event-time.html
TitleList.Icon.63=0
TitleList.Status.63=0
-TitleList.Keywords.63=with-graphics-context
+TitleList.Keywords.63=obtain-event-time
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.Title.64=with-graphics-context
+TitleList.Level.64=2
+TitleList.Url.64=gfw\with-graphics-context.html
TitleList.Icon.64=0
TitleList.Status.64=0
-TitleList.Keywords.64=
+TitleList.Keywords.64=with-graphics-context
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.Title.65=Miscellaneous Topics
+TitleList.Level.65=0
+TitleList.Url.65=MiscellaneousTopics.html
TitleList.Icon.65=0
TitleList.Status.65=0
TitleList.Keywords.65=
@@ -753,9 +753,9 @@
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.Title.66=Image Data Plugins
+TitleList.Level.66=1
+TitleList.Url.66=ImageDataPlugins.html
TitleList.Icon.66=0
TitleList.Status.66=0
TitleList.Keywords.66=
@@ -763,9 +763,9 @@
TitleList.ApplyTemp.66=0
TitleList.Expanded.66=0
TitleList.Kind.66=0
-TitleList.Title.67=Glossary
+TitleList.Title.67=Terminology Conventions
TitleList.Level.67=0
-TitleList.Url.67=Glossary.html
+TitleList.Url.67=TerminologyConventions.html
TitleList.Icon.67=0
TitleList.Status.67=0
TitleList.Keywords.67=
@@ -773,14 +773,24 @@
TitleList.ApplyTemp.67=0
TitleList.Expanded.67=0
TitleList.Kind.67=0
-TitleList.Title.68=Footnotes
+TitleList.Title.68=Glossary
TitleList.Level.68=0
-TitleList.Url.68=Footnotes.html
+TitleList.Url.68=Glossary.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
+TitleList.Kind.68=0
+TitleList.Title.69=Footnotes
+TitleList.Level.69=0
+TitleList.Url.69=Footnotes.html
+TitleList.Icon.69=0
+TitleList.Status.69=0
+TitleList.Keywords.69=
+TitleList.ContextNumber.69=
+TitleList.ApplyTemp.69=0
+TitleList.Expanded.69=0
+TitleList.Kind.69=1
Added: trunk/docs/manual/gfg/font.html
==============================================================================
--- (empty file)
+++ trunk/docs/manual/gfg/font.html Tue Oct 10 03:13:08 2006
@@ -0,0 +1,77 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>font</title>
+<meta name="GENERATOR" content="WinCHM">
+<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
+
+</head>
+
+<body>
+<H4>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
+cellSpacing=0 cellPadding=2 width="100%" border=1>
+
+ <TR>
+ <TD width="60%"><FONT face=Arial><STRONG>font</STRONG></FONT></TD>
+ <TD><FONT face=Arial size=2>[Class]</FONT></TD></TR></TABLE><FONT
+face=Arial>
+<HR> </FONT></H4>
+<H4 dir=ltr><FONT face=Arial>description</FONT></H4><FONT size=2 ><FONT face=Arial size=2>
+<P dir=ltr><FONT face=Arial size=2>
+<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff
+cellSpacing=0 cellPadding=0 width="100%" border=0>
+
+ <TR>
+ <TD width="15%"><FONT size=1>Inherits:</FONT></TD>
+ <TD ><FONT size=1><A
+ href="../gfs/native-object.html">gfs:native-object</A> </FONT></TD></TR>
+ <TR>
+ <TD width="15%"><FONT
+ size=1>Inherited By: </FONT></TD>
+ <TD ><FONT size=1><EM>none</EM></FONT></TD></TR></TABLE></FONT></P>
+<P dir=ltr style="MARGIN-RIGHT: 0px">
+
+
+
+
+
+
+ This class encapsulates a native font
+handle.</FONT></FONT><FONT face=Arial size=2><EM></P></EM></FONT>
+<H4><FONT face=Arial>initargs</FONT></H4>
+<P>
+<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ffffff cellSpacing=0
+cellPadding=2 width="100%" border=1>
+
+ <TR>
+ <TD width="20%"><FONT face=Arial size=2>:data</FONT></TD>
+ <TD><FONT face=Arial size=2> A
+ font-data object. If this initarg is specified, then a value for the :gc
+ initarg is also
+ required.</FONT></TD></TR>
+ <TR>
+ <TD width="20%"><FONT face=Arial size=2>:gc</FONT></TD>
+ <TD><FONT face=Arial size=2>A
+ graphics-context object. If this initarg is specified, then a value for
+ the :data initarg is also
+required.</FONT></TD></TR></TABLE></P>
+<P>
+<H4><FONT face=Arial>see also</FONT></H4><FONT face=Arial size=2><FONT
+face=Arial size=2><FONT face=Arial size=2>
+<P> </P></FONT></FONT></FONT>
+<HR>
+
+<P></P>
+<FONT face=Arial size=2> </FONT>
+<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
+ face=Arial>Copyright © 2006, Jack D. Unrue</FONT>
+</P></TD></TR></TABLE></P></body>
+</html>
Modified: trunk/docs/manual/gfg/make-color.html
==============================================================================
--- trunk/docs/manual/gfg/make-color.html (original)
+++ trunk/docs/manual/gfg/make-color.html Tue Oct 10 03:13:08 2006
@@ -30,16 +30,16 @@
cellSpacing=0 cellPadding=2 width="100%" border=1>
<TR>
- <TD width="20%"><EM><FONT size=2>:blue</FONT></EM></TD>
+ <TD width="20%"><FONT size=2>:blue</FONT></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 width="20%"><FONT size=2>:green</FONT></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 width="20%"><FONT size=2>:red</FONT></TD>
<TD><FONT
size=2>The red color
component (0 -
Modified: trunk/docs/manual/gfs/native-object.html
==============================================================================
--- trunk/docs/manual/gfs/native-object.html (original)
+++ trunk/docs/manual/gfs/native-object.html Tue Oct 10 03:13:08 2006
@@ -23,29 +23,16 @@
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
- <TD width="16%"><FONT size=1>Inherits:</FONT></TD>
- <TD width="28%"><FONT size=1><EM>none</EM> </FONT></TD>
- <TD width="28%"><FONT size=1> </FONT></TD>
- <TD width="28%"><FONT size=1> </FONT></TD></TR>
+ <TD width="15%"><FONT size=1>Inherits:</FONT></TD>
+ <TD ><FONT size=1><EM>none</EM> </FONT></TD></TR>
<TR>
- <TD width="16%"><FONT
+ <TD width="15%"><FONT
size=1>Inherited By: </FONT></TD>
- <TD width="28%"><FONT size=1>display,</FONT></TD>
- <TD width="28%"><FONT size=1><A
- href="../gfw/event-source.html">event-source</A>,</FONT></TD>
- <TD width="28%"><FONT size=1>font,</FONT></TD></TR>
- <TR>
- <TD width="16%"><FONT size=1></FONT></TD>
- <TD width="28%"><FONT
- size=1>graphics-context,</FONT></TD>
- <TD width="28%"><FONT size=1>icon-bundle,</FONT></TD>
- <TD width="28%"><FONT size=1>image,</FONT></TD></TR>
- <TR>
- <TD width="16%"><FONT size=1></FONT></TD>
- <TD width="28%"><FONT
- size=1>image-data-plugin</FONT></TD>
- <TD width="28%"><FONT size=1></FONT></TD>
- <TD width="28%"></TD></TR></TABLE></FONT></P>
+ <TD ><FONT size=1>gfw:display, <A
+ href="../gfw/event-source.html">gfw:event-source</A>, <A
+ href="../gfg/font.html">gfg:font</A>, gfg:graphics-context,
+ gfg:icon-bundle, gfg:image,
+gfg:image-data-plugin</FONT></TD></TR></TABLE></FONT></P>
<P dir=ltr style="MARGIN-RIGHT: 0px">This is the
abstract base class for objects representing a system
resource such as a window or device context.</P>
Modified: trunk/docs/manual/gfw/event-dispatcher.html
==============================================================================
--- trunk/docs/manual/gfw/event-dispatcher.html (original)
+++ trunk/docs/manual/gfw/event-dispatcher.html Tue Oct 10 03:13:08 2006
@@ -24,20 +24,16 @@
<TBODY>
<TR>
- <TD width="16%"><FONT size=1>Inherits:</FONT></TD></FONT>
+ <TD width="15%"><FONT size=1>Inherits:</FONT></TD></FONT>
</FONT></FONT>
- <TD width="28%"><FONT
+ <TD ><FONT
size=1><EM>none</EM></FONT></TD><FONT size=2><FONT face=Arial size=2><FONT
- face=Arial size=2>
- <TD width="28%"><FONT size=1> </FONT></TD>
- <TD width="28%"><FONT size=1> </FONT></TD></TR>
+ face=Arial size=2></TR>
<TR>
- <TD width="16%"><FONT
+ <TD width="15%"><FONT
size=1>Inherited By: </FONT></TD>
- <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>
+ <TD ><FONT size=1>scrolling-event-dispatcher</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 generic functions in order to implement desired
Modified: trunk/docs/manual/gfw/event-source.html
==============================================================================
--- trunk/docs/manual/gfw/event-source.html (original)
+++ trunk/docs/manual/gfw/event-source.html Tue Oct 10 03:13:08 2006
@@ -23,23 +23,15 @@
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
- <TD width="16%"><FONT size=1>Inherits:</FONT></TD>
- <TD width="28%"><FONT size=1><A
- href="../gfs/native-object.html">gfs:native-object</A></FONT></TD>
- <TD width="28%"><FONT size=1> </FONT></TD>
- <TD width="28%"><FONT size=1> </FONT></TD></TR>
+ <TD width="15%"><FONT size=1>Inherits:</FONT></TD>
+ <TD ><FONT size=1><A
+ href="../gfs/native-object.html">gfs:native-object</A></FONT></TD></TR>
<TR>
- <TD width="16%"><FONT
+ <TD width="15%"><FONT
size=1>Inherited By: </FONT></TD>
- <TD width="28%"><FONT size=1>display,</FONT></TD>
- <TD width="28%"><FONT size=1>font,</FONT></TD>
- <TD width="28%"><FONT size=1>graphics-context,</FONT></TD></TR>
- <TR>
- <TD width="16%"><FONT size=1></FONT></TD>
- <TD width="28%"><FONT
- size=1>icon-bundle,</FONT></TD>
- <TD width="28%"><FONT size=1>image,</FONT></TD>
- <TD width="28%"><FONT size=1>image-data-plugin</FONT></TD></TR></TABLE></FONT></P>
+ <TD ><FONT size=1>
+
+ ???</FONT></TD></TR></TABLE></FONT></P>
<P dir=ltr style="MARGIN-RIGHT: 0px"> This
is the base class for user interface objects whose native window instance generates
events.</FONT></FONT></P>
Modified: trunk/src/tests/uitoolkit/scroll-text-panel.lisp
==============================================================================
--- trunk/src/tests/uitoolkit/scroll-text-panel.lisp (original)
+++ trunk/src/tests/uitoolkit/scroll-text-panel.lisp Tue Oct 10 03:13:08 2006
@@ -33,14 +33,14 @@
(in-package #:graphic-forms.uitoolkit.tests)
-(defclass text-grid-panel-events (gfw:event-dispatcher) ())
+(defclass scroll-text-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
+ (let ((panel (make-instance 'gfw:panel :dispatcher 'scroll-text-panel-events
+ :parent parent)))
+ (let* ((font (gfg:font panel)) ; we don't own font, so don't dispose it
+ (gc (make-instance 'gfg:graphics-context :widget panel))
+ (metrics (gfg:metrics gc font)))
+ (print metrics)
+ (gfs:dispose gc))
+ panel))
Modified: trunk/src/uitoolkit/graphics/font.lisp
==============================================================================
--- trunk/src/uitoolkit/graphics/font.lisp (original)
+++ trunk/src/uitoolkit/graphics/font.lisp Tue Oct 10 03:13:08 2006
@@ -49,5 +49,7 @@
(setf (slot-value self 'gfs:handle) nil))
(defmethod initialize-instance :after ((self font) &key gc data &allow-other-keys)
- (if gc
+ (when (or gc data)
+ (unless (and gc data (typep gc 'graphics-context) (typep data 'font-data))
+ (error 'gfs:toolkit-error :detail "font initialize-instance requires graphics-context and font-data"))
(setf (slot-value self 'gfs:handle) (data->font (gfs:handle gc) data))))
Modified: trunk/src/uitoolkit/system/gdi32.lisp
==============================================================================
--- trunk/src/uitoolkit/system/gdi32.lisp (original)
+++ trunk/src/uitoolkit/system/gdi32.lisp Tue Oct 10 03:13:08 2006
@@ -207,6 +207,12 @@
(hdc HANDLE))
(defcfun
+ ("GetCurrentObject" get-current-object)
+ HANDLE
+ (hdc HANDLE)
+ (type UINT))
+
+(defcfun
("GetDCBrushColor" get-dc-brush-color)
COLORREF
(hdc HANDLE))
Modified: trunk/src/uitoolkit/system/system-constants.lisp
==============================================================================
--- trunk/src/uitoolkit/system/system-constants.lisp (original)
+++ trunk/src/uitoolkit/system/system-constants.lisp Tue Oct 10 03:13:08 2006
@@ -719,6 +719,21 @@
(defconstant +obm-size+ 32766)
(defconstant +obm-old-close+ 32767)
+(defconstant +obj-pen+ 1)
+(defconstant +obj-brush+ 2)
+(defconstant +obj-dc+ 3)
+(defconstant +obj-metadc+ 4)
+(defconstant +obj-pal+ 5)
+(defconstant +obj-font+ 6)
+(defconstant +obj-bitmap+ 7)
+(defconstant +obj-region+ 8)
+(defconstant +obj-metafile+ 9)
+(defconstant +obj-memdc+ 10)
+(defconstant +obj-extpen+ 11)
+(defconstant +obj-enhmetadc+ 12)
+(defconstant +obj-enhmetafile+ 13)
+(defconstant +obj-colorspace+ 14)
+
(defconstant +ofn-readonly+ #x00000001)
(defconstant +ofn-overwriteprompt+ #x00000002)
(defconstant +ofn-hidereadonly+ #x00000004)
Modified: trunk/src/uitoolkit/widgets/widget.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/widget.lisp (original)
+++ trunk/src/uitoolkit/widgets/widget.lisp Tue Oct 10 03:13:08 2006
@@ -214,6 +214,10 @@
(defmethod enabled-p ((self widget))
(/= (gfs::is-window-enabled (gfs:handle self)) 0))
+(defmethod gfg:font :before ((self widget))
+ (if (gfs:disposed-p self)
+ (error 'gfs:disposed-error)))
+
(defmethod horizontal-scrollbar-p :before ((self widget))
(if (gfs:disposed-p self)
(error 'gfs:disposed-error)))
Modified: trunk/src/uitoolkit/widgets/window.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/window.lisp (original)
+++ trunk/src/uitoolkit/widgets/window.lisp Tue Oct 10 03:13:08 2006
@@ -246,6 +246,13 @@
(let ((focus-hwnd (gfs::get-focus)))
(and (not (gfs:null-handle-p focus-hwnd)) (cffi:pointer-eq focus-hwnd (gfs:handle self)))))
+(defmethod gfg:font ((self window))
+ (gfs::with-retrieved-dc ((gfs:handle self) hdc)
+ (let ((hfont (gfs::get-current-object hdc gfs::+obj-font+)))
+ (if (gfs:null-handle-p hfont)
+ (error 'gfs:win32-error :detail "get-current-object failed"))
+ (make-instance 'gfg:font :handle hfont))))
+
(defmethod give-focus :before ((self window))
(if (gfs:disposed-p self)
(error 'gfs:disposed-error)))
More information about the Graphic-forms-cvs
mailing list