annotate lisp/dframe.el @ 112446:f60dc8d74215

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