← 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/groups.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/groups.jl
1
1
;; groups.jl -- commands for manipulating window groups
2
 
;; $Id: groups.jl,v 1.18 2001/01/08 19:36:10 jsh Exp $
 
2
;; $Id: groups.jl,v 1.21 2002/04/21 22:25:12 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
142
142
 
143
143
  ;;###autoload
144
144
  (define-command 'move-group-to-current-viewport
145
 
    move-group-to-current-viewport #:spec "%W")
 
145
    move-group-to-current-viewport #:spec "%W" #:class 'viewport)
146
146
 
147
147
  ;;###autoload
148
 
  (define-command 'move-group-left move-group-left #:spec "%W")
149
 
  (define-command 'move-group-right move-group-right #:spec "%W")
150
 
  (define-command 'move-group-up move-group-up #:spec "%W")
151
 
  (define-command 'move-group-down move-group-down #:spec "%W")
 
148
  (define-command 'move-group-left move-group-left #:spec "%W" #:class 'viewport)
 
149
  (define-command 'move-group-right move-group-right #:spec "%W" #:class 'viewport)
 
150
  (define-command 'move-group-up move-group-up #:spec "%W" #:class 'viewport)
 
151
  (define-command 'move-group-down move-group-down #:spec "%W" #:class 'viewport)
152
152
 
153
153
  ;; stacking
154
154
 
160
160
 
161
161
  ;;###autoload
162
162
  (define-command 'raise-group raise-group
163
 
    #:spec "%W" #:user-level 'expert)
 
163
    #:spec "%W" #:class 'advanced)
164
164
  (define-command 'lower-group lower-group
165
 
    #:spec "%W" #:user-level 'expert)
 
165
    #:spec "%W" #:class 'advanced)
166
166
  (define-command 'raise-lower-group raise-lower-group
167
 
    #:spec "%W" #:user-level 'expert)
 
167
    #:spec "%W" #:class 'advanced)
168
168
  (define-command 'raise-group-depth raise-group-depth #:spec "%W")
169
169
  (define-command 'lower-group-depth lower-group-depth #:spec "%W")
170
170