Commit: 2a2a449f1d12fedfdedca9452b4e2e032bd1ae48 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Révision: 2a2a449f1d12fedfdedca9452b4e2e032bd1ae48 (tree)
• l'heure: 2008-09-18 01:14:29
• Auteur: Janek Kozicki <jkozicki@src....>
• Commiter: Janek Kozicki

Message de Log

Re-expose tooltip options by Christopher Bratusek. Brings back tooltips-delay tooltips-timeout-delay tooltips-font tooltips-background-color and tooltips-foreground-color to sawfish-ui.

svn path=/branches/sawfish-experimental/; revision=4285

Change Summary

• modified: ChangeLog
• modified: lisp/sawfish/wm/ext/tooltips.jl
• modified: lisp/sawfish/wm/util/compat.jl

Modification

--- a/ChangeLog
+++ b/ChangeLog
@@ -25,6 +25,11 @@
 	* lisp/sawfish/wm/commands/viewport-linear.jl
 	* lisp/sawfish/wm/autoload.jl: Re-expose viewport bindings by
 	Christopher Bratusek. Return of the Viewport bindings.
+	* lisp/sawfish/wm/ext/tooltips.jl
+	* lisp/sawfish/wm/util/compat.jl: Re-expose tooltip options by
+	Christopher Bratusek. Brings back tooltips-delay
+	tooltips-timeout-delay tooltips-font tooltips-background-color and
+	tooltips-foreground-color to sawfish-ui.
 
 
 2008-08-29  Janek Kozicki <[e-mail]>

--- a/lisp/sawfish/wm/ext/tooltips.jl
+++ b/lisp/sawfish/wm/ext/tooltips.jl
@@ -1,5 +1,5 @@
 ;; tooltips.jl -- display frame-part keymap descriptions
-;; $Id$
+;; $Id: tooltips.jl,v 1.33 2004/01/06 06:48:02 jsh Exp $
 
 ;; Copyright (C) 1999 John Harper <[e-mail]>
 
@@ -31,6 +31,7 @@
 	  rep.io.timers
 	  sawfish.wm.commands
 	  sawfish.wm.custom
+	  sawfish.wm.colors
 	  sawfish.wm.misc
 	  sawfish.wm.windows
 	  sawfish.wm.frames
@@ -59,20 +60,35 @@
     :depends tooltips-enabled
     :group (misc tooltips))
 
-  (defvar tooltips-delay 500
-    "Number of milliseconds before displaying tooltips.")
+  (defcustom tooltips-delay 500
+    "Number of milliseconds before displaying tooltips."
+    :type number
+    :depends tooltips-enabled
+    :group (misc tooltips))
 
-  (defvar tooltips-timeout-delay 5000
-    "Number of milliseconds before removing tooltips.")
+  (defcustom tooltips-timeout-delay 5000
+    "Number of milliseconds before removing tooltips."
+    :type number
+    :depends tooltips-enabled
+    :group (misc tooltips))
 
-  (defvar tooltips-font nil
-    "Font used to display tooltips, or nil for default.")
+  (defcustom tooltips-font default-font
+    "Font used to display tooltips, or nil for default."
+    :type font
+    :depends tooltips-enabled
+    :group (misc tooltips))
 
-  (defvar tooltips-background-color "grey85"
-    "Color used for the tooltips background")
+  (defcustom tooltips-background-color "grey85"
+    "Color used for the tooltips background"
+    :type color
+    :depends tooltips-enabled
+    :group (misc tooltips))
 
-  (defvar tooltips-foreground-color "black"
-    "Color used for the tooltips foreground")
+  (defcustom tooltips-foreground-color "black"
+    "Color used for the tooltips foreground"
+    :type color
+    :depends tooltips-enabled
+    :group (misc tooltips))
 
 ;;; displaying tooltips
 

--- a/lisp/sawfish/wm/util/compat.jl
+++ b/lisp/sawfish/wm/util/compat.jl
@@ -112,9 +112,6 @@
 	  warp-to-selected-windows menus-include-shortcuts
 	  configure-auto-gravity configure-ignore-stacking-requests
 	  beos-window-menu-simplifies customize-show-symbols
-	  tooltips-timeout-enabled tooltips-delay
-	  tooltips-timeout-delay tooltips-font
-	  tooltips-foreground-color tooltips-background-color
 	  move-snap-mode move-snap-ignored-windows
 	  move-resize-inhibit-configure move-snap-edges
 	  raise-windows-when-unshaded persistent-group-ids