Revision: 7183
Author: ek.kato
Date: Tue Jul 5 02:00:18 2011
Log: * Merge r7182 from trunk.
http://code.google.com/p/uim/source/detail?r=7183
Modified:
/branches/1.7/scm/action.scm
=======================================
--- /branches/1.7/scm/action.scm Thu Jan 6 18:09:56 2011
+++ /branches/1.7/scm/action.scm Tue Jul 5 02:00:18 2011
@@ -332,7 +332,11 @@
;; returns action-id list that can be passed to
context-update-widget-states!
;; TODO: write test
(define context-current-widget-states
- (let ((widget-act-id (compose action-id widget-activity)))
+ (let ((widget-act-id (compose
+ (lambda (activity) (if activity
+ (action-id activity)
+ #f))
+ widget-activity)))
(lambda (context)
(map widget-act-id (context-widgets context)))))
