[uim-commit] r2712 - branches/1.0/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-12-29 22:02:15 -0800 (Thu, 29 Dec 2005)
New Revision: 2712

Modified:
   branches/1.0/scm/im-custom.scm
   branches/1.0/scm/util.scm
Log:
* scm/util.scm
* scm/im-custom.scm
  - Port r2706 from trunk.


Modified: branches/1.0/scm/im-custom.scm
===================================================================
--- branches/1.0/scm/im-custom.scm	2005-12-29 21:05:05 UTC (rev 2711)
+++ branches/1.0/scm/im-custom.scm	2005-12-30 06:02:15 UTC (rev 2712)
@@ -325,6 +325,11 @@
   (_ "Preedit color")
   (_ "long description will be here."))
 
+(custom-add-hook 'uim-color
+		 'custom-set-hooks
+		 (lambda ()
+		   (update-style uim-color-spec (symbol-value uim-color))))
+
 ;; referred by some bridges
 (define-custom 'candidate-window-position 'caret
   '(global visual-preference)

Modified: branches/1.0/scm/util.scm
===================================================================
--- branches/1.0/scm/util.scm	2005-12-29 21:05:05 UTC (rev 2711)
+++ branches/1.0/scm/util.scm	2005-12-30 06:02:15 UTC (rev 2712)
@@ -713,7 +713,6 @@
 (define reversed-separator-foreground #f)
 (define reversed-separator-background #f)
 
-(define uim-color 'uim-color-uim)
 (define uim-color-spec
   '((reversed-preedit-foreground   . string?)
     (reversed-preedit-background   . string?)
@@ -732,7 +731,7 @@
     (reversed-separator-background . "black")))
 (define uim-color-atok
   '((reversed-preedit-foreground   . "black")
-    (reversed-preedit-background   . "blue")
+    (reversed-preedit-background   . "cyan")
     (separator-foreground          . "lightsteelblue")
     (separator-background          . "")
     (reversed-separator-foreground . "black")