[uim-commit] r373 - in trunk: scm uim

[yamaken@freedesktop.org]

Author: yamaken
Date: 2005-01-27 20:51:04 -0800 (Thu, 27 Jan 2005)
New Revision: 373

Modified:
   trunk/scm/im-custom.scm
   trunk/uim/uim-compat-scm.c
   trunk/uim/uim-compat-scm.h
Log:
* uim/uim-compat-scm.h
* uim/uim-compat-scm.c
  - (uim_scm_symbol_value_bool): New function
* scm/im-custom.scm
  - (custom toolbar-show-switcher-button?, custom
    toolbar-show-pref-button?): New custom variable


Modified: trunk/scm/im-custom.scm
===================================================================
--- trunk/scm/im-custom.scm	2005-01-28 03:37:15 UTC (rev 372)
+++ trunk/scm/im-custom.scm	2005-01-28 04:51:04 UTC (rev 373)
@@ -213,3 +213,15 @@
 	      (_ "Right end of preedit area")))
   (_ "Candidate window position")
   (_ "long description will be here."))
+
+(define-custom 'toolbar-show-switcher-button? #t
+  '(global)
+  '(boolean)
+  (_ "Show input method switcher button on toolbar")
+  (_ "long description will be here."))
+
+(define-custom 'toolbar-show-pref-button? #t
+  '(global)
+  '(boolean)
+  (_ "Show uim preference tool button on toolbar")
+  (_ "long description will be here."))

Modified: trunk/uim/uim-compat-scm.c
===================================================================
--- trunk/uim/uim-compat-scm.c	2005-01-28 03:37:15 UTC (rev 372)
+++ trunk/uim/uim-compat-scm.c	2005-01-28 04:51:04 UTC (rev 373)
@@ -123,6 +123,21 @@
   return val;
 }
 
+/* temprary solution for getting an value from Scheme world */
+uim_bool
+uim_scm_symbol_value_bool(const char *symbol_str)
+{
+  uim_bool val;
+
+  if (!symbol_str)
+    return UIM_FALSE;
+
+  UIM_EVAL_FSTRING1(NULL, "(symbol-value '%s)", symbol_str);
+  val = uim_scm_c_bool(uim_scm_return_value);
+
+  return val;
+}
+
 uim_lisp
 uim_scm_str_from_c_str(const char *str)
 {

Modified: trunk/uim/uim-compat-scm.h
===================================================================
--- trunk/uim/uim-compat-scm.h	2005-01-28 03:37:15 UTC (rev 372)
+++ trunk/uim/uim-compat-scm.h	2005-01-28 04:51:04 UTC (rev 373)
@@ -75,6 +75,9 @@
 uim_lisp
 uim_scm_str_from_c_str(const char *str);
 
+uim_bool
+uim_scm_symbol_value_bool(const char *symbol_str);
+
 uim_lisp
 uim_scm_c_strs_into_list(int n_strs, const char *const *strs);
 uim_lisp