← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/commands/viewport-linear.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/commands/viewport-linear.jl
1
1
;; viewport-linear.jl -- linear address of viewports
2
 
;; $Id: viewport-linear.jl,v 1.9 2000/09/11 07:44:42 john Exp $
 
2
;; $Id: viewport-linear.jl,v 1.10 2002/04/21 22:25:12 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
48
48
  ;;###autoload
49
49
  (define-command 'set-viewport-linear set-viewport-linear
50
50
    #:spec "NIndex:"
51
 
    #:type `(and (labelled ,(_ "Index:") (number 0))))
 
51
    #:type `(and (labelled ,(_ "Index:") (number 0)))
 
52
    #:class 'viewport)
52
53
 
53
54
  ;; Move window to viewport INDEX using linear addressing
54
55
  (define (set-window-viewport-linear index)
59
60
  ;;###autoload
60
61
  (define-command 'set-window-viewport-linear set-window-viewport-linear
61
62
    #:spec "NIndex:"
62
 
    #:type `(and (labelled ,(_ "Index:") (number 0))))
 
63
    #:type `(and (labelled ,(_ "Index:") (number 0)))
 
64
    #:class 'viewport)
63
65
 
64
66
  (define (define-linear-viewport-commands index)
65
67
    (let ((fn (lambda (base)
79
81
      ((= i viewport-linear-last))
80
82
    (define-linear-viewport-commands i)))
81
83
 
82
 
;;###autoload (autoload-command 'set-viewport-linear:1 'sawfish.wm.commands.viewport-linear)
83
 
;;###autoload (autoload-command 'set-window-viewport-linear:1 'sawfish.wm.commands.viewport-linear)
84
 
;;###autoload (autoload-command 'set-viewport-linear:2 'sawfish.wm.commands.viewport-linear)
85
 
;;###autoload (autoload-command 'set-window-viewport-linear:2 'sawfish.wm.commands.viewport-linear)
86
 
;;###autoload (autoload-command 'set-viewport-linear:3 'sawfish.wm.commands.viewport-linear)
87
 
;;###autoload (autoload-command 'set-window-viewport-linear:3 'sawfish.wm.commands.viewport-linear)
88
 
;;###autoload (autoload-command 'set-viewport-linear:4 'sawfish.wm.commands.viewport-linear)
89
 
;;###autoload (autoload-command 'set-window-viewport-linear:4 'sawfish.wm.commands.viewport-linear)
90
 
;;###autoload (autoload-command 'set-viewport-linear:5 'sawfish.wm.commands.viewport-linear)
91
 
;;###autoload (autoload-command 'set-window-viewport-linear:5 'sawfish.wm.commands.viewport-linear)
92
 
;;###autoload (autoload-command 'set-viewport-linear:6 'sawfish.wm.commands.viewport-linear)
93
 
;;###autoload (autoload-command 'set-window-viewport-linear:6 'sawfish.wm.commands.viewport-linear)
94
 
;;###autoload (autoload-command 'set-viewport-linear:7 'sawfish.wm.commands.viewport-linear)
95
 
;;###autoload (autoload-command 'set-window-viewport-linear:7 'sawfish.wm.commands.viewport-linear)
96
 
;;###autoload (autoload-command 'set-viewport-linear:8 'sawfish.wm.commands.viewport-linear)
97
 
;;###autoload (autoload-command 'set-window-viewport-linear:8 'sawfish.wm.commands.viewport-linear)
98
 
;;###autoload (autoload-command 'set-viewport-linear:9 'sawfish.wm.commands.viewport-linear)
99
 
;;###autoload (autoload-command 'set-window-viewport-linear:9 'sawfish.wm.commands.viewport-linear)
100
 
;;###autoload (put 'set-viewport-linear:1 'deprecated-command t)
101
 
;;###autoload (put 'set-window-viewport-linear:1 'deprecated-command t)
102
 
;;###autoload (put 'set-viewport-linear:2 'deprecated-command t)
103
 
;;###autoload (put 'set-window-viewport-linear:2 'deprecated-command t)
104
 
;;###autoload (put 'set-viewport-linear:3 'deprecated-command t)
105
 
;;###autoload (put 'set-window-viewport-linear:3 'deprecated-command t)
106
 
;;###autoload (put 'set-viewport-linear:4 'deprecated-command t)
107
 
;;###autoload (put 'set-window-viewport-linear:4 'deprecated-command t)
108
 
;;###autoload (put 'set-viewport-linear:5 'deprecated-command t)
109
 
;;###autoload (put 'set-window-viewport-linear:5 'deprecated-command t)
110
 
;;###autoload (put 'set-viewport-linear:6 'deprecated-command t)
111
 
;;###autoload (put 'set-window-viewport-linear:6 'deprecated-command t)
112
 
;;###autoload (put 'set-viewport-linear:7 'deprecated-command t)
113
 
;;###autoload (put 'set-window-viewport-linear:7 'deprecated-command t)
114
 
;;###autoload (put 'set-viewport-linear:8 'deprecated-command t)
115
 
;;###autoload (put 'set-window-viewport-linear:8 'deprecated-command t)
116
 
;;###autoload (put 'set-viewport-linear:9 'deprecated-command t)
117
 
;;###autoload (put 'set-window-viewport-linear:9 'deprecated-command t)
 
84
;;###autoload (autoload-command 'set-viewport-linear:1 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
85
;;###autoload (autoload-command 'set-window-viewport-linear:1 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
86
;;###autoload (autoload-command 'set-viewport-linear:2 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
87
;;###autoload (autoload-command 'set-window-viewport-linear:2 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
88
;;###autoload (autoload-command 'set-viewport-linear:3 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
89
;;###autoload (autoload-command 'set-window-viewport-linear:3 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
90
;;###autoload (autoload-command 'set-viewport-linear:4 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
91
;;###autoload (autoload-command 'set-window-viewport-linear:4 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
92
;;###autoload (autoload-command 'set-viewport-linear:5 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
93
;;###autoload (autoload-command 'set-window-viewport-linear:5 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
94
;;###autoload (autoload-command 'set-viewport-linear:6 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
95
;;###autoload (autoload-command 'set-window-viewport-linear:6 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
96
;;###autoload (autoload-command 'set-viewport-linear:7 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
97
;;###autoload (autoload-command 'set-window-viewport-linear:7 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
98
;;###autoload (autoload-command 'set-viewport-linear:8 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
99
;;###autoload (autoload-command 'set-window-viewport-linear:8 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
100
;;###autoload (autoload-command 'set-viewport-linear:9 'sawfish.wm.commands.viewport-linear #:class 'deprecated)
 
101
;;###autoload (autoload-command 'set-window-viewport-linear:9 'sawfish.wm.commands.viewport-linear #:class 'deprecated)