sawfish r4285 - in branches/sawfish-experimental: . lisp/sawfish/wm/ext lisp/sawfish/wm/util

[jkozicki svn gnome org]

Author: jkozicki
Date: Wed Sep 17 16:14:29 2008
New Revision: 4285
URL: http://svn.gnome.org/viewvc/sawfish?rev=4285&view=rev

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.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/ext/tooltips.jl
   branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/ext/tooltips.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/ext/tooltips.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/ext/tooltips.jl	Wed Sep 17 16:14:29 2008
@@ -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
 

Modified: branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl	Wed Sep 17 16:14:29 2008
@@ -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