← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/state/transient.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/state/transient.jl
1
1
;; transient.jl -- support transient windows
2
 
;; $Id: transient.jl,v 1.59 2001/04/09 06:16:51 jsh Exp $
 
2
;; $Id: transient.jl,v 1.63 2002/04/27 19:31:25 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
49
49
    :type boolean
50
50
    :group focus)
51
51
 
52
 
  (defcustom transients-get-focus t
53
 
    "Dialog windows inherit the focus from their parent."
54
 
    :group focus
55
 
    :type boolean)
56
 
 
57
 
  (defcustom decorate-transients nil
58
 
    "Decorate dialog windows similarly to application windows."
59
 
    :type boolean
60
 
    :group appearance
61
 
    :after-set after-setting-frame-option)
 
52
  (defvar decorate-transients nil
 
53
    "Decorate dialog windows similarly to application windows.")
62
54
 
63
55
 
64
56
;;; functions
144
136
    (raise-lower-windows w (transient-group w t)))
145
137
 
146
138
  (define-command 'raise-window-and-transients
147
 
    raise-window-and-transients #:spec "%W" #:user-level 'expert)
 
139
    raise-window-and-transients #:spec "%W" #:class 'advanced)
148
140
  (define-command 'lower-window-and-transients
149
 
    lower-window-and-transients #:spec "%W" #:user-level 'expert)
 
141
    lower-window-and-transients #:spec "%W" #:class 'advanced)
150
142
  (define-command 'raise-lower-window-and-transients
151
 
    raise-lower-window-and-transients #:spec "%W" #:user-level 'expert)
 
143
    raise-lower-window-and-transients #:spec "%W" #:class 'advanced)
152
144
 
153
145
 
154
146
;;; displaying
167
159
;;; hooks
168
160
 
169
161
  (define (transient-map-window w)
170
 
    (cond ((and transients-get-focus
171
 
                (window-transient-p w)
 
162
    (cond ((and (window-transient-p w)
172
163
                (window-really-wants-input-p w)
173
164
                (window-visible-p w)
174
165
                (input-focus)