[graphic-forms-cvs] r113 - in trunk: docs/manual docs/website src/uitoolkit/system src/uitoolkit/widgets

[junrue at common-lisp.net]

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
 
+ at anchor{event-focus-gain}
+ at deffn GenericFunction event-focus-gain dispatcher widget time
+Implement this to respond to an object gaining keyboard focus.
+ at end deffn
+
+ at anchor{event-focus-loss}
+ at deffn GenericFunction event-focus-gain dispatcher widget time
+Implement this to respond to an object losing keyboard focus.
+ at 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))