Re: [Sawfish] Patch for tab.jl

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

On Fri, 24 Aug 2012 00:37:49 +0200
wrote Christopher Roy Bratusek <nano@xxxxxxxxxxxxx>:

>On Thursday 23 August 2012 21:10:42 fuchur wrote:
>> Hi,
>> 
>> This patch removes "/usr/share/sawfish/lisp/sawfish/wm/util/marks.jl"
>> It seems marks.jl is only for tab.jl. But with a pair small changes
>> in tab.jl we don't need marks.jl
>> 
>> I also add a check if the select window for a tab exists (if not
>> exists (maybe you have close the window), then tabs will
>> not work until you restart sawfish, the patch fix that)
>> 
>> And also now the cursor changes if you select a window as tab.
>
>Thanks, commited.

Here is already an update, sorry. We always set the default cursor to
left_ptr. But i am not sure that always the default cursor is left_ptr.
To make sure to have always the default cursor set by
gtk-mouse-theme-selector or other programs we should use also this
patch.


-- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl	2012-08-24 02:13:38.000000000 +0200
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl	2012-08-24 02:33:07.000000000 +0200
@@ -41,6 +41,7 @@
   ;; - hide some frame parts on leftmost and rightmost tabs, should fixed
   ;; - add a drag-n-drop way to group windows by tabs
 
+  (define select-cursor (default-cursor))
   (define marked-window nil)
 
   (define tabbar-left-dec-width)
@@ -177,7 +178,7 @@
     (if marked-window
         (progn
           (tab-group-window marked-window win)
-          (default-cursor (get-cursor 'left_ptr))
+          (default-cursor select-cursor)
           (setq marked-window nil))
       (default-cursor (get-cursor 'clock))
       (setq marked-window win)))
@@ -188,7 +189,7 @@
     (if (and marked-window
              (not (window-id marked-window)))
         (progn
-          (default-cursor (get-cursor 'left_ptr))
+          (default-cursor select-cursor)
           (setq marked-window nil))))
         
   (add-hook 'destroy-notify-hook check-win))

Attachment: signature.asc
Description: PGP signature