graphic-forms-cvs October 2006

graphic-forms-cvs@common-lisp.net

1 participants
102 discussions

[graphic-forms-cvs] r300 - in trunk/src: tests/uitoolkit uitoolkit/widgets
by junrue＠common-lisp.net 12 Oct '06

12 Oct '06

Author: junrue Date: Wed Oct 11 21:20:01 2006 New Revision: 300 Modified: trunk/src/tests/uitoolkit/scroll-grid-panel.lisp trunk/src/tests/uitoolkit/scroll-tester.lisp trunk/src/tests/uitoolkit/scroll-text-panel.lisp trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Log: fixed scrolling regressions 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 Wed Oct 11 21:20:01 2006 @@ -68,8 +68,8 @@ (setf scrollbar (gfw:obtain-vertical-scrollbar window)) (setf (gfw:outer-limits scrollbar) (gfs:make-span :end (gfs:size-height panel-size))) - (setf (gfw:step-increments disp) (gfs:make-size :width 1 :height 1)) (setf (gfw:thumb-position scrollbar) 0) + (setf (gfw:step-increments disp) (gfs:make-size :width 1 :height 1)) (setf (slot-value disp 'gfw::viewport-origin) (gfs:make-point)) (gfw:event-resize disp window (gfw:size window) :restored))) Modified: trunk/src/tests/uitoolkit/scroll-tester.lisp ============================================================================== --- trunk/src/tests/uitoolkit/scroll-tester.lisp (original) +++ trunk/src/tests/uitoolkit/scroll-tester.lisp Wed Oct 11 21:20:01 2006 @@ -81,9 +81,9 @@ (:item "&Text" :callback select-text))))))) (setf (gfw:menu-bar *scroll-tester-win*) menubar (gfw:top-child-of layout) grid-panel)) - (set-grid-scroll-params *scroll-tester-win*) (setf (gfw:text *scroll-tester-win*) "Scroll Tester" (gfw:size *scroll-tester-win*) (gfs:make-size :width 300 :height 275)) + (set-grid-scroll-params *scroll-tester-win*) (gfw:show *scroll-tester-win* t))) (defun scroll-tester () 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 Wed Oct 11 21:20:01 2006 @@ -79,19 +79,18 @@ panel)) (defun set-text-scroll-params (window) - (let ((disp (gfw:dispatcher window)) - (panel (gfw::obtain-top-child window))) + (let* ((disp (gfw:dispatcher window)) + (panel (gfw::obtain-top-child window)) + (panel-size (gfw:size panel))) (gfw:with-graphics-context (gc panel) (let ((metrics (gfg:metrics gc (font-of (gfw:dispatcher panel)))) (scrollbar (gfw:obtain-horizontal-scrollbar window))) (setf (gfw:outer-limits scrollbar) - (gfs:make-span :end (* (gfs:size-width *text-model-size*) - (gfg:average-char-width metrics)))) + (gfs:make-span :end (gfs:size-width panel-size))) (setf (gfw:thumb-position scrollbar) 0) (setf scrollbar (gfw:obtain-vertical-scrollbar window)) (setf (gfw:outer-limits scrollbar) - (gfs:make-span :end (* (gfs:size-height *text-model-size*) - (gfg:height metrics)))) + (gfs:make-span :end (gfs:size-height panel-size))) (setf (gfw:thumb-position scrollbar) 0) (setf (gfw:step-increments disp) (gfs:make-size :width (gfg:average-char-width metrics) :height (gfg:height metrics))))) Modified: trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp (original) +++ trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Wed Oct 11 21:20:01 2006 @@ -38,7 +38,7 @@ ;;; (defun clamp-scroll-pos (pos total-steps page-size) - (setf pos (min pos (1+ (- total-steps page-size)))) + (setf pos (min pos (- total-steps page-size))) (max pos 0)) (defun update-scrollbar (scrollbar step-size detail) @@ -61,67 +61,64 @@ (setf (thumb-position scrollbar) new-pos) new-pos))) -(defun update-scrolling-state (window &optional axis detail) +(defun update-scrolling-state (window axis &optional detail) (unless axis (return-from update-scrolling-state nil)) (unless detail (setf detail :thumb-position)) - (let ((disp (dispatcher window))) + (let ((disp (dispatcher window)) + (hscrollbar (obtain-horizontal-scrollbar window)) + (vscrollbar (obtain-vertical-scrollbar window))) (let ((child (obtain-top-child window)) + (origin (slot-value disp 'viewport-origin)) (h-step (gfs:size-width (step-increments disp))) (v-step (gfs:size-height (step-increments disp))) (new-hpos 0) (new-vpos 0)) (cond - ((or (eql axis :horizontal) (eql axis :both)) - (let ((scrollbar (obtain-horizontal-scrollbar window))) - (setf new-hpos (update-scrollbar scrollbar h-step detail)))) - ((or (eql axis :vertical) (eql axis :both)) - (let ((scrollbar (obtain-vertical-scrollbar window))) - (setf new-vpos (update-scrollbar scrollbar v-step detail))))) - (let* ((origin (slot-value disp 'viewport-origin)) - (delta-x (* (floor (- (gfs:point-x origin) new-hpos) h-step) h-step)) - (delta-y (* (floor (- (gfs:point-y origin) new-vpos) v-step) v-step))) - (decf (gfs:point-x origin) delta-x) - (decf (gfs:point-y origin) delta-y) - (scroll child delta-x delta-y nil 0)))) + ((eql axis :horizontal) + (setf new-hpos (update-scrollbar hscrollbar h-step detail)) + (setf new-vpos (thumb-position vscrollbar))) + ((eql axis :vertical) + (setf new-hpos (thumb-position hscrollbar)) + (setf new-vpos (update-scrollbar vscrollbar v-step detail))) + ((eql axis :both) + (setf new-hpos (update-scrollbar hscrollbar h-step detail)) + (setf new-vpos (update-scrollbar vscrollbar v-step detail)))) + (let ((new-x (* (floor new-hpos h-step) h-step)) + (new-y (* (floor new-vpos v-step) v-step))) + (scroll child (- (gfs:point-x origin) new-x) (- (gfs:point-y origin) new-y) nil 0) + (setf (gfs:point-x origin) new-x) + (setf (gfs:point-y origin) new-y)))) detail) (defun validate-step-values (amounts) (if (or (<= (gfs:size-width amounts) 0) (<= (gfs:size-height amounts) 0)) (error 'gfs:toolkit-error :detail "invalid step increment"))) -(defun update-scrollbar-page-size (scrollbar viewport-dim top-dim) - (if scrollbar - (setf (page-increment scrollbar) (1+ (min viewport-dim top-dim)))) - scrollbar) - (defun update-scrollbar-page-sizes (window) - (let ((viewport-size (client-size window)) - (top (obtain-top-child window))) - (let ((top-size (if top (size top) viewport-size))) - (update-scrollbar-page-size (obtain-vertical-scrollbar window) - (gfs:size-height viewport-size) - (gfs:size-height top-size)) - (setf viewport-size (client-size window)) - (update-scrollbar-page-size (obtain-horizontal-scrollbar window) - (gfs:size-width viewport-size) - (gfs:size-width top-size))))) + (setf (page-increment (obtain-vertical-scrollbar window)) + (gfs:size-height (client-size window))) + (setf (page-increment (obtain-horizontal-scrollbar window)) + (gfs:size-width (client-size window)))) ; recalculate client size on purpose (defun update-viewport-origin-for-resize (window) (let* ((top (obtain-top-child window)) (viewport-size (client-size window)) - (top-size (if top (size top) viewport-size)) + (hscrollbar (obtain-horizontal-scrollbar window)) + (vscrollbar (obtain-vertical-scrollbar window)) (origin (slot-value (dispatcher window) 'viewport-origin)) (saved-x (gfs:point-x origin)) (saved-y (gfs:point-y origin)) - (delta-x (- (+ (gfs:size-width viewport-size) (gfs:point-x origin)) (gfs:size-width top-size))) - (delta-y (- (+ (gfs:size-height viewport-size) (gfs:point-y origin)) (gfs:size-height top-size)))) - (if (and (> delta-x 0) (> (gfs:point-x origin) 0)) - (setf (gfs:point-x origin) (max 0 (- (gfs:point-x origin) delta-x))) + (delta-x (- (+ (gfs:size-width viewport-size) saved-x) + (gfs:span-end (outer-limits hscrollbar)))) + (delta-y (- (+ (gfs:size-height viewport-size) saved-y) + (gfs:span-end (outer-limits vscrollbar))))) + (if (and (> delta-x 0) (> saved-x 0)) + (setf (gfs:point-x origin) (max 0 (- saved-x delta-x))) (setf delta-x 0)) - (if (and (> delta-y 0) (> (gfs:point-y origin) 0)) - (setf (gfs:point-y origin) (max 0 (- (gfs:point-y origin) delta-y))) + (if (and (> delta-y 0) (> saved-y 0)) + (setf (gfs:point-y origin) (max 0 (- saved-y delta-y))) (setf delta-y 0)) (if (or (and (zerop (gfs:point-x origin)) (/= saved-x 0)) (and (zerop (gfs:point-y origin)) (/= saved-y 0))) @@ -137,13 +134,21 @@ (defmethod event-pre-resize ((disp scrolling-event-dispatcher) (window window) rect type) (declare (ignore type)) - (let ((h-step (gfs:size-width (step-increments disp))) - (v-step (gfs:size-height (step-increments disp))) - (size (gfs:size rect))) + (let* ((h-step (gfs:size-width (step-increments disp))) + (v-step (gfs:size-height (step-increments disp))) + (outer-size (gfw:size window)) + (client-size (gfw:client-size window)) + (width-diff (- (gfs:size-width outer-size) (gfs:size-width client-size))) + (height-diff (- (gfs:size-height outer-size) (gfs:size-height client-size))) + (size (gfs:size rect))) (if (/= h-step 1) - (setf (gfs:size-width size) (* (floor (gfs:size-width size) h-step) h-step))) + (setf (gfs:size-width size) + (+ (* (floor (- (gfs:size-width size) width-diff) h-step) h-step) + width-diff))) (if (/= v-step 1) - (setf (gfs:size-height size) (* (floor (gfs:size-height size) v-step) v-step))) + (setf (gfs:size-height size) + (+ (* (floor (- (gfs:size-height size) height-diff) v-step) v-step) + height-diff))) (setf (gfs:size rect) size))) (defmethod event-resize ((disp scrolling-event-dispatcher) (window window) size type)

1 0

[graphic-forms-cvs] r299 - in trunk: . docs/manual docs/manual/gfw src/uitoolkit/widgets
by junrue＠common-lisp.net 11 Oct '06

11 Oct '06

Author: junrue Date: Wed Oct 11 16:50:24 2006 New Revision: 299 Added: trunk/docs/manual/gfw/event-move.html trunk/docs/manual/gfw/event-pre-move.html Modified: trunk/NEWS.txt trunk/docs/manual/Graphic-FormsProgrammingReference.wcp trunk/docs/manual/gfw/event-pre-resize.html trunk/src/uitoolkit/widgets/event-generics.lisp trunk/src/uitoolkit/widgets/event.lisp Log: implemented event-pre-move Modified: trunk/NEWS.txt ============================================================================== --- trunk/NEWS.txt (original) +++ trunk/NEWS.txt Wed Oct 11 16:50:24 2006 @@ -27,6 +27,12 @@ * scrolling-event-dispatcher for automatic management of a scrollable child panel and window scrollbars +. Implemented GFW:EVENT-PRE-RESIZE function so that applications can customize + the behavior of a window's size drag rectangle. + +. Implemented GFW:EVENT-PRE-MOVE function so that applications can customize + the behavior of a window's move drag rectangle. + . Improved GFW:HEAP-LAYOUT such that it obeys the top child's minimum and maximum sizes, if any such sizes are set. @@ -38,12 +44,12 @@ . Implemented GFW:ENABLE-REDRAW to enable applications to temporarily disable (and later re-enable) drawing of widget content. -. Fixed a silly bug in GFW:CHECKED-P (and GFW:SELECTED-P) for checkbox and +. Fixed a bug in GFW:CHECKED-P (and GFW:SELECTED-P) for checkbox and radio button -style buttons. -. Fixed another silly bug, this one in the initialization of the paint - rectangle in the WM_PAINT message handling method; the correct rectangle - is now passed to GFW:EVENT-PAINT +. Fixed a bug in the initialization of the paint rectangle in the WM_PAINT + message handling method; the correct rectangle is now passed to + GFW:EVENT-PAINT . Fixed a bug in the SETF methods for GFW:MAXIMUM-SIZE and GFW:MINIMUM-SIZE for windows whereby the size value was not being set in the appropriate Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp ============================================================================== --- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp (original) +++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp Wed Oct 11 16:50:24 2006 @@ -92,7 +92,7 @@ DefaultTopic=Introduction.html [TOPICS] -TitleList=72 +TitleList=74 TitleList.Title.0=Legal Information TitleList.Level.0=0 TitleList.Url.0=LegalInfo.html @@ -693,99 +693,99 @@ TitleList.ApplyTemp.59=0 TitleList.Expanded.59=0 TitleList.Kind.59=0 -TitleList.Title.60=event-pre-resize +TitleList.Title.60=event-move TitleList.Level.60=2 -TitleList.Url.60=gfw\event-pre-resize.html +TitleList.Url.60=gfw\event-move.html TitleList.Icon.60=0 TitleList.Status.60=0 -TitleList.Keywords.60=event-pre-resize +TitleList.Keywords.60=event-move TitleList.ContextNumber.60= TitleList.ApplyTemp.60=0 TitleList.Expanded.60=0 TitleList.Kind.60=0 -TitleList.Title.61=event-resize +TitleList.Title.61=event-pre-move TitleList.Level.61=2 -TitleList.Url.61=gfw\event-resize.html +TitleList.Url.61=gfw\event-pre-move.html TitleList.Icon.61=0 TitleList.Status.61=0 -TitleList.Keywords.61=event-resize +TitleList.Keywords.61=event-pre-move TitleList.ContextNumber.61= TitleList.ApplyTemp.61=0 TitleList.Expanded.61=0 TitleList.Kind.61=0 -TitleList.Title.62=event-select +TitleList.Title.62=event-pre-resize TitleList.Level.62=2 -TitleList.Url.62=gfw\event-select.html +TitleList.Url.62=gfw\event-pre-resize.html TitleList.Icon.62=0 TitleList.Status.62=0 -TitleList.Keywords.62=event-select +TitleList.Keywords.62=event-pre-resize TitleList.ContextNumber.62= TitleList.ApplyTemp.62=0 TitleList.Expanded.62=0 TitleList.Kind.62=0 -TitleList.Title.63=event-source +TitleList.Title.63=event-resize TitleList.Level.63=2 -TitleList.Url.63=gfw\event-source.html +TitleList.Url.63=gfw\event-resize.html TitleList.Icon.63=0 TitleList.Status.63=0 -TitleList.Keywords.63=event-source +TitleList.Keywords.63=event-resize TitleList.ContextNumber.63= TitleList.ApplyTemp.63=0 TitleList.Expanded.63=0 TitleList.Kind.63=0 -TitleList.Title.64=message-loop +TitleList.Title.64=event-select TitleList.Level.64=2 -TitleList.Url.64=gfw\message-loop.html +TitleList.Url.64=gfw\event-select.html TitleList.Icon.64=0 TitleList.Status.64=0 -TitleList.Keywords.64=message-loop +TitleList.Keywords.64=event-select TitleList.ContextNumber.64= TitleList.ApplyTemp.64=0 TitleList.Expanded.64=0 TitleList.Kind.64=0 -TitleList.Title.65=obtain-event-time +TitleList.Title.65=event-source TitleList.Level.65=2 -TitleList.Url.65=gfw\obtain-event-time.html +TitleList.Url.65=gfw\event-source.html TitleList.Icon.65=0 TitleList.Status.65=0 -TitleList.Keywords.65=obtain-event-time +TitleList.Keywords.65=event-source TitleList.ContextNumber.65= TitleList.ApplyTemp.65=0 TitleList.Expanded.65=0 TitleList.Kind.65=0 -TitleList.Title.66=with-graphics-context +TitleList.Title.66=message-loop TitleList.Level.66=2 -TitleList.Url.66=gfw\with-graphics-context.html +TitleList.Url.66=gfw\message-loop.html TitleList.Icon.66=0 TitleList.Status.66=0 -TitleList.Keywords.66=with-graphics-context +TitleList.Keywords.66=message-loop TitleList.ContextNumber.66= TitleList.ApplyTemp.66=0 TitleList.Expanded.66=0 TitleList.Kind.66=0 -TitleList.Title.67=Miscellaneous Topics -TitleList.Level.67=0 -TitleList.Url.67=MiscellaneousTopics.html +TitleList.Title.67=obtain-event-time +TitleList.Level.67=2 +TitleList.Url.67=gfw\obtain-event-time.html TitleList.Icon.67=0 TitleList.Status.67=0 -TitleList.Keywords.67= +TitleList.Keywords.67=obtain-event-time TitleList.ContextNumber.67= TitleList.ApplyTemp.67=0 TitleList.Expanded.67=0 TitleList.Kind.67=0 -TitleList.Title.68=Image Data Plugins -TitleList.Level.68=1 -TitleList.Url.68=ImageDataPlugins.html +TitleList.Title.68=with-graphics-context +TitleList.Level.68=2 +TitleList.Url.68=gfw\with-graphics-context.html TitleList.Icon.68=0 TitleList.Status.68=0 -TitleList.Keywords.68= +TitleList.Keywords.68=with-graphics-context TitleList.ContextNumber.68= TitleList.ApplyTemp.68=0 TitleList.Expanded.68=0 TitleList.Kind.68=0 -TitleList.Title.69=Terminology Conventions +TitleList.Title.69=Miscellaneous Topics TitleList.Level.69=0 -TitleList.Url.69=TerminologyConventions.html +TitleList.Url.69=MiscellaneousTopics.html TitleList.Icon.69=0 TitleList.Status.69=0 TitleList.Keywords.69= @@ -793,9 +793,9 @@ TitleList.ApplyTemp.69=0 TitleList.Expanded.69=0 TitleList.Kind.69=0 -TitleList.Title.70=Glossary -TitleList.Level.70=0 -TitleList.Url.70=Glossary.html +TitleList.Title.70=Image Data Plugins +TitleList.Level.70=1 +TitleList.Url.70=ImageDataPlugins.html TitleList.Icon.70=0 TitleList.Status.70=0 TitleList.Keywords.70= @@ -803,14 +803,34 @@ TitleList.ApplyTemp.70=0 TitleList.Expanded.70=0 TitleList.Kind.70=0 -TitleList.Title.71=Footnotes +TitleList.Title.71=Terminology Conventions TitleList.Level.71=0 -TitleList.Url.71=Footnotes.html +TitleList.Url.71=TerminologyConventions.html TitleList.Icon.71=0 TitleList.Status.71=0 TitleList.Keywords.71= TitleList.ContextNumber.71= TitleList.ApplyTemp.71=0 TitleList.Expanded.71=0 -TitleList.Kind.71=1 +TitleList.Kind.71=0 +TitleList.Title.72=Glossary +TitleList.Level.72=0 +TitleList.Url.72=Glossary.html +TitleList.Icon.72=0 +TitleList.Status.72=0 +TitleList.Keywords.72= +TitleList.ContextNumber.72= +TitleList.ApplyTemp.72=0 +TitleList.Expanded.72=0 +TitleList.Kind.72=0 +TitleList.Title.73=Footnotes +TitleList.Level.73=0 +TitleList.Url.73=Footnotes.html +TitleList.Icon.73=0 +TitleList.Status.73=0 +TitleList.Keywords.73= +TitleList.ContextNumber.73= +TitleList.ApplyTemp.73=0 +TitleList.Expanded.73=0 +TitleList.Kind.73=1 Added: trunk/docs/manual/gfw/event-move.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-move.html Wed Oct 11 16:50:24 2006 @@ -0,0 +1,70 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-move</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%">event-move</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-move <A +href="event-dispatcher.html">event-dispatcher</A> widget + <A +href="../gfs/point.html">point</A>) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the move event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget being +moved.</TD></TR> + <TR> + <TD width="20%">point</TD> + <TD>A <A + href="../gfs/point.html">point</A> object describing widget's new + location.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to respond to +widget + + + + + + + + being + moved. +<H4>see also</H4> +<A href="event-pre-move.html">event-pre-move</A> +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/event-pre-move.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-pre-move.html Wed Oct 11 16:50:24 2006 @@ -0,0 +1,77 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-pre-move</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%">event-pre-move</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-pre-move <A +href="event-dispatcher.html">event-dispatcher</A> widget <A +href="../gfs/rectangle.html" >rectangle</A>) + +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the move event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget being +moved.</TD></TR> + <TR> + <TD width="20%">rectangle</TD> + <TD>A <A + href="../gfs/rectangle.html">rectangle</A> object describing + the move drag rectangle, which may be modified by the + application.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to respond to +widget being moved. This event function gives the +application an opportunity to modify the move drag outline prior to the move +event being delivered, thus controlling the resulting +location. + + + + + + + + + +<H4>see also</H4> +<A href="event-move.html">event-move</A> + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Modified: trunk/docs/manual/gfw/event-pre-resize.html ============================================================================== --- trunk/docs/manual/gfw/event-pre-resize.html (original) +++ trunk/docs/manual/gfw/event-pre-resize.html Wed Oct 11 16:50:24 2006 @@ -39,8 +39,9 @@ <TR> <TD width="20%">rectangle</TD> <TD>A <A - href="../gfs/rectangle.html">rectangle</A> object describing the resize drag - rectangle.</TD></TR> + href="../gfs/rectangle.html">rectangle</A> object describing the + resize drag rectangle, which may be modified by the + application.</TD></TR> <TR> <TD width="20%">type</TD> <TD> @@ -66,9 +67,9 @@ </TD></TR></TABLE>description</H4> Implement a method for this generic function to respond to widget being resized. This event function gives the -application an opportunity to modify the resize drag outline. This is -accomplished by changing one or more of the coordinates of -rectangle. +application an opportunity to modify the resize drag outline prior to the resize +event being delivered, thus controlling the resulting +dimensions. Modified: trunk/src/uitoolkit/widgets/event-generics.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/event-generics.lisp (original) +++ trunk/src/uitoolkit/widgets/event-generics.lisp Wed Oct 11 16:50:24 2006 @@ -163,10 +163,10 @@ (:method (dispatcher widget keycode char span new-content) (declare (ignorable dispatcher widget keycode char span new-content)))) -(defgeneric event-pre-move (dispatcher widget) - (:documentation "Implement this to preempt moving; return T if processed or nil if not.") - (:method (dispatcher widget) - (declare (ignorable dispatcher widget)))) +(defgeneric event-pre-move (dispatcher widget rect) + (:documentation "Implement this to modify widget's move drag rectangle.") + (:method (dispatcher widget rect) + (declare (ignorable dispatcher widget rect)))) (defgeneric event-pre-resize (dispatcher widget rect type) (:documentation "Implement this to modify widget's resize drag rectangle.") Modified: trunk/src/uitoolkit/widgets/event.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/event.lisp (original) +++ trunk/src/uitoolkit/widgets/event.lisp Wed Oct 11 16:50:24 2006 @@ -345,12 +345,19 @@ 0) (defmethod process-message (hwnd (msg (eql gfs::+wm-moving+)) wparam lparam) - (declare (ignore wparam lparam)) - (let* ((tc (thread-context)) - (w (get-widget tc hwnd))) - (if (and w (event-pre-move (dispatcher w) w)) - 1 - 0))) + (declare (ignore wparam)) + (let* ((w (get-widget (thread-context) hwnd)) + (ptr (cffi:make-pointer (logand #xFFFFFFFF lparam))) + (rect (cffi:convert-from-foreign ptr 'gfs::rect-pointer))) + (event-pre-move (dispatcher w) w rect) + (cffi:with-foreign-slots ((gfs::left gfs::top gfs::right gfs::bottom) ptr gfs::rect) + (let ((pnt (gfs:location rect)) + (size (gfs:size rect))) + (setf gfs::left (gfs:point-x pnt) + gfs::top (gfs:point-y pnt) + gfs::right (+ (gfs:point-x pnt) (gfs:size-width size)) + gfs::bottom (+ (gfs:point-y pnt) (gfs:size-height size)))))) + 1) (defmethod process-message (hwnd (msg (eql gfs::+wm-hscroll+)) wparam lparam) (let ((widget (get-widget (thread-context)

1 0

[graphic-forms-cvs] r298 - in trunk: docs/manual docs/manual/gfw src/uitoolkit/system src/uitoolkit/widgets
by junrue＠common-lisp.net 11 Oct '06

11 Oct '06

Author: junrue Date: Wed Oct 11 16:25:54 2006 New Revision: 298 Added: trunk/docs/manual/gfw/event-pre-resize.html trunk/docs/manual/gfw/event-resize.html Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp trunk/src/uitoolkit/system/system-constants.lisp trunk/src/uitoolkit/widgets/event-generics.lisp trunk/src/uitoolkit/widgets/event.lisp trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Log: implemented integral resizing (event-pre-resize) Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp ============================================================================== --- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp (original) +++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp Wed Oct 11 16:25:54 2006 @@ -92,7 +92,7 @@ DefaultTopic=Introduction.html [TOPICS] -TitleList=70 +TitleList=72 TitleList.Title.0=Legal Information TitleList.Level.0=0 TitleList.Url.0=LegalInfo.html @@ -151,7 +151,7 @@ TitleList.Keywords.5=GFG`\graphic-forms.uitoolkit.graphics TitleList.ContextNumber.5= TitleList.ApplyTemp.5=0 -TitleList.Expanded.5=1 +TitleList.Expanded.5=0 TitleList.Kind.5=0 TitleList.Title.6=color TitleList.Level.6=2 @@ -251,7 +251,7 @@ TitleList.Keywords.15=GFS`\graphic-forms.uitoolkit.system TitleList.ContextNumber.15= TitleList.ApplyTemp.15=0 -TitleList.Expanded.15=1 +TitleList.Expanded.15=0 TitleList.Kind.15=0 TitleList.Title.16=code TitleList.Level.16=2 @@ -693,79 +693,79 @@ TitleList.ApplyTemp.59=0 TitleList.Expanded.59=0 TitleList.Kind.59=0 -TitleList.Title.60=event-select +TitleList.Title.60=event-pre-resize TitleList.Level.60=2 -TitleList.Url.60=gfw\event-select.html +TitleList.Url.60=gfw\event-pre-resize.html TitleList.Icon.60=0 TitleList.Status.60=0 -TitleList.Keywords.60=event-select +TitleList.Keywords.60=event-pre-resize TitleList.ContextNumber.60= TitleList.ApplyTemp.60=0 TitleList.Expanded.60=0 TitleList.Kind.60=0 -TitleList.Title.61=event-source +TitleList.Title.61=event-resize TitleList.Level.61=2 -TitleList.Url.61=gfw\event-source.html +TitleList.Url.61=gfw\event-resize.html TitleList.Icon.61=0 TitleList.Status.61=0 -TitleList.Keywords.61=event-source +TitleList.Keywords.61=event-resize TitleList.ContextNumber.61= TitleList.ApplyTemp.61=0 TitleList.Expanded.61=0 TitleList.Kind.61=0 -TitleList.Title.62=message-loop +TitleList.Title.62=event-select TitleList.Level.62=2 -TitleList.Url.62=gfw\message-loop.html +TitleList.Url.62=gfw\event-select.html TitleList.Icon.62=0 TitleList.Status.62=0 -TitleList.Keywords.62=message-loop +TitleList.Keywords.62=event-select TitleList.ContextNumber.62= TitleList.ApplyTemp.62=0 TitleList.Expanded.62=0 TitleList.Kind.62=0 -TitleList.Title.63=obtain-event-time +TitleList.Title.63=event-source TitleList.Level.63=2 -TitleList.Url.63=gfw\obtain-event-time.html +TitleList.Url.63=gfw\event-source.html TitleList.Icon.63=0 TitleList.Status.63=0 -TitleList.Keywords.63=obtain-event-time +TitleList.Keywords.63=event-source TitleList.ContextNumber.63= TitleList.ApplyTemp.63=0 TitleList.Expanded.63=0 TitleList.Kind.63=0 -TitleList.Title.64=with-graphics-context +TitleList.Title.64=message-loop TitleList.Level.64=2 -TitleList.Url.64=gfw\with-graphics-context.html +TitleList.Url.64=gfw\message-loop.html TitleList.Icon.64=0 TitleList.Status.64=0 -TitleList.Keywords.64=with-graphics-context +TitleList.Keywords.64=message-loop TitleList.ContextNumber.64= TitleList.ApplyTemp.64=0 TitleList.Expanded.64=0 TitleList.Kind.64=0 -TitleList.Title.65=Miscellaneous Topics -TitleList.Level.65=0 -TitleList.Url.65=MiscellaneousTopics.html +TitleList.Title.65=obtain-event-time +TitleList.Level.65=2 +TitleList.Url.65=gfw\obtain-event-time.html TitleList.Icon.65=0 TitleList.Status.65=0 -TitleList.Keywords.65= +TitleList.Keywords.65=obtain-event-time TitleList.ContextNumber.65= TitleList.ApplyTemp.65=0 TitleList.Expanded.65=0 TitleList.Kind.65=0 -TitleList.Title.66=Image Data Plugins -TitleList.Level.66=1 -TitleList.Url.66=ImageDataPlugins.html +TitleList.Title.66=with-graphics-context +TitleList.Level.66=2 +TitleList.Url.66=gfw\with-graphics-context.html TitleList.Icon.66=0 TitleList.Status.66=0 -TitleList.Keywords.66= +TitleList.Keywords.66=with-graphics-context TitleList.ContextNumber.66= TitleList.ApplyTemp.66=0 TitleList.Expanded.66=0 TitleList.Kind.66=0 -TitleList.Title.67=Terminology Conventions +TitleList.Title.67=Miscellaneous Topics TitleList.Level.67=0 -TitleList.Url.67=TerminologyConventions.html +TitleList.Url.67=MiscellaneousTopics.html TitleList.Icon.67=0 TitleList.Status.67=0 TitleList.Keywords.67= @@ -773,9 +773,9 @@ TitleList.ApplyTemp.67=0 TitleList.Expanded.67=0 TitleList.Kind.67=0 -TitleList.Title.68=Glossary -TitleList.Level.68=0 -TitleList.Url.68=Glossary.html +TitleList.Title.68=Image Data Plugins +TitleList.Level.68=1 +TitleList.Url.68=ImageDataPlugins.html TitleList.Icon.68=0 TitleList.Status.68=0 TitleList.Keywords.68= @@ -783,14 +783,34 @@ TitleList.ApplyTemp.68=0 TitleList.Expanded.68=0 TitleList.Kind.68=0 -TitleList.Title.69=Footnotes +TitleList.Title.69=Terminology Conventions TitleList.Level.69=0 -TitleList.Url.69=Footnotes.html +TitleList.Url.69=TerminologyConventions.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 +TitleList.Kind.69=0 +TitleList.Title.70=Glossary +TitleList.Level.70=0 +TitleList.Url.70=Glossary.html +TitleList.Icon.70=0 +TitleList.Status.70=0 +TitleList.Keywords.70= +TitleList.ContextNumber.70= +TitleList.ApplyTemp.70=0 +TitleList.Expanded.70=0 +TitleList.Kind.70=0 +TitleList.Title.71=Footnotes +TitleList.Level.71=0 +TitleList.Url.71=Footnotes.html +TitleList.Icon.71=0 +TitleList.Status.71=0 +TitleList.Keywords.71= +TitleList.ContextNumber.71= +TitleList.ApplyTemp.71=0 +TitleList.Expanded.71=0 +TitleList.Kind.71=1 Added: trunk/docs/manual/gfw/event-pre-resize.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-pre-resize.html Wed Oct 11 16:25:54 2006 @@ -0,0 +1,99 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-pre-resize</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%">event-pre-resize</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-pre-resize <A +href="event-dispatcher.html">event-dispatcher</A> widget <A +href="../gfs/rectangle.html" >rectangle</A> + type) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the resize event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget being +resized.</TD></TR> + <TR> + <TD width="20%">rectangle</TD> + <TD>A <A + href="../gfs/rectangle.html">rectangle</A> object describing the resize drag + rectangle.</TD></TR> + <TR> + <TD width="20%">type</TD> + <TD> + Identifies which + of eight possible areas of widget 's frame + is being sized: :bottom indicates the bottom + edge of widget + :bottom-left + indicates the bottom-left corner of widget + :bottom-right indicates the + bottom-right corner of + widget :left indicates the left edge of + widget :right indicates the + right edge of widget :top + indicates the top edge of widget :top-left indicates the top-left corner of + widget :top-right indicates + the top-right corner of +widget + +</TD></TR></TABLE>description</H4> + Implement a method for this generic function to respond to +widget being resized. This event function gives the +application an opportunity to modify the resize drag outline. This is +accomplished by changing one or more of the coordinates of +rectangle. + + + + + + + + + +<H4>see also</H4> +<A href="event-resize.html">event-resize</A> + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/event-resize.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-resize.html Wed Oct 11 16:25:54 2006 @@ -0,0 +1,84 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-resize</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%">event-resize</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-resize <A +href="event-dispatcher.html">event-dispatcher</A> widget <A +href="../gfs/size.html">size</A> + type) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the resize event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget being +resized.</TD></TR> + <TR> + <TD width="20%">size</TD> + <TD>A <A + href="../gfs/size.html">size</A> object describing widget's new + dimensions.</TD></TR> + <TR> + <TD width="20%">type</TD> + <TD> + Identifies which of three possible + resizing actions occurred: :maximized + indicates that widget was expanded to its maximum <A + href="../gfs/size.html">size</A>, such as when the user clicks on the + maximize button of a window frame :minimized indicates that widget was minimized to + the taskbar :restored indicates that + widget was either restored from a minimized state, or that + resizing occurred while widget was already in a visible, + non-maximized +state</TD></TR></TABLE>description</H4> + Implement a method for this generic function to respond to +widget + + + + + + + + being + resized. +<H4>see also</H4> +<A href="event-pre-resize.html">event-pre-resize</A> +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Modified: trunk/src/uitoolkit/system/system-constants.lisp ============================================================================== --- trunk/src/uitoolkit/system/system-constants.lisp (original) +++ trunk/src/uitoolkit/system/system-constants.lisp Wed Oct 11 16:25:54 2006 @@ -1331,6 +1331,15 @@ (defconstant +wm-appcommand+ #x0319) (defconstant +wm-themechanged+ #x031A) +(defconstant +wmsz-left+ 1) +(defconstant +wmsz-right+ 2) +(defconstant +wmsz-top+ 3) +(defconstant +wmsz-topleft+ 4) +(defconstant +wmsz-topright+ 5) +(defconstant +wmsz-bottom+ 6) +(defconstant +wmsz-bottomleft+ 7) +(defconstant +wmsz-bottomright+ 8) + (defconstant +ws-overlapped+ #x00000000) (defconstant +ws-popup+ #x80000000) (defconstant +ws-child+ #x40000000) Modified: trunk/src/uitoolkit/widgets/event-generics.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/event-generics.lisp (original) +++ trunk/src/uitoolkit/widgets/event-generics.lisp Wed Oct 11 16:25:54 2006 @@ -168,10 +168,10 @@ (:method (dispatcher widget) (declare (ignorable dispatcher widget)))) -(defgeneric event-pre-resize (dispatcher widget) - (:documentation "Implement this to preempt resizing; return T if processed or nil if not.") - (:method (dispatcher widget) - (declare (ignorable dispatcher widget)))) +(defgeneric event-pre-resize (dispatcher widget rect type) + (:documentation "Implement this to modify widget's resize drag rectangle.") + (:method (dispatcher widget rect type) + (declare (ignorable dispatcher widget rect type)))) (defgeneric event-resize (dispatcher widget size type) (:documentation "Implement this to respond to widget being resized.") Modified: trunk/src/uitoolkit/widgets/event.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/event.lisp (original) +++ trunk/src/uitoolkit/widgets/event.lisp Wed Oct 11 16:25:54 2006 @@ -488,12 +488,27 @@ 0) (defmethod process-message (hwnd (msg (eql gfs::+wm-sizing+)) wparam lparam) - (declare (ignore wparam lparam)) - (let* ((tc (thread-context)) - (w (get-widget tc hwnd))) - (if (and w (event-pre-resize (dispatcher w) w)) - 1 - 0))) + (let* ((w (get-widget (thread-context) hwnd)) + (ptr (cffi:make-pointer (logand #xFFFFFFFF lparam))) + (rect (cffi:convert-from-foreign ptr 'gfs::rect-pointer)) + (type (case wparam + (#.gfs::+wmsz-bottom+ :bottom) + (#.gfs::+wmsz-bottomleft+ :bottom-left) + (#.gfs::+wmsz-bottomright+ :bottom-right) + (#.gfs::+wmsz-left+ :left) + (#.gfs::+wmsz-right+ :right) + (#.gfs::+wmsz-top+ :top) + (#.gfs::+wmsz-topleft+ :top-left) + (#.gfs::+wmsz-topright+ :top-right)))) + (event-pre-resize (dispatcher w) w rect type) + (cffi:with-foreign-slots ((gfs::left gfs::top gfs::right gfs::bottom) ptr gfs::rect) + (let ((pnt (gfs:location rect)) + (size (gfs:size rect))) + (setf gfs::left (gfs:point-x pnt) + gfs::top (gfs:point-y pnt) + gfs::right (+ (gfs:point-x pnt) (gfs:size-width size)) + gfs::bottom (+ (gfs:point-y pnt) (gfs:size-height size)))))) + 1) (defmethod process-message (hwnd (msg (eql gfs::+wm-timer+)) wparam lparam) (declare (ignore lparam)) Modified: trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp (original) +++ trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Wed Oct 11 16:25:54 2006 @@ -135,6 +135,17 @@ ;;; methods ;;; +(defmethod event-pre-resize ((disp scrolling-event-dispatcher) (window window) rect type) + (declare (ignore type)) + (let ((h-step (gfs:size-width (step-increments disp))) + (v-step (gfs:size-height (step-increments disp))) + (size (gfs:size rect))) + (if (/= h-step 1) + (setf (gfs:size-width size) (* (floor (gfs:size-width size) h-step) h-step))) + (if (/= v-step 1) + (setf (gfs:size-height size) (* (floor (gfs:size-height size) v-step) v-step))) + (setf (gfs:size rect) size))) + (defmethod event-resize ((disp scrolling-event-dispatcher) (window window) size type) (declare (ignore size type)) (call-next-method)

1 0

[graphic-forms-cvs] r297 - in trunk/src: demos/unblocked tests/uitoolkit uitoolkit/widgets
by junrue＠common-lisp.net 11 Oct '06

11 Oct '06

Author: junrue Date: Wed Oct 11 13:01:23 2006 New Revision: 297 Modified: trunk/src/demos/unblocked/scoreboard-panel.lisp trunk/src/tests/uitoolkit/scroll-grid-panel.lisp trunk/src/tests/uitoolkit/scroll-tester.lisp trunk/src/tests/uitoolkit/scroll-text-panel.lisp trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Log: implemented integral scrolling Modified: trunk/src/demos/unblocked/scoreboard-panel.lisp ============================================================================== --- trunk/src/demos/unblocked/scoreboard-panel.lisp (original) +++ trunk/src/demos/unblocked/scoreboard-panel.lisp Wed Oct 11 13:01:23 2006 @@ -85,12 +85,9 @@ (defmethod initialize-instance :after ((self scoreboard-panel-events) &key buffer-size) (declare (ignorable buffer-size)) - (let ((gc (make-instance 'gfg:graphics-context))) - (unwind-protect - (progn - (setf (label-font-of self) (make-instance 'gfg:font :gc gc :data *scoreboard-label-font-data*)) - (setf (value-font-of self) (make-instance 'gfg:font :gc gc :data *scoreboard-value-font-data*))) - (gfs:dispose gc)))) + (gfw:with-graphics-context (gc) + (setf (label-font-of self) (make-instance 'gfg:font :gc gc :data *scoreboard-label-font-data*)) + (setf (value-font-of self) (make-instance 'gfg:font :gc gc :data *scoreboard-value-font-data*)))) (defmethod draw-scoreboard-row (gc row image-size label-font label-text value-font value) (let* ((metrics (gfg:metrics gc label-font)) 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 Wed Oct 11 13:01:23 2006 @@ -53,29 +53,26 @@ (setf (gfw:maximum-size panel) panel-size (gfw:minimum-size panel) panel-size) (assert (gfs:equal-size-p panel-size (slot-value panel 'gfw::max-size))) - (let ((scrollbar (gfw:obtain-horizontal-scrollbar parent))) - (setf (gfw:outer-limits scrollbar) (gfs:make-span :end (gfs:size-width panel-size)) - (gfw:thumb-position scrollbar) 0) - (gfs:dispose scrollbar)) - (let ((scrollbar (gfw:obtain-vertical-scrollbar parent))) - (setf (gfw:outer-limits scrollbar) (gfs:make-span :end (gfs:size-height panel-size)) - (gfw:thumb-position scrollbar) 0) - (gfs:dispose scrollbar)) -#| - (let* ((gc (make-instance 'gfg:graphics-context :widget panel)) - (font (make-instance 'gfg:font :gc gc))) - (unwind-protect - (let ((metrics (gfg:metrics gc font))) - (setf (gfs:size-width *grid-char-size*) (gfg:maximum-char-width metrics) - (gfs:size-height *grid-char-size*) (+ (gfg:ascent metrics) - (gfg:descent metrics)))) - (gfs:dispose font) - (gfs:dispose gc))) -|# (setf (gfs:size-width *grid-char-size*) (floor +grid-half-extent+ 2) (gfs:size-height *grid-char-size*) (floor +grid-half-extent+ 2)) panel)) +(defun set-grid-scroll-params (window) + (let* ((disp (gfw:dispatcher window)) + (panel (gfw::obtain-top-child window)) + (panel-size (gfw:size panel)) + (scrollbar (gfw:obtain-horizontal-scrollbar window))) + (setf (gfw:outer-limits scrollbar) + (gfs:make-span :end (gfs:size-width panel-size))) + (setf (gfw:thumb-position scrollbar) 0) + (setf scrollbar (gfw:obtain-vertical-scrollbar window)) + (setf (gfw:outer-limits scrollbar) + (gfs:make-span :end (gfs:size-height panel-size))) + (setf (gfw:step-increments disp) (gfs:make-size :width 1 :height 1)) + (setf (gfw:thumb-position scrollbar) 0) + (setf (slot-value disp 'gfw::viewport-origin) (gfs:make-point)) + (gfw:event-resize disp window (gfw:size window) :restored))) + (defmethod gfw:event-paint ((disp scroll-grid-panel-events) window gc rect) (declare (ignore window)) (let ((color (gfg:rgb->color (gfs::get-sys-color gfs::+color-btnface+)))) Modified: trunk/src/tests/uitoolkit/scroll-tester.lisp ============================================================================== --- trunk/src/tests/uitoolkit/scroll-tester.lisp (original) +++ trunk/src/tests/uitoolkit/scroll-tester.lisp Wed Oct 11 13:01:23 2006 @@ -61,11 +61,13 @@ (select-grid (lambda (disp item) (declare (ignore disp item)) (setf (gfw:top-child-of layout) grid-panel) - (gfw:layout *scroll-tester-win*))) + (gfw:layout *scroll-tester-win*) + (set-grid-scroll-params *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*))) + (gfw:layout *scroll-tester-win*) + (set-text-scroll-params *scroll-tester-win*))) (manage-tests-menu (lambda (disp menu) (declare (ignore disp)) (let ((top (gfw::obtain-top-child *scroll-tester-win*)) @@ -79,6 +81,7 @@ (:item "&Text" :callback select-text))))))) (setf (gfw:menu-bar *scroll-tester-win*) menubar (gfw:top-child-of layout) grid-panel)) + (set-grid-scroll-params *scroll-tester-win*) (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))) 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 Wed Oct 11 13:01:23 2006 @@ -33,14 +33,96 @@ (in-package #:graphic-forms.uitoolkit.tests) -(defclass scroll-text-panel-events (gfw:event-dispatcher) ()) +(defvar *text-to-draw* "ABCDEFGHIJKLMNOPQRSTUVWXYZ[]0123456789{}") + +(defvar *text-model-size* (gfs:make-size :width 100 :height 100)) ; character cells + +(defvar *text-panel-font-data* (gfg:make-font-data :face-name "Lucida Console" + :point-size 10)) + +(defclass scroll-text-panel-events (gfw:event-dispatcher) + ((font + :accessor font-of + :initform nil))) + +(defun draw-text-chunk (gc metrics row first-col last-col) + (let* ((col-diff (1+ (- last-col first-col))) + (text-len (length *text-to-draw*)) + (text-start (mod first-col text-len)) + (text-end (mod last-col text-len)) + (ch-width (gfg:average-char-width metrics)) + (ch-height (gfg:height metrics)) + (pnt (gfs:make-point :x (* ch-width first-col) + :y (* ch-height row)))) + (cond + ((and (<= col-diff text-len) (<= text-start text-end)) + (gfg:draw-text gc (subseq *text-to-draw* text-start (1+ text-end)) pnt)) + ((or (> col-diff text-len) (> text-start text-end)) + (gfg:draw-text gc (subseq *text-to-draw* text-start text-len) pnt) + (incf (gfs:point-x pnt) (* (- text-len text-start) ch-width)) + (dotimes (i (floor col-diff text-len)) + (gfg:draw-text gc *text-to-draw* pnt) + (incf (gfs:point-x pnt) (* text-len ch-width))) + (gfg:draw-text gc (subseq *text-to-draw* 0 (1+ text-end)) pnt))))) (defun make-scroll-text-panel (parent) - (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)) + (let* ((disp (make-instance 'scroll-text-panel-events)) + (panel (make-instance 'gfw:panel :dispatcher disp :parent parent))) + (gfw:with-graphics-context (gc panel) + (let* ((metrics (gfg:metrics gc (font-of disp))) + (panel-size (gfs:make-size :width (* (gfs:size-width *text-model-size*) + (gfg:average-char-width metrics)) + :height (* (gfs:size-height *text-model-size*) + (gfg:height metrics))))) + (setf (gfw:maximum-size panel) panel-size + (gfw:minimum-size panel) panel-size))) panel)) + +(defun set-text-scroll-params (window) + (let ((disp (gfw:dispatcher window)) + (panel (gfw::obtain-top-child window))) + (gfw:with-graphics-context (gc panel) + (let ((metrics (gfg:metrics gc (font-of (gfw:dispatcher panel)))) + (scrollbar (gfw:obtain-horizontal-scrollbar window))) + (setf (gfw:outer-limits scrollbar) + (gfs:make-span :end (* (gfs:size-width *text-model-size*) + (gfg:average-char-width metrics)))) + (setf (gfw:thumb-position scrollbar) 0) + (setf scrollbar (gfw:obtain-vertical-scrollbar window)) + (setf (gfw:outer-limits scrollbar) + (gfs:make-span :end (* (gfs:size-height *text-model-size*) + (gfg:height metrics)))) + (setf (gfw:thumb-position scrollbar) 0) + (setf (gfw:step-increments disp) (gfs:make-size :width (gfg:average-char-width metrics) + :height (gfg:height metrics))))) + (setf (slot-value disp 'gfw::viewport-origin) (gfs:make-point)) + (gfw:event-resize disp window (gfw:size window) :restored))) + +(defmethod initialize-instance ((self scroll-text-panel-events) &key) + (gfw:with-graphics-context (gc) + (setf (font-of self) (make-instance 'gfg:font :gc gc :data *text-panel-font-data*)))) + +(defmethod gfw:event-dispose ((disp scroll-text-panel-events) (panel gfw:panel)) + (let ((font (font-of disp))) + (if font + (gfs:dispose font)) + (setf (font-of disp) nil))) + +(defmethod gfw:event-paint ((disp scroll-text-panel-events) window gc rect) + (declare (ignore window)) + (setf (gfg:background-color gc) gfg:*color-white* + (gfg:foreground-color gc) gfg:*color-white*) + (gfg:draw-filled-rectangle gc rect) + (setf (gfg:foreground-color gc) gfg:*color-black* + (gfg:font gc) (font-of disp)) + (let* ((metrics (gfg:metrics gc (font-of disp))) + (pnt (gfs:location rect)) + (size (gfs:size rect)) + (first-row (floor (gfs:point-y pnt) (gfg:height metrics))) + (last-row (floor (+ (gfs:point-y pnt) (gfs:size-height size)) (gfg:height metrics))) + (first-col (floor (gfs:point-x pnt) (gfg:average-char-width metrics))) + (last-col (floor (+ (gfs:point-x pnt) (gfs:size-width size)) (gfg:average-char-width metrics)))) + (setf (gfs:point-x pnt) (* first-col (gfg:average-char-width metrics))) + (loop for row from first-row upto last-row + do (draw-text-chunk gc metrics row first-col last-col)))) + Modified: trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp (original) +++ trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Wed Oct 11 13:01:23 2006 @@ -41,7 +41,7 @@ (setf pos (min pos (1+ (- total-steps page-size)))) (max pos 0)) -(defun compute-scrolling-delta (scrollbar step-size detail) +(defun update-scrollbar (scrollbar step-size detail) (let ((page-size (page-increment scrollbar)) (limits (outer-limits scrollbar)) (curr-pos (thumb-position scrollbar))) @@ -59,7 +59,7 @@ (- (gfs:span-end limits) (gfs:span-start limits)) page-size)) (setf (thumb-position scrollbar) new-pos) - (- curr-pos new-pos)))) + new-pos))) (defun update-scrolling-state (window &optional axis detail) (unless axis @@ -68,19 +68,20 @@ (setf detail :thumb-position)) (let ((disp (dispatcher window))) (let ((child (obtain-top-child window)) - (step-incs (step-increments disp)) - (delta-x 0) - (delta-y 0)) + (h-step (gfs:size-width (step-increments disp))) + (v-step (gfs:size-height (step-increments disp))) + (new-hpos 0) + (new-vpos 0)) (cond ((or (eql axis :horizontal) (eql axis :both)) (let ((scrollbar (obtain-horizontal-scrollbar window))) - (setf delta-x (compute-scrolling-delta scrollbar (gfs:size-width step-incs) detail)) - (gfs:dispose scrollbar))) + (setf new-hpos (update-scrollbar scrollbar h-step detail)))) ((or (eql axis :vertical) (eql axis :both)) (let ((scrollbar (obtain-vertical-scrollbar window))) - (setf delta-y (compute-scrolling-delta scrollbar (gfs:size-height step-incs) detail)) - (gfs:dispose scrollbar)))) - (let ((origin (slot-value disp 'viewport-origin))) + (setf new-vpos (update-scrollbar scrollbar v-step detail))))) + (let* ((origin (slot-value disp 'viewport-origin)) + (delta-x (* (floor (- (gfs:point-x origin) new-hpos) h-step) h-step)) + (delta-y (* (floor (- (gfs:point-y origin) new-vpos) v-step) v-step))) (decf (gfs:point-x origin) delta-x) (decf (gfs:point-y origin) delta-y) (scroll child delta-x delta-y nil 0)))) @@ -90,27 +91,22 @@ (if (or (<= (gfs:size-width amounts) 0) (<= (gfs:size-height amounts) 0)) (error 'gfs:toolkit-error :detail "invalid step increment"))) -(defun update-scrollbar-page-size (scrollbar viewport-width top-width step-size) +(defun update-scrollbar-page-size (scrollbar viewport-dim top-dim) (if scrollbar - (setf (page-increment scrollbar) (* (1+ (min viewport-width top-width)) - step-size))) + (setf (page-increment scrollbar) (1+ (min viewport-dim top-dim)))) scrollbar) (defun update-scrollbar-page-sizes (window) - (let ((disp (dispatcher window)) - (viewport-size (client-size window)) + (let ((viewport-size (client-size window)) (top (obtain-top-child window))) - (let ((step-incs (step-increments disp)) - (top-size (if top (size top) viewport-size))) + (let ((top-size (if top (size top) viewport-size))) (update-scrollbar-page-size (obtain-vertical-scrollbar window) (gfs:size-height viewport-size) - (gfs:size-height top-size) - (gfs:size-height step-incs)) + (gfs:size-height top-size)) (setf viewport-size (client-size window)) (update-scrollbar-page-size (obtain-horizontal-scrollbar window) (gfs:size-width viewport-size) - (gfs:size-width top-size) - (gfs:size-width step-incs))))) + (gfs:size-width top-size))))) (defun update-viewport-origin-for-resize (window) (let* ((top (obtain-top-child window))

1 0

[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
by junrue＠common-lisp.net 10 Oct '06

10 Oct '06

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</TD> + <TD>[Class]</TD></TR></TABLE> +<HR> </H4> +<H4 dir=ltr>description</H4> + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=0 width="100%" border=0> + + <TR> + <TD width="15%">Inherits:</TD> + <TD ><A + href="../gfs/native-object.html">gfs:native-object</A> </TD></TR> + <TR> + <TD width="15%">Inherited By: </TD> + <TD >none</TD></TR></TABLE> + + + + + + + + This class encapsulates a native font +handle. +<H4>initargs</H4> + +<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ffffff cellSpacing=0 +cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">:data</TD> + <TD> A + font-data object. If this initarg is specified, then a value for the :gc + initarg is also + required.</TD></TR> + <TR> + <TD width="20%">:gc</TD> + <TD>A + graphics-context object. If this initarg is specified, then a value for + the :data initarg is also +required.</TD></TR></TABLE> + +<H4>see also</H4> +  +<HR> + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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%">:blue</TD> + <TD width="20%">:blue</TD> <TD> The blue color component (0 - 255).</TD></TR> <TR> - <TD width="20%">:green</TD> + <TD width="20%">:green</TD> <TD>The green color component (0 - 255).</TD></TR> <TR> - <TD width="20%">:red</TD> + <TD width="20%">:red</TD> <TD>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%">Inherits:</TD> - <TD width="28%">none </TD> - <TD width="28%"> </TD> - <TD width="28%"> </TD></TR> + <TD width="15%">Inherits:</TD> + <TD >none </TD></TR> <TR> - <TD width="16%">Inherited By: </TD> - <TD width="28%">display,</TD> - <TD width="28%"><A - href="../gfw/event-source.html">event-source</A>,</TD> - <TD width="28%">font,</TD></TR> - <TR> - <TD width="16%"></TD> - <TD width="28%">graphics-context,</TD> - <TD width="28%">icon-bundle,</TD> - <TD width="28%">image,</TD></TR> - <TR> - <TD width="16%"></TD> - <TD width="28%">image-data-plugin</TD> - <TD width="28%"></TD> - <TD width="28%"></TD></TR></TABLE> + <TD >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</TD></TR></TABLE> This is the abstract base class for objects representing a system resource such as a window or device context. 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%">Inherits:</TD> + <TD width="15%">Inherits:</TD> - <TD width="28%">none</TD> - <TD width="28%"> </TD> - <TD width="28%"> </TD></TR> + face=Arial size=2></TR> <TR> - <TD width="16%">Inherited By: </TD> - <TD width="28%">scrolling-event-dispatcher</TD> - <TD width="28%"></TD> - <TD width="28%"></TD></TR></TBODY></TABLE> + <TD >scrolling-event-dispatcher</TD></TR></TBODY></TABLE> 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%">Inherits:</TD> - <TD width="28%"><A - href="../gfs/native-object.html">gfs:native-object</A></TD> - <TD width="28%"> </TD> - <TD width="28%"> </TD></TR> + <TD width="15%">Inherits:</TD> + <TD ><A + href="../gfs/native-object.html">gfs:native-object</A></TD></TR> <TR> - <TD width="16%">Inherited By: </TD> - <TD width="28%">display,</TD> - <TD width="28%">font,</TD> - <TD width="28%">graphics-context,</TD></TR> - <TR> - <TD width="16%"></TD> - <TD width="28%">icon-bundle,</TD> - <TD width="28%">image,</TD> - <TD width="28%">image-data-plugin</TD></TR></TABLE> + <TD > + + ???</TD></TR></TABLE> This is the base class for user interface objects whose native window instance generates events. 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)))

1 0

[graphic-forms-cvs] r295 - in trunk: . docs/manual docs/manual/gfg docs/manual/gfw src/tests/uitoolkit
by junrue＠common-lisp.net 10 Oct '06

10 Oct '06

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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">color-blue</TD> + <TD> + [Slot Accessor] </TD></TR></TABLE> +<HR></H4> +<H4>syntax</H4> + (gfg:color-blue +<A +href="color.html">color</A>) => + integer +(setf (gfg:color-blue <A +href="color.html">color</A>) integer) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">color</TD> + <TD>The <A href="color.html">color</A> object whose blue + component is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer in + the range 0 - +255.</TD></TR></TABLE>description</H4> +Returns (sets) the blue component of the specified <A +href="color.html">color</A>. + +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">color-green</TD> + <TD> + [Slot Accessor] </TD></TR></TABLE> +<HR></H4> +<H4>syntax</H4> + (gfg:color-green +<A +href="color.html">color</A>) => + integer +(setf (gfg:color-green <A +href="color.html">color</A>) integer) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">color</TD> + <TD>The <A href="color.html">color</A> object whose green + component is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer in + the range 0 - +255.</TD></TR></TABLE>description</H4> +Returns (sets) the green component of the specified <A +href="color.html">color</A>. + +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">color-red</TD> + <TD> + [Slot Accessor] </TD></TR></TABLE> +<HR></H4> +<H4>syntax</H4> + (gfg:color-red +<A +href="color.html">color</A>) => + integer +(setf (gfg:color-red <A +href="color.html">color</A>) integer) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">color</TD> + <TD>The <A href="color.html">color</A> object whose red + component is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer in + the range 0 - +255.</TD></TR></TABLE>description</H4> +Returns (sets) the red component of the specified <A +href="color.html">color</A>. + +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">color->rgb</TD> + <TD> + [Macro] </TD></TR></TABLE> +<HR></H4> +syntax + (gfg:color->rgb <A href="color.html">color</A> ) => COLORREF +<H4> +<H4>arguments</H4> + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">color</TD> + <TD>A color to + be converted to the Win32 COLORREF + representation.</TD></TR></TABLE>description</H4> + This macro converts a color object to the Win32 +COLORREF + representation, which in CFFI terms is defined as an alias for :unsigned-long + + + + + + + + +<H4>see also</H4> +<A href="rgb-to-color.html">rgb->color</A> + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">color</TD> + <TD> + [Structure] </TD></TR></TABLE> + + +<HR></H4> +<H4>description</H4> + This structure represents a color in the RGB color +model. Each color component value is specified in the range 0 - + 255. +<H4>slots</H4> + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">blue</TD> + <TD> + The blue component.</TD></TR> + <TR> + <TD width="20%">green</TD> + <TD> + The green +component.</TD></TR> + <TR> + <TD width="20%">red</TD> + <TD> The red +component.</TD></TR></TABLE> +<H4>see also</H4> +<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> + +<HR> + + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + <TBODY> + <TR> + <TD width="60%">copy-color</TD> + <TD> + [Function] </TD></TR></TBODY></TABLE> +<HR></H4> + syntax + (gfg:copy-color +<A +href="color.html">color</A>) +=> <A href="color.html">new color</A> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">color</TD> + <TD>The <A href="color.html">color</A> structure to be + copied.</TD></TR></TABLE>description</H4> + Returns a new <A +href="point.html">color</A> whose color component values were copied from the + original. +<H4>see also</H4> +<A href="make-color.html">make-color</A> + +<HR> + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">make-color</TD> + <TD> + [Function] </TD></TR></TABLE> +<HR></H4> +<H4 dir=ltr style="MARGIN-RIGHT: 0px">syntax</H4> + (gfg:make-color :blue integer :green integer :red integer) +=> <A +href="point.html">color</A> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">:blue</TD> + <TD> The + blue color component (0 - 255).</TD></TR> + <TR> + <TD width="20%">:green</TD> + <TD>The green + color component (0 - +255).</TD></TR> + <TR> + <TD width="20%">:red</TD> + <TD>The red color + component (0 - +255).</TD></TR></TABLE>description</H4> + Returns a newly-created <A +href="color.html">color</A>. + +<H4>see also</H4> +<A href="copy-color.html">copy-color</A> + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. + Unrue +</TD></TR></TABLE></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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">rgb->color</TD> + <TD> + [Macro] </TD></TR></TABLE> +<HR></H4> +syntax + (gfg:rgb->color COLORREF) => <A +href="color.html">color</A> +<H4> +<H4>arguments</H4> + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">COLORREF</TD> + <TD> + A Win32 COLORREF value to + be translated to a <A + href="color.html">color</A> + object.</TD></TR></TABLE>description</H4> + This macro converts a Win32 +COLORREF + value, which in CFFI terms is defined as an alias for :unsigned-long, to a <A +href="color.html">color</A> +object. + + + + + + + + +<H4>see also</H4> +<A href="color-to-rgb.html">color->rgb</A> + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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%">scrolling-event-dispatcher</TD> <TD width="28%"></TD> <TD width="28%"></TD></TR></TBODY></TABLE> - Applications define -subclasses of this class and implement one or more -of the event functions in order to implement desired + Applications define subclasses +of this class and implement one or more of +the event generic functions in order to implement desired behavior. <H4>see also</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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">event-select</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-select <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the selection event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget (or + sub-element thereof) being +selected.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to +handle notification that widget + + + + or + + some sub-element of widget has been + selected. +Selection may occur via the mouse or + keyboard. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" +borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">with-graphics-context</TD> + <TD> + [Macro] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:with-graphics-context (graphics-context &optional +thing) &body body) +<H4> +<H4>arguments</H4> + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">graphics-context</TD> + <TD>A symbol + naming the graphics-context object to be created.</TD></TR> + <TR> + <TD width="20%">thing</TD> + <TD>An instance of + a widget subclass or an +image.</TD></TR> + <TR> + <TD width="20%">body</TD> + <TD>Application code to make use of + graphics-context.</TD></TR></TABLE>description</H4> + This macro manages the lifetime of a graphics-context +object for use by the code of body. The graphics-context will be associated +with thing if it + + + + + is specified. Otherwise, + this +macro creates a graphics-context compatible with the + display. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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

1 0

[graphic-forms-cvs] r294 - in trunk/docs/manual: . gfs gfw
by junrue＠common-lisp.net 06 Oct '06

06 Oct '06

Author: junrue Date: Fri Oct 6 03:33:42 2006 New Revision: 294 Added: trunk/docs/manual/gfw/event-activate.html trunk/docs/manual/gfw/event-arm.html trunk/docs/manual/gfw/event-close.html trunk/docs/manual/gfw/event-deactivate.html trunk/docs/manual/gfw/event-default-action.html trunk/docs/manual/gfw/event-dispose.html trunk/docs/manual/gfw/obtain-event-time.html Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp trunk/docs/manual/gfs/dispose.html trunk/docs/manual/gfs/location.html trunk/docs/manual/gfs/size-function.html trunk/docs/manual/gfs/size-height.html trunk/docs/manual/gfs/size-width.html trunk/docs/manual/gfs/span-end.html trunk/docs/manual/gfs/span-start.html trunk/docs/manual/gfw/event-dispatcher.html Log: Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp ============================================================================== --- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp (original) +++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp Fri Oct 6 03:33:42 2006 @@ -92,7 +92,7 @@ DefaultTopic=Introduction.html [TOPICS] -TitleList=52 +TitleList=59 TitleList.Title.0=Legal Information TitleList.Level.0=0 TitleList.Url.0=LegalInfo.html @@ -533,84 +533,154 @@ TitleList.ApplyTemp.43=0 TitleList.Expanded.43=0 TitleList.Kind.43=0 -TitleList.Title.44=event-dispatcher +TitleList.Title.44=event-activate TitleList.Level.44=2 -TitleList.Url.44=gfw\event-dispatcher.html +TitleList.Url.44=gfw\event-activate.html TitleList.Icon.44=0 TitleList.Status.44=0 -TitleList.Keywords.44=event-dispatcher +TitleList.Keywords.44=event-activate TitleList.ContextNumber.44= TitleList.ApplyTemp.44=0 TitleList.Expanded.44=0 TitleList.Kind.44=0 -TitleList.Title.45=event-source +TitleList.Title.45=event-arm TitleList.Level.45=2 -TitleList.Url.45=gfw\event-source.html +TitleList.Url.45=gfw\event-arm.html TitleList.Icon.45=0 TitleList.Status.45=0 -TitleList.Keywords.45=event-source +TitleList.Keywords.45=event-arm TitleList.ContextNumber.45= TitleList.ApplyTemp.45=0 TitleList.Expanded.45=0 TitleList.Kind.45=0 -TitleList.Title.46=message-loop +TitleList.Title.46=event-close TitleList.Level.46=2 -TitleList.Url.46=gfw\message-loop.html +TitleList.Url.46=gfw\event-close.html TitleList.Icon.46=0 TitleList.Status.46=0 -TitleList.Keywords.46=message-loop +TitleList.Keywords.46=event-close TitleList.ContextNumber.46= TitleList.ApplyTemp.46=0 TitleList.Expanded.46=0 TitleList.Kind.46=0 -TitleList.Title.47=Miscellaneous Topics -TitleList.Level.47=0 -TitleList.Url.47=MiscellaneousTopics.html +TitleList.Title.47=event-deactivate +TitleList.Level.47=2 +TitleList.Url.47=gfw\event-deactivate.html TitleList.Icon.47=0 TitleList.Status.47=0 -TitleList.Keywords.47= +TitleList.Keywords.47=event-deactivate TitleList.ContextNumber.47= TitleList.ApplyTemp.47=0 TitleList.Expanded.47=0 TitleList.Kind.47=0 -TitleList.Title.48=Image Data Plugins -TitleList.Level.48=1 -TitleList.Url.48=ImageDataPlugins.html +TitleList.Title.48=event-default-action +TitleList.Level.48=2 +TitleList.Url.48=gfw\event-default-action.html TitleList.Icon.48=0 TitleList.Status.48=0 -TitleList.Keywords.48= +TitleList.Keywords.48=event-default-action TitleList.ContextNumber.48= TitleList.ApplyTemp.48=0 TitleList.Expanded.48=0 TitleList.Kind.48=0 -TitleList.Title.49=Terminology Conventions -TitleList.Level.49=0 -TitleList.Url.49=TerminologyConventions.html +TitleList.Title.49=event-dispatcher +TitleList.Level.49=2 +TitleList.Url.49=gfw\event-dispatcher.html TitleList.Icon.49=0 TitleList.Status.49=0 -TitleList.Keywords.49= +TitleList.Keywords.49=event-dispatcher TitleList.ContextNumber.49= TitleList.ApplyTemp.49=0 TitleList.Expanded.49=0 TitleList.Kind.49=0 -TitleList.Title.50=Glossary -TitleList.Level.50=0 -TitleList.Url.50=Glossary.html +TitleList.Title.50=event-dispose +TitleList.Level.50=2 +TitleList.Url.50=gfw\event-dispose.html TitleList.Icon.50=0 TitleList.Status.50=0 -TitleList.Keywords.50= +TitleList.Keywords.50=event-dispose TitleList.ContextNumber.50= TitleList.ApplyTemp.50=0 TitleList.Expanded.50=0 TitleList.Kind.50=0 -TitleList.Title.51=Footnotes -TitleList.Level.51=0 -TitleList.Url.51=Footnotes.html +TitleList.Title.51=event-source +TitleList.Level.51=2 +TitleList.Url.51=gfw\event-source.html TitleList.Icon.51=0 TitleList.Status.51=0 -TitleList.Keywords.51= +TitleList.Keywords.51=event-source TitleList.ContextNumber.51= TitleList.ApplyTemp.51=0 TitleList.Expanded.51=0 -TitleList.Kind.51=1 +TitleList.Kind.51=0 +TitleList.Title.52=message-loop +TitleList.Level.52=2 +TitleList.Url.52=gfw\message-loop.html +TitleList.Icon.52=0 +TitleList.Status.52=0 +TitleList.Keywords.52=message-loop +TitleList.ContextNumber.52= +TitleList.ApplyTemp.52=0 +TitleList.Expanded.52=0 +TitleList.Kind.52=0 +TitleList.Title.53=obtain-event-time +TitleList.Level.53=2 +TitleList.Url.53=gfw\obtain-event-time.html +TitleList.Icon.53=0 +TitleList.Status.53=0 +TitleList.Keywords.53=obtain-event-time +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.Icon.54=0 +TitleList.Status.54=0 +TitleList.Keywords.54= +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.Icon.55=0 +TitleList.Status.55=0 +TitleList.Keywords.55= +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.Icon.56=0 +TitleList.Status.56=0 +TitleList.Keywords.56= +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.Icon.57=0 +TitleList.Status.57=0 +TitleList.Keywords.57= +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.Icon.58=0 +TitleList.Status.58=0 +TitleList.Keywords.58= +TitleList.ContextNumber.58= +TitleList.ApplyTemp.58=0 +TitleList.Expanded.58=0 +TitleList.Kind.58=1 Modified: trunk/docs/manual/gfs/dispose.html ============================================================================== --- trunk/docs/manual/gfs/dispose.html (original) +++ trunk/docs/manual/gfs/dispose.html Fri Oct 6 03:33:42 2006 @@ -44,7 +44,12 @@ Note: this function does not interact with the garbage collector; however, disposed objects will be collected once the application no longer references -them. +them. +<H4 dir=ltr style="MARGIN-RIGHT: 0px">see also</H4> +<A +href="disposed-p.html">disposed-p</A>, <A +href="../gfw/event-dispose.html">gfw:event-dispose</A> <HR> Modified: trunk/docs/manual/gfs/location.html ============================================================================== --- trunk/docs/manual/gfs/location.html (original) +++ trunk/docs/manual/gfs/location.html Fri Oct 6 03:33:42 2006 @@ -25,8 +25,11 @@ href="rectangle.html">rectangle</A>) => <A href="point.html"> point</A> -<H4>arguments - +(setf (gfs:location <A +href="rectangle.html">rectangle</A>) <A +href="point.html">point</A>) +<H4>arguments </H4> +<H4> <TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff cellSpacing=0 cellPadding=2 width="100%" border=1> @@ -34,10 +37,18 @@ <TD width="20%">rectangle</TD> <TD>The <A href="rectangle.html">rectangle</A> structure whose location is to be -retrieved.</TD></TR></TABLE>description</H4> - Returns <A +retrieved.</TD></TR> + <TR> + <TD width="20%"> + point</TD> + <TD> + The location of + the <A +href="rectangle.html">rectangle</A> .</TD></TR></TABLE></H4> +<H4>description</H4> + Returns or sets <A href="point.html">point</A> identifying the coordinates of the -upper-left cornder of <A +upper-left corner of <A href="rectangle.html">rectangle</A> . For performance reasons, a reference to the existing slot value is Modified: trunk/docs/manual/gfs/size-function.html ============================================================================== --- trunk/docs/manual/gfs/size-function.html (original) +++ trunk/docs/manual/gfs/size-function.html Fri Oct 6 03:33:42 2006 @@ -26,10 +26,27 @@ => <A href="size.html">size</A> -<H4>description</H4> - Returns <A -href="size.html">size</A> identifying the coordinates of the -upper-left cornder of <A +(setf (gfs:size <A +href="rectangle.html">rectangle</A>) <A href="size.html">size</A>) +<H4>arguments </H4> +<H4> +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">rectangle</TD> + <TD>The  <A href="rectangle.html" >rectangle</A> object whose + dimensions are to be queried or updated.</TD></TR> + <TR> + <TD width="20%">size</TD> + <TD>The dimensions + of the <A +href="rectangle.html">rectangle</A> +.</TD></TR></TABLE></H4> +<H4>description</H4> + Returns or sets <A +href="size.html">size</A> identifying +the dimensions of <A href="rectangle.html">rectangle</A> . For performance reasons, a reference to the existing slot value is Modified: trunk/docs/manual/gfs/size-height.html ============================================================================== --- trunk/docs/manual/gfs/size-height.html (original) +++ trunk/docs/manual/gfs/size-height.html Fri Oct 6 03:33:42 2006 @@ -26,7 +26,19 @@ (setf (gfs:size-height <A href="size.html">size</A>) integer) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">size</TD> + <TD>The <A href="size.html">size</A> object whose height + dimension is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer height +value.</TD></TR></TABLE>description</H4> Returns (sets) the height of the specified <A href="size.html">size</A> . Modified: trunk/docs/manual/gfs/size-width.html ============================================================================== --- trunk/docs/manual/gfs/size-width.html (original) +++ trunk/docs/manual/gfs/size-width.html Fri Oct 6 03:33:42 2006 @@ -26,7 +26,19 @@ (setf (gfs:size-width <A href="size.html">size</A>) integer) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">size</TD> + <TD>The <A href="size.html">size</A> object whose width + dimension is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer width +value.</TD></TR></TABLE>description</H4> Returns (sets) the width of the specified <A href="size.html">size</A> . Modified: trunk/docs/manual/gfs/span-end.html ============================================================================== --- trunk/docs/manual/gfs/span-end.html (original) +++ trunk/docs/manual/gfs/span-end.html Fri Oct 6 03:33:42 2006 @@ -26,7 +26,19 @@ (setf (gfs:span-end <A href="span.html">span</A>) integer) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">span</TD> + <TD>The <A href="span.html">span</A> object whose ending + value is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer ending +value.</TD></TR></TABLE>description</H4> Returns (sets) the end of the specified <A href="span.html">span</A> . Modified: trunk/docs/manual/gfs/span-start.html ============================================================================== --- trunk/docs/manual/gfs/span-start.html (original) +++ trunk/docs/manual/gfs/span-start.html Fri Oct 6 03:33:42 2006 @@ -26,7 +26,19 @@ (setf (gfs:span-start <A href="span.html">span</A>) integer) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">span</TD> + <TD>The <A href="span.html">span</A> object + whose starting value is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer starting +value.</TD></TR></TABLE>description</H4> Returns (sets) the beginning of the specified <A href="span.html">span</A> . Added: trunk/docs/manual/gfw/event-activate.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-activate.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,61 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-activate</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%">event-activate</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-activate <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will process + the activation event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget being +activated.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to +respond to the activation of widget. For top-level windows or dialogs, +this means that widget + + was brought to the foreground and its trim (title bar and +border) have become highlighted. For a menu, it means the user has clicked on +the menu item serving as the anchor for the menu which is therefore about to + + be shown. In the menu case, + event-activate +is an opportunity to adjust the menu's + contents. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/event-arm.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-arm.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,61 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-arm</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%">event-arm</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-arm <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the arming event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget + about to be +selected.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to +respond to notification that widget + + + + is about to be selected. Arming events are not always followed by selection events, + + such as when the user is + moving +the mouse across multiple items on a + menu. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/event-close.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-close.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,61 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-close</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%">event-close</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-close <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will + process the close event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD> + The widget being +closed.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to +respond to widget + + + + + + being closed by the + user. +Only top-level windows and dialogs receive close + events. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/event-deactivate.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-deactivate.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,63 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-deactivate</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%">event-deactivate</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-deactivate <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will process + the deactivation event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget being +deactivated.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to +respond to the deactivation of widget + + + + . This event is only received by + + top-level windows or dialogs, and means + that +some other window or dialog has been + activated. + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/event-default-action.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-default-action.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,64 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-default-action</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%">event-default-action</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-default-action <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will process the + default action event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD>The widget for + which the default action was +invoked.</TD></TR></TABLE>description</H4> + Implement a method for this generic function to +respond to a default action. For example, a + + + + default action is invoked when the user + + double-clicks on a list-box, or presses ENTER + while +the keyboard focus is owned by an edit + control.  + +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></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 Fri Oct 6 03:33:42 2006 @@ -42,8 +42,8 @@ subclasses of this class and implement one or more of the event functions in order to implement desired behavior. -<H4>See -Also</H4> +<H4>see +also</H4> <A href="event-source.html">event-source</A> <HR> Added: trunk/docs/manual/gfw/event-dispose.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/event-dispose.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,79 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>event-dispose</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%">event-dispose</TD> + <TD> + [Generic Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:event-dispose <A +href="event-dispatcher.html">event-dispatcher</A> widget) +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">event-dispatcher</TD> + <TD>The <A href="event-dispatcher.html" >event-dispatcher</A> that will process + the dispose event.</TD></TR> + <TR> + <TD width="20%">widget</TD> + <TD> + The widget being +disposed.</TD></TR></TABLE>description</H4> + + Implement a method for this generic function to +respond to widget + + being discarded via <A +href="../gfs/dispose.html">gfs:dispose</A> . This event function is +called while the data model for widget + + + + + + + + + is still + valid. +Note: this +function does not represent communication with the Common Lisp garbage +collector. + +<H4>see also</H4> +<A +href="../gfs/disposed-error.html">gfs:disposed-error</A><A +href="../gfs/disposed-error.html">,</A> <A +href="../gfs/disposed-p.html">gfs:disposed-p</A>, <A +href="../gfs/native-object.html">gfs:native-object</A> +<HR> + + + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/obtain-event-time.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/obtain-event-time.html Fri Oct 6 03:33:42 2006 @@ -0,0 +1,48 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>obtain-event-time</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%">obtain-event-time</TD> + <TD> + [Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:obtain-event-time) => milliseconds +<H4>description</H4> + + + + + + + + + Returns + the +millisecond timestamp of the event currently being + processed. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html>

1 0

[graphic-forms-cvs] r293 - in trunk: . docs/manual docs/manual/gfs docs/manual/gfw
by junrue＠common-lisp.net 06 Oct '06

06 Oct '06

Author: junrue Date: Fri Oct 6 02:22:54 2006 New Revision: 293 Added: trunk/docs/manual/gfw/default-message-filter.html trunk/docs/manual/gfw/message-loop.html Modified: trunk/NEWS.txt trunk/docs/manual/Graphic-FormsProgrammingReference.wcp trunk/docs/manual/Prerequisites.html trunk/docs/manual/Support.html trunk/docs/manual/SystemPackage.html trunk/docs/manual/gfs/code.html trunk/docs/manual/gfs/copy-point.html trunk/docs/manual/gfs/copy-rectangle.html trunk/docs/manual/gfs/copy-size.html trunk/docs/manual/gfs/copy-span.html trunk/docs/manual/gfs/detail.html trunk/docs/manual/gfs/dispose.html trunk/docs/manual/gfs/disposed-p.html trunk/docs/manual/gfs/dlg-code.html trunk/docs/manual/gfs/empty-span-p.html trunk/docs/manual/gfs/equal-size-p.html trunk/docs/manual/gfs/handle.html trunk/docs/manual/gfs/location.html trunk/docs/manual/gfs/make-point.html trunk/docs/manual/gfs/make-rectangle.html trunk/docs/manual/gfs/make-size.html trunk/docs/manual/gfs/make-span.html trunk/docs/manual/gfs/point-x.html trunk/docs/manual/gfs/point-y.html Log: continued doc overhaul Modified: trunk/NEWS.txt ============================================================================== --- trunk/NEWS.txt (original) +++ trunk/NEWS.txt Fri Oct 6 02:22:54 2006 @@ -4,7 +4,7 @@ CLISP 2.40 or later (due to a change in the argument list of CLISP's FFI:FOREIGN-LIBRARY-FUNCTION). -. Initial list box control functionality is now available: +. Initial list box control functionality implemented: * three selection modes (none / multiple / extend) @@ -16,13 +16,16 @@ * customizability of vertical scrollbar mode and keyboard input - Additional list box control features will be provided in a future release. + Additional list box features will be provided in a future release. . Implemented scrolling support: - * new window styles :horizontal-scrollbar and :vertical-scrollbar + * window styles :horizontal-scrollbar and :vertical-scrollbar - * new event-scroll method for handling raw scrolling events + * event-scroll method for handling raw scrolling events + + * scrolling-event-dispatcher for automatic management of a scrollable + child panel and window scrollbars . Improved GFW:HEAP-LAYOUT such that it obeys the top child's minimum and maximum sizes, if any such sizes are set. Modified: trunk/docs/manual/Graphic-FormsProgrammingReference.wcp ============================================================================== --- trunk/docs/manual/Graphic-FormsProgrammingReference.wcp (original) +++ trunk/docs/manual/Graphic-FormsProgrammingReference.wcp Fri Oct 6 02:22:54 2006 @@ -92,7 +92,7 @@ DefaultTopic=Introduction.html [TOPICS] -TitleList=50 +TitleList=52 TitleList.Title.0=Legal Information TitleList.Level.0=0 TitleList.Url.0=LegalInfo.html @@ -521,51 +521,51 @@ TitleList.Keywords.42=GFW`\graphic-forms.uitoolkit.widgets TitleList.ContextNumber.42= TitleList.ApplyTemp.42=0 -TitleList.Expanded.42=0 +TitleList.Expanded.42=1 TitleList.Kind.42=0 -TitleList.Title.43=event-dispatcher +TitleList.Title.43=default-message-filter TitleList.Level.43=2 -TitleList.Url.43=gfw\event-dispatcher.html +TitleList.Url.43=gfw\default-message-filter.html TitleList.Icon.43=0 TitleList.Status.43=0 -TitleList.Keywords.43=event-dispatcher +TitleList.Keywords.43=default-message-filter`\GetMessage`\MSG`\ TitleList.ContextNumber.43= TitleList.ApplyTemp.43=0 TitleList.Expanded.43=0 TitleList.Kind.43=0 -TitleList.Title.44=event-source +TitleList.Title.44=event-dispatcher TitleList.Level.44=2 -TitleList.Url.44=gfw\event-source.html +TitleList.Url.44=gfw\event-dispatcher.html TitleList.Icon.44=0 TitleList.Status.44=0 -TitleList.Keywords.44=event-source +TitleList.Keywords.44=event-dispatcher TitleList.ContextNumber.44= TitleList.ApplyTemp.44=0 TitleList.Expanded.44=0 TitleList.Kind.44=0 -TitleList.Title.45=Miscellaneous Topics -TitleList.Level.45=0 -TitleList.Url.45=MiscellaneousTopics.html +TitleList.Title.45=event-source +TitleList.Level.45=2 +TitleList.Url.45=gfw\event-source.html TitleList.Icon.45=0 TitleList.Status.45=0 -TitleList.Keywords.45= +TitleList.Keywords.45=event-source TitleList.ContextNumber.45= TitleList.ApplyTemp.45=0 TitleList.Expanded.45=0 TitleList.Kind.45=0 -TitleList.Title.46=Image Data Plugins -TitleList.Level.46=1 -TitleList.Url.46=ImageDataPlugins.html +TitleList.Title.46=message-loop +TitleList.Level.46=2 +TitleList.Url.46=gfw\message-loop.html TitleList.Icon.46=0 TitleList.Status.46=0 -TitleList.Keywords.46= +TitleList.Keywords.46=message-loop TitleList.ContextNumber.46= TitleList.ApplyTemp.46=0 TitleList.Expanded.46=0 TitleList.Kind.46=0 -TitleList.Title.47=Terminology Conventions +TitleList.Title.47=Miscellaneous Topics TitleList.Level.47=0 -TitleList.Url.47=TerminologyConventions.html +TitleList.Url.47=MiscellaneousTopics.html TitleList.Icon.47=0 TitleList.Status.47=0 TitleList.Keywords.47= @@ -573,9 +573,9 @@ TitleList.ApplyTemp.47=0 TitleList.Expanded.47=0 TitleList.Kind.47=0 -TitleList.Title.48=Glossary -TitleList.Level.48=0 -TitleList.Url.48=Glossary.html +TitleList.Title.48=Image Data Plugins +TitleList.Level.48=1 +TitleList.Url.48=ImageDataPlugins.html TitleList.Icon.48=0 TitleList.Status.48=0 TitleList.Keywords.48= @@ -583,14 +583,34 @@ TitleList.ApplyTemp.48=0 TitleList.Expanded.48=0 TitleList.Kind.48=0 -TitleList.Title.49=Footnotes +TitleList.Title.49=Terminology Conventions TitleList.Level.49=0 -TitleList.Url.49=Footnotes.html +TitleList.Url.49=TerminologyConventions.html TitleList.Icon.49=0 TitleList.Status.49=0 TitleList.Keywords.49= TitleList.ContextNumber.49= TitleList.ApplyTemp.49=0 TitleList.Expanded.49=0 -TitleList.Kind.49=1 +TitleList.Kind.49=0 +TitleList.Title.50=Glossary +TitleList.Level.50=0 +TitleList.Url.50=Glossary.html +TitleList.Icon.50=0 +TitleList.Status.50=0 +TitleList.Keywords.50= +TitleList.ContextNumber.50= +TitleList.ApplyTemp.50=0 +TitleList.Expanded.50=0 +TitleList.Kind.50=0 +TitleList.Title.51=Footnotes +TitleList.Level.51=0 +TitleList.Url.51=Footnotes.html +TitleList.Icon.51=0 +TitleList.Status.51=0 +TitleList.Keywords.51= +TitleList.ContextNumber.51= +TitleList.ApplyTemp.51=0 +TitleList.Expanded.51=0 +TitleList.Kind.51=1 Modified: trunk/docs/manual/Prerequisites.html ============================================================================== --- trunk/docs/manual/Prerequisites.html (original) +++ trunk/docs/manual/Prerequisites.html Fri Oct 6 02:22:54 2006 @@ -85,6 +85,7 @@ <TR> <TD width="60%">  </TD> <TD> - Copyright � 2006, Jack D. Unrue + Copyright � 2006, Jack D. Unrue </TD></TR></TABLE></body> </html> Modified: trunk/docs/manual/Support.html ============================================================================== --- trunk/docs/manual/Support.html (original) +++ trunk/docs/manual/Support.html Fri Oct 6 02:22:54 2006 @@ -49,6 +49,7 @@ <TR> <TD width="60%">  </TD> <TD> - Copyright � 2006, Jack D. Unrue + Copyright � 2006, Jack D. Unrue </TD></TR></TABLE> </body> </html> Modified: trunk/docs/manual/SystemPackage.html ============================================================================== --- trunk/docs/manual/SystemPackage.html (original) +++ trunk/docs/manual/SystemPackage.html Fri Oct 6 02:22:54 2006 @@ -21,9 +21,9 @@ <H4>nickname</H4> GFS <H4>description</H4> -The symbols in this package correspond to system-level functionality, such -as foreign function declarations for the Win32 API. The majority -of the symbols in this package are not exported, except for a few fundamental types, conditions, + The symbols in this package correspond to system-level functionality, +such as foreign function declarations for the Win32 API. The +majority of symbols in this package are not exported, except for a few fundamental types, conditions, and functions as listed below. <H4> classes and structures</H4> <A Modified: trunk/docs/manual/gfs/code.html ============================================================================== --- trunk/docs/manual/gfs/code.html (original) +++ trunk/docs/manual/gfs/code.html Fri Oct 6 02:22:54 2006 @@ -21,13 +21,20 @@ (gfs:code condition) => integer -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">condition</TD> + <TD>The condition object to be queried; must be of type + <A href="win32-error.html">win32-error</A> or <A + href="win32-warning.html">win32-warning</A> or subclasses + thereof.</TD></TR></TABLE>description</H4> Returns the Win32 error code -for the specified condition, which must be of -type <A -href="win32-error.html">win32-error</A> or <A -href="win32-warning.html">win32-warning</A> or -subclasses thereof. +for the specified condition + . <HR> Modified: trunk/docs/manual/gfs/copy-point.html ============================================================================== --- trunk/docs/manual/gfs/copy-point.html (original) +++ trunk/docs/manual/gfs/copy-point.html Fri Oct 6 02:22:54 2006 @@ -26,7 +26,15 @@ => <A href="point.html">new point</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">point</TD> + <TD>The <A href="point.html">point</A> structure to be + copied.</TD></TR></TABLE>description</H4> Returns a new <A href="point.html">point</A> whose X and Y coordinates were copied from the original. Modified: trunk/docs/manual/gfs/copy-rectangle.html ============================================================================== --- trunk/docs/manual/gfs/copy-rectangle.html (original) +++ trunk/docs/manual/gfs/copy-rectangle.html Fri Oct 6 02:22:54 2006 @@ -26,7 +26,15 @@ => <A href="rectangle.html">new rectangle</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">rectangle</TD> + <TD>The <A href="rectangle.html">rectangle</A> structure + to be copied.</TD></TR></TABLE>description</H4> Returns a new <A href="rectangle.html">rectangle</A> whose location and size slot values are shallow copies from the original. Modified: trunk/docs/manual/gfs/copy-size.html ============================================================================== --- trunk/docs/manual/gfs/copy-size.html (original) +++ trunk/docs/manual/gfs/copy-size.html Fri Oct 6 02:22:54 2006 @@ -26,7 +26,15 @@ => <A href="size.html">new size</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">size</TD> + <TD>The <A href="size.html">size</A> structure to be + copied.</TD></TR></TABLE>description</H4> Returns a new <A href="size.html">size</A> whose width and height were copied from the original. Modified: trunk/docs/manual/gfs/copy-span.html ============================================================================== --- trunk/docs/manual/gfs/copy-span.html (original) +++ trunk/docs/manual/gfs/copy-span.html Fri Oct 6 02:22:54 2006 @@ -27,7 +27,15 @@ => <A href="span.html">new span</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">span</TD> + <TD>The <A href="span.html">span</A> structure to be + copied.</TD></TR></TABLE>description</H4> Returns a new <A href="span.html">span</A> whose start and end positions were copied from the original. <H4>see also</H4> Modified: trunk/docs/manual/gfs/detail.html ============================================================================== --- trunk/docs/manual/gfs/detail.html (original) +++ trunk/docs/manual/gfs/detail.html Fri Oct 6 02:22:54 2006 @@ -22,13 +22,21 @@ face=Arial size=2>(gfs:detail condition) => string -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">condition</TD> + <TD>The condition object to be queried; must be of type + <A href="toolkit-error.html">toolkit-error</A> or <A + href="toolkit-warning.html">toolkit-warning</A> or + subclasses +thereof.  +</TD></TR></TABLE>description</H4> Returns the detail string -for the specified condition, which must be of type <A -href="toolkit-error.html">toolkit-error</A>, <A -href="toolkit-warning.html">toolkit-warning</A>, <A -href="win32-error.html">win32-error</A>, or <A -href="win32-warning.html">win32-warning</A> +for the specified condition . <HR> Modified: trunk/docs/manual/gfs/dispose.html ============================================================================== --- trunk/docs/manual/gfs/dispose.html (original) +++ trunk/docs/manual/gfs/dispose.html Fri Oct 6 02:22:54 2006 @@ -21,17 +21,30 @@ (gfs:dispose <A href="native-object.html">native-object</A>) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">native-object</TD> + <TD>The <A href="native-object.html">native-object</A> + to be disposed.</TD></TR></TABLE>description</H4> Discards the system resource encapsulated -by <A href="native-object.html">native-object</A> - and cleans up various -data structures internal to Graphic-Forms. A <A -href="disposed-error.html">disposed-error</A> will -be raised if application code attempts to manipulate the object after this -function returns. This function does not interact with the garbage collector; however, disposed objects will - be -collected once the application no longer references - them. +by <A href="native-object.html">native-object</A> and cleans up various data structures +internal to Graphic-Forms. For certain objects, this method has visual side +effects (for example, disposing a window +will remove that window from the display). A <A +href="disposed-error.html">disposed-error</A> + + will be raised if application code + attempts +to manipulate the object after this function + returns. +Note: this function +does not interact with the garbage collector; however, disposed +objects will be collected once the application no longer references +them. <HR> Modified: trunk/docs/manual/gfs/disposed-p.html ============================================================================== --- trunk/docs/manual/gfs/disposed-p.html (original) +++ trunk/docs/manual/gfs/disposed-p.html Fri Oct 6 02:22:54 2006 @@ -22,12 +22,23 @@ face=Arial size=2>(gfs:disposed-p <A href="native-object.html">native-object</A>) => boolean -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">native-object</TD> + <TD>The <A href="native-object.html">native-object</A> + whose disposal status is to be +queried.</TD></TR></TABLE>description</H4> Returns T -if <A href="native-object.html">native-object</A> has been discarded via the dispose -function; NIL otherwise. This function does -not query status from the Common Lisp garbage - collector. +if <A href="native-object.html">native-object</A> + has +been discarded via the dispose function; NIL + otherwise. +Note: this function +does not interact with the Common Lisp garbage collector. <HR> Modified: trunk/docs/manual/gfs/dlg-code.html ============================================================================== --- trunk/docs/manual/gfs/dlg-code.html (original) +++ trunk/docs/manual/gfs/dlg-code.html Fri Oct 6 02:22:54 2006 @@ -22,7 +22,16 @@ face=Arial size=2>(gfs:dlg-code <A href="comdlg-error.html">comdlg-error</A>) => integer -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">comdlg-error</TD> + <TD>The condition object to be queried; must be of + type <A href="comdlg-error.html">comdlg-error</A> or subclasses + thereof.</TD></TR></TABLE>description</H4> Returns the Win32 extended Common Dialog error code for the specified <A href="comdlg-error.html">comdlg-error</A> Modified: trunk/docs/manual/gfs/empty-span-p.html ============================================================================== --- trunk/docs/manual/gfs/empty-span-p.html (original) +++ trunk/docs/manual/gfs/empty-span-p.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,15 @@ href="span.html">span</A>) => boolean -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">span</TD> + <TD>The <A href="span.html">span</A> to be tested for + emptiness.</TD></TR></TABLE>description</H4> Returns T if the start and end of <A href="span.html">span</A> Modified: trunk/docs/manual/gfs/equal-size-p.html ============================================================================== --- trunk/docs/manual/gfs/equal-size-p.html (original) +++ trunk/docs/manual/gfs/equal-size-p.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,20 @@ href="size.html">size2</A>) => boolean -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">size1</TD> + <TD>The first <A href="size.html">size</A> object to be + tested for equality.</TD></TR> + <TR> + <TD width="20%">size2</TD> + <TD>The second <A href="size.html">size</A> object to be + tested for +equality.</TD></TR></TABLE>description</H4> Returns T if <A href="size.html">size1</A> and <A href="size.html">size2</A> have the same height and @@ -39,7 +52,8 @@ href="size-width.html">size-width</A> <HR> - + + Modified: trunk/docs/manual/gfs/handle.html ============================================================================== --- trunk/docs/manual/gfs/handle.html (original) +++ trunk/docs/manual/gfs/handle.html Fri Oct 6 02:22:54 2006 @@ -22,10 +22,21 @@ face=Arial size=2>(gfs:handle <A href="native-object.html">native-object</A>) => foreign pointer -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">native-object</TD> + <TD>The <A href="native-object.html">native-object</A> + whose Win32 HANDLE or foreign pointer is to be + retrieved.</TD></TR></TABLE>description</H4> Returns the Win32 HANDLE or foreign pointer associated with <A href="native-object.html">native-object</A> . +Note: application code typically should not +manipulate the returned value. <HR> Modified: trunk/docs/manual/gfs/location.html ============================================================================== --- trunk/docs/manual/gfs/location.html (original) +++ trunk/docs/manual/gfs/location.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,16 @@ href="rectangle.html">rectangle</A>) => <A href="point.html"> point</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">rectangle</TD> + <TD>The <A href="rectangle.html">rectangle</A> structure + whose location is to be +retrieved.</TD></TR></TABLE>description</H4> Returns <A href="point.html">point</A> identifying the coordinates of the upper-left cornder of <A Modified: trunk/docs/manual/gfs/make-point.html ============================================================================== --- trunk/docs/manual/gfs/make-point.html (original) +++ trunk/docs/manual/gfs/make-point.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,20 @@ => <A href="point.html">point</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">:x</TD> + <TD>A keyword + argument accepting an integer X coordinate.</TD></TR> + <TR> + <TD width="20%">:y</TD> + <TD>A keyword + argument accepting an integer Y +coordinate.</TD></TR></TABLE>description</H4> Returns a newly-created <A href="point.html">point</A> . @@ -33,7 +46,8 @@ <A href="copy-point.html">copy-point</A> <HR> - + + Modified: trunk/docs/manual/gfs/make-rectangle.html ============================================================================== --- trunk/docs/manual/gfs/make-rectangle.html (original) +++ trunk/docs/manual/gfs/make-rectangle.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,20 @@ => <A href="rectangle.html">rectangle</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">:location</TD> + <TD>A keyword argument accepting a <A + href="point.html">point</A> to specify the location.</TD></TR> + <TR> + <TD width="20%">:size</TD> + <TD>A keyword argument accepting a <A + href="size.html">size</A> to specify the +dimensions.</TD></TR></TABLE>description</H4> Returns a newly-created <A href="rectangle.html" >rectangle</A> . Modified: trunk/docs/manual/gfs/make-size.html ============================================================================== --- trunk/docs/manual/gfs/make-size.html (original) +++ trunk/docs/manual/gfs/make-size.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,19 @@ => <A href="size.html">size</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">:height</TD> + <TD>A keyword argument accepting an integer + width.</TD></TR> + <TR> + <TD width="20%">:width</TD> + <TD>A keyword argument accepting an + integer height.</TD></TR></TABLE>description</H4> Returns a newly-created <A href="size.html">size</A> . @@ -33,7 +45,8 @@ <A href="copy-size.html">copy-size</A> <HR> - + + Modified: trunk/docs/manual/gfs/make-span.html ============================================================================== --- trunk/docs/manual/gfs/make-span.html (original) +++ trunk/docs/manual/gfs/make-span.html Fri Oct 6 02:22:54 2006 @@ -25,7 +25,19 @@ => <A href="span.html">span</A> -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">:start</TD> + <TD>A keyword argument accepting an integer starting + value.</TD></TR> + <TR> + <TD width="20%">:end</TD> + <TD>A keyword argument accepting an integer ending + value.</TD></TR></TABLE>description</H4> Returns a newly-created <A href="span.html">span</A> . @@ -33,7 +45,8 @@ <A href="copy-span.html">copy-span</A> <HR> - + + Modified: trunk/docs/manual/gfs/point-x.html ============================================================================== --- trunk/docs/manual/gfs/point-x.html (original) +++ trunk/docs/manual/gfs/point-x.html Fri Oct 6 02:22:54 2006 @@ -26,7 +26,19 @@ (setf (gfs:point-x <A href="point.html">point</A>) integer) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">point</TD> + <TD>The <A href="point.html">point</A> object whose X + coordinate is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer X coordinate +value.</TD></TR></TABLE>description</H4> Returns (sets) the X coordinate of the specified <A href="point.html">point</A> . Modified: trunk/docs/manual/gfs/point-y.html ============================================================================== --- trunk/docs/manual/gfs/point-y.html (original) +++ trunk/docs/manual/gfs/point-y.html Fri Oct 6 02:22:54 2006 @@ -26,7 +26,19 @@ (setf (gfs:point-y <A href="point.html">point</A>) integer) -<H4>description</H4> +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">point</TD> + <TD>The <A href="point.html">point</A> object whose Y + coordinate is to be queried or updated.</TD></TR> + <TR> + <TD width="20%">integer</TD> + <TD>An integer Y coordinate +value.</TD></TR></TABLE>description</H4> Returns (sets) the Y coordinate of the specified <A href="point.html">point</A> . Added: trunk/docs/manual/gfw/default-message-filter.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/default-message-filter.html Fri Oct 6 02:22:54 2006 @@ -0,0 +1,77 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>default-message-filter</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%">default-message-filter</TD> + <TD> + [Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:default-message-filter gm-code +msg-ptr) => +boolean +<H4> +<H4>arguments</H4> + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">gm-code</TD> + <TD>An integer code returned by the <A + href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winu…">GetMessage</A> Win32 API function.</TD></TR> + <TR> + <TD width="20%">msg-ptr</TD> + <TD>A foreign pointer to a Win32 API <A + href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winu…">MSG</A> data structure filled in by <A + href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winu…">GetMessage</A>.</TD></TR></TABLE>description</H4> + Processes messages for all windows, non-modal dialogs, +and controls. Accelerator keys are also translated by this function. Returns NIL +so that <A href="message-loop.html">message-loop</A> + + will continue, unless gm-code is less than or equal to zero, in which case T +is returned so that <A href="message-loop.html">message-loop</A> + will exit. When +gm-code is zero, msg-ptr corresponds to a WM_QUIT message +indicating normal shutdown. If gm-code + + + + + is -1, then the system has reported an error during message retrieval; in + this +situation, the application should attempt a graceful + shutdown. + This function +is not intended to be called by application code; rather, it is passed to <A +href="message-loop.html">message-loop</A> + + when applications need to process queued messages. +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html> Added: trunk/docs/manual/gfw/message-loop.html ============================================================================== --- (empty file) +++ trunk/docs/manual/gfw/message-loop.html Fri Oct 6 02:22:54 2006 @@ -0,0 +1,63 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<html> +<head> +<title>message-loop</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%">message-loop</TD> + <TD> + [Function] </TD></TR></TABLE> +<HR></H4> +syntax + (gfw:message-loop msg-filter) => +boolean +<H4>arguments + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="20%">msg-filter</TD> + <TD>A function to + process each message.</TD></TR></TABLE>description</H4> + This function retrieves messages from the queue +associated with the current thread, passing each one to the function specified +by the msg-filter argument so that it may be translated and dispatched. +The return value of the msg-filter + + + + + + + + function determines whether message-loop continues or returns -- it should return NIL if + message-loop +should continue, or non-NIL if message-loop should + exit. +<H4>see also</H4> +<A href="default-message-filter.html">default-message-filter</A> +<HR> + + + +<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" borderColor=#ffffff +cellSpacing=0 cellPadding=2 width="100%" border=1> + + <TR> + <TD width="60%">  </TD> + <TD> + Copyright � 2006, Jack D. Unrue +</TD></TR></TABLE></body> +</html>

1 0

[graphic-forms-cvs] r292 - in trunk: . src/uitoolkit/system src/uitoolkit/widgets
by junrue＠common-lisp.net 06 Oct '06

06 Oct '06

Author: junrue Date: Fri Oct 6 00:59:24 2006 New Revision: 292 Modified: trunk/NEWS.txt trunk/build.lisp trunk/config.lisp trunk/src/uitoolkit/system/datastructs.lisp trunk/src/uitoolkit/widgets/event.lisp trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Log: fixed an edge case in scrolling/repainting; added SB_ENDSCROLL/TB_ENDTRACK support to scroll notification; upgraded to CFFI 060925 due to CLISP 2.40 Modified: trunk/NEWS.txt ============================================================================== --- trunk/NEWS.txt (original) +++ trunk/NEWS.txt Fri Oct 6 00:59:24 2006 @@ -1,5 +1,9 @@ +. CFFI snapshot 060925 or later is now required if you are running + CLISP 2.40 or later (due to a change in the argument list of + CLISP's FFI:FOREIGN-LIBRARY-FUNCTION). + . Initial list box control functionality is now available: * three selection modes (none / multiple / extend) Modified: trunk/build.lisp ============================================================================== --- trunk/build.lisp (original) +++ trunk/build.lisp Fri Oct 6 00:59:24 2006 @@ -44,7 +44,7 @@ (defvar *asdf-repo-root* (concatenate 'string *library-root* "asdf-repo/")) (defvar *project-root* "c:/projects/public/") -(setf *cffi-dir* (concatenate 'string *asdf-repo-root* "cffi-060606/")) +(setf *cffi-dir* (concatenate 'string *asdf-repo-root* "cffi-060925/")) (setf *closer-mop-dir* (concatenate 'string *asdf-repo-root* "closer-mop/")) (setf *lw-compat-dir* (concatenate 'string *asdf-repo-root* "lw-compat/")) (setf *gf-dir* (concatenate 'string *project-root* "graphic-forms/")) Modified: trunk/config.lisp ============================================================================== --- trunk/config.lisp (original) +++ trunk/config.lisp Fri Oct 6 00:59:24 2006 @@ -39,7 +39,7 @@ (in-package #:graphic-forms-system) -(defvar *cffi-dir* "cffi-060606/") +(defvar *cffi-dir* "cffi-060925/") (defvar *closer-mop-dir* "closer-mop/") (defvar *lw-compat-dir* "lw-compat/") (defvar *gf-dir* "graphic-forms/") Modified: trunk/src/uitoolkit/system/datastructs.lisp ============================================================================== --- trunk/src/uitoolkit/system/datastructs.lisp (original) +++ trunk/src/uitoolkit/system/datastructs.lisp Fri Oct 6 00:59:24 2006 @@ -45,9 +45,15 @@ (defun location (rect) (rectangle-location rect)) +(defun (setf location) (pnt rect) + (setf (rectangle-location rect) pnt)) + (declaim (inline size)) (defun size (size) - (rectangle-size rect)) + (rectangle-size size)) + +(defun (setf size) (size rect) + (setf (rectangle-size rect) size)) (declaim (inline empty-span-p)) (defun empty-span-p (span) Modified: trunk/src/uitoolkit/widgets/event.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/event.lisp (original) +++ trunk/src/uitoolkit/widgets/event.lisp Fri Oct 6 00:59:24 2006 @@ -161,7 +161,9 @@ ; (#.gfs::+tb-thumbposition+ :thumb-position) ; (#.gfs::+tb-thumbtrack+ :thumb-track) (#.gfs::+sb-thumbposition+ :thumb-position) - (#.gfs::+sb-thumbtrack+ :thumb-track)))) + (#.gfs::+sb-thumbtrack+ :thumb-track) +; (#.gfs::+tb-endtrack+ :finished) + (#.gfs::+sb-endscroll+ :finished)))) (event-scroll disp widget axis detail))) (defun obtain-event-time () Modified: trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp (original) +++ trunk/src/uitoolkit/widgets/scrolling-event-dispatcher.lisp Fri Oct 6 00:59:24 2006 @@ -117,6 +117,8 @@ (viewport-size (client-size window)) (top-size (if top (size top) viewport-size)) (origin (slot-value (dispatcher window) 'viewport-origin)) + (saved-x (gfs:point-x origin)) + (saved-y (gfs:point-y origin)) (delta-x (- (+ (gfs:size-width viewport-size) (gfs:point-x origin)) (gfs:size-width top-size))) (delta-y (- (+ (gfs:size-height viewport-size) (gfs:point-y origin)) (gfs:size-height top-size)))) (if (and (> delta-x 0) (> (gfs:point-x origin) 0)) @@ -125,7 +127,12 @@ (if (and (> delta-y 0) (> (gfs:point-y origin) 0)) (setf (gfs:point-y origin) (max 0 (- (gfs:point-y origin) delta-y))) (setf delta-y 0)) - (scroll top delta-x delta-y nil 0) + (if (or (and (zerop (gfs:point-x origin)) (/= saved-x 0)) + (and (zerop (gfs:point-y origin)) (/= saved-y 0))) + (progn + (redraw top) + (update top)) + (scroll top delta-x delta-y nil 0)) origin)) ;;;

1 0

[graphic-forms-cvs] r291 - in trunk: docs/manual docs/manual/gfs src/uitoolkit/system
by junrue＠common-lisp.net 03 Oct '06

03 Oct '06

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

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

graphic-forms-cvs October 2006