← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/animation/outline.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/animation/outline.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.animation.outline
28
28
          sawfish.wm.events
29
29
          sawfish.wm.windows
30
30
          sawfish.wm.window-anim
 
31
          sawfish.wm.custom
31
32
          sawfish.wm.util.window-outline
 
33
          sawfish.wm.gaol
32
34
          rep.io.timers)
33
35
 
34
36
  (define-structure-alias anim-outline sawfish.wm.animation.outline)
35
37
 
36
 
  (defvar anim-outline-icon-coords (cons (screen-width) (screen-height)))
37
 
 
38
 
  (defvar anim-outline-steps 16)
39
 
  (defvar anim-outline-delay 20)
 
38
  (defcustom anim-outline-icon-coords (cons (screen-width) (screen-height))
 
39
    "Animation Outline Coordinates"
 
40
    :type (pair (number 1) (number 1))
 
41
    :group (appearance animation))
 
42
 
 
43
  (defcustom anim-outline-steps 16
 
44
    "Animation Steps"
 
45
    :type number
 
46
    :group (appearance animation)
 
47
    :range ( 1 . 1000 ))
 
48
 
 
49
  (defcustom anim-outline-delay 20
 
50
    "Animation Delay"
 
51
    :type number
 
52
    :group (appearance animation)
 
53
    :range ( 1 . 1000 ))
40
54
 
41
55
  (define (anim-outline-run w mode initial-coords initial-dims
42
56
                            final-coords final-dims)
62
76
        (call-with-exception-handler fun (lambda (ex)
63
77
                                           (stop)
64
78
                                           (raise-exception ex))))
65
 
      
 
79
 
66
80
      (define (clear)
67
81
        (unless (zerop step)
68
82
          (protect (lambda ()
113
127
 
114
128
  (define wireframe-animator (make-outline-animator 'box))
115
129
  (define solid-animator (make-outline-animator 'solid))
 
130
  (define cross-animator (make-outline-animator 'cross))
 
131
  (define elliptical-animator (make-outline-animator 'elliptical))
 
132
  (define draft-animator (make-outline-animator 'draft))
116
133
 
117
134
  ;;###autoload
118
135
  (define-window-animator 'wireframe wireframe-animator)
119
 
  (define-window-animator 'solid solid-animator))
 
136
  (define-window-animator 'solid solid-animator)
 
137
  (define-window-animator 'cross cross-animator)
 
138
  (define-window-animator 'elliptical elliptical-animator)
 
139
  (define-window-animator 'draft draft-animator))