← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/window-anim.jl

  • Committer: Bazaar Package Importer
  • Author(s): Luis Rodrigo Gallardo Cruz
  • Date: 2009-11-23 09:05:20 UTC
  • mfrom: (0.1.1 upstream)
  • mto: This revision was merged to the branch mainline in revision 17.
  • Revision ID: james.westby@ubuntu.com-20091123090520-m588qe37wtxzr2b5
Tags: upstream-1.5.3
Import upstream version 1.5.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/window-anim.jl
3
3
 
4
4
;; Copyright (C) 2000 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.window-anim
37
37
  (define window-animators nil
38
38
    "List of all possible window animation types.")
39
39
 
40
 
  ;; this used to be a defcustom, and I don't have anything against
41
 
  ;; that, except the current animations are so lame it's embarassing
 
40
  (defgroup animation "Animation" :group appearance)
42
41
 
43
 
  (defvar default-window-animator 'none
44
 
    "The default window animation mode")
 
42
  (defcustom default-window-animator 'none
 
43
    "The default window animation mode"
 
44
    :type (choice none solid wireframe cross elliptical draft)
 
45
    :group (appearance animation))
45
46
 
46
47
;;; animator registration
47
48
 
58
59
      ))
59
60
 
60
61
  (define (getter name) (get name 'window-animator))
61
 
  
 
62
 
62
63
  (define autoload-window-animator
63
64
    (make-autoloader getter define-window-animator))
64
65