[uim-commit] r3111 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-02-17 09:30:57 -0800 (Fri, 17 Feb 2006)
New Revision: 3111

Modified:
   trunk/scm/skk.scm
   trunk/scm/tutcode.scm
Log:
* scm/skk.scm
  - (action action_skk_hiragana, action action_skk_katakana, action
    action_skk_hankana, action action_skk_latin, action
    action_skk_wide_latin): Strip multiplexed IM name on iconic-label
    of input mode
* scm/tutcode.scm
  - (action action_tutcode_direct, action action_tutcode_hiragana,
    action action_tutcode_katakana): Ditto


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2006-02-17 17:13:54 UTC (rev 3110)
+++ trunk/scm/skk.scm	2006-02-17 17:30:57 UTC (rev 3111)
@@ -157,7 +157,7 @@
 (register-action 'action_skk_hiragana
 		 (lambda (sc)
 		   '(figure_ja_hiragana
-		     "¤¨"
+		     "¤¢"
 		     "¤Ò¤é¤¬¤Ê"
 		     "¤Ò¤é¤¬¤ÊÆþÎϥ⡼¥É"))
 		 (lambda (sc)
@@ -174,7 +174,7 @@
 (register-action 'action_skk_katakana
 		 (lambda (sc)
 		   '(figure_ja_katakana
-		     "¥¨"
+		     "¥¢"
 		     "¥«¥¿¥«¥Ê"
 		     "¥«¥¿¥«¥ÊÆþÎϥ⡼¥É"))
 		 (lambda (sc)
@@ -191,7 +191,7 @@
 (register-action 'action_skk_hankana
 		 (lambda (sc)
 		   '(figure_ja_hankana
-		     "Ž´"
+		     "Ž±"
 		     "Ⱦ³Ñ¥«¥¿¥«¥Ê"
 		     "Ⱦ³Ñ¥«¥¿¥«¥ÊÆþÎϥ⡼¥É"))
 		 (lambda (sc)
@@ -208,7 +208,7 @@
 (register-action 'action_skk_latin
 		 (lambda (sc)
 		   '(figure_ja_latin
-		     "s"
+		     "a"
 		     "ľÀÜÆþÎÏ"
 		     "ľÀÜ(̵ÊÑ´¹)ÆþÎϥ⡼¥É"))
 		 (lambda (sc)
@@ -223,7 +223,7 @@
 (register-action 'action_skk_wide_latin
 		 (lambda (sc)
 		   '(figure_ja_wide_latin
-		     "£Ó"
+		     "£Á"
 		     "Á´³Ñ±Ñ¿ô"
 		     "Á´³Ñ±Ñ¿ôÆþÎϥ⡼¥É"))
 		 (lambda (sc)

Modified: trunk/scm/tutcode.scm
===================================================================
--- trunk/scm/tutcode.scm	2006-02-17 17:13:54 UTC (rev 3110)
+++ trunk/scm/tutcode.scm	2006-02-17 17:30:57 UTC (rev 3111)
@@ -80,7 +80,7 @@
 (register-action 'action_tutcode_direct
 		 (lambda (tc)
 		   '(figure_ja_direct
-		     "t"
+		     "a"
 		     "ľÀÜÆþÎÏ"
 		     "ľÀÜÆþÎϥ⡼¥É"))
 		 (lambda (tc)
@@ -92,7 +92,7 @@
 (register-action 'action_tutcode_hiragana
 		 (lambda (tc)
 		   '(figure_ja_hiragana
-		     "¤¿"
+		     "¤¢"
 		     "¤Ò¤é¤¬¤Ê"
 		     "¤Ò¤é¤¬¤Ê¥â¡¼¥É"))
 		 (lambda (tc)
@@ -106,7 +106,7 @@
 (register-action 'action_tutcode_katakana
 		 (lambda (tc)
 		   '(figure_ja_katakana
-		     "¥¿"
+		     "¥¢"
 		     "¥«¥¿¥«¥Ê"
 		     "¥«¥¿¥«¥Ê¥â¡¼¥É"))
 		 (lambda (tc)