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