[sawfish] change cursor shape on move and resize

[Christopher Bratusek <chrisb src gnome org>]

commit 3596a5053a6b9d7814abec927da5534fd0b2a159
Author: chrisb <zanghar freenet de>
Date:   Tue Sep 15 21:02:38 2009 +0200

    change cursor shape on move and resize

 ChangeLog                               |    5 +++++
 OPTIONS                                 |    4 ++--
 lisp/sawfish/wm/commands/move-resize.jl |    4 ++--
 3 files changed, 9 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 2c132bd..dd30517 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,11 @@
 
 	* scripts/Makefile.in: also expand REP_ENVIRON here [Luis Rodrigo Gallardo Cruz]
 
+	* lisp/sawfish/wm/commands/move-resize.jl: change cursor to hand2 on move
+	                                           change cursor to crosshair on resize
+
+	* OPTIONS: small update
+
 2009-09-14  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/ext/match-window.jl: string change in rename-window
 	                                       improved keymap-trans
diff --git a/OPTIONS b/OPTIONS
index 48bc9c4..43dde9b 100644
--- a/OPTIONS
+++ b/OPTIONS
@@ -276,8 +276,8 @@
 ;;  (define-special-variable move-resize-inhibit-configure nil
 ;;    "Only update window contents after it has stopped moving.")
 
-;;  (define-special-variable move-cursor-shape (default-cursor))
-;;  (define-special-variable resize-cursor-shape (default-cursor))
+;;  (define-special-variable move-cursor-shape 'hand2)
+;;  (define-special-variable resize-cursor-shape 'crosshair)
 
 ;; audio options
 
diff --git a/lisp/sawfish/wm/commands/move-resize.jl b/lisp/sawfish/wm/commands/move-resize.jl
index e25c95a..77820fc 100644
--- a/lisp/sawfish/wm/commands/move-resize.jl
+++ b/lisp/sawfish/wm/commands/move-resize.jl
@@ -122,8 +122,8 @@
 			   (bottom-left-corner bottom left)
 			   (bottom-right-corner bottom right)))
 
-  (defvar move-cursor-shape (default-cursor))
-  (defvar resize-cursor-shape (default-cursor))
+  (defvar move-cursor-shape 'hand2)
+  (defvar resize-cursor-shape 'crosshair)
 
   ;; specials, should make these fluids (external users?)
   (defvar move-resize-window nil)