Revision: 7182
Author: ek.kato
Date: Tue Jul 5 01:59:35 2011
Log: * scm/action.scm (context-current-widget-states) : Fix bug which
caused an error when indicator and actions are isolated.
http://code.google.com/p/uim/source/detail?r=7182
Modified:
/trunk/scm/action.scm
=======================================
--- /trunk/scm/action.scm Thu Jan 6 18:09:56 2011
+++ /trunk/scm/action.scm Tue Jul 5 01:59:35 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)))))
