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

[junrue at common-lisp.net]

Author: junrue
Date: Sat Aug 19 20:37:13 2006
New Revision: 223

Modified:
   trunk/NEWS.txt
   trunk/docs/manual/widgets-api.texinfo
   trunk/src/uitoolkit/system/user32.lisp
   trunk/src/uitoolkit/widgets/event.lisp
   trunk/src/uitoolkit/widgets/thread-context.lisp
Log:
changed obtain-event-time to call native GetMessageTime, and removed obsolete slot from thread-context

Modified: trunk/NEWS.txt
==============================================================================
--- trunk/NEWS.txt	(original)
+++ trunk/NEWS.txt	Sat Aug 19 20:37:13 2006
@@ -4,6 +4,8 @@
 to enable the stdcall calling convention for alien callbacks, located
 in src/external-libraries/sbcl-callback-patch
 
+. Implemented the standard color chooser dialog.
+
 
 ==============================================================================
 

Modified: trunk/docs/manual/widgets-api.texinfo
==============================================================================
--- trunk/docs/manual/widgets-api.texinfo	(original)
+++ trunk/docs/manual/widgets-api.texinfo	Sat Aug 19 20:37:13 2006
@@ -1162,8 +1162,7 @@
 
 @anchor{obtain-event-time}
 @defun obtain-event-time => milliseconds
-Returns the timestamp for the event currently being processed, or
-zero if called prior to delivery of any events.
+Returns the timestamp for the event currently being processed.
 @end defun
 
 

Modified: trunk/src/uitoolkit/system/user32.lisp
==============================================================================
--- trunk/src/uitoolkit/system/user32.lisp	(original)
+++ trunk/src/uitoolkit/system/user32.lisp	Sat Aug 19 20:37:13 2006
@@ -414,6 +414,10 @@
   (filter-max UINT))
 
 (defcfun
+  ("GetMessageTime" get-message-time)
+  LONG)
+
+(defcfun
   ("GetMonitorInfoA" get-monitor-info)
   BOOL
   (hmonitor HANDLE)

Modified: trunk/src/uitoolkit/widgets/event.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/event.lisp	(original)
+++ trunk/src/uitoolkit/widgets/event.lisp	Sat Aug 19 20:37:13 2006
@@ -78,7 +78,6 @@
                                    gfs::time
                                    gfs::pnt)
                                   msg-ptr gfs::msg)
-          (setf (event-time (thread-context)) gfs::time)
           (when (funcall msg-filter gm msg-ptr)
             (return-from message-loop gfs::wparam)))))))
 
@@ -140,10 +139,8 @@
       (setf ret-val (cffi:pointer-address (brush-handle-of widget))))
     ret-val))
 
-;;; FIXME: replace event-time slot with call to GetMessageTime
-;;;
 (defun obtain-event-time ()
-  (event-time (thread-context)))
+  (gfs::get-message-time))
 
 (defun option->reason (lparam)
   ;; MSDN says the value is a bitmask, so must be tested bit-wise.

Modified: trunk/src/uitoolkit/widgets/thread-context.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/thread-context.lisp	(original)
+++ trunk/src/uitoolkit/widgets/thread-context.lisp	Sat Aug 19 20:37:13 2006
@@ -40,7 +40,6 @@
    (display-visitor-results   :initform nil :accessor display-visitor-results)
    (job-table                 :initform (make-hash-table :test #'equal))
    (job-table-lock            :initform nil)
-   (event-time                :initform 0 :accessor event-time) ; FIXME: GetMessageTime
    (virtual-key               :initform 0 :accessor virtual-key)
    (menuitems-by-id           :initform (make-hash-table :test #'equal))
    (mouse-event-pnt           :initform (gfs:make-point) :accessor mouse-event-pnt)