Author: ek.kato
Date: Wed Apr 8 23:57:14 2009
New Revision: 5950
Modified:
trunk/scm/ajax-ime.scm
Log:
* scm/ajax-ime.scm
- (ajax-ime-init-handler)
- (ajax-ime-focus-in-handler)
- Show caveat on focus-in instead of init.
Modified: trunk/scm/ajax-ime.scm
==============================================================================
--- trunk/scm/ajax-ime.scm (original)
+++ trunk/scm/ajax-ime.scm Wed Apr 8 23:57:14 2009
@@ -511,8 +511,6 @@
(ajax-ime-make-raw-string (ajax-ime-get-raw-str-seq ac) wide? upper?)))
(define (ajax-ime-init-handler id im arg)
- (if ajax-ime-warn-connection?
- (uim-notify-info (N_ "Caveat: All the request to Ajax-IME/ChaIME
server is not encrypted through the internet.\nIf you want to disable this
message, turn off the option in Ajax-IME (advanced) setting.")))
(if (not ajax-ime-init-lib-ok?)
(begin
(ajax-ime-lib-init)
@@ -1468,6 +1466,10 @@
(ajax-ime-lib-reset-conversion ac))
(ajax-ime-flush ac))))
+(define (ajax-ime-focus-in-handler ac)
+ (if ajax-ime-warn-connection?
+ (uim-notify-info (N_ "Caveat: All the request to Ajax-IME/ChaIME
server is not encrypted through the internet.\nIf you want to disable this
message, turn off the option in Ajax-IME (advanced) setting."))))
+
;;;
(define (ajax-ime-get-candidate-handler ac idx ascel-enum-hint)
(let* ((cur-seg (ustr-cursor-pos (ajax-ime-context-segments ac)))
@@ -1501,7 +1503,7 @@
ajax-ime-set-candidate-index-handler
context-prop-activate-handler
#f
- #f
+ ajax-ime-focus-in-handler
#f
#f
#f
