← Back to branch summary

~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2005-02-23 16:16:46 UTC
  • mfrom: (1.2.1 upstream) (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050223161646-4id6qyw4h9lkvb0v
Tags: 1:1.3+cvs20050222-1
http://bugs.debian.org/295290
* New cvs release.
* Add an emacs initialisation script to load sawfish.el (Closes: #295290)
* Updated sawfish.el to 1.32

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/window-anim.jl
1
1
;; window-anim.jl -- visual feedback for window actions
2
 
;; $Id: window-anim.jl,v 1.5 2000/09/08 15:13:59 john Exp $
 
2
;; $Id: window-anim.jl,v 1.6 2002/04/21 04:52:13 jsh Exp $
3
3
 
4
4
;; Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
5
5
 
37
37
  (define window-animators nil
38
38
    "List of all possible window animation types.")
39
39
 
40
 
  (defcustom default-window-animator 'none
41
 
    "The default window animation mode: \\w"
42
 
    :type symbol
43
 
    :group appearance)
 
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
 
42
 
 
43
  (defvar default-window-animator 'none
 
44
    "The default window animation mode")
44
45
 
45
46
;;; animator registration
46
47
 
52
53
    (put name 'window-animator fun)
53
54
    (unless (memq name window-animators)
54
55
      (setq window-animators (cons name (delq name window-animators)))
55
 
      (custom-set-property 'default-window-animator
56
 
                           ':options window-animators)))
 
56
;;      (custom-set-property 'default-window-animator
 
57
;;                         ':options window-animators)
 
58
      ))
57
59
 
58
60
  (define (getter name) (get name 'window-animator))
59
61