sawfish r4401 - in trunk/lisp/sawfish/wm: tabs util

[gsromero svn gnome org]

Author: gsromero
Date: Sat Feb  7 01:02:08 2009
New Revision: 4401
URL: http://svn.gnome.org/viewvc/sawfish?rev=4401&view=rev

Log:
Moved marks.jl to a generic place, cleaned it up and updated tab.jl
so it can find marks.


Added:
   trunk/lisp/sawfish/wm/util/marks.jl   (contents, props changed)
      - copied, changed from r4400, /trunk/lisp/sawfish/wm/tabs/marks.jl
Removed:
   trunk/lisp/sawfish/wm/tabs/marks.jl
Modified:
   trunk/lisp/sawfish/wm/tabs/tab.jl

Modified: trunk/lisp/sawfish/wm/tabs/tab.jl
==============================================================================
--- trunk/lisp/sawfish/wm/tabs/tab.jl	(original)
+++ trunk/lisp/sawfish/wm/tabs/tab.jl	Sat Feb  7 01:02:08 2009
@@ -34,7 +34,7 @@
 	      sawfish.wm.commands
 	      sawfish.wm.frames
 	      sawfish.wm.tabs.tabgroup
-	      sawfish.wm.tabs.marks
+	      sawfish.wm.util.marks
 	      sawfish.wm.windows)
 
      (define-structure-alias tab sawfish.wm.tabs.tab)

Copied: trunk/lisp/sawfish/wm/util/marks.jl (from r4400, /trunk/lisp/sawfish/wm/tabs/marks.jl)
==============================================================================
--- /trunk/lisp/sawfish/wm/tabs/marks.jl	(original)
+++ trunk/lisp/sawfish/wm/util/marks.jl	Sat Feb  7 01:02:08 2009
@@ -1,22 +1,41 @@
-;; marks.jl - Provide a way to operate on multiple windows
-;;
-;; Author : Yann Hodique <Yann Hodique lifl fr>
+#| marks.jl -- provide a way to operate on multiple windows
 
-(define-structure sawfish.wm.tabs.marks
+   $Id$
+
+   Copyright (C) Yann Hodique <Yann Hodique lifl fr>
+
+   This file is an official accepted contribution into sawfish.
+
+   This script is free software; you can redistribute it and/or modify it
+   under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   sawfish is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with sawfish; see the file COPYING.  If not, write to
+   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+|#
+
+(define-structure sawfish.wm.util.marks
 
         (export mark-window
-	        unmark-window
-	        unmark-all-windows
-		apply-on-marked-windows
-		marked-windows)
-
-	(open rep
-	      rep.system
-	      sawfish.wm.misc
-	      sawfish.wm.custom
-	      sawfish.wm.commands)
+                unmark-window
+                unmark-all-windows
+                apply-on-marked-windows
+                marked-windows)
+
+        (open rep
+              rep.system
+              sawfish.wm.misc
+              sawfish.wm.custom
+              sawfish.wm.commands)
 
-	(define-structure-alias marks sawfish.wm.tabs.marks)
+  (define-structure-alias marks sawfish.wm.util.marks)
 
   (defvar marked-windows-list nil)