Revision: 6538
Author: deton.kih
Date: Mon Jul 19 03:33:35 2010
Log: * scm/tutcode.scm
- (tutcode-context-new):
Change not to reload tutcode-rule file for child context.
http://code.google.com/p/uim/source/detail?r=6538
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Mon Jul 19 00:07:47 2010
+++ /trunk/scm/tutcode.scm Mon Jul 19 03:33:35 2010
@@ -336,14 +336,16 @@
(tutcode-read-personal-dictionary)))
(let ((tc (tutcode-context-new-internal id im)))
(tutcode-context-set-widgets! tc tutcode-widgets)
- (tutcode-custom-load-rule! tutcode-rule-filename)
- (if tutcode-use-dvorak?
- (set! tutcode-rule (tutcode-rule-qwerty-to-dvorak tutcode-rule)))
- ;; tutcode-mazegaki/bushu-start-sequence¤Ï¡¢
- ;;
tutcode-use-dvorak?¤¬¥ª¥ó¤Î¤È¤¤ÏDvorak¤Î¥·¡¼¥±¥ó¥¹¤È¤ß¤Ê¤·¤ÆÈ¿±Ç¤¹¤ë¡£
- ;; ¤Ä¤Þ¤ê¡¢rule¤Îqwerty-to-dvorakÊÑ´¹¸å¤ËÈ¿±Ç¤¹¤ë¡£
- (tutcode-custom-set-mazegaki/bushu-start-sequence!)
- (tutcode-rule-commit-sequences! tutcode-rule-userconfig)
+ (if (null? tutcode-rule)
+ (begin
+ (tutcode-custom-load-rule! tutcode-rule-filename)
+ (if tutcode-use-dvorak?
+ (set! tutcode-rule (tutcode-rule-qwerty-to-dvorak tutcode-rule)))
+ ;; tutcode-mazegaki/bushu-start-sequence¤Ï¡¢
+ ;;
tutcode-use-dvorak?¤¬¥ª¥ó¤Î¤È¤¤ÏDvorak¤Î¥·¡¼¥±¥ó¥¹¤È¤ß¤Ê¤·¤ÆÈ¿±Ç¡£
+ ;; ¤Ä¤Þ¤ê¡¢rule¤Îqwerty-to-dvorakÊÑ´¹¸å¤ËÈ¿±Ç¤¹¤ë¡£
+ (tutcode-custom-set-mazegaki/bushu-start-sequence!)
+ (tutcode-rule-commit-sequences! tutcode-rule-userconfig)))
(tutcode-context-set-rk-context! tc (rk-context-new tutcode-rule #t
#f))
(if tutcode-use-recursive-learning?
(tutcode-context-set-editor! tc (tutcode-editor-new tc)))
