Author: deton.kih
Date: Tue Nov 13 04:21:52 2007
New Revision: 5046
Modified:
trunk/scm/tutcode.scm
Log:
* scm/tutcode.scm
- (action_tutcode_direct, action_tutcode_hiragana, action_tutcode_katakana):
Fix to support Henkan state.
Modified: trunk/scm/tutcode.scm
==============================================================================
--- trunk/scm/tutcode.scm (original)
+++ trunk/scm/tutcode.scm Tue Nov 13 04:21:52 2007
@@ -137,7 +137,9 @@
(not (tutcode-context-on? tc)))
(lambda (tc)
(tutcode-prepare-activation tc)
- (tutcode-context-set-state! tc 'tutcode-state-off)))
+ (tutcode-flush tc)
+ (tutcode-context-set-state! tc 'tutcode-state-off)
+ (tutcode-update-preedit tc))) ; flush�ǥ��ꥢ����ɽ����ȿ��
(register-action 'action_tutcode_hiragana
(lambda (tc)
@@ -150,7 +152,8 @@
(not (tutcode-context-katakana-mode? tc))))
(lambda (tc)
(tutcode-prepare-activation tc)
- (tutcode-context-set-state! tc 'tutcode-state-on)
+ (if (not (tutcode-context-on? tc)) ; �Ѵ�����֤��ѹ����ʤ�
+ (tutcode-context-set-state! tc 'tutcode-state-on))
(tutcode-context-set-katakana-mode! tc #f)))
(register-action 'action_tutcode_katakana
@@ -164,7 +167,8 @@
(tutcode-context-katakana-mode? tc)))
(lambda (tc)
(tutcode-prepare-activation tc)
- (tutcode-context-set-state! tc 'tutcode-state-on)
+ (if (not (tutcode-context-on? tc)) ; �Ѵ�����֤��ѹ����ʤ�
+ (tutcode-context-set-state! tc 'tutcode-state-on))
(tutcode-context-set-katakana-mode! tc #t)))
;; Update widget definitions based on action configurations. The
