← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/util/compat.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/util/compat.jl
1
1
;; compat.jl -- aliases for obsolete functions
2
 
;; $Id: compat.jl,v 1.13 2000/09/11 07:44:42 john Exp $
 
2
;; $Id: compat.jl,v 1.18 2002/04/21 23:11:40 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
74
74
    (let ((fn (lambda (base)
75
75
                (intern (format nil "%s:%d" base (1+ index))))))
76
76
      (define-command (fn "select-workspace")
77
 
        (lambda () (select-workspace-from-first index)))
 
77
        (lambda () (select-workspace-from-first index))
 
78
        #:class 'deprecated)
78
79
      (define-command (fn "send-to-workspace")
79
 
        (lambda (w) (send-window-to-workspace-from-first w index)) #:spec "%W")
 
80
        (lambda (w) (send-window-to-workspace-from-first w index))
 
81
        #:spec "%W"
 
82
        #:class 'deprecated)
80
83
      (define-command (fn "copy-to-workspace")
81
 
        (lambda (w) (send-window-to-workspace-from-first w index t)) #:spec "%W")
82
 
      (put (fn "select-workspace") 'deprecated-command t)
83
 
      (put (fn "send-to-workspace") 'deprecated-command t)
84
 
      (put (fn "copy-to-workspace") 'deprecated-command t)))
 
84
        (lambda (w) (send-window-to-workspace-from-first w index t))
 
85
        #:spec "%W"
 
86
        #:class 'deprecated)))
85
87
 
86
88
  (do ((i 0 (1+ i)))
87
89
      ((= i 9))
88
90
    (define-commands i))
89
91
 
90
 
  (define-command 'insert-workspace (command-ref 'insert-workspace-after))
91
 
  (put 'insert-workspace 'deprecated-command t)
 
92
  (define-command 'insert-workspace (command-ref 'insert-workspace-after)
 
93
    #:class 'deprecated)
92
94
 
93
95
;;; obsolete options
94
96
 
95
 
  (put 'viewport-columns 'custom-obsolete t)
96
 
  (put 'viewport-rows 'custom-obsolete t)
97
 
  (put 'viewport-dimensions 'custom-obsolete t)
98
 
  (put 'preallocated-workspaces 'custom-obsolete t)
99
 
  (put 'iconify-whole-group 'custom-obsolete t)
100
 
  (put 'uniconify-whole-group 'custom-obsolete t)
101
 
  (put 'always-update-frames 'custom-obsolete t)
 
97
  (mapc (lambda (x)
 
98
          (put x 'custom-obsolete t))
 
99
        '(viewport-columns viewport-rows viewport-dimensions
 
100
          preallocated-workspaces iconify-whole-group
 
101
          uniconify-whole-group always-update-frames
 
102
          cycle-disable-auto-raise cycle-show-window-icons
 
103
          cycle-warp-pointer cycle-focus-windows cycle-raise-windows
 
104
          edge-flip-warp-pointer frame-type-fallbacks
 
105
          warp-to-window-x-offset warp-to-window-y-offset
 
106
          uniquify-name-format transients-get-focus decorate-transients
 
107
          raise-windows-on-uniconify uniconify-to-current-workspace
 
108
          uniconify-to-current-viewport iconify-ignored
 
109
          maximize-always-expands maximize-ignore-when-filling
 
110
          maximize-avoid-avoided focus-windows-on-uniconify
 
111
          transients-are-group-members raise-selected-windows
 
112
          warp-to-selected-windows menus-include-shortcuts
 
113
          configure-auto-gravity configure-ignore-stacking-requests
 
114
          beos-window-menu-simplifies customize-show-symbols
 
115
          tooltips-timeout-enabled tooltips-delay
 
116
          tooltips-timeout-delay tooltips-font
 
117
          tooltips-foreground-color tooltips-background-color
 
118
          move-snap-mode move-snap-ignored-windows
 
119
          move-resize-inhibit-configure move-snap-edges
 
120
          raise-windows-when-unshaded persistent-group-ids
 
121
          delete-workspaces-when-empty transients-on-parents-workspace
 
122
          edge-flip-delay audio-for-ignored-windows
 
123
          size-window-def-increment slide-window-increment
 
124
          default-bevel-percent sp-padding nokogiri-user-level
 
125
          nokogiri-buttons workspace-boundary-mode
 
126
          workspace-send-boundary-mode lock-first-workspace
 
127
          ignore-window-input-hint default-window-animator
 
128
          resize-edge-mode move-outline-mode resize-outline-mode
 
129
          move-resize-raise-window workspace-geometry
 
130
          pointer-motion-threshold ignore-program-positions))
102
131
 
103
132
;;; obsolete custom setters
104
133