annotate lisp/dframe.el @ 102069:b6ec92c16c1d

* progmodes/cc-menus.el (cc-imenu-objc-function): Doc fix.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 17 Feb 2009 10:59:12 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1 ;;; dframe --- dedicate frame support modes
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
3 ;;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 99368
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
5
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
6 ;; Author: Eric M. Ludlam <zappo@gnu.org>
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
7 ;; Keywords: file, tags, tools
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
8
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
9 (defvar dframe-version "1.3"
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
10 "The current version of the dedicated frame library.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
11
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
13
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94274
diff changeset
14 ;; GNU Emacs is free software: you can redistribute it and/or modify
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94274
diff changeset
16 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94274
diff changeset
17 ;; (at your option) any later version.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
18
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
22 ;; GNU General Public License for more details.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
23
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94274
diff changeset
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
26
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
27 ;;; Commentary:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
28 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
29 ;; This code was developed and maintained as a part of speedbar since 1996.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
30 ;; It became its own support utility in Aug 2000.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
31 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
32 ;; Dedicated frame mode is an Emacs independent library for supporting
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
33 ;; a program/buffer combination that resides in a dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
34 ;; Support of this nature requires several complex interactions with the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
35 ;; user which this library will provide, including:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
36 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
37 ;; * Creation of a frame. Positioned relatively.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
38 ;; Includes a frame cache for User position caching.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
39 ;; * Switching between frames.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
40 ;; * Timed activities using idle-timers
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
41 ;; * Frame/buffer killing hooks
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
42 ;; * Mouse-3 position relative menu
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
43 ;; * Mouse motion, help-echo hacks
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
44 ;; * Mouse clicking, double clicking, & XEmacs image clicking hack
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
45 ;; * Mode line hacking
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
46 ;; * Utilities for use in a program covering:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
47 ;; o keymap massage for some actions
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
48 ;; o working with an associated buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
49 ;; o shift-click
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
50 ;; o detaching a frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
51 ;; o focus-shifting & optional frame jumping
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
52 ;; o currently active frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
53 ;; o message/y-or-n-p
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
54 ;; o mouse set point
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
55 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
56 ;; To Use:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
57 ;; 1) (require 'dframe)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
58 ;; 2) Variable Setup:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
59 ;; -frame-parameters -- Frame parameters for Emacs.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
60 ;; -frame-plist -- Frame parameters for XEmacs.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
61 ;; -- Not on parameter lists: They can optionally include width
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
62 ;; and height. If width or height is not included, then it will
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
63 ;; be provided to match the originating frame. In general,
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
64 ;; turning off the menu bar, mode line, and minibuffer can
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
65 ;; provide a smaller window, or more display area.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
66 ;; -track-mouse-flag -- mouse tracking on/off specific to your tool.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
67 ;; -update-flag -- app toggle for timer use. Init from
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
68 ;; `dframe-have-timer-flag'. This is nil for terminals, since
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
69 ;; updating a frame in a terminal is not useful to the user.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
70 ;; -key-map -- Your keymap. Call `dframe-update-keymap' on it.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
71 ;; -buffer, -frame, -cached-frame -- Variables used to track your
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
72 ;; applications buffer, frame, or frame cache (when hidden). See
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
73 ;; `dframe-frame-mode' for details.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
74 ;; -before-delete-hook, -before-popup-hook, -after-create-hook --
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
75 ;; Hooks to have called. The `-after-create-hook' probably wants
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
76 ;; to call a function which calls `dframe-reposition-frame' in an
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
77 ;; appropriate manner.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
78 ;; 3) Function Setup:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
79 ;; your-frame-mode -- function to toggle your app frame on and off.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
80 ;; its tasks are:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
81 ;; a) create a buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
82 ;; b) Call `dframe-frame-mode'. (See its doc)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
83 ;; c) If successful (your -frame variable has a value), call
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
84 ;; timer setup if applicable.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
85 ;; your-frame-reposition- -- Function to call from after-create-hook to
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
86 ;; reposition your frame with `dframe-repsoition-frame'.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
87 ;; your-mode -- Set up the major mode of the buffer for your app.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
88 ;; Set these variables: dframe-track-mouse-function,
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
89 ;; dframe-help-echo-function,
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
90 ;; dframe-mouse-click-function,
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
91 ;; dframe-mouse-position-function.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
92 ;; See speedbar's implementation of these functions.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
93 ;; `speedbar-current-frame', `speedbar-get-focus', `speedbar-message',
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
94 ;; `speedbar-y-or-n-p', `speedbar-set-timer', `speedbar-click',
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
95 ;; `speedbar-position-cursor-on-line'
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
96 ;; 4) Handling mouse clicks, and help text:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
97 ;; dframe-track-mouse, dframe-help-echo-function --
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
98 ;; These variables need to be set to functions that display info
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
99 ;; based on the mouse's position.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
100 ;; Text propert 'help-echo, set to `dframe-help-echo', which will
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
101 ;; call `dframe-help-echo-function'.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
102 ;; Have a `-click' function, it can call `dframe-quick-mouse' for
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
103 ;; positioning. If the variable `dframe-power-click' is non-nil,
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
104 ;; then `shift' was held down during the click.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
105
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
106 ;;; Bugs
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
107 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
108 ;; * The timer managers doesn't handle multiple different timeouts.
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
109 ;; * You can't specify continuous timeouts (as opposed to just idle timers.)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
110
65866
df5f6fcce1be (x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents: 65825
diff changeset
111 (defvar x-pointer-hand2)
df5f6fcce1be (x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents: 65825
diff changeset
112 (defvar x-pointer-top-left-arrow)
df5f6fcce1be (x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents: 65825
diff changeset
113
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
114 ;;; Code:
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
115
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
116 ;;; Compatibility functions
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
117 ;;
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
118 (defalias 'dframe-frame-parameter
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
119 (if (fboundp 'frame-parameter) 'frame-parameter
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
120 (lambda (frame parameter)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
121 "Return FRAME's PARAMETER value."
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
122 (cdr (assoc parameter (frame-parameters frame))))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
123
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
124
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
125 ;;; Variables
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
126 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
127 (defgroup dframe nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
128 "Faces used in dframe."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
129 :prefix "dframe-"
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
130 :group 'dframe)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
131
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
132 (defvar dframe-have-timer-flag (if (fboundp 'display-graphic-p)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
133 (display-graphic-p)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
134 window-system)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
135 "Non-nil means that timers are available for this Emacs.
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
136 This is nil for terminals, since updating a frame in a terminal
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
137 is not useful to the user.")
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
138
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
139 (defcustom dframe-update-speed
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
140 (if (featurep 'xemacs) 2 ; 1 is too obrusive in XEmacs
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
141 1)
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
142 "Idle time in seconds needed before dframe will update itself.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
143 Updates occur to allow dframe to display directory information
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
144 relevant to the buffer you are currently editing."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
145 :group 'dframe
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
146 :type 'integer)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
147
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
148 (defcustom dframe-activity-change-focus-flag nil
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
149 "Non-nil means the selected frame will change based on activity.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
150 Thus, if a file is selected for edit, the buffer will appear in the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
151 selected frame and the focus will change to that frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
152 :group 'dframe
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
153 :type 'boolean)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
154
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
155 (defcustom dframe-after-select-attached-frame-hook nil
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
156 "Hook run after dframe has selected the attached frame."
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
157 :group 'dframe
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
158 :type 'hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
159
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
160 (defvar dframe-track-mouse-function nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
161 "*A function to call when the mouse is moved in the given frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
162 Typically used to display info about the line under the mouse.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
163 (make-variable-buffer-local 'dframe-track-mouse-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
164
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
165 (defvar dframe-help-echo-function nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
166 "*A function to call when help-echo is used in newer versions of Emacs.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
167 Typically used to display info about the line under the mouse.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
168 (make-variable-buffer-local 'dframe-help-echo-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
169
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
170 (defvar dframe-mouse-click-function nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
171 "*A function to call when the mouse is clicked.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
172 Valid clicks are mouse 2, our double mouse 1.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
173 (make-variable-buffer-local 'dframe-mouse-click-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
174
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
175 (defvar dframe-mouse-position-function nil
99368
4a940838ff4c * dframe.el (dframe-mouse-position-function)
Juanma Barranquero <lekktu@gmail.com>
parents: 95839
diff changeset
176 "*A function to call to position the cursor for a mouse click.")
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
177 (make-variable-buffer-local 'dframe-mouse-position-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
178
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
179 (defvar dframe-power-click nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
180 "Never set this by hand. Value is t when S-mouse activity occurs.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
181
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
182 (defvar dframe-timer nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
183 "The dframe timer used for updating the buffer.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
184 (make-variable-buffer-local 'dframe-timer)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
185
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
186 (defvar dframe-attached-frame nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
187 "The frame which started a frame mode.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
188 This is the frame from which all interesting activities will go
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
189 for the mode using dframe.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
190 (make-variable-buffer-local 'dframe-attached-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
191
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
192 (defvar dframe-controlled nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
193 "Is this buffer controlled by a dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
194 Local to those buffers, as a function called that created it.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
195 (make-variable-buffer-local 'dframe-controlled)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
196
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
197 (defun dframe-update-keymap (map)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
198 "Update the keymap MAP for dframe default bindings."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
199 ;; Frame control
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
200 (define-key map "q" 'dframe-close-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
201 (define-key map "Q" 'delete-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
202
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
203 ;; Override switch to buffer to never hack our frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
204 (substitute-key-definition 'switch-to-buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
205 'dframe-switch-buffer-attached-frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
206 map global-map)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
207
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
208 (if (featurep 'xemacs)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
209 (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
210 ;; mouse bindings so we can manipulate the items on each line
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
211 (define-key map 'button2 'dframe-click)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
212 (define-key map '(shift button2) 'dframe-power-click)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
213 ;; Info doc fix from Bob Weiner
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
214 (if (featurep 'infodoc)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
215 nil
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
216 (define-key map 'button3 'dframe-popup-kludge))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
217 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
218
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
219 ;; mouse bindings so we can manipulate the items on each line
65825
b89d9c4d5386 * info.el (Info-next, Info-prev, Info-up): Select info buffer, in
Chong Yidong <cyd@stupidchicken.com>
parents: 65780
diff changeset
220 ;; (define-key map [down-mouse-1] 'dframe-double-click)
b89d9c4d5386 * info.el (Info-next, Info-prev, Info-up): Select info buffer, in
Chong Yidong <cyd@stupidchicken.com>
parents: 65780
diff changeset
221 (define-key map [follow-link] 'mouse-face)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
222 (define-key map [mouse-2] 'dframe-click)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
223 ;; This is the power click for new frames, or refreshing a cache
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
224 (define-key map [S-mouse-2] 'dframe-power-click)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
225 ;; This adds a small unecessary visual effect
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
226 ;;(define-key map [down-mouse-2] 'dframe-quick-mouse)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
227
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
228 (define-key map [down-mouse-3] 'dframe-popup-kludge)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
229
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
230 ;; This lets the user scroll as if we had a scrollbar... well maybe not
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
231 (define-key map [mode-line mouse-2] 'dframe-mouse-hscroll)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
232 ;; another handy place users might click to get our menu.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
233 (define-key map [mode-line down-mouse-1]
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
234 'dframe-popup-kludge)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
235
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
236 ;; We can't switch buffers with the buffer mouse menu. Lets hack it.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
237 (define-key map [C-down-mouse-1] 'dframe-hack-buffer-menu)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
238
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
239 ;; Lastly, we want to track the mouse. Play here
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
240 (define-key map [mouse-movement] 'dframe-track-mouse)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
241 ))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
242
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
243 (defun dframe-live-p (frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
244 "Return non-nil if FRAME is currently available."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
245 (and frame (frame-live-p frame) (frame-visible-p frame)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
246
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
247 (defun dframe-frame-mode (arg frame-var cache-var buffer-var frame-name
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
248 local-mode-fn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
249 &optional
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
250 parameters
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
251 delete-hook popup-hook create-hook
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
252 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
253 "Manage a frame for an application, enabling it when ARG is positive.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
254 FRAME-VAR is a variable used to cache the frame being used.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
255 This frame is either resurrected, hidden, killed, etc based on
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
256 the value.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
257 CACHE-VAR is a variable used to cache a cached frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
258 BUFFER-VAR is a variable used to cache the buffer being used in dframe.
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
259 This buffer will have `dframe-frame-mode' run on it.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
260 FRAME-NAME is the name of the frame to create.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
261 LOCAL-MODE-FN is the function used to call this one.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
262 PARAMETERS are frame parameters to apply to this dframe.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
263 DELETE-HOOK are hooks to run when deleting a frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
264 POPUP-HOOK are hooks to run before showing a frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
265 CREATE-HOOK are hooks to run after creating a frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
266 ;; toggle frame on and off.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
267 (if (not arg) (if (dframe-live-p (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
268 (setq arg -1) (setq arg 1)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
269 ;; Make sure the current buffer is set.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
270 (set-buffer (symbol-value buffer-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
271 ;; turn the frame off on neg number
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
272 (if (and (numberp arg) (< arg 0))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
273 (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
274 (run-hooks 'delete-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
275 (if (and (symbol-value frame-var)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
276 (frame-live-p (symbol-value frame-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
277 (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
278 (set cache-var (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
279 (make-frame-invisible (symbol-value frame-var))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
280 (set frame-var nil))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
281 ;; Set this as our currently attached frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
282 (setq dframe-attached-frame (selected-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
283 (run-hooks 'popup-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
284 ;; Updated the buffer passed in to contain all the hacks needed
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
285 ;; to make it work well in a dedicated window.
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
286 (with-current-buffer (symbol-value buffer-var)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
287 ;; Declare this buffer a dedicated frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
288 (setq dframe-controlled local-mode-fn)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
289
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
290 (if (featurep 'xemacs)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
291 (progn
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
292 ;; Hack the XEmacs mouse-motion handler
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
293 (set (make-local-variable 'mouse-motion-handler)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
294 'dframe-track-mouse-xemacs)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
295 ;; Hack the double click handler
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
296 (make-local-variable 'mouse-track-click-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
297 (add-hook 'mouse-track-click-hook
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
298 (lambda (event count)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
299 (if (/= (event-button event) 1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
300 nil ; Do normal operations.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
301 (cond ((eq count 1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
302 (dframe-quick-mouse event))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
303 ((or (eq count 2)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
304 (eq count 3))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
305 (dframe-click event)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
306 (dframe-quick-mouse event)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
307 ;; Don't do normal operations.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
308 t))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
309 ;; Enable mouse tracking in emacs
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
310 (if dframe-track-mouse-function
77099
84c653bf8535 (dframe-frame-mode): Do not set auto-show-mode, since it is obsolete
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
311 (set (make-local-variable 'track-mouse) t))) ;this could be messy.
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
312 ;;;; DISABLED: This causes problems for users with multiple frames.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
313 ;;;; ;; Set this up special just for the passed in buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
314 ;;;; ;; Terminal minibuffer stuff does not require this.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
315 ;;;; (if (and (or (assoc 'minibuffer parameters)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
316 ;;;; ;; XEmacs plist is not an association list
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
317 ;;;; (member 'minibuffer parameters))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
318 ;;;; window-system (not (eq window-system 'pc))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
319 ;;;; (null default-minibuffer-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
320 ;;;; (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
321 ;;;; (make-local-variable 'default-minibuffer-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
322 ;;;; (setq default-minibuffer-frame dframe-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
323 ;;;; )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
324 ;; Override `temp-buffer-show-hook' so that help and such
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
325 ;; put their stuff into a frame other than our own.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
326 ;; Correct use of `temp-buffer-show-function': Bob Weiner
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
327 (if (and (boundp 'temp-buffer-show-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
328 (boundp 'temp-buffer-show-function))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
329 (progn (make-local-variable 'temp-buffer-show-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
330 (setq temp-buffer-show-hook temp-buffer-show-function)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
331 (make-local-variable 'temp-buffer-show-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
332 (setq temp-buffer-show-function 'dframe-temp-buffer-show-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
333 ;; If this buffer is killed, we must make sure that we destroy
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
334 ;; the frame the dedicated window is in.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
335 (add-hook 'kill-buffer-hook `(lambda ()
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
336 (let ((skilling (boundp 'skilling)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
337 (if skilling
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
338 nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
339 (if dframe-controlled
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
340 (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
341 (funcall dframe-controlled -1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
342 (setq ,buffer-var nil)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
343 )))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
344 t t)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
345 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
346 ;; Get the frame to work in
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
347 (if (frame-live-p (symbol-value cache-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
348 (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
349 (set frame-var (symbol-value cache-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
350 (make-frame-visible (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
351 (select-frame (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
352 (set-window-dedicated-p (selected-window) nil)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
353 (if (not (eq (current-buffer) (symbol-value buffer-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
354 (switch-to-buffer (symbol-value buffer-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
355 (set-window-dedicated-p (selected-window) t)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
356 (raise-frame (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
357 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
358 (if (frame-live-p (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
359 (raise-frame (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
360 (set frame-var
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
361 (if (featurep 'xemacs)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
362 ;; Only guess height if it is not specified.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
363 (if (member 'height parameters)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
364 (make-frame parameters)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
365 (make-frame (nconc (list 'height
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
366 (dframe-needed-height))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
367 parameters)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
368 (let* ((mh (dframe-frame-parameter dframe-attached-frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
369 'menu-bar-lines))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
370 (paramsa
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
371 ;; Only add a guessed height if one is not specified
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
372 ;; in the input parameters.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
373 (if (assoc 'height parameters)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
374 parameters
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
375 (append
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
376 parameters
69236
13b406066d9e (dframe-frame-mode): Don't burp when menu-bar-lines is nil.
Nick Roberts <nickrob@snap.net.nz>
parents: 68651
diff changeset
377 (list (cons 'height (+ (or mh 0) (frame-height)))))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
378 (params
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
379 ;; Only add a guessed width if one is not specified
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
380 ;; in the input parameters.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
381 (if (assoc 'width parameters)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
382 paramsa
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
383 (append
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
384 paramsa
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
385 (list (cons 'width (frame-width))))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
386 (frame
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
387 (if (not (eq window-system 'x))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
388 (make-frame params)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
389 (let ((x-pointer-shape x-pointer-top-left-arrow)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
390 (x-sensitive-text-pointer-shape
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
391 x-pointer-hand2))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
392 (make-frame params)))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
393 frame)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
394 ;; Put the buffer into the frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
395 (save-excursion
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
396 (select-frame (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
397 (switch-to-buffer (symbol-value buffer-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
398 (set-window-dedicated-p (selected-window) t))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
399 ;; Run hooks (like reposition)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
400 (run-hooks 'create-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
401 ;; Frame name
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
402 (if (and (or (null window-system) (eq window-system 'pc))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
403 (fboundp 'set-frame-name))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
404 (save-window-excursion
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
405 (select-frame (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
406 (set-frame-name frame-name)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
407 ;; On a terminal, raise the frame or the user will
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
408 ;; be confused.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
409 (if (not window-system)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
410 (select-frame (symbol-value frame-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
411 ))) )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
412
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
413 (defun dframe-reposition-frame (new-frame parent-frame location)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
414 "Move NEW-FRAME to be relative to PARENT-FRAME.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
415 LOCATION can be one of 'random, 'left, 'right, 'left-right, or 'top-bottom."
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
416 (if (featurep 'xemacs)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
417 (dframe-reposition-frame-xemacs new-frame parent-frame location)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
418 (dframe-reposition-frame-emacs new-frame parent-frame location)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
419
95839
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
420 ;; Not defined in builds without X, but behind window-system test.
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
421 (declare-function x-display-pixel-width "xfns.c" (&optional terminal))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
422 (declare-function x-display-pixel-height "xfns.c" (&optional terminal))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
423
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
424 (defun dframe-reposition-frame-emacs (new-frame parent-frame location)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
425 "Move NEW-FRAME to be relative to PARENT-FRAME.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
426 LOCATION can be one of 'random, 'left-right, 'top-bottom, or
99368
4a940838ff4c * dframe.el (dframe-mouse-position-function)
Juanma Barranquero <lekktu@gmail.com>
parents: 95839
diff changeset
427 a cons cell indicating a position of the form (LEFT . TOP)."
95839
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
428 ;; Position dframe.
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
429 ;; Do no positioning if not on a windowing system,
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
430 (unless (or (not window-system) (eq window-system 'pc))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
431 (let* ((pfx (dframe-frame-parameter parent-frame 'left))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
432 (pfy (dframe-frame-parameter parent-frame 'top))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
433 (pfw (frame-pixel-width parent-frame))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
434 (pfh (frame-pixel-height parent-frame))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
435 (nfw (frame-pixel-width new-frame))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
436 (nfh (frame-pixel-height new-frame))
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
437 newleft newtop)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
438 ;; Rebuild pfx,pfy to be absolute positions.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
439 (setq pfx (if (not (consp pfx))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
440 pfx
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
441 ;; If pfx is a list, that means we grow
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
442 ;; from a specific edge of the display.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
443 ;; Convert that to the distance from the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
444 ;; left side of the display.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
445 (if (eq (car pfx) '-)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
446 ;; A - means distance from the right edge
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
447 ;; of the display, or DW - pfx - framewidth
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
448 (- (x-display-pixel-width) (car (cdr pfx)) pfw)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
449 (car (cdr pfx))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
450 pfy (if (not (consp pfy))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
451 pfy
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
452 ;; If pfy is a list, that means we grow
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
453 ;; from a specific edge of the display.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
454 ;; Convert that to the distance from the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
455 ;; left side of the display.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
456 (if (eq (car pfy) '-)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
457 ;; A - means distance from the right edge
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
458 ;; of the display, or DW - pfx - framewidth
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
459 (- (x-display-pixel-height) (car (cdr pfy)) pfh)
95839
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
460 (car (cdr pfy)))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
461 (cond ((eq location 'right)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
462 (setq newleft (+ pfx pfw 5)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
463 newtop pfy))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
464 ((eq location 'left)
67226
fd62535b63a8 (dframe-reposition-frame-emacs): Fix position computation for 'left
Romain Francoise <romain@orebokech.com>
parents: 65866
diff changeset
465 (setq newleft (- pfx 10 nfw)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
466 newtop pfy))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
467 ((eq location 'left-right)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
468 (setq newleft
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
469 ;; Decide which side to put it on. 200 is just a
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
470 ;; buffer for the left edge of the screen. The
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
471 ;; extra 10 is just dressings for window
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
472 ;; decorations.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
473 (let* ((left-guess (- pfx 10 nfw))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
474 (right-guess (+ pfx pfw 5))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
475 (left-margin left-guess)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
476 (right-margin (- (x-display-pixel-width)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
477 right-guess 5 nfw)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
478 (cond ((>= left-margin 0) left-guess)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
479 ((>= right-margin 0) right-guess)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
480 ;; otherwise choose side we overlap less
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
481 ((> left-margin right-margin) 0)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
482 (t (- (x-display-pixel-width) nfw 5))))
95839
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
483 newtop pfy))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
484 ((eq location 'top-bottom)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
485 (setq newleft pfx
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
486 newtop
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
487 ;; Try and guess if we should be on the top or bottom.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
488 (let* ((top-guess (- pfy 15 nfh))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
489 (bottom-guess (+ pfy 5 pfh))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
490 (top-margin top-guess)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
491 (bottom-margin (- (x-display-pixel-height)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
492 bottom-guess 5 nfh)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
493 (cond ((>= top-margin 0) top-guess)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
494 ((>= bottom-margin 0) bottom-guess)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
495 ;; Choose a side to overlap the least.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
496 ((> top-margin bottom-margin) 0)
95839
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
497 (t (- (x-display-pixel-height) nfh 5))))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
498 ((consp location)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
499 (setq newleft (or (car location) 0)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
500 newtop (or (cdr location) 0)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
501 (t nil))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
502 (modify-frame-parameters new-frame
95839
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
503 (list (cons 'left newleft)
564317b2d075 (dframe-reposition-frame-emacs): Reorder test, and use unless.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
504 (cons 'top newtop))))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
505
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
506 (defun dframe-reposition-frame-xemacs (new-frame parent-frame location)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
507 "Move NEW-FRAME to be relative to PARENT-FRAME.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
508 LOCATION can be one of 'random, 'left-right, or 'top-bottom."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
509 ;; Not yet implemented
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
510 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
511
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
512 ;; XEmacs function only.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
513 (defun dframe-needed-height (&optional frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
514 "The needed height for the tool bar FRAME (in characters)."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
515 (or frame (setq frame (selected-frame)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
516 ;; The 1 is the missing modeline/minibuffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
517 (+ 1 (/ (frame-pixel-height frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
518 ;; This obscure code avoids a byte compiler warning in Emacs.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
519 (let ((f 'face-height))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
520 (funcall f 'default frame)))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
521
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
522 (defun dframe-detach (frame-var cache-var buffer-var)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
523 "Detatch the frame in symbol FRAME-VAR.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
524 CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'"
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
525 (with-current-buffer (symbol-value buffer-var)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
526 (rename-buffer (buffer-name) t)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
527 (let ((oldframe (symbol-value frame-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
528 (set buffer-var nil)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
529 (set frame-var nil)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
530 (set cache-var nil)
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
531 ;; FIXME: Looks very suspicious. Luckily this function is unused.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
532 (make-variable-buffer-local frame-var)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
533 (set frame-var oldframe)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
534 )))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
535
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
536 ;;; Special frame event proxies
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
537 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
538 (if (boundp 'special-event-map)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
539 (progn
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
540 (define-key special-event-map [make-frame-visible]
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
541 'dframe-handle-make-frame-visible)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
542 (define-key special-event-map [iconify-frame]
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
543 'dframe-handle-iconify-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
544 (define-key special-event-map [delete-frame]
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
545 'dframe-handle-delete-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
546 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
547
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
548 (defvar dframe-make-frame-visible-function nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
549 "Function used when a dframe controlled frame is de-iconified.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
550 The function must take an EVENT.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
551 (defvar dframe-iconify-frame-function nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
552 "Function used when a dframe controlled frame is iconified.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
553 The function must take an EVENT.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
554 (defvar dframe-delete-frame-function nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
555 "Function used when a frame attached to a dframe frame is deleted.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
556 The function must take an EVENT.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
557
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
558 (defun dframe-handle-make-frame-visible (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
559 "Handle a `make-frame-visible' event.
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
560 Should enable auto-updating if the last state was also enabled.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
561 Argument E is the event making the frame visible."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
562 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
563 (let ((f last-event-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
564 (if (and (dframe-attached-frame f)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
565 dframe-make-frame-visible-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
566 (funcall dframe-make-frame-visible-function e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
567 )))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
568
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
569 (defun dframe-handle-iconify-frame (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
570 "Handle a `iconify-frame' event.
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
571 Should disable auto-updating if the last state was also enabled.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
572 Argument E is the event iconifying the frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
573 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
574 (let ((f last-event-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
575 (if (and (dframe-attached-frame f)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
576 dframe-iconify-frame-function e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
577 (funcall dframe-iconify-frame-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
578 )))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
579
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
580 (defun dframe-handle-delete-frame (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
581 "Handle `delete-frame' event.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
582 Argument E is the event deleting the frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
583 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
584 (let ((fl (frame-list))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
585 (sf (selected-frame)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
586 ;; Loop over all frames. If dframe-delete-frame-function is
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
587 ;; non-nil, call it.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
588 (while fl
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
589 (select-frame (car fl))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
590 (if dframe-delete-frame-function
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
591 (funcall dframe-delete-frame-function e))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
592 (setq fl (cdr fl)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
593 (if (frame-live-p sf)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
594 (select-frame sf))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
595 (handle-delete-frame e)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
596
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
597
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
598 ;;; Utilities
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
599 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
600 (defun dframe-get-focus (frame-var activator &optional hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
601 "Change frame focus to or from a dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
602 If the selected frame is not in the symbol FRAME-VAR, then FRAME-VAR
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
603 frame is selected. If the FRAME-VAR is active, then select the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
604 attached frame. If FRAME-VAR is nil, ACTIVATOR is called to
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
605 created it. HOOK is an optional argument of hooks to run when
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
606 selecting FRAME-VAR."
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
607 (interactive)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
608 (if (eq (selected-frame) (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
609 (if (frame-live-p dframe-attached-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
610 (dframe-select-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
611 ;; make sure we have a frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
612 (if (not (frame-live-p (symbol-value frame-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
613 (funcall activator 1))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
614 ;; go there
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
615 (select-frame (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
616 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
617 (other-frame 0)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
618 ;; If updates are off, then refresh the frame (they want it now...)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
619 (run-hooks 'hook))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
620
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
621
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
622 (defun dframe-close-frame ()
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
623 "Close the current frame if it is dedicated."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
624 (interactive)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
625 (if dframe-controlled
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
626 (let ((b (current-buffer)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
627 (funcall dframe-controlled -1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
628 (kill-buffer b))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
629
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
630 (defun dframe-current-frame (frame-var desired-major-mode)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
631 "Return the existing dedicated frame to use.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
632 FRAME-VAR is the variable storing the currently active dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
633 If the current frame's buffer uses DESIRED-MAJOR-MODE, then use that frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
634 (if (not (eq (selected-frame) (symbol-value frame-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
635 (if (and (eq major-mode 'desired-major-mode)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
636 (get-buffer-window (current-buffer))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
637 (window-frame (get-buffer-window (current-buffer))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
638 (window-frame (get-buffer-window (current-buffer)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
639 (symbol-value frame-var))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
640 (symbol-value frame-var)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
641
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
642 (defun dframe-attached-frame (&optional frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
643 "Return the attached frame belonging to the dframe controlled frame FRAME.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
644 If optional arg FRAME is nil just return `dframe-attached-frame'."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
645 (save-excursion
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
646 (if frame (select-frame frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
647 dframe-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
648
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
649 (defun dframe-select-attached-frame (&optional frame)
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
650 "Switch to the frame the dframe controlled frame FRAME was started from.
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
651 If optional arg FRAME is nil assume the attached frame is already selected
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
652 and just run the hooks `dframe-after-select-attached-frame-hook'. Return
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
653 the attached frame."
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
654 (let ((frame (dframe-attached-frame frame)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
655 (if frame (select-frame frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
656 (prog1 frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
657 (run-hooks 'dframe-after-select-attached-frame-hook))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
658
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
659 (defmacro dframe-with-attached-buffer (&rest forms)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
660 "Execute FORMS in the attached frame's special buffer.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
661 Optionally select that frame if necessary."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
662 `(save-selected-window
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
663 ;;(speedbar-set-timer speedbar-update-speed)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
664 (dframe-select-attached-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
665 ,@forms
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
666 (dframe-maybee-jump-to-attached-frame)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
667
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
668 (defun dframe-maybee-jump-to-attached-frame ()
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
669 "Jump to the attached frame ONLY if this was not a mouse event."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
670 (when (or (not (dframe-mouse-event-p last-input-event))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
671 dframe-activity-change-focus-flag)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
672 (dframe-select-attached-frame)
65866
df5f6fcce1be (x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents: 65825
diff changeset
673 ;; KB: For what is this - raising the frame??
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
674 (other-frame 0)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
675
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
676
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
677 (defvar dframe-suppress-message-flag nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
678 "Non-nil means that `dframe-message' should just return a string.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
679
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
680 (defun dframe-message (fmt &rest args)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
681 "Like message, but for use in a dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
682 Argument FMT is the format string, and ARGS are the arguments for message."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
683 (save-selected-window
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
684 (if dframe-suppress-message-flag
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
685 (apply 'format fmt args)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
686 (if dframe-attached-frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
687 ;; KB: Here we do not need calling `dframe-select-attached-frame'
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
688 (select-frame dframe-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
689 (apply 'message fmt args))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
690
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
691 (defun dframe-y-or-n-p (prompt)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
692 "Like `y-or-n-p', but for use in a dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
693 Argument PROMPT is the prompt to use."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
694 (save-selected-window
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
695 (if (and ;;default-minibuffer-frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
696 dframe-attached-frame
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
697 ;;(not (eq default-minibuffer-frame dframe-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
698 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
699 ;; KB: Here we do not need calling `dframe-select-attached-frame'
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
700 (select-frame dframe-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
701 (y-or-n-p prompt)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
702
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
703 ;;; timer management
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
704 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
705 ;; Unlike speedbar with a dedicated set of routines, dframe has one master
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
706 ;; timer, and all dframe users will use it. At least until I figure out a way
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
707 ;; around that problem.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
708 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
709 ;; Advantage 1: Two apps with timer/frames can munge the master list
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
710 ;; to make sure they occur in order.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
711 ;; Advantage 2: If a user hits a key between timer functions, we can
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
712 ;; interrupt them safely.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
713 (defvar dframe-client-functions nil
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
714 "List of client functions using the dframe timer.")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
715
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
716 (defun dframe-set-timer (timeout fn &optional null-on-error)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
717 "Apply a timer with TIMEOUT, to call FN, or remove a timer if TIMEOUT is nil.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
718 TIMEOUT is the number of seconds until the dframe controled program
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
719 timer is called again. When TIMEOUT is nil, turn off all timeouts.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
720 This function must be called from the buffer belonging to the program
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
721 who requested the timer.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
722 If NULL-ON-ERROR is a symbol, set it to nil if we cannot create a timer."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
723 ;; First, fix up our list of client functions
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
724 (if timeout
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
725 (add-to-list 'dframe-client-functions fn)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
726 (setq dframe-client-functions (delete fn dframe-client-functions)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
727 ;; Now decided what to do about the timout.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
728 (if (or
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
729 ;; We have a timer, restart the timer with the new time.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
730 timeout
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
731 ;; We have a timer, an off is requested, and no client
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
732 ;; functions are left, shut er down.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
733 (and dframe-timer (not timeout) dframe-client-functions))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
734 ;; Only call the low level function if we are changing the state.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
735 (dframe-set-timer-internal timeout null-on-error)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
736
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
737 (defun dframe-set-timer-internal (timeout &optional null-on-error)
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
738 "Apply a timer with TIMEOUT to call the dframe timer manager."
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
739 (when dframe-timer
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
740 (if (featurep 'xemacs)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
741 (delete-itimer dframe-timer)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
742 (cancel-timer dframe-timer))
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
743 (setq dframe-timer nil))
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
744 (when timeout
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
745 (setq dframe-timer
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
746 (if (featurep 'xemacs)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
747 (start-itimer "dframe" 'dframe-timer-fn
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
748 timeout timeout t)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
749 (run-with-idle-timer timeout t 'dframe-timer-fn)))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
750
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
751 (defun dframe-timer-fn ()
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
752 "Called due to the dframe timer.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
753 Evaluates all cached timer functions in sequence."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
754 (let ((l dframe-client-functions))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
755 (while (and l (sit-for 0))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
756 (condition-case er
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
757 (funcall (car l))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
758 (error (message "DFRAME TIMER ERROR: %S" er)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
759 (setq l (cdr l)))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
760
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
761 ;;; Menu hacking for mouse-3
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
762 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
763 (defconst dframe-pass-event-to-popup-mode-menu
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
764 (let (max-args)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
765 (and (fboundp 'popup-mode-menu)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
766 (fboundp 'function-max-args)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
767 (setq max-args (function-max-args 'popup-mode-menu))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
768 (not (zerop max-args))))
99368
4a940838ff4c * dframe.el (dframe-mouse-position-function)
Juanma Barranquero <lekktu@gmail.com>
parents: 95839
diff changeset
769 "The EVENT arg to `popup-mode-menu' was introduced in XEmacs 21.4.0.")
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
770
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
771 ;; In XEmacs, we make popup menus work on the item over mouse (as
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
772 ;; opposed to where the point happens to be.) We attain this by
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
773 ;; temporarily moving the point to that place.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
774 ;; Hrvoje Niksic <hniksic@srce.hr>
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
775 (defalias 'dframe-popup-kludge
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
776 (if (featurep 'xemacs)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
777 (lambda (event) ; XEmacs.
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
778 "Pop up a menu related to the clicked on item.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
779 Must be bound to EVENT."
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
780 (interactive "e")
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
781 (save-excursion
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
782 (if dframe-pass-event-to-popup-mode-menu
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
783 (popup-mode-menu event)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
784 (goto-char (event-closest-point event))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
785 (beginning-of-line)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
786 (forward-char (min 5 (- (save-excursion (end-of-line) (point))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
787 (save-excursion (beginning-of-line) (point)))))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
788 (popup-mode-menu))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
789 ;; Wait for menu to bail out. `popup-mode-menu' (and other popup
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
790 ;; menu functions) return immediately.
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
791 (let (new)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
792 (while (not (misc-user-event-p (setq new (next-event))))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
793 (dispatch-event new))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
794 (dispatch-event new))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
795
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
796 (lambda (e) ; Emacs.
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
797 "Pop up a menu related to the clicked on item.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
798 Must be bound to event E."
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
799 (interactive "e")
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
800 (save-excursion
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
801 (mouse-set-point e)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
802 ;; This gets the cursor where the user can see it.
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
803 (if (not (bolp)) (forward-char -1))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
804 (sit-for 0)
94274
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
805 (if (fboundp 'mouse-menu-major-mode-map)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
806 (popup-menu (mouse-menu-major-mode-map) e)
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
807 (with-no-warnings ; don't warn about obsolete fallback
b9513e9a71ae (dframe-have-timer-flag): Drop support for Emacs without timers. Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
808 (mouse-major-mode-menu e nil)))))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
809
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
810 ;;; Interactive user functions for the mouse
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
811 ;;
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
812 (defalias 'dframe-mouse-event-p
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
813 (if (featurep 'xemacs)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
814 'button-press-event-p
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
815 (lambda (event)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
816 "Return t if the event is a mouse related event."
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
817 (if (and (listp event)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
818 (member (event-basic-type event)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
819 '(mouse-1 mouse-2 mouse-3)))
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
820 t
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
821 nil))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
822
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
823 (defun dframe-track-mouse (event)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
824 "For motion EVENT, display info about the current line."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
825 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
826 (when (and dframe-track-mouse-function
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
827 (or (featurep 'xemacs) ;; XEmacs always safe?
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
828 (windowp (posn-window (event-end event))) ; Sometimes
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
829 ; there is no window to jump into.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
830 ))
65866
df5f6fcce1be (x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents: 65825
diff changeset
831
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
832 (funcall dframe-track-mouse-function event)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
833
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
834 (defun dframe-track-mouse-xemacs (event)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
835 "For motion EVENT, display info about the current line."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
836 (if (functionp (default-value 'mouse-motion-handler))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
837 (funcall (default-value 'mouse-motion-handler) event))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
838 (if dframe-track-mouse-function
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
839 (funcall dframe-track-mouse-function event)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
840
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
841 (defun dframe-help-echo (window &optional buffer position)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
842 "Display help based context.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
843 The context is in WINDOW, viewing BUFFER, at POSITION.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
844 BUFFER and POSITION are optional because XEmacs doesn't use them."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
845 (when (and (not dframe-track-mouse-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
846 (bufferp buffer)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
847 dframe-help-echo-function)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
848 (let ((dframe-suppress-message-flag t))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
849 (with-current-buffer buffer
65825
b89d9c4d5386 * info.el (Info-next, Info-prev, Info-up): Select info buffer, in
Chong Yidong <cyd@stupidchicken.com>
parents: 65780
diff changeset
850 (save-excursion
b89d9c4d5386 * info.el (Info-next, Info-prev, Info-up): Select info buffer, in
Chong Yidong <cyd@stupidchicken.com>
parents: 65780
diff changeset
851 (if position (goto-char position))
b89d9c4d5386 * info.el (Info-next, Info-prev, Info-up): Select info buffer, in
Chong Yidong <cyd@stupidchicken.com>
parents: 65780
diff changeset
852 (funcall dframe-help-echo-function))))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
853
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
854 (defun dframe-mouse-set-point (e)
99368
4a940838ff4c * dframe.el (dframe-mouse-position-function)
Juanma Barranquero <lekktu@gmail.com>
parents: 95839
diff changeset
855 "Set point based on event E.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
856 Handles clicking on images in XEmacs."
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
857 (if (and (featurep 'xemacs)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
858 (save-excursion
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
859 (save-window-excursion
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
860 (mouse-set-point e)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
861 (event-over-glyph-p e))))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
862 ;; We are in XEmacs, and clicked on a picture
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
863 (let ((ext (event-glyph-extent e)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
864 ;; This position is back inside the extent where the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
865 ;; junk we pushed into the property list lives.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
866 (if (extent-end-position ext)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
867 (goto-char (1- (extent-end-position ext)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
868 (mouse-set-point e)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
869 ;; We are not in XEmacs, OR we didn't click on a picture.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
870 (mouse-set-point e)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
871
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
872 (defun dframe-quick-mouse (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
873 "Since mouse events are strange, this will keep the mouse nicely positioned.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
874 This should be bound to mouse event E."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
875 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
876 (dframe-mouse-set-point e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
877 (if dframe-mouse-position-function
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
878 (funcall dframe-mouse-position-function)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
879
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
880 (defun dframe-power-click (e)
68561
6c2778476533 (dframe-handle-make-frame-visible, dframe-handle-iconify-frame,
Juanma Barranquero <lekktu@gmail.com>
parents: 67226
diff changeset
881 "Activate any dframe mouse click as a power click.
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
882 A power click will dispose of cached data (if available) or bring a buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
883 up into a different window.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
884 This should be bound to mouse event E."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
885 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
886 (let ((dframe-power-click t))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
887 (select-frame last-event-frame)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
888 (dframe-click e)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
889
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
890 (defun dframe-click (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
891 "Call our clients click function on a user click.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
892 E is the event causing the click."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
893 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
894 (dframe-mouse-set-point e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
895 (when dframe-mouse-click-function
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
896 ;; On the off chance of buffer switch, or something incorrectly
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
897 ;; configured.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
898 (funcall dframe-mouse-click-function e)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
899
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
900 (defun dframe-double-click (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
901 "Activate the registered click function on a double click.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
902 This must be bound to a mouse event.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
903 This should be bound to mouse event E."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
904 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
905 ;; Emacs only. XEmacs handles this via `mouse-track-click-hook'.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
906 (cond ((eq (car e) 'down-mouse-1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
907 (dframe-mouse-set-point e))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
908 ((eq (car e) 'mouse-1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
909 (dframe-quick-mouse e))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
910 ((or (eq (car e) 'double-down-mouse-1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
911 (eq (car e) 'triple-down-mouse-1))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
912 (dframe-click e))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
913
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
914 ;;; Hacks of normal things.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
915 ;;
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
916 ;; Some normal things that happen in one of these dedicated frames
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
917 ;; must be handled specially, so that our dedicated frame isn't
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
918 ;; messed up.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
919 (defun dframe-temp-buffer-show-function (buffer)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
920 "Placed in the variable `temp-buffer-show-function' in dedicated frames.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
921 If a user requests help using \\[help-command] <Key> the temp BUFFER will be
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
922 redirected into a window on the attached frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
923 (if dframe-attached-frame (dframe-select-attached-frame))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
924 (pop-to-buffer buffer nil)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
925 (other-window -1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
926 ;; Fix for using this hook on some platforms: Bob Weiner
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
927 (cond ((not (featurep 'xemacs))
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
928 (run-hooks 'temp-buffer-show-hook))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
929 ((fboundp 'run-hook-with-args)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
930 (run-hook-with-args 'temp-buffer-show-hook buffer))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
931 ((and (boundp 'temp-buffer-show-hook)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
932 (listp temp-buffer-show-hook))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
933 (mapcar (function (lambda (hook) (funcall hook buffer)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
934 temp-buffer-show-hook))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
935
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
936 (defun dframe-hack-buffer-menu (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
937 "Control mouse 1 is buffer menu.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
938 This hack overrides it so that the right thing happens in the main
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
939 Emacs frame, not in the dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
940 Argument E is the event causing this activity."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
941 (interactive "e")
78630
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
942 (let ((fn (lookup-key global-map (if (featurep 'xemacs)
0a2e0422ddd5 Remove spurious * in custom docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78236
diff changeset
943 '(control button1)
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
944 [C-down-mouse-1])))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
945 (oldbuff (current-buffer))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
946 (newbuff nil))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
947 (unwind-protect
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
948 (save-excursion
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
949 (set-window-dedicated-p (selected-window) nil)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
950 (call-interactively fn)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
951 (setq newbuff (current-buffer)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
952 (switch-to-buffer oldbuff)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
953 (set-window-dedicated-p (selected-window) t))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
954 (if (not (eq newbuff oldbuff))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
955 (dframe-with-attached-buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
956 (switch-to-buffer newbuff)))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
957
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
958 (defun dframe-switch-buffer-attached-frame (&optional buffer)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
959 "Switch to BUFFER in the attached frame, and raise that frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
960 This overrides the default behavior of `switch-to-buffer' which is
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
961 broken because of the dedicated frame."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
962 (interactive)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
963 ;; Assume we are in the dedicated frame.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
964 (other-frame 1)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
965 ;; Now switch buffers
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
966 (if buffer
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
967 (switch-to-buffer buffer)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
968 (call-interactively 'switch-to-buffer nil nil)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
969
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
970 ;; XEmacs: this can be implemented using modeline keymaps, but there
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
971 ;; is no use, as we have horizontal scrollbar (as the docstring
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
972 ;; hints.)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
973 (defun dframe-mouse-hscroll (e)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
974 "Read a mouse event E from the mode line, and horizontally scroll.
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
975 If the mouse is being clicked on the far left, or far right of the
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
976 mode-line. This is only useful for non-XEmacs."
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
977 (interactive "e")
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
978 (let* ((x-point (car (nth 2 (car (cdr e)))))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
979 (pixels-per-10-col (/ (* 10 (frame-pixel-width))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
980 (frame-width)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
981 (click-col (1+ (/ (* 10 x-point) pixels-per-10-col)))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
982 )
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
983 (cond ((< click-col 3)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
984 (scroll-left 2))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
985 ((> click-col (- (window-width) 5))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
986 (scroll-right 2))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
987 (t (dframe-message
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
988 "Click on the edge of the modeline to scroll left/right")))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
989 ))
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
990
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
991 (provide 'dframe)
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
992
65779
103ed0b7e567 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 65753
diff changeset
993 ;; arch-tag: df9b91b6-e85e-4a76-a02e-b3cb5b686bd4
65753
3d159a94747e * dframe.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
994 ;;; dframe.el ends here