Author: junrue Date: Sat Apr 29 11:11:47 2006 New Revision: 113 Modified: trunk/docs/manual/api.texinfo trunk/docs/website/index.html trunk/src/uitoolkit/system/system-constants.lisp trunk/src/uitoolkit/widgets/event.lisp Log: implemented event-focus-gain/event-focus-loss methods Modified: trunk/docs/manual/api.texinfo ============================================================================== --- trunk/docs/manual/api.texinfo (original) +++ trunk/docs/manual/api.texinfo Sat Apr 29 11:11:47 2006 @@ -551,6 +551,16 @@ @ref{dispose}, not the garbage collector). @end deffn +@anchor{event-focus-gain} +@deffn GenericFunction event-focus-gain dispatcher widget time +Implement this to respond to an object gaining keyboard focus. +@end deffn + +@anchor{event-focus-loss} +@deffn GenericFunction event-focus-gain dispatcher widget time +Implement this to respond to an object losing keyboard focus. +@end deffn + @deffn GenericFunction event-key-down dispatcher widget time keycode char Implement this to respond to a key down event. @end deffn Modified: trunk/docs/website/index.html ============================================================================== --- trunk/docs/website/index.html (original) +++ trunk/docs/website/index.html Sat Apr 29 11:11:47 2006 @@ -57,7 +57,7 @@ <h3>Status</h3> - <p>The first release, version 0.2.0, is now available.</p> + <p>The current release is version 0.3.0.</p> <p>This library is in the early implementation stage. Brave souls who experiment with the code should expect significant API and Modified: trunk/src/uitoolkit/system/system-constants.lisp ============================================================================== --- trunk/src/uitoolkit/system/system-constants.lisp (original) +++ trunk/src/uitoolkit/system/system-constants.lisp Sat Apr 29 11:11:47 2006 @@ -748,6 +748,13 @@ (defconstant +wm-move+ #x0003) (defconstant +wm-size+ #x0005) (defconstant +wm-activate+ #x0006) +(defconstant +wm-setfocus+ #x0007) +(defconstant +wm-killfocus+ #x0008) +(defconstant +wm-enable+ #x000A) +(defconstant +wm-setredraw+ #x000B) +(defconstant +wm-settext+ #x000C) +(defconstant +wm-gettext+ #x000D) +(defconstant +wm-gettextlength+ #x000E) (defconstant +wm-paint+ #x000F) (defconstant +wm-close+ #x0010) (defconstant +wm-getminmaxinfo+ #x0024) Modified: trunk/src/uitoolkit/widgets/event.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/event.lisp (original) +++ trunk/src/uitoolkit/widgets/event.lisp Sat Apr 29 11:11:47 2006 @@ -318,6 +318,22 @@ (declare (ignore wparam)) (process-mouse-message #'event-mouse-up hwnd lparam :right-button)) +(defmethod process-message (hwnd (msg (eql gfs::+wm-killfocus+)) wparam lparam) + (declare (ignore wparam lparam)) + (let* ((tc (thread-context)) + (widget (get-widget tc hwnd))) + (if widget + (event-focus-loss (dispatcher widget) widget (event-time tc)))) + 0) + +(defmethod process-message (hwnd (msg (eql gfs::+wm-setfocus+)) wparam lparam) + (declare (ignore wparam lparam)) + (let* ((tc (thread-context)) + (widget (get-widget tc hwnd))) + (if widget + (event-focus-gain (dispatcher widget) widget (event-time tc)))) + 0) + (defmethod process-message (hwnd (msg (eql gfs::+wm-getminmaxinfo+)) wparam lparam) (declare (ignore wparam)) (let* ((tc (thread-context))