← Back to branch summary

~ubuntu-branches/ubuntu/natty/sawfish/natty

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/ext/edge-flip.jl

  • Committer: Bazaar Package Importer
  • Author(s): Luis Rodrigo Gallardo Cruz
  • Date: 2009-11-23 09:05:20 UTC
  • mfrom: (1.2.10 upstream) (3.1.5 sid)
  • Revision ID: james.westby@ubuntu.com-20091123090520-3u8sefrr4lmfsiem
Tags: 1:1.5.3-2
http://bugs.debian.org/557250
http://bugs.debian.org/556991
* Remove reference to sawMILL in 00debian.jl (Closes: #557250).
* Remove empty doc dirs and replace them with symlinks (Closes: #556991).
* Rename sawfish maintainer scripts with the binary package name.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/ext/edge-flip.jl
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
6
 
;; This file is part of sawmill.
 
6
;; This file is part of sawfish.
7
7
 
8
 
;; sawmill is free software; you can redistribute it and/or modify it
 
8
;; sawfish is free software; you can redistribute it and/or modify it
9
9
;; under the terms of the GNU General Public License as published by
10
10
;; the Free Software Foundation; either version 2, or (at your option)
11
11
;; any later version.
12
12
 
13
 
;; sawmill is distributed in the hope that it will be useful, but
 
13
;; sawfish is distributed in the hope that it will be useful, but
14
14
;; WITHOUT ANY WARRANTY; without even the implied warranty of
15
15
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
16
;; GNU General Public License for more details.
17
17
 
18
18
;; You should have received a copy of the GNU General Public License
19
 
;; along with sawmill; see the file COPYING.  If not, write to
 
19
;; along with sawfish; see the file COPYING.  If not, write to
20
20
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
21
21
 
22
22
(define-structure sawfish.wm.ext.edge-flip
66
66
    :group (workspace edge-flip)
67
67
    :after-set (lambda () (edge-flip-enable)))
68
68
 
69
 
  (defvar edge-flip-delay 250
70
 
    "Milliseconds to delay before edge flipping.")
 
69
  (defcustom edge-flip-delay 250
 
70
    "Milliseconds to delay before edge flipping."
 
71
    :type number
 
72
    :depends edge-flip-enabled
 
73
    :group (workspace edge-flip)
 
74
    :after-set (lambda () (edge-flip-enable)))
71
75
 
72
76
  (define ef-current-edge nil)
73
77
  (define ef-timer nil)