Mercurial > hg > xemacs-beta
annotate src/frame.c @ 5750:66d2f63df75f
Correct some spelling and formatting in behavior.el.
Mentioned in tracker issue 826, the third thing mentioned there (the file
name at the bottom of the file) had already been fixed.
lisp/ChangeLog addition:
2013-08-05 Aidan Kehoe <kehoea@parhasard.net>
* behavior.el:
(override-behavior):
Correct some spelling and formatting here, thank you Steven
Mitchell in tracker issue 826.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 05 Aug 2013 10:05:32 +0100 |
| parents | 3fde0e346ad7 |
| children | 0f2338afbabf |
| rev | line source |
|---|---|
| 428 | 1 /* Generic frame functions. |
| 2 Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. | |
| 5043 | 3 Copyright (C) 1995, 1996, 2002, 2003, 2005, 2010 Ben Wing. |
| 428 | 4 Copyright (C) 1995 Sun Microsystems, Inc. |
| 5 | |
| 6 This file is part of XEmacs. | |
| 7 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5209
diff
changeset
|
8 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 9 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5209
diff
changeset
|
10 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5209
diff
changeset
|
11 option) any later version. |
| 428 | 12 |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5209
diff
changeset
|
19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 20 |
| 21 /* Synched up with: FSF 19.30. */ | |
| 22 | |
| 23 /* This file has been Mule-ized. */ | |
| 24 | |
| 5043 | 25 /* About window and frame geometry [ben]: |
| 26 | |
| 27 Here is an ASCII diagram: | |
| 28 | |
| 5046 | 29 +------------------------------------------------------------------------| |
| 30 | window-manager decoration | | |
| 31 | +--------------------------------------------------------------------+ | | |
| 32 | | menubar | | | |
| 33 | ###################################################################### | | |
| 34 | # toolbar # | | |
| 35 | #--------------------------------------------------------------------# | | |
| 5090 | 36 | # | internal border | # | |
| 37 | # | +----------------------------------------------------------+ | # | | |
| 38 | # | | gutter | | # | | |
| 39 | # | |-********************************************************-| | # | | |
| 40 |w# | | *@| scrollbar |v* |s* | | #w| | |
| 41 |i# | | *-+-------------------------|e* |c* | | #i| | |
| 42 |n# | | *s| |r* |r* | | #n| | |
| 43 |d# | | *c| |t* |o* | | #d| | |
| 44 |o# | | *r| |.* text area |l* | | #o| | |
| 45 |w# |i| *o| | * |l* |i| #w| | |
| 46 |-# |n| *l| text area |d* |b* |n| #-| | |
| 47 |m# |t| *l| |i* |a* |t| #m| | |
| 48 |a# |e| *b| |v* |r* |e| #a| | |
| 49 |n# t|r| *a| |i*----------------------+-* |r|t #n| | |
| 50 |a# o|n|g*r| |d* scrollbar |@*g|n|o #a| | |
| 51 |g# o|a|u*-+-------------------------|e*----------------------+-*u|a|o #g| | |
| 52 |e# l|l|t* modeline |r* modeline *t|l|l #e| | |
| 53 |r# b| |t********************************************************t| |b #r| | |
| 54 | # a|b|e* =..texttexttex....= |s|v* |s*e|b|a # | | |
| 55 |d# r|o|r*o m=..texttexttextt..=o m|c|e* |c*r|o|r #d| | |
| 56 |e# |r| *u a=.exttexttextte...=u a|r|r* |r* |r| #e| | |
| 57 |c# |d| *t r=....texttexttex..=t r|o|t* |o* |d| #c| | |
| 58 |o# |e| *s g= etc. =s g|l|.* text area |l* |e| #o| | |
| 59 |r# |r| *i i= =i i|l| * |l* |r| #r| | |
| 60 |a# | | *d n= =d n|b|d* |b* | | #a| | |
| 61 |t# | | *e = inner text area =e |a|i* |a* | | #t| | |
| 5046 | 62 |i# | | * = = |r|v* |r* | | #i| |
| 63 |o# | | *---===================---+-|i*----------------------+-* | | #o| | |
| 5090 | 64 |n# | | * scrollbar |@|d* scrollbar |@* | | #n| |
| 5046 | 65 | # | | *-------------------------+-|e*----------------------+-* | | # | |
| 66 | # | | * modeline |r* modeline * | | # | | |
| 5090 | 67 | # | |-********************************************************-| | # | |
| 68 | # | | gutter | | # | | |
| 69 | # | |-********************************************************-| | # | | |
| 70 | # | |@* minibuffer *@| | # | | |
| 71 | # | +-********************************************************-+ | # | | |
| 72 | # | internal border | # | | |
| 5046 | 73 | #--------------------------------------------------------------------# | |
| 74 | # toolbar # | | |
| 75 | ###################################################################### | | |
| 76 | window manager decoration | | |
| 77 +------------------------------------------------------------------------+ | |
| 5043 | 78 |
| 79 # = boundary of client area; * = window boundaries, boundary of paned area | |
| 5090 | 80 = = boundary of inner text area; . = inside margin area; @ = dead boxes |
| 5043 | 81 |
| 82 Note in particular what happens at the corners, where a "corner box" | |
| 83 occurs. Top and bottom toolbars take precedence over left and right | |
| 84 toolbars, extending out horizontally into the corner boxes. Gutters | |
| 85 work the same way. The corner box where the scrollbars meet, however, | |
| 86 is assigned to neither scrollbar, and is known as the "dead box"; it is | |
| 5090 | 87 an area that must be cleared specially. There are similar dead boxes at |
| 88 the bottom-right and bottom-left corners where the minibuffer and | |
| 89 left/right gutters meet, but there is currently a bug in that these dead | |
| 90 boxes are not explicitly cleared and may contain junk. | |
| 5043 | 91 |
| 92 THE FRAME | |
| 93 --------- | |
| 94 | |
| 95 The "top-level window area" is the entire area of a top-level window (or | |
| 96 "frame"). The "client area" (a term from MS Windows) is the area of a | |
| 97 top-level window that XEmacs draws into and manages with redisplay. | |
| 98 This includes the toolbar, scrollbars, gutters, dividers, text area, | |
| 99 modeline and minibuffer. It does not include the menubar, title or | |
| 100 outer borders. The "non-client area" is the area of a top-level window | |
| 101 outside of the client area and includes the menubar, title and outer | |
| 102 borders. Internally, all frame coordinates are relative to the client | |
| 103 area. | |
| 104 | |
| 105 | |
| 106 THE NON-CLIENT AREA | |
| 107 ------------------- | |
| 108 | |
| 109 Under X, the non-client area is split into two parts: | |
| 110 | |
| 111 (1) The outer layer is the window-manager decorations: The title and | |
| 112 borders. These are controlled by the window manager, a separate process | |
| 113 that controls the desktop, the location of icons, etc. When a process | |
| 114 tries to create a window, the window manager intercepts this action and | |
| 115 "reparents" the window, placing another window around it which contains | |
| 116 the window decorations, including the title bar, outer borders used for | |
| 117 resizing, etc. The window manager also implements any actions involving | |
| 118 the decorations, such as the ability to resize a window by dragging its | |
| 119 borders, move a window by dragging its title bar, etc. If there is no | |
| 120 window manager or you kill it, windows will have no decorations (and | |
| 121 will lose them if they previously had any) and you will not be able to | |
| 122 move or resize them. | |
| 123 | |
| 124 (2) Inside of the window-manager decorations is the "shell", which is | |
| 125 managed by the toolkit and widget libraries your program is linked with. | |
| 126 The code in *-x.c uses the Xt toolkit and various possible widget | |
| 127 libraries built on top of Xt, such as Motif, Athena, the "Lucid" | |
| 128 widgets, etc. Another possibility is GTK (*-gtk.c), which implements | |
| 129 both the toolkit and widgets. Under Xt, the "shell" window is an | |
| 130 EmacsShell widget, containing an EmacsManager widget of the same size, | |
| 131 which in turn contains a menubar widget and an EmacsFrame widget, inside | |
| 132 of which is the client area. (The division into EmacsShell and | |
| 133 EmacsManager is due to the complex and screwy geometry-management system | |
|
5384
3889ef128488
Fix misspelled words, and some grammar, across the entire source tree.
Jerry James <james@xemacs.org>
parents:
5209
diff
changeset
|
134 in Xt [and X more generally]. The EmacsShell handles negotiation with |
| 5043 | 135 the window manager; the place of the EmacsManager widget is normally |
| 136 assumed by a widget that manages the geometry of its child widgets, but | |
| 137 the EmacsManager widget just lets the XEmacs redisplay mechanism do the | |
| 138 positioning.) | |
| 139 | |
| 140 Under Windows, the non-client area is managed by the window system. | |
| 141 There is no division such as under X. Part of the window-system API | |
| 142 (USER.DLL) of Win32 includes functions to control the menubars, title, | |
| 143 etc. and implements the move and resize behavior. There *is* an | |
| 144 equivalent of the window manager, called the "shell", but it manages | |
| 145 only the desktop, not the windows themselves. The normal shell under | |
| 146 Windows is EXPLORER.EXE; if you kill this, you will lose the bar | |
| 147 containing the "Start" menu and tray and such, but the windows | |
| 148 themselves will not be affected or lose their decorations. | |
| 149 | |
| 150 | |
| 151 THE CLIENT AREA | |
| 152 --------------- | |
| 153 | |
| 154 Inside of the client area is the toolbars, the gutters (where the buffer | |
| 155 tabs are displayed), the minibuffer, the internal border width, and one | |
| 156 or more non-overlapping "windows" (this is old Emacs terminology, from | |
| 157 before the time when frames existed at all; the standard terminology for | |
| 158 this would be "pane"). Each window can contain a modeline, horizontal | |
| 159 and/or vertical scrollbars, and (for non-rightmost windows) a vertical | |
| 160 divider, surrounding a text area. | |
| 161 | |
| 162 The dimensions of the toolbars and gutters are determined by the formula | |
| 163 (THICKNESS + 2 * BORDER-THICKNESS), where "thickness" is a cover term | |
| 164 for height or width, as appropriate. The height and width come from | |
| 165 `default-toolbar-height' and `default-toolbar-width' and the specific | |
| 166 versions of these (`top-toolbar-height', `left-toolbar-width', etc.). | |
| 167 The border thickness comes from `default-toolbar-border-height' and | |
| 168 `default-toolbar-border-width', and the specific versions of these. The | |
| 169 gutter works exactly equivalently. | |
| 170 | |
| 171 Note that for any particular toolbar or gutter, it will only be | |
| 172 displayed if [a] its visibility specifier (`default-toolbar-visible-p' | |
| 173 etc.) is non-nil; [b] its thickness (`default-toolbar-height' etc.) is | |
| 174 greater than 0; [c] its contents (`default-toolbar' etc.) are non-nil. | |
| 175 | |
| 176 The position-specific toolbars interact with the default specifications | |
| 177 as follows: If the value for a position-specific specifier is not | |
| 178 defined in a particular domain (usually a window), and the position of | |
| 179 that specifier is set as the default position (using | |
| 180 `default-toolbar-position'), then the value from the corresponding | |
| 181 default specifier in that domain will be used. The gutters work the | |
| 182 same. | |
| 183 | |
| 184 | |
| 185 THE PANED AREA | |
| 186 -------------- | |
| 187 | |
| 5090 | 188 The area occupied by the "windows" is called the paned area. Unfortunately, |
| 189 because of the presence of the gutter *between* the minibuffer and other | |
| 190 windows, the bottom of the paned area is not well-defined -- does it | |
| 191 include the minibuffer (in which case it also includes the bottom gutter, | |
| 192 but none others) or does it not include the minibuffer? (In which case | |
| 193 not all windows are included.) #### GEOM! It would be cleaner to put the | |
| 194 bottom gutter *below* the minibuffer instead of above it. | |
| 195 | |
| 196 Each window can include a horizontal and/or vertical scrollbar, a | |
| 197 modeline and a vertical divider to its right, as well as the text area. | |
| 198 Only non-rightmost windows can include a vertical divider. (The | |
| 199 minibuffer normally does not include either modeline or scrollbars.) | |
| 5043 | 200 |
| 201 Note that, because the toolbars and gutters are controlled by | |
| 202 specifiers, and specifiers can have window-specific and buffer-specific | |
| 203 values, the size of the paned area can change depending on which window | |
| 204 is selected: In other words, if the selected window or buffer changes, | |
| 205 the entire paned area for the frame may change. | |
| 206 | |
| 207 | |
| 208 TEXT AREAS, FRINGES, MARGINS | |
| 209 ---------------------------- | |
| 210 | |
| 211 The space occupied by a window can be divided into the text area and the | |
| 212 fringes. The fringes include the modeline, scrollbars and vertical | |
| 213 divider on the right side (if any); inside of this is the text area, | |
| 214 where the text actually occurs. Note that a window may or may not | |
| 215 contain any of the elements that are part of the fringe -- this is | |
| 216 controlled by specifiers, e.g. `has-modeline-p', | |
| 217 `horizontal-scrollbar-visible-p', `vertical-scrollbar-visible-p', | |
| 218 `vertical-divider-always-visible-p', etc. | |
| 219 | |
| 220 In addition, it is possible to set margins in the text area using the | |
| 221 specifiers `left-margin-width' and `right-margin-width'. When this is | |
| 222 done, only the "inner text area" (the area inside of the margins) will | |
| 223 be used for normal display of text; the margins will be used for glyphs | |
| 224 with a layout policy of `outside-margin' (as set on an extent containing | |
| 225 the glyph by `set-extent-begin-glyph-layout' or | |
| 226 `set-extent-end-glyph-layout'). However, the calculation of the text | |
| 227 area size (e.g. in the function `window-text-area-width') includes the | |
| 228 margins. Which margin is used depends on whether a glyph has been set | |
| 229 as the begin-glyph or end-glyph of an extent (`set-extent-begin-glyph' | |
| 230 etc.), using the left and right margins, respectively. | |
| 231 | |
| 232 Technically, the margins outside of the inner text area are known as the | |
| 233 "outside margins". The "inside margins" are in the inner text area and | |
| 234 constitute the whitespace between the outside margins and the first or | |
| 235 last non-whitespace character in a line; their width can vary from line | |
| 236 to line. Glyphs will be placed in the inside margin if their layout | |
| 237 policy is `inside-margin' or `whitespace', with `whitespace' glyphs on | |
| 238 the inside and `inside-margin' glyphs on the outside. Inside-margin | |
| 239 glyphs can spill over into the outside margin if `use-left-overflow' or | |
| 240 `use-right-overflow', respectively, is non-nil. | |
| 241 | |
| 242 See the Lisp Reference manual, under Annotations, for more details. | |
| 243 | |
| 244 | |
| 245 THE DISPLAYABLE AREA | |
| 246 -------------------- | |
| 247 | |
| 248 The "displayable area" is not so much an actual area as a convenient | |
| 249 fiction. It is the area used to convert between pixel and character | |
| 250 dimensions for frames. The character dimensions for a frame (e.g. as | |
| 251 returned by `frame-width' and `frame-height' and set by | |
| 252 `set-frame-width' and `set-frame-height') are determined from the | |
| 253 displayable area by dividing by the pixel size of the default font as | |
| 254 instantiated in the frame. (For proportional fonts, the "average" width | |
| 255 is used. Under Windows, this is a built-in property of the fonts. | |
| 256 Under X, this is based on the width of the lowercase 'n', or if this is | |
| 257 zero then the width of the default character. [We prefer 'n' to the | |
| 258 specified default character because many X fonts have a default | |
| 259 character with a zero or otherwise non-representative width.]) | |
| 260 | |
| 5090 | 261 The displayable area is essentially the "theoretical" gutter area of the |
| 262 frame, excluding the rightmost and bottom-most scrollbars. That is, it | |
| 263 starts from the client (or "total") area and then excludes the | |
| 264 "theoretical" toolbars and bottom-most/rightmost scrollbars, and the | |
| 265 internal border width. In this context, "theoretical" means that all | |
| 266 calculations on based on frame-level values for toolbar and scrollbar | |
| 267 thicknesses. Because these thicknesses are controlled by specifiers, | |
| 268 and specifiers can have window-specific and buffer-specific values, | |
| 269 these calculations may or may not reflect the actual size of the paned | |
| 270 area or of the scrollbars when any particular window is selected. Note | |
| 271 also that the "displayable area" may not even be contiguous! In | |
| 272 particular, the gutters are included, but the bottom-most and rightmost | |
| 273 scrollbars are excluded even though they are inside of the gutters. | |
| 274 Furthermore, if the frame-level value of the horizontal scrollbar height | |
| 275 is non-zero, then the displayable area includes the paned area above and | |
| 276 below the bottom horizontal scrollbar (i.e. the modeline and minibuffer) | |
| 277 but not the scrollbar itself. | |
| 5043 | 278 |
| 279 As a further twist, the character-dimension calculations are adjusted so | |
| 280 that the truncation and continuation glyphs (see `truncation-glyph' and | |
| 281 `continuation-glyph') count as a single character even if they are wider | |
| 282 than the default font width. (Technically, the character width is | |
| 283 computed from the displayable-area width by subtracting the maximum of | |
| 284 the truncation-glyph width, continuation-glyph width and default-font | |
| 285 width before dividing by the default-font width, and then adding 1 to | |
| 286 the result.) (The ultimate motivation for this kludge as well as the | |
| 287 subtraction of the scrollbars, but not the minibuffer or bottom-most | |
| 288 modeline, is to maintain compatibility with TTY's.) | |
| 289 | |
| 290 Despite all these concerns and kludges, however, the "displayable area" | |
| 291 concept works well in practice and mostly ensures that by default the | |
| 292 frame will actually fit 79 characters + continuation/truncation glyph. | |
| 293 | |
| 294 | |
| 295 WHICH FUNCTIONS USE WHICH? | |
| 296 -------------------------- | |
| 297 | |
| 298 [1] Top-level window area: | |
| 299 | |
| 300 set-frame-position | |
| 301 `left' and `top' frame properties | |
| 302 | |
| 303 [2] Client area: | |
| 304 | |
| 305 frame-pixel-*, set-frame-pixel-* | |
| 306 | |
| 307 [3] Paned area: | |
| 308 | |
| 309 window-pixel-edges | |
| 310 event-x-pixel, event-y-pixel, event-properties, make-event | |
| 311 | |
| 312 [4] Displayable area: | |
| 313 | |
| 314 frame-width, frame-height and other all functions specifying frame size | |
| 315 in characters | |
| 316 frame-displayable-pixel-* | |
| 317 | |
| 318 --ben | |
| 319 | |
| 320 */ | |
| 321 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
322 /* |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
323 About different types of units: |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
324 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
325 (1) "Total pixels" measure the pixel size of the client area of the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
326 frame (everything except the menubars and window-manager decorations; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
327 see comment at top of file). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
328 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
329 (2) "Displayable pixels" measure the pixel size of the "displayable area" |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
330 of the frame, a convenient fiction that specifies which portion of |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
331 the frame "counts" for the purposes of determining the size of the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
332 frame in character cells. Approximately speaking, the difference |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
333 between the client area and displayable area is that toolbars, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
334 gutters, internal border width and bottom-most/right-most scrollbars |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
335 are inside the client area but outside the displayable area. See |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
336 comment at top of file for more discussion. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
337 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
338 (3) "Character-cell units" measure the frame size in "character cells", |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
339 which are fixed rectangles of a size meant to correspond with the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
340 height and (average) width of the bounding box of a single character |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
341 in the default font. The size of a frame in character cells is |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
342 determined by computing the size in "displayable pixels" and dividing |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
343 by the pixel size of the default font as instantiated in the frame. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
344 See comment at top of file under "displayable area" for more info. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
345 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
346 (4) In window-system "frame units" -- pixels on MS Windows, character |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
347 cells on X and GTK (on TTY's, pixels and character cells are the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
348 same). Note that on MS Windows the pixels measure the size of the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
349 displayable area, not the entire client area. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
350 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
351 This bogosity exists because MS Windows always reports frame sizes |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
352 in pixels, whereas X-Windows has a scheme whereby character-cell |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
353 sizes and extra sizes (e.g. for toolbars, menubars, etc.) can be |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
354 reported to the window manager, and the window manager displays |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
355 character-cell units when resizing, only allows resizing to integral |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
356 character-cell sizes, and reports back the size in character cells. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
357 As a result, someone thought it was a good idea to make the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
358 fundamental units for measuring frame size correspond to what the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
359 window system "reports" and hence vary between pixels and character |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
360 cells, as described above. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
361 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
362 --ben |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
363 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
364 |
| 428 | 365 #include <config.h> |
| 366 #include "lisp.h" | |
| 367 | |
| 368 #include "buffer.h" /* for Vbuffer_alist */ | |
| 369 #include "console.h" | |
| 872 | 370 #include "device-impl.h" |
| 428 | 371 #include "events.h" |
| 372 #include "extents.h" | |
| 373 #include "faces.h" | |
| 872 | 374 #include "frame-impl.h" |
| 428 | 375 #include "glyphs.h" |
| 376 #include "gutter.h" | |
| 377 #include "menubar.h" | |
| 2681 | 378 #include "process.h" /* for egetenv */ |
| 428 | 379 #include "redisplay.h" |
| 380 #include "scrollbar.h" | |
| 800 | 381 #include "toolbar.h" |
| 428 | 382 #include "window.h" |
| 383 | |
| 384 Lisp_Object Vselect_frame_hook, Qselect_frame_hook; | |
| 385 Lisp_Object Vdeselect_frame_hook, Qdeselect_frame_hook; | |
| 386 Lisp_Object Vcreate_frame_hook, Qcreate_frame_hook; | |
| 387 Lisp_Object Vdelete_frame_hook, Qdelete_frame_hook; | |
| 388 Lisp_Object Vmouse_enter_frame_hook, Qmouse_enter_frame_hook; | |
| 389 Lisp_Object Vmouse_leave_frame_hook, Qmouse_leave_frame_hook; | |
| 390 Lisp_Object Vmap_frame_hook, Qmap_frame_hook; | |
| 391 Lisp_Object Vunmap_frame_hook, Qunmap_frame_hook; | |
| 392 int allow_deletion_of_last_visible_frame; | |
| 393 Lisp_Object Vadjust_frame_function; | |
| 394 Lisp_Object Vmouse_motion_handler; | |
| 395 Lisp_Object Vsynchronize_minibuffers; | |
| 396 Lisp_Object Qsynchronize_minibuffers; | |
| 397 Lisp_Object Qbuffer_predicate; | |
| 398 Lisp_Object Qmake_initial_minibuffer_frame; | |
| 399 Lisp_Object Qcustom_initialize_frame; | |
| 400 | |
| 401 /* We declare all these frame properties here even though many of them | |
| 402 are currently only used in frame-x.c, because we should generalize | |
| 403 them. */ | |
| 404 | |
| 405 Lisp_Object Qminibuffer; | |
| 406 Lisp_Object Qunsplittable; | |
| 407 Lisp_Object Qinternal_border_width; | |
| 408 Lisp_Object Qtop_toolbar_shadow_color; | |
| 409 Lisp_Object Qbottom_toolbar_shadow_color; | |
| 410 Lisp_Object Qbackground_toolbar_color; | |
| 411 Lisp_Object Qtop_toolbar_shadow_pixmap; | |
| 412 Lisp_Object Qbottom_toolbar_shadow_pixmap; | |
| 413 Lisp_Object Qtoolbar_shadow_thickness; | |
| 414 Lisp_Object Qscrollbar_placement; | |
| 415 Lisp_Object Qinter_line_space; | |
| 416 Lisp_Object Qvisual_bell; | |
| 417 Lisp_Object Qbell_volume; | |
| 418 Lisp_Object Qpointer_background; | |
| 419 Lisp_Object Qpointer_color; | |
| 420 Lisp_Object Qtext_pointer; | |
| 421 Lisp_Object Qspace_pointer; | |
| 422 Lisp_Object Qmodeline_pointer; | |
| 423 Lisp_Object Qgc_pointer; | |
| 424 Lisp_Object Qinitially_unmapped; | |
| 425 Lisp_Object Quse_backing_store; | |
| 426 Lisp_Object Qborder_color; | |
| 427 Lisp_Object Qborder_width; | |
| 428 | |
| 429 Lisp_Object Qframep, Qframe_live_p; | |
| 430 Lisp_Object Qdelete_frame; | |
| 431 | |
| 432 Lisp_Object Qframe_title_format, Vframe_title_format; | |
| 433 Lisp_Object Qframe_icon_title_format, Vframe_icon_title_format; | |
| 434 | |
| 435 Lisp_Object Vdefault_frame_name; | |
| 436 Lisp_Object Vdefault_frame_plist; | |
| 437 | |
| 438 Lisp_Object Vframe_icon_glyph; | |
| 439 | |
| 440 Lisp_Object Qhidden; | |
| 441 | |
| 442 Lisp_Object Qvisible, Qiconic, Qinvisible, Qvisible_iconic, Qinvisible_iconic; | |
| 443 Lisp_Object Qnomini, Qvisible_nomini, Qiconic_nomini, Qinvisible_nomini; | |
| 444 Lisp_Object Qvisible_iconic_nomini, Qinvisible_iconic_nomini; | |
| 445 | |
| 442 | 446 Lisp_Object Qset_specifier, Qset_face_property; |
| 428 | 447 Lisp_Object Qface_property_instance; |
| 448 | |
| 449 Lisp_Object Qframe_property_alias; | |
| 450 | |
| 451 /* If this is non-nil, it is the frame that make-frame is currently | |
| 452 creating. We can't set the current frame to this in case the | |
| 453 debugger goes off because it would try and display to it. However, | |
| 454 there are some places which need to reference it which have no | |
| 455 other way of getting it if it isn't the selected frame. */ | |
| 456 Lisp_Object Vframe_being_created; | |
| 457 Lisp_Object Qframe_being_created; | |
| 458 | |
| 459 static void store_minibuf_frame_prop (struct frame *f, Lisp_Object val); | |
| 1125 | 460 |
| 5043 | 461 typedef enum |
| 462 { | |
| 1125 | 463 DISPLAYABLE_PIXEL_TO_CHAR, |
| 5043 | 464 CHAR_TO_DISPLAYABLE_PIXEL, |
| 1125 | 465 TOTAL_PIXEL_TO_CHAR, |
| 466 CHAR_TO_TOTAL_PIXEL, | |
| 5043 | 467 TOTAL_PIXEL_TO_DISPLAYABLE_PIXEL, |
| 468 DISPLAYABLE_PIXEL_TO_TOTAL_PIXEL, | |
| 469 } | |
| 470 pixel_to_char_mode_t; | |
| 471 | |
| 472 enum frame_size_type | |
| 473 { | |
| 474 SIZE_TOTAL_PIXEL, | |
| 475 SIZE_DISPLAYABLE_PIXEL, | |
| 476 SIZE_CHAR_CELL, | |
| 477 SIZE_FRAME_UNIT, | |
| 478 }; | |
| 1125 | 479 |
| 480 static void frame_conversion_internal (struct frame *f, | |
| 5043 | 481 enum frame_size_type source, |
| 482 int source_width, int source_height, | |
| 483 enum frame_size_type dest, | |
| 484 int *dest_width, int *dest_height); | |
| 485 static void get_frame_char_size (struct frame *f, int *out_width, | |
| 486 int *out_height); | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
487 static void get_frame_new_displayable_pixel_size (struct frame *f, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
488 int *out_width, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
489 int *out_height); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
490 static void get_frame_new_total_pixel_size (struct frame *f, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
491 int *out_width, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
492 int *out_height); |
| 5043 | 493 |
| 438 | 494 static struct display_line title_string_display_line; |
| 495 /* Used by generate_title_string. Global because they get used so much that | |
| 496 the dynamic allocation time adds up. */ | |
| 867 | 497 static Ichar_dynarr *title_string_ichar_dynarr; |
| 428 | 498 |
| 499 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
500 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
501 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
502 /* frame object */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
503 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
504 /**************************************************************************/ |
| 1204 | 505 |
| 3092 | 506 #ifndef NEW_GC |
| 1204 | 507 extern const struct sized_memory_description gtk_frame_data_description; |
| 508 extern const struct sized_memory_description mswindows_frame_data_description; | |
| 509 extern const struct sized_memory_description x_frame_data_description; | |
| 3092 | 510 #endif /* not NEW_GC */ |
| 1204 | 511 |
| 512 static const struct memory_description frame_data_description_1 []= { | |
| 3092 | 513 #ifdef NEW_GC |
| 514 #ifdef HAVE_GTK | |
| 515 { XD_LISP_OBJECT, gtk_console }, | |
| 516 #endif | |
| 517 #ifdef HAVE_MS_WINDOWS | |
| 518 { XD_LISP_OBJECT, mswindows_console }, | |
| 519 #endif | |
| 520 #ifdef HAVE_X_WINDOWS | |
| 521 { XD_LISP_OBJECT, x_console }, | |
| 522 #endif | |
| 523 #else /* not NEW_GC */ | |
| 1204 | 524 #ifdef HAVE_GTK |
| 2551 | 525 { XD_BLOCK_PTR, gtk_console, 1, { >k_frame_data_description} }, |
| 1204 | 526 #endif |
| 527 #ifdef HAVE_MS_WINDOWS | |
| 2551 | 528 { XD_BLOCK_PTR, mswindows_console, 1, { &mswindows_frame_data_description} }, |
| 1204 | 529 #endif |
| 530 #ifdef HAVE_X_WINDOWS | |
| 2551 | 531 { XD_BLOCK_PTR, x_console, 1, { &x_frame_data_description} }, |
| 1204 | 532 #endif |
| 3092 | 533 #endif /* not NEW_GC */ |
| 1204 | 534 { XD_END } |
| 535 }; | |
| 536 | |
| 537 static const struct sized_memory_description frame_data_description = { | |
| 538 sizeof (void *), frame_data_description_1 | |
| 539 }; | |
| 540 | |
| 3092 | 541 #ifdef NEW_GC |
| 542 static const struct memory_description expose_ignore_description_1 [] = { | |
| 543 { XD_LISP_OBJECT, offsetof (struct expose_ignore, next) }, | |
| 544 { XD_END } | |
| 545 }; | |
| 546 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
547 DEFINE_DUMPABLE_INTERNAL_LISP_OBJECT ("expose-ignore", expose_ignore, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
548 0, expose_ignore_description_1, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
549 struct expose_ignore); |
| 3092 | 550 #else /* not NEW_GC */ |
| 1204 | 551 extern const struct sized_memory_description expose_ignore_description; |
| 552 | |
| 553 static const struct memory_description expose_ignore_description_1 [] = { | |
| 2367 | 554 { XD_BLOCK_PTR, offsetof (struct expose_ignore, next), |
| 2551 | 555 1, { &expose_ignore_description } }, |
| 1204 | 556 { XD_END } |
| 557 }; | |
| 558 | |
| 559 const struct sized_memory_description expose_ignore_description = { | |
| 560 sizeof (struct expose_ignore), | |
| 561 expose_ignore_description_1 | |
| 562 }; | |
| 3092 | 563 #endif /* not NEW_GC */ |
| 1204 | 564 |
| 565 static const struct memory_description display_line_dynarr_pointer_description_1 []= { | |
| 2551 | 566 { XD_BLOCK_PTR, 0, 1, { &display_line_dynarr_description} }, |
| 1204 | 567 { XD_END } |
| 568 }; | |
| 569 | |
| 570 static const struct sized_memory_description display_line_dynarr_pointer_description = { | |
| 571 sizeof (display_line_dynarr *), display_line_dynarr_pointer_description_1 | |
| 572 }; | |
| 573 | |
| 574 static const struct memory_description frame_description [] = { | |
| 575 { XD_INT, offsetof (struct frame, frametype) }, | |
| 576 #define MARKED_SLOT(x) { XD_LISP_OBJECT, offsetof (struct frame, x) }, | |
| 577 #define MARKED_SLOT_ARRAY(slot, size) \ | |
| 578 { XD_LISP_OBJECT_ARRAY, offsetof (struct frame, slot), size }, | |
| 579 #include "frameslots.h" | |
| 580 | |
| 3092 | 581 #ifdef NEW_GC |
| 582 { XD_LISP_OBJECT, offsetof (struct frame, subwindow_exposures) }, | |
| 583 { XD_LISP_OBJECT, offsetof (struct frame, subwindow_exposures_tail) }, | |
| 584 #else /* not NEW_GC */ | |
| 2367 | 585 { XD_BLOCK_PTR, offsetof (struct frame, subwindow_exposures), |
| 2551 | 586 1, { &expose_ignore_description } }, |
| 2367 | 587 { XD_BLOCK_PTR, offsetof (struct frame, subwindow_exposures_tail), |
| 2551 | 588 1, { &expose_ignore_description } }, |
| 3092 | 589 #endif /* not NEW_GC */ |
| 1204 | 590 |
| 591 #ifdef HAVE_SCROLLBARS | |
| 592 { XD_LISP_OBJECT, offsetof (struct frame, sb_vcache) }, | |
| 593 { XD_LISP_OBJECT, offsetof (struct frame, sb_hcache) }, | |
| 594 #endif /* HAVE_SCROLLBARS */ | |
| 595 | |
| 2367 | 596 { XD_BLOCK_ARRAY, offsetof (struct frame, current_display_lines), |
| 2551 | 597 4, { &display_line_dynarr_pointer_description } }, |
| 2367 | 598 { XD_BLOCK_ARRAY, offsetof (struct frame, desired_display_lines), |
| 2551 | 599 4, { &display_line_dynarr_pointer_description } }, |
| 1204 | 600 |
| 2367 | 601 { XD_BLOCK_PTR, offsetof (struct frame, framemeths), 1, |
| 2551 | 602 { &console_methods_description } }, |
| 4207 | 603 { XD_UNION, offsetof (struct frame, frame_data), |
| 2551 | 604 XD_INDIRECT (0, 0), { &frame_data_description } }, |
| 1204 | 605 { XD_END } |
| 606 }; | |
| 607 | |
| 428 | 608 static Lisp_Object |
| 609 mark_frame (Lisp_Object obj) | |
| 610 { | |
| 611 struct frame *f = XFRAME (obj); | |
| 612 | |
| 1204 | 613 #define MARKED_SLOT(x) mark_object (f->x); |
| 428 | 614 #include "frameslots.h" |
| 615 | |
| 616 if (FRAME_LIVE_P (f)) /* device is nil for a dead frame */ | |
| 617 MAYBE_FRAMEMETH (f, mark_frame, (f)); | |
| 618 | |
| 617 | 619 #ifdef HAVE_SCROLLBARS |
| 620 if (f->sb_vcache) | |
| 621 mark_object (wrap_scrollbar_instance (f->sb_vcache)); | |
| 622 if (f->sb_hcache) | |
| 623 mark_object (wrap_scrollbar_instance (f->sb_hcache)); | |
| 624 #endif | |
| 625 | |
| 626 mark_gutters (f); | |
| 627 | |
| 428 | 628 return Qnil; |
| 629 } | |
| 630 | |
| 631 static void | |
| 2286 | 632 print_frame (Lisp_Object obj, Lisp_Object printcharfun, |
| 633 int UNUSED (escapeflag)) | |
| 428 | 634 { |
| 635 struct frame *frm = XFRAME (obj); | |
| 636 | |
| 637 if (print_readably) | |
|
5142
f965e31a35f0
reduce lcrecord headers to 2 words, rename printing_unreadable_object
Ben Wing <ben@xemacs.org>
parents:
5130
diff
changeset
|
638 printing_unreadable_lisp_object (obj, XSTRING_DATA (frm->name)); |
| 428 | 639 |
| 800 | 640 write_fmt_string (printcharfun, "#<%s-frame ", !FRAME_LIVE_P (frm) ? "dead" : |
| 641 FRAME_TYPE_NAME (frm)); | |
| 428 | 642 print_internal (frm->name, printcharfun, 1); |
|
5209
94982b8f9485
When printing a frame, print its device, making things clearer with gnuserv
Aidan Kehoe <kehoea@parhasard.net>
parents:
5158
diff
changeset
|
643 write_ascstring (printcharfun, " on "); |
|
94982b8f9485
When printing a frame, print its device, making things clearer with gnuserv
Aidan Kehoe <kehoea@parhasard.net>
parents:
5158
diff
changeset
|
644 print_internal (frm->device, printcharfun, 0); |
|
5146
88bd4f3ef8e4
make lrecord UID's have a separate UID space for each object, resurrect debug SOE code in extents.c
Ben Wing <ben@xemacs.org>
parents:
5142
diff
changeset
|
645 write_fmt_string (printcharfun, " 0x%x>", LISP_OBJECT_UID (obj)); |
| 428 | 646 } |
| 647 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
648 DEFINE_NODUMP_LISP_OBJECT ("frame", frame, |
|
5124
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
649 mark_frame, print_frame, 0, 0, 0, |
|
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
650 frame_description, |
|
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
651 struct frame); |
| 428 | 652 |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
653 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
654 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
655 /* frame creation */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
656 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
657 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
658 |
| 428 | 659 static void |
| 660 nuke_all_frame_slots (struct frame *f) | |
| 661 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5126
diff
changeset
|
662 zero_nonsized_lisp_object (wrap_frame (f)); |
| 617 | 663 |
| 1204 | 664 #define MARKED_SLOT(x) f->x = Qnil; |
| 428 | 665 #include "frameslots.h" |
| 666 } | |
| 667 | |
| 668 /* Allocate a new frame object and set all its fields to reasonable | |
| 669 values. The root window is created but the minibuffer will be done | |
| 670 later. */ | |
| 671 | |
| 672 static struct frame * | |
| 673 allocate_frame_core (Lisp_Object device) | |
| 674 { | |
| 675 /* This function can GC */ | |
| 676 Lisp_Object root_window; | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5126
diff
changeset
|
677 Lisp_Object frame = ALLOC_NORMAL_LISP_OBJECT (frame); |
|
5117
3742ea8250b5
Checking in final CVS version of workspace 'ben-lisp-object'
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
678 struct frame *f = XFRAME (frame); |
| 428 | 679 |
| 680 nuke_all_frame_slots (f); | |
| 681 | |
| 682 f->device = device; | |
| 683 f->framemeths = XDEVICE (device)->devmeths; | |
| 1204 | 684 f->frametype = get_console_variant (XDEVICE_TYPE (device)); |
| 428 | 685 f->buffer_alist = Fcopy_sequence (Vbuffer_alist); |
| 686 | |
| 687 root_window = allocate_window (); | |
| 688 XWINDOW (root_window)->frame = frame; | |
| 689 | |
| 690 /* 10 is arbitrary, | |
| 691 Just so that there is "something there." | |
| 692 Correct size will be set up later with change_frame_size. */ | |
| 693 | |
| 694 f->width = 10; | |
| 695 f->height = 10; | |
| 696 | |
| 697 XWINDOW (root_window)->pixel_width = 10; | |
| 698 XWINDOW (root_window)->pixel_height = 9; | |
| 699 | |
| 700 f->root_window = root_window; | |
| 701 f->selected_window = root_window; | |
| 702 f->last_nonminibuf_window = root_window; | |
| 703 | |
| 704 /* cache of subwindows visible on frame */ | |
| 442 | 705 f->subwindow_instance_cache = make_weak_list (WEAK_LIST_SIMPLE); |
| 428 | 706 |
| 707 /* associated exposure ignore list */ | |
| 708 f->subwindow_exposures = 0; | |
| 709 f->subwindow_exposures_tail = 0; | |
| 710 | |
| 442 | 711 FRAME_SET_PAGENUMBER (f, 1); |
| 712 | |
| 853 | 713 note_object_created (root_window); |
| 714 | |
| 428 | 715 /* Choose a buffer for the frame's root window. */ |
| 716 XWINDOW (root_window)->buffer = Qt; | |
| 717 { | |
| 718 Lisp_Object buf; | |
| 719 | |
| 720 buf = Fcurrent_buffer (); | |
| 721 /* If buf is a 'hidden' buffer (i.e. one whose name starts with | |
| 722 a space), try to find another one. */ | |
| 867 | 723 if (string_ichar (Fbuffer_name (buf), 0) == ' ') |
| 428 | 724 buf = Fother_buffer (buf, Qnil, Qnil); |
| 440 | 725 Fset_window_buffer (root_window, buf, Qnil); |
| 428 | 726 } |
| 727 | |
| 728 return f; | |
| 729 } | |
| 730 | |
| 731 static void | |
| 732 setup_normal_frame (struct frame *f) | |
| 733 { | |
| 734 Lisp_Object mini_window; | |
| 793 | 735 Lisp_Object frame = wrap_frame (f); |
| 736 | |
| 428 | 737 |
| 738 mini_window = allocate_window (); | |
| 739 XWINDOW (f->root_window)->next = mini_window; | |
| 740 XWINDOW (mini_window)->prev = f->root_window; | |
| 741 XWINDOW (mini_window)->mini_p = Qt; | |
| 742 XWINDOW (mini_window)->frame = frame; | |
| 743 f->minibuffer_window = mini_window; | |
| 744 f->has_minibuffer = 1; | |
| 745 | |
| 853 | 746 note_object_created (mini_window); |
| 747 | |
| 428 | 748 XWINDOW (mini_window)->buffer = Qt; |
| 440 | 749 Fset_window_buffer (mini_window, Vminibuffer_zero, Qt); |
| 428 | 750 } |
| 751 | |
| 752 /* Make a frame using a separate minibuffer window on another frame. | |
| 753 MINI_WINDOW is the minibuffer window to use. nil means use the | |
| 754 default-minibuffer-frame. */ | |
| 755 | |
| 756 static void | |
| 757 setup_frame_without_minibuffer (struct frame *f, Lisp_Object mini_window) | |
| 758 { | |
| 759 /* This function can GC */ | |
| 760 Lisp_Object device = f->device; | |
| 761 | |
| 762 if (!NILP (mini_window)) | |
| 763 CHECK_LIVE_WINDOW (mini_window); | |
| 764 | |
| 765 if (!NILP (mini_window) | |
| 766 && !EQ (DEVICE_CONSOLE (XDEVICE (device)), | |
| 767 FRAME_CONSOLE (XFRAME (XWINDOW (mini_window)->frame)))) | |
| 563 | 768 invalid_argument ("frame and minibuffer must be on the same console", Qunbound); |
| 428 | 769 |
| 442 | 770 /* Do not create a default minibuffer frame on printer devices. */ |
| 771 if (NILP (mini_window) | |
| 772 && DEVICE_DISPLAY_P (XDEVICE (FRAME_DEVICE (f)))) | |
| 428 | 773 { |
| 774 struct console *con = XCONSOLE (FRAME_CONSOLE (f)); | |
| 775 /* Use default-minibuffer-frame if possible. */ | |
| 776 if (!FRAMEP (con->default_minibuffer_frame) | |
| 777 || ! FRAME_LIVE_P (XFRAME (con->default_minibuffer_frame))) | |
| 778 { | |
| 779 /* If there's no minibuffer frame to use, create one. */ | |
| 780 con->default_minibuffer_frame | |
| 781 = call1 (Qmake_initial_minibuffer_frame, device); | |
| 782 } | |
| 783 mini_window = XFRAME (con->default_minibuffer_frame)->minibuffer_window; | |
| 784 } | |
| 785 | |
| 786 /* Install the chosen minibuffer window, with proper buffer. */ | |
| 442 | 787 if (!NILP (mini_window)) |
| 788 { | |
| 789 store_minibuf_frame_prop (f, mini_window); | |
| 790 Fset_window_buffer (mini_window, Vminibuffer_zero, Qt); | |
| 791 } | |
| 792 else | |
| 793 f->minibuffer_window = Qnil; | |
| 428 | 794 } |
| 795 | |
|
5587
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
796 /* Make a frame containing only a minibuffer window. |
|
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
797 The minibuffer window is also the root window. */ |
| 428 | 798 |
| 799 static void | |
| 800 setup_minibuffer_frame (struct frame *f) | |
| 801 { | |
| 802 /* This function can GC */ | |
| 803 /* First make a frame containing just a root window, no minibuffer. */ | |
| 804 Lisp_Object mini_window; | |
| 793 | 805 Lisp_Object frame = wrap_frame (f); |
| 806 | |
| 428 | 807 |
| 808 f->no_split = 1; | |
| 809 f->has_minibuffer = 1; | |
| 810 | |
| 811 /* Now label the root window as also being the minibuffer. | |
| 812 Avoid infinite looping on the window chain by marking next pointer | |
| 813 as nil. */ | |
| 814 | |
| 815 mini_window = f->minibuffer_window = f->root_window; | |
| 816 XWINDOW (mini_window)->mini_p = Qt; | |
| 817 XWINDOW (mini_window)->next = Qnil; | |
| 818 XWINDOW (mini_window)->prev = Qnil; | |
| 819 XWINDOW (mini_window)->frame = frame; | |
| 820 | |
| 821 /* Put the proper buffer in that window. */ | |
| 822 | |
| 440 | 823 Fset_window_buffer (mini_window, Vminibuffer_zero, Qt); |
| 428 | 824 } |
| 825 | |
| 826 static Lisp_Object | |
| 827 make_sure_its_a_fresh_plist (Lisp_Object foolist) | |
| 828 { | |
| 829 if (CONSP (Fcar (foolist))) | |
| 830 { | |
| 831 /* looks like an alist to me. */ | |
| 832 foolist = Fcopy_alist (foolist); | |
| 833 foolist = Fdestructive_alist_to_plist (foolist); | |
| 834 } | |
| 835 else | |
| 836 foolist = Fcopy_sequence (foolist); | |
| 837 | |
| 838 return foolist; | |
| 839 } | |
| 840 | |
| 558 | 841 static Lisp_Object |
| 546 | 842 restore_frame_list_to_its_unbesmirched_state (Lisp_Object kawnz) |
| 843 { | |
| 844 Lisp_Object lissed = XCDR (kawnz); | |
| 845 if (!EQ (lissed, Qunbound)) | |
| 846 DEVICE_FRAME_LIST (XDEVICE (XCAR (kawnz))) = lissed; | |
| 847 return Qnil; | |
| 4207 | 848 } |
| 546 | 849 |
| 428 | 850 DEFUN ("make-frame", Fmake_frame, 0, 2, "", /* |
| 851 Create and return a new frame, displaying the current buffer. | |
| 852 Runs the functions listed in `create-frame-hook' after frame creation. | |
| 853 | |
| 854 Optional argument PROPS is a property list (a list of alternating | |
| 855 keyword-value specifications) of properties for the new frame. | |
| 856 \(An alist is accepted for backward compatibility but should not | |
| 857 be passed in.) | |
| 858 | |
| 859 See `set-frame-properties', `default-x-frame-plist', and | |
| 860 `default-tty-frame-plist' for the specially-recognized properties. | |
| 861 */ | |
| 862 (props, device)) | |
| 863 { | |
| 864 struct frame *f; | |
| 865 struct device *d; | |
| 866 Lisp_Object frame = Qnil, name = Qnil, minibuf; | |
| 867 struct gcpro gcpro1, gcpro2, gcpro3; | |
| 546 | 868 int speccount = specpdl_depth (), speccount2; |
| 428 | 869 int first_frame_on_device = 0; |
| 870 int first_frame_on_console = 0; | |
| 546 | 871 Lisp_Object besmirched_cons = Qnil; |
| 771 | 872 int frame_name_is_defaulted = 1; |
| 428 | 873 |
| 874 d = decode_device (device); | |
| 793 | 875 device = wrap_device (d); |
| 428 | 876 |
| 877 /* PROPS and NAME may be freshly-created, so make sure to GCPRO. */ | |
| 878 GCPRO3 (frame, props, name); | |
| 879 | |
| 880 props = make_sure_its_a_fresh_plist (props); | |
| 881 if (DEVICE_SPECIFIC_FRAME_PROPS (d)) | |
| 882 /* Put the device-specific props before the more general ones so | |
| 883 that they override them. */ | |
| 884 props = nconc2 (props, | |
| 885 make_sure_its_a_fresh_plist | |
| 886 (*DEVICE_SPECIFIC_FRAME_PROPS (d))); | |
| 887 props = nconc2 (props, make_sure_its_a_fresh_plist (Vdefault_frame_plist)); | |
| 888 Fcanonicalize_lax_plist (props, Qnil); | |
| 889 | |
| 890 name = Flax_plist_get (props, Qname, Qnil); | |
| 891 if (!NILP (name)) | |
| 771 | 892 { |
| 893 CHECK_STRING (name); | |
| 894 frame_name_is_defaulted = 0; | |
| 895 } | |
| 2681 | 896 else if (!initialized) |
| 897 { | |
| 898 /* We leave Vdefault_frame_name alone here so that it'll remain Qnil | |
| 899 in the dumped executable, and we can choose it at runtime. */ | |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
900 name = build_ascstring ("XEmacs"); |
| 2681 | 901 } |
| 4207 | 902 else if (NILP (Vdefault_frame_name)) |
| 903 { | |
| 2681 | 904 if (egetenv ("USE_EMACS_AS_DEFAULT_APPLICATION_CLASS")) |
| 905 { | |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
906 Vdefault_frame_name = build_ascstring ("emacs"); |
| 2681 | 907 } |
| 4207 | 908 else |
| 2681 | 909 { |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
910 Vdefault_frame_name = build_ascstring ("XEmacs"); |
| 2681 | 911 } |
| 912 } | |
| 913 | |
| 914 if (NILP(name) && STRINGP(Vdefault_frame_name)) | |
| 915 { | |
| 916 name = Vdefault_frame_name; | |
| 917 } | |
| 428 | 918 |
| 867 | 919 if (!NILP (Fstring_match (make_string ((const Ibyte *) "\\.", 2), name, |
| 428 | 920 Qnil, Qnil))) |
| 563 | 921 syntax_error (". not allowed in frame names", name); |
| 428 | 922 |
| 923 f = allocate_frame_core (device); | |
| 793 | 924 frame = wrap_frame (f); |
| 428 | 925 |
| 926 specbind (Qframe_being_created, name); | |
| 927 f->name = name; | |
| 928 | |
| 771 | 929 FRAMEMETH (f, init_frame_1, (f, props, frame_name_is_defaulted)); |
| 428 | 930 |
| 931 minibuf = Flax_plist_get (props, Qminibuffer, Qunbound); | |
| 932 if (UNBOUNDP (minibuf)) | |
| 933 { | |
| 934 /* If minibuf is unspecified, then look for a minibuffer X resource. */ | |
| 935 /* #### Not implemented any more. We need to fix things up so | |
| 936 that we search out all X resources and append them to the end of | |
| 937 props, above. This is the only way in general to assure | |
| 938 coherent behavior for all frame properties/resources/etc. */ | |
| 939 } | |
| 940 else | |
| 941 props = Flax_plist_remprop (props, Qminibuffer); | |
| 942 | |
| 943 if (EQ (minibuf, Qnone) || NILP (minibuf)) | |
| 944 setup_frame_without_minibuffer (f, Qnil); | |
| 945 else if (EQ (minibuf, Qonly)) | |
| 946 setup_minibuffer_frame (f); | |
| 947 else if (WINDOWP (minibuf)) | |
| 948 setup_frame_without_minibuffer (f, minibuf); | |
| 949 else if (EQ (minibuf, Qt) || UNBOUNDP (minibuf)) | |
| 950 setup_normal_frame (f); | |
| 951 else | |
| 563 | 952 invalid_argument ("Invalid value for `minibuffer'", minibuf); |
| 428 | 953 |
| 954 update_frame_window_mirror (f); | |
| 955 | |
| 4968 | 956 /* #### Do we need to be calling reset_face_cachels here, and then again |
| 957 down below? */ | |
| 428 | 958 if (initialized && !DEVICE_STREAM_P (d)) |
| 959 { | |
| 960 if (!NILP (f->minibuffer_window)) | |
|
5587
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
961 { |
|
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
962 reset_face_cachels (XWINDOW (f->minibuffer_window)); |
|
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
963 reset_glyph_cachels (XWINDOW (f->minibuffer_window)); |
|
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
964 } |
| 428 | 965 reset_face_cachels (XWINDOW (f->root_window)); |
|
5587
3fde0e346ad7
Prevent assert at frame.c, l. 6311 by initializing glyph cachels.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
5581
diff
changeset
|
966 reset_glyph_cachels (XWINDOW (f->root_window)); |
| 428 | 967 } |
| 968 | |
| 969 /* If no frames on this device formerly existed, say this is the | |
| 970 first frame. It kind of assumes that frameless devices don't | |
| 971 exist, but it shouldn't be too harmful. */ | |
| 972 if (NILP (DEVICE_FRAME_LIST (d))) | |
| 973 first_frame_on_device = 1; | |
| 974 | |
| 546 | 975 /* It's possible for one of the init methods below to signal an error; |
| 976 in that case, let's make sure the device isn't besmirched by | |
| 977 having a half-initialized frame attached to it */ | |
| 978 speccount2 = specpdl_depth (); | |
| 979 record_unwind_protect (restore_frame_list_to_its_unbesmirched_state, | |
| 980 besmirched_cons = | |
| 981 Fcons (device, DEVICE_FRAME_LIST (d))); | |
| 982 | |
| 428 | 983 /* This *must* go before the init_*() methods. Those functions |
| 984 call Lisp code, and if any of them causes a warning to be displayed | |
| 985 and the *Warnings* buffer to be created, it won't get added to | |
| 986 the frame-specific version of the buffer-alist unless the frame | |
| 987 is accessible from the device. */ | |
| 988 | |
| 989 #if 0 | |
| 990 DEVICE_FRAME_LIST (d) = nconc2 (DEVICE_FRAME_LIST (d), Fcons (frame, Qnil)); | |
| 991 #endif | |
| 992 DEVICE_FRAME_LIST (d) = Fcons (frame, DEVICE_FRAME_LIST (d)); | |
| 993 RESET_CHANGED_SET_FLAGS; | |
| 994 | |
| 853 | 995 note_object_created (frame); |
| 996 | |
| 428 | 997 /* Now make sure that the initial cached values are set correctly. |
| 998 Do this after the init_frame method is called because that may | |
| 999 do things (e.g. create widgets) that are necessary for the | |
| 1000 specifier value-changed methods to work OK. */ | |
| 1001 recompute_all_cached_specifiers_in_frame (f); | |
| 1002 | |
| 1003 if (!DEVICE_STREAM_P (d)) | |
| 1004 { | |
| 1005 init_frame_faces (f); | |
| 1006 | |
| 1007 #ifdef HAVE_SCROLLBARS | |
| 1008 /* Finish up resourcing the scrollbars. */ | |
| 1009 init_frame_scrollbars (f); | |
| 1010 #endif | |
| 1011 | |
| 1012 #ifdef HAVE_TOOLBARS | |
| 1013 /* Create the initial toolbars. We have to do this after the frame | |
| 1014 methods are called because it may potentially call some things itself | |
| 1015 which depend on the normal frame methods having initialized | |
| 1016 things. */ | |
| 1017 init_frame_toolbars (f); | |
| 1018 #endif | |
| 4968 | 1019 /* Added this assert recently (2-1-10); seems there should be only |
| 1020 two windows, root and minibufer. Probably we should just be | |
| 1021 calling reset_*_cachels on the root window directly instead of the | |
| 1022 selected window, but I want to make sure they are always the | |
| 1023 same. --ben */ | |
| 1024 assert (EQ (FRAME_SELECTED_WINDOW (f), f->root_window)); | |
| 428 | 1025 reset_face_cachels (XWINDOW (FRAME_SELECTED_WINDOW (f))); |
| 1026 reset_glyph_cachels (XWINDOW (FRAME_SELECTED_WINDOW (f))); | |
| 4968 | 1027 if (!NILP (f->minibuffer_window)) |
| 1028 { | |
| 1029 reset_face_cachels (XWINDOW (f->minibuffer_window)); | |
| 1030 reset_glyph_cachels (XWINDOW (f->minibuffer_window)); | |
| 1031 } | |
| 442 | 1032 |
| 5043 | 1033 change_frame_size (f, f->width, f->height, 0); |
| 428 | 1034 } |
| 1035 | |
| 1036 MAYBE_FRAMEMETH (f, init_frame_2, (f, props)); | |
| 1037 Fset_frame_properties (frame, props); | |
| 1038 MAYBE_FRAMEMETH (f, init_frame_3, (f)); | |
| 1039 | |
| 1040 /* Hallelujah, praise the lord. */ | |
| 1041 f->init_finished = 1; | |
| 1042 | |
| 546 | 1043 XCDR (besmirched_cons) = Qunbound; |
| 1044 | |
| 771 | 1045 unbind_to (speccount2); |
| 546 | 1046 |
| 428 | 1047 /* If this is the first frame on the device, make it the selected one. */ |
| 1048 if (first_frame_on_device && NILP (DEVICE_SELECTED_FRAME (d))) | |
| 1049 set_device_selected_frame (d, frame); | |
| 1050 | |
| 1051 /* If at startup or if the current console is a stream console | |
| 1052 (usually also at startup), make this console the selected one | |
| 1053 so that messages show up on it. */ | |
| 1054 if (NILP (Fselected_console ()) || | |
| 1055 CONSOLE_STREAM_P (XCONSOLE (Fselected_console ()))) | |
| 1056 Fselect_console (DEVICE_CONSOLE (d)); | |
| 1057 | |
| 1058 first_frame_on_console = | |
| 1059 (first_frame_on_device && | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
1060 XFIXNUM (Flength (CONSOLE_DEVICE_LIST (XCONSOLE (DEVICE_CONSOLE (d))))) |
| 428 | 1061 == 1); |
| 1062 | |
| 1063 /* #### all this calling of frame methods at various odd times | |
| 1064 is somewhat of a mess. It's necessary to do it this way due | |
| 1065 to strange console-type-specific things that need to be done. */ | |
| 1066 MAYBE_FRAMEMETH (f, after_init_frame, (f, first_frame_on_device, | |
| 1067 first_frame_on_console)); | |
| 1068 | |
| 442 | 1069 if (!DEVICE_STREAM_P (d)) |
| 1070 { | |
| 1071 /* Now initialise the gutters. This won't change the frame size, | |
| 4207 | 1072 but is needed as input to the layout that change_frame_size |
| 1073 will eventually do. Unfortunately gutter sizing code relies | |
| 1074 on the frame in question being visible so we can't do this | |
| 1075 earlier. */ | |
| 442 | 1076 init_frame_gutters (f); |
| 1077 | |
| 5043 | 1078 change_frame_size (f, f->width, f->height, 0); |
| 442 | 1079 } |
| 1080 | |
| 428 | 1081 if (first_frame_on_device) |
| 1082 { | |
| 1083 if (first_frame_on_console) | |
| 1084 va_run_hook_with_args (Qcreate_console_hook, 1, DEVICE_CONSOLE (d)); | |
| 1085 va_run_hook_with_args (Qcreate_device_hook, 1, device); | |
| 1086 } | |
| 1087 va_run_hook_with_args (Qcreate_frame_hook, 1, frame); | |
| 1088 | |
| 1089 /* Initialize custom-specific stuff. */ | |
| 1090 if (!UNBOUNDP (symbol_function (XSYMBOL (Qcustom_initialize_frame)))) | |
| 1091 call1 (Qcustom_initialize_frame, frame); | |
| 1092 | |
| 1204 | 1093 UNGCPRO; |
| 771 | 1094 unbind_to (speccount); |
| 428 | 1095 |
| 1096 return frame; | |
| 1097 } | |
| 1098 | |
| 1099 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1100 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1101 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1102 /* validating a frame argument */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1103 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1104 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1105 |
| 428 | 1106 /* this function should be used in most cases when a Lisp function is passed |
| 1107 a FRAME argument. Use this unless you don't accept nil == current frame | |
| 1108 (in which case, do a CHECK_LIVE_FRAME() and then an XFRAME()) or you | |
| 1109 allow dead frames. Note that very few functions should accept dead | |
| 1110 frames. It could be argued that functions should just do nothing when | |
| 1111 given a dead frame, but the presence of a dead frame usually indicates | |
| 1112 an oversight in the Lisp code that could potentially lead to strange | |
| 1113 results and so it is better to catch the error early. | |
| 1114 | |
| 1115 If you only accept X frames, use decode_x_frame(), which does what this | |
| 1116 function does but also makes sure the frame is an X frame. */ | |
| 1117 | |
| 1118 struct frame * | |
| 1119 decode_frame (Lisp_Object frame) | |
| 1120 { | |
| 1121 if (NILP (frame)) | |
| 1122 return selected_frame (); | |
| 1123 | |
| 1124 CHECK_LIVE_FRAME (frame); | |
| 1125 return XFRAME (frame); | |
| 1126 } | |
| 1127 | |
| 1128 struct frame * | |
| 1129 decode_frame_or_selected (Lisp_Object cdf) | |
| 1130 { | |
| 1131 if (CONSOLEP (cdf)) | |
| 1132 cdf = CONSOLE_SELECTED_DEVICE (decode_console (cdf)); | |
| 1133 if (DEVICEP (cdf)) | |
| 1134 cdf = DEVICE_SELECTED_FRAME (decode_device (cdf)); | |
| 1135 return decode_frame (cdf); | |
| 1136 } | |
| 1137 | |
| 872 | 1138 int |
| 1139 frame_live_p (struct frame *f) | |
| 1140 { | |
| 1141 return FRAME_LIVE_P (f); | |
| 1142 } | |
| 1143 | |
| 428 | 1144 DEFUN ("framep", Fframep, 1, 1, 0, /* |
| 1145 Return non-nil if OBJECT is a frame. | |
| 1146 Also see `frame-live-p'. | |
| 1147 Note that FSF Emacs kludgily returns a value indicating what type of | |
| 1148 frame this is. Use the cleaner function `frame-type' for that. | |
| 1149 */ | |
| 1150 (object)) | |
| 1151 { | |
| 1152 return FRAMEP (object) ? Qt : Qnil; | |
| 1153 } | |
| 1154 | |
| 1155 DEFUN ("frame-live-p", Fframe_live_p, 1, 1, 0, /* | |
| 1156 Return non-nil if OBJECT is a frame which has not been deleted. | |
| 1157 */ | |
| 1158 (object)) | |
| 1159 { | |
| 1160 return FRAMEP (object) && FRAME_LIVE_P (XFRAME (object)) ? Qt : Qnil; | |
| 1161 } | |
| 1162 | |
| 1163 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1164 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1165 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1166 /* frame focus/selection */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1167 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1168 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1169 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1170 Lisp_Object |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1171 frame_device (struct frame *f) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1172 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1173 return FRAME_DEVICE (f); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1174 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1175 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1176 DEFUN ("frame-device", Fframe_device, 0, 1, 0, /* |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1177 Return the device that FRAME is on. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1178 If omitted, FRAME defaults to the currently selected frame. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1179 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1180 (frame)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1181 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1182 return FRAME_DEVICE (decode_frame (frame)); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1183 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1184 |
| 428 | 1185 DEFUN ("focus-frame", Ffocus_frame, 1, 1, 0, /* |
| 1186 Select FRAME and give it the window system focus. | |
| 1187 This function is not affected by the value of `focus-follows-mouse'. | |
| 1188 */ | |
| 1189 (frame)) | |
| 1190 { | |
| 1191 CHECK_LIVE_FRAME (frame); | |
| 1192 | |
| 1193 MAYBE_DEVMETH (XDEVICE (FRAME_DEVICE (XFRAME (frame))), focus_on_frame, | |
| 1194 (XFRAME (frame))); | |
| 1195 /* FRAME will be selected by the time we receive the next event. | |
| 1196 However, it is better to select it explicitly now, in case the | |
| 1197 Lisp code depends on frame being selected. */ | |
| 1198 Fselect_frame (frame); | |
| 1199 return Qnil; | |
| 1200 } | |
| 1201 | |
| 1202 /* Called from Fselect_window() */ | |
| 1203 void | |
| 1204 select_frame_1 (Lisp_Object frame) | |
| 1205 { | |
| 1206 struct frame *f = XFRAME (frame); | |
| 1207 Lisp_Object old_selected_frame = Fselected_frame (Qnil); | |
| 1208 | |
| 1209 if (EQ (frame, old_selected_frame)) | |
| 1210 return; | |
| 1211 | |
| 1212 /* now select the frame's device */ | |
| 1213 set_device_selected_frame (XDEVICE (FRAME_DEVICE (f)), frame); | |
| 1214 select_device_1 (FRAME_DEVICE (f)); | |
| 1215 | |
| 1216 update_frame_window_mirror (f); | |
| 1217 } | |
| 1218 | |
| 1219 DEFUN ("select-frame", Fselect_frame, 1, 1, 0, /* | |
| 1220 Select the frame FRAME. | |
| 1221 Subsequent editing commands apply to its selected window. | |
| 1222 The selection of FRAME lasts until the next time the user does | |
| 1223 something to select a different frame, or until the next time this | |
| 1224 function is called. | |
| 1225 | |
| 1226 Note that this does not actually cause the window-system focus to be | |
| 1227 set to this frame, or the `select-frame-hook' or `deselect-frame-hook' | |
| 1228 to be run, until the next time that XEmacs is waiting for an event. | |
| 1229 | |
| 1230 Also note that when focus-follows-mouse is non-nil, the frame | |
| 1231 selection is temporary and is reverted when the current command | |
| 1232 terminates, much like the buffer selected by `set-buffer'. In order | |
| 1233 to effect a permanent focus change, use `focus-frame'. | |
| 1234 */ | |
| 1235 (frame)) | |
| 1236 { | |
| 1237 CHECK_LIVE_FRAME (frame); | |
| 1238 | |
| 1239 /* select the frame's selected window. This will call | |
| 1240 selected_frame_1(). */ | |
| 1241 Fselect_window (FRAME_SELECTED_WINDOW (XFRAME (frame)), Qnil); | |
| 1242 | |
| 1243 /* Nothing should be depending on the return value of this function. | |
| 1244 But, of course, there is stuff out there which is. */ | |
| 1245 return frame; | |
| 1246 } | |
| 1247 | |
| 1248 /* use this to retrieve the currently selected frame. You should use | |
| 1249 this in preference to Fselected_frame (Qnil) unless you are prepared | |
| 1250 to handle the possibility of there being no selected frame (this | |
| 1251 happens at some points during startup). */ | |
| 1252 | |
| 1253 struct frame * | |
| 1254 selected_frame (void) | |
| 1255 { | |
| 1256 Lisp_Object device = Fselected_device (Qnil); | |
| 1257 Lisp_Object frame = DEVICE_SELECTED_FRAME (XDEVICE (device)); | |
| 1258 if (NILP (frame)) | |
| 563 | 1259 gui_error ("No frames exist on device", device); |
| 428 | 1260 return XFRAME (frame); |
| 1261 } | |
| 1262 | |
| 1263 /* use this instead of XFRAME (DEVICE_SELECTED_FRAME (d)) to catch | |
| 1264 the possibility of there being no frames on the device (just created). | |
| 1265 There is no point doing this inside of redisplay because errors | |
| 2500 | 1266 cause an ABORT(), indicating a flaw in the logic, and error_check_frame() |
| 428 | 1267 will catch this just as well. */ |
| 1268 | |
| 1269 struct frame * | |
| 1270 device_selected_frame (struct device *d) | |
| 1271 { | |
| 1272 Lisp_Object frame = DEVICE_SELECTED_FRAME (d); | |
| 1273 if (NILP (frame)) | |
| 1274 { | |
| 793 | 1275 Lisp_Object device = wrap_device (d); |
| 1276 | |
| 563 | 1277 gui_error ("No frames exist on device", device); |
| 428 | 1278 } |
| 1279 return XFRAME (frame); | |
| 1280 } | |
| 1281 | |
| 1282 #if 0 /* FSFmacs */ | |
| 1283 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1284 /* Ben thinks there is no need for `redirect-frame-focus' or `frame-focus', |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1285 crockish FSFmacs functions. See summary on focus in event-stream.c. */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1286 |
| 826 | 1287 DEFUN ("handle-switch-frame", Fhandle_switch_frame, 1, 2, "e", /* |
| 428 | 1288 Handle a switch-frame event EVENT. |
| 1289 Switch-frame events are usually bound to this function. | |
| 1290 A switch-frame event tells Emacs that the window manager has requested | |
| 1291 that the user's events be directed to the frame mentioned in the event. | |
| 1292 This function selects the selected window of the frame of EVENT. | |
| 1293 | |
| 1294 If EVENT is frame object, handle it as if it were a switch-frame event | |
| 1295 to that frame. | |
| 1296 */ | |
| 1297 (frame, no_enter)) | |
| 1298 { | |
| 1299 /* Preserve prefix arg that the command loop just cleared. */ | |
| 1300 XCONSOLE (Vselected_console)->prefix_arg = Vcurrent_prefix_arg; | |
| 1301 #if 0 /* unclean! */ | |
| 1302 run_hook (Qmouse_leave_buffer_hook); | |
| 1303 #endif | |
| 1304 return do_switch_frame (frame, no_enter, 0); | |
| 1305 } | |
| 1306 | |
| 1307 /* A load of garbage. */ | |
| 826 | 1308 DEFUN ("ignore-event", Fignore_event, 0, 0, "", /* |
| 428 | 1309 Do nothing, but preserve any prefix argument already specified. |
| 1310 This is a suitable binding for iconify-frame and make-frame-visible. | |
| 1311 */ | |
| 1312 ()) | |
| 1313 { | |
| 1314 struct console *c = XCONSOLE (Vselected_console); | |
| 1315 | |
| 1316 c->prefix_arg = Vcurrent_prefix_arg; | |
| 1317 return Qnil; | |
| 1318 } | |
| 1319 | |
| 1320 #endif /* 0 */ | |
| 1321 | |
| 1322 DEFUN ("selected-frame", Fselected_frame, 0, 1, 0, /* | |
| 1323 Return the frame that is now selected on device DEVICE. | |
| 1324 If DEVICE is not specified, the selected device will be used. | |
| 1325 If no frames exist on the device, nil is returned. | |
| 1326 */ | |
| 1327 (device)) | |
| 1328 { | |
| 1329 if (NILP (device) && NILP (Fselected_device (Qnil))) | |
| 1330 return Qnil; /* happens early in temacs */ | |
| 1331 return DEVICE_SELECTED_FRAME (decode_device (device)); | |
| 1332 } | |
| 1333 | |
| 1334 Lisp_Object | |
| 1335 frame_first_window (struct frame *f) | |
| 1336 { | |
| 1337 Lisp_Object w = f->root_window; | |
| 1338 | |
| 1339 while (1) | |
| 1340 { | |
| 1341 if (! NILP (XWINDOW (w)->hchild)) | |
| 1342 w = XWINDOW (w)->hchild; | |
| 1343 else if (! NILP (XWINDOW (w)->vchild)) | |
| 1344 w = XWINDOW (w)->vchild; | |
| 1345 else | |
| 1346 break; | |
| 1347 } | |
| 1348 | |
| 1349 return w; | |
| 1350 } | |
| 1351 | |
| 1352 DEFUN ("active-minibuffer-window", Factive_minibuffer_window, 0, 0, 0, /* | |
| 1353 Return the currently active minibuffer window, or nil if none. | |
| 1354 */ | |
| 1355 ()) | |
| 1356 { | |
| 1357 return minibuf_level ? minibuf_window : Qnil; | |
| 1358 } | |
| 1359 | |
| 1360 DEFUN ("last-nonminibuf-frame", Flast_nonminibuf_frame, 0, 1, 0, /* | |
| 1361 Return the most-recently-selected non-minibuffer-only frame on CONSOLE. | |
| 1362 This will always be the same as (selected-frame device) unless the | |
| 1363 selected frame is a minibuffer-only frame. | |
| 1364 CONSOLE defaults to the selected console if omitted. | |
| 1365 */ | |
| 1366 (console)) | |
| 1367 { | |
| 1368 Lisp_Object result; | |
| 1369 | |
| 793 | 1370 console = wrap_console (decode_console (console)); |
| 428 | 1371 /* Just in case the machinations in delete_frame_internal() resulted |
| 1372 in the last-nonminibuf-frame getting out of sync, make sure and | |
| 1373 return the selected frame if it's acceptable. */ | |
| 1374 result = Fselected_frame (CONSOLE_SELECTED_DEVICE (XCONSOLE (console))); | |
| 1375 if (!NILP (result) && !FRAME_MINIBUF_ONLY_P (XFRAME (result))) | |
| 1376 return result; | |
| 1377 return CONSOLE_LAST_NONMINIBUF_FRAME (XCONSOLE (console)); | |
| 1378 } | |
| 1379 | |
| 1380 DEFUN ("frame-root-window", Fframe_root_window, 0, 1, 0, /* | |
| 1381 Return the root-window of FRAME. | |
| 1382 If omitted, FRAME defaults to the currently selected frame. | |
| 1383 */ | |
| 1384 (frame)) | |
| 1385 { | |
| 1386 struct frame *f = decode_frame (frame); | |
| 1387 return FRAME_ROOT_WINDOW (f); | |
| 1388 } | |
| 1389 | |
| 1390 DEFUN ("frame-selected-window", Fframe_selected_window, 0, 1, 0, /* | |
| 1391 Return the selected window of frame object FRAME. | |
| 1392 If omitted, FRAME defaults to the currently selected frame. | |
| 1393 */ | |
| 1394 (frame)) | |
| 1395 { | |
| 1396 struct frame *f = decode_frame (frame); | |
| 1397 return FRAME_SELECTED_WINDOW (f); | |
| 1398 } | |
| 1399 | |
| 1400 void | |
| 1401 set_frame_selected_window (struct frame *f, Lisp_Object window) | |
| 1402 { | |
| 1403 assert (XFRAME (WINDOW_FRAME (XWINDOW (window))) == f); | |
| 1404 f->selected_window = window; | |
| 1405 if (!MINI_WINDOW_P (XWINDOW (window)) || FRAME_MINIBUF_ONLY_P (f)) | |
| 1406 { | |
| 1407 if (!EQ (f->last_nonminibuf_window, window)) | |
| 1408 { | |
| 442 | 1409 #ifdef HAVE_TOOLBARS |
| 428 | 1410 MARK_TOOLBAR_CHANGED; |
| 442 | 1411 #endif |
| 428 | 1412 MARK_GUTTER_CHANGED; |
| 1413 } | |
| 1414 f->last_nonminibuf_window = window; | |
| 1415 } | |
| 1416 } | |
| 1417 | |
| 1418 DEFUN ("set-frame-selected-window", Fset_frame_selected_window, 2, 2, 0, /* | |
| 460 | 1419 Set the selected window of FRAME to WINDOW. |
| 428 | 1420 If FRAME is nil, the selected frame is used. |
| 1421 If FRAME is the selected frame, this makes WINDOW the selected window. | |
| 1422 */ | |
| 1423 (frame, window)) | |
| 1424 { | |
| 793 | 1425 frame = wrap_frame (decode_frame (frame)); |
| 428 | 1426 CHECK_LIVE_WINDOW (window); |
| 1427 | |
| 1428 if (! EQ (frame, WINDOW_FRAME (XWINDOW (window)))) | |
| 563 | 1429 invalid_argument ("In `set-frame-selected-window', WINDOW is not on FRAME", Qunbound); |
| 428 | 1430 |
| 1431 if (XFRAME (frame) == selected_frame ()) | |
| 1432 return Fselect_window (window, Qnil); | |
| 1433 | |
| 1434 set_frame_selected_window (XFRAME (frame), window); | |
| 1435 return window; | |
| 1436 } | |
| 1437 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1438 DEFUN ("disable-frame", Fdisable_frame, 1, 1, 0, /* |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1439 Disable frame FRAME, so that it cannot have the focus or receive user input. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1440 This is normally used during modal dialog boxes. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1441 WARNING: Be very careful not to wedge XEmacs! |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1442 Use an `unwind-protect' that re-enables the frame to avoid this. |
| 428 | 1443 */ |
| 1444 (frame)) | |
| 1445 { | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1446 struct frame *f = decode_frame (frame); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1447 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1448 f->disabled = 1; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1449 MAYBE_FRAMEMETH (f, disable_frame, (f)); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1450 return Qnil; |
| 428 | 1451 } |
| 1452 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1453 DEFUN ("enable-frame", Fenable_frame, 1, 1, 0, /* |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1454 Enable frame FRAME, so that it can have the focus and receive user input. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1455 Frames are normally enabled, unless explicitly disabled using `disable-frame'. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1456 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1457 (frame)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1458 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1459 struct frame *f = decode_frame (frame); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1460 f->disabled = 0; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1461 MAYBE_FRAMEMETH (f, enable_frame, (f)); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1462 return Qnil; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1463 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1464 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1465 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1466 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1467 /* traversing the list of frames */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1468 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1469 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1470 |
| 428 | 1471 int |
| 1472 is_surrogate_for_selected_frame (struct frame *f) | |
| 1473 { | |
| 1474 struct device *d = XDEVICE (f->device); | |
| 1475 struct frame *dsf = device_selected_frame (d); | |
| 1476 | |
| 1477 /* Can't be a surrogate for ourselves. */ | |
| 1478 if (f == dsf) | |
| 1479 return 0; | |
| 1480 | |
| 1481 if (!FRAME_HAS_MINIBUF_P (dsf) && | |
| 1482 f == XFRAME (WINDOW_FRAME (XWINDOW (FRAME_MINIBUF_WINDOW (dsf))))) | |
| 1483 return 1; | |
| 1484 else | |
| 1485 return 0; | |
| 1486 } | |
| 1487 | |
| 1488 static int | |
| 444 | 1489 frame_matches_frame_spec (Lisp_Object frame, Lisp_Object type) |
| 428 | 1490 { |
| 1491 struct frame *f = XFRAME (frame); | |
| 1492 | |
| 1493 if (WINDOWP (type)) | |
| 1494 { | |
| 1495 CHECK_LIVE_WINDOW (type); | |
| 1496 | |
| 1497 if (EQ (FRAME_MINIBUF_WINDOW (f), type) | |
| 1498 /* Check that F either is, or has forwarded | |
| 1499 its focus to, TYPE's frame. */ | |
| 1500 && (EQ (WINDOW_FRAME (XWINDOW (type)), frame) | |
| 1501 || EQ (WINDOW_FRAME (XWINDOW (type)), | |
| 1502 FRAME_FOCUS_FRAME (f)))) | |
| 1503 return 1; | |
| 1504 else | |
| 1505 return 0; | |
| 1506 } | |
| 1507 | |
| 1508 #if 0 /* FSFmacs */ | |
| 1509 if (EQ (type, Qvisible) || EQ (type, Qiconic) || EQ (type, Qvisible_iconic) | |
| 1510 || EQ (type, Qvisible_nomini) || EQ (type, Qiconic_nomini) | |
| 1511 || EQ (type, Qvisible_iconic_nomini)) | |
| 1512 FRAME_SAMPLE_VISIBILITY (f); | |
| 1513 #endif | |
| 1514 | |
| 1515 if (NILP (type)) | |
| 1516 type = Qnomini; | |
| 1517 if (ZEROP (type)) | |
| 1518 type = Qvisible_iconic; | |
| 1519 | |
| 1520 if (EQ (type, Qvisible)) | |
| 1521 return FRAME_VISIBLE_P (f); | |
| 1522 if (EQ (type, Qiconic)) | |
| 1523 return FRAME_ICONIFIED_P (f); | |
| 1524 if (EQ (type, Qinvisible)) | |
| 1525 return !FRAME_VISIBLE_P (f) && !FRAME_ICONIFIED_P (f); | |
| 1526 if (EQ (type, Qvisible_iconic)) | |
| 1527 return FRAME_VISIBLE_P (f) || FRAME_ICONIFIED_P (f); | |
| 1528 if (EQ (type, Qinvisible_iconic)) | |
| 1529 return !FRAME_VISIBLE_P (f); | |
| 1530 | |
| 1531 if (EQ (type, Qnomini)) | |
| 1532 return !FRAME_MINIBUF_ONLY_P (f); | |
| 1533 if (EQ (type, Qvisible_nomini)) | |
| 1534 return FRAME_VISIBLE_P (f) && !FRAME_MINIBUF_ONLY_P (f); | |
| 1535 if (EQ (type, Qiconic_nomini)) | |
| 1536 return FRAME_ICONIFIED_P (f) && !FRAME_MINIBUF_ONLY_P (f); | |
| 1537 if (EQ (type, Qinvisible_nomini)) | |
| 1538 return !FRAME_VISIBLE_P (f) && !FRAME_ICONIFIED_P (f) && | |
| 1539 !FRAME_MINIBUF_ONLY_P (f); | |
| 1540 if (EQ (type, Qvisible_iconic_nomini)) | |
| 1541 return ((FRAME_VISIBLE_P (f) || FRAME_ICONIFIED_P (f)) | |
| 1542 && !FRAME_MINIBUF_ONLY_P (f)); | |
| 1543 if (EQ (type, Qinvisible_iconic_nomini)) | |
| 1544 return !FRAME_VISIBLE_P (f) && !FRAME_MINIBUF_ONLY_P (f); | |
| 1545 | |
| 1546 return 1; | |
| 1547 } | |
| 1548 | |
| 1549 int | |
| 444 | 1550 device_matches_device_spec (Lisp_Object device, Lisp_Object device_spec) |
| 428 | 1551 { |
| 444 | 1552 if (EQ (device_spec, Qwindow_system)) |
| 428 | 1553 return DEVICE_WIN_P (XDEVICE (device)); |
| 444 | 1554 if (DEVICEP (device_spec)) |
| 1555 return EQ (device, device_spec); | |
| 1556 if (CONSOLEP (device_spec)) | |
| 1557 return EQ (DEVICE_CONSOLE (XDEVICE (device)), device_spec); | |
| 1558 if (valid_console_type_p (device_spec)) | |
| 1559 return EQ (DEVICE_TYPE (XDEVICE (device)), device_spec); | |
| 428 | 1560 return 1; |
| 1561 } | |
| 1562 | |
| 1563 /* Return the next frame in the frame list after FRAME. | |
| 444 | 1564 WHICH-FRAMES and WHICH-DEVICES control which frames and devices |
| 428 | 1565 are considered; see `next-frame'. */ |
| 1566 | |
| 1567 Lisp_Object | |
| 444 | 1568 next_frame (Lisp_Object frame, Lisp_Object which_frames, Lisp_Object which_devices) |
| 428 | 1569 { |
| 442 | 1570 Lisp_Object first = Qnil; |
| 1571 Lisp_Object devcons, concons; | |
| 1572 int passed = 0; | |
| 1573 | |
| 1574 CHECK_LIVE_FRAME (frame); | |
| 1575 | |
| 1576 DEVICE_LOOP_NO_BREAK (devcons, concons) | |
| 1577 { | |
| 1578 Lisp_Object device = XCAR (devcons); | |
| 1579 Lisp_Object frmcons; | |
| 1580 | |
| 444 | 1581 if (!device_matches_device_spec (device, which_devices)) |
| 442 | 1582 { |
| 1583 if (EQ (device, FRAME_DEVICE (XFRAME (frame)))) | |
| 1584 passed = 1; | |
| 1585 continue; | |
| 1586 } | |
| 1587 | |
| 1588 DEVICE_FRAME_LOOP (frmcons, XDEVICE (device)) | |
| 1589 { | |
| 1590 Lisp_Object f = XCAR (frmcons); | |
| 1591 | |
| 1592 if (passed) | |
| 1593 { | |
| 444 | 1594 if (frame_matches_frame_spec (f, which_frames)) |
| 442 | 1595 return f; |
| 1596 } | |
| 1597 else | |
| 1598 { | |
| 1599 if (EQ (frame, f)) | |
| 1600 { | |
| 1601 passed = 1; | |
| 1602 } | |
| 1603 else | |
| 1604 { | |
| 444 | 1605 if (NILP (first) && frame_matches_frame_spec (f, which_frames)) |
| 442 | 1606 first = f; |
| 1607 } | |
| 1608 } | |
| 1609 } | |
| 1610 } | |
| 1611 | |
| 1612 if (NILP (first)) | |
| 1613 /* We went through the whole frame list without finding a single | |
| 1614 acceptable frame. Return the original frame. */ | |
| 1615 return frame; | |
| 1616 else | |
| 1617 /* There were no acceptable frames in the list after FRAME; otherwise, | |
| 1618 we would have returned directly from the loop. Since FIRST is the last | |
| 1619 acceptable frame in the list, return it. */ | |
| 1620 return first; | |
| 428 | 1621 } |
| 1622 | |
| 1623 /* Return the previous frame in the frame list before FRAME. | |
| 444 | 1624 WHICH-FRAMES and WHICH-DEVICES control which frames and devices |
| 428 | 1625 are considered; see `next-frame'. */ |
| 1626 | |
| 1627 Lisp_Object | |
| 444 | 1628 previous_frame (Lisp_Object frame, Lisp_Object which_frames, Lisp_Object which_devices) |
| 428 | 1629 { |
| 1630 Lisp_Object devcons, concons; | |
| 442 | 1631 Lisp_Object last = Qnil; |
| 1632 | |
| 428 | 1633 CHECK_LIVE_FRAME (frame); |
| 1634 | |
| 1635 DEVICE_LOOP_NO_BREAK (devcons, concons) | |
| 1636 { | |
| 1637 Lisp_Object device = XCAR (devcons); | |
| 1638 Lisp_Object frmcons; | |
| 1639 | |
| 444 | 1640 if (!device_matches_device_spec (device, which_devices)) |
| 442 | 1641 { |
| 1642 if (EQ (device, FRAME_DEVICE (XFRAME (frame))) | |
| 1643 && !NILP (last)) | |
| 1644 return last; | |
| 1645 continue; | |
| 1646 } | |
| 428 | 1647 |
| 1648 DEVICE_FRAME_LOOP (frmcons, XDEVICE (device)) | |
| 1649 { | |
| 1650 Lisp_Object f = XCAR (frmcons); | |
| 1651 | |
| 442 | 1652 if (EQ (frame, f)) |
| 1653 { | |
| 1654 if (!NILP (last)) | |
| 1655 return last; | |
| 1656 } | |
| 1657 else | |
| 1658 { | |
| 444 | 1659 if (frame_matches_frame_spec (f, which_frames)) |
| 442 | 1660 last = f; |
| 1661 } | |
| 428 | 1662 } |
| 1663 } | |
| 1664 | |
| 442 | 1665 if (NILP (last)) |
| 428 | 1666 /* We went through the whole frame list without finding a single |
| 1667 acceptable frame. Return the original frame. */ | |
| 1668 return frame; | |
| 1669 else | |
| 1670 /* There were no acceptable frames in the list before FRAME; otherwise, | |
| 442 | 1671 we would have returned directly from the loop. Since LAST is the last |
| 428 | 1672 acceptable frame in the list, return it. */ |
| 442 | 1673 return last; |
| 428 | 1674 } |
| 1675 | |
| 1676 DEFUN ("next-frame", Fnext_frame, 0, 3, 0, /* | |
| 1677 Return the next frame of the right type in the frame list after FRAME. | |
| 444 | 1678 WHICH-FRAMES controls which frames are eligible to be returned; all |
| 428 | 1679 others will be skipped. Note that if there is only one eligible |
| 1680 frame, then `next-frame' called repeatedly will always return | |
| 1681 the same frame, and if there is no eligible frame, then FRAME is | |
| 1682 returned. | |
| 1683 | |
| 444 | 1684 Possible values for WHICH-FRAMES are |
| 428 | 1685 |
| 3025 | 1686 `visible' Consider only frames that are visible. |
| 1687 `iconic' Consider only frames that are iconic. | |
| 1688 `invisible' Consider only frames that are invisible | |
| 4207 | 1689 (this is different from iconic). |
| 3025 | 1690 `visible-iconic' Consider frames that are visible or iconic. |
| 1691 `invisible-iconic' Consider frames that are invisible or iconic. | |
| 1692 `nomini' Consider all frames except minibuffer-only ones. | |
| 1693 `visible-nomini' Like `visible' but omits minibuffer-only frames. | |
| 1694 `iconic-nomini' Like `iconic' but omits minibuffer-only frames. | |
| 1695 `invisible-nomini' Like `invisible' but omits minibuffer-only frames. | |
| 1696 `visible-iconic-nomini' Like `visible-iconic' but omits minibuffer-only | |
| 4207 | 1697 frames. |
| 3025 | 1698 `invisible-iconic-nomini' Like `invisible-iconic' but omits minibuffer-only |
| 4207 | 1699 frames. |
| 3025 | 1700 any other value Consider all frames. |
| 1701 | |
| 1702 If WHICH-FRAMES is omitted, `nomini' is used. A value for WHICH-FRAMES | |
| 1703 of 0 (a number) is treated like `iconic', for backwards compatibility. | |
| 444 | 1704 |
| 1705 If WHICH-FRAMES is a window, include only its own frame and any frame | |
| 1706 now using that window as the minibuffer. | |
| 1707 | |
| 1708 The optional third argument WHICH-DEVICES further clarifies on which | |
| 1709 devices to search for frames as specified by WHICH-FRAMES. | |
| 1710 If nil or omitted, search all devices on FRAME's console. | |
| 1711 If a device, only search that device. | |
| 1712 If a console, search all devices on that console. | |
| 1713 If a device type, search all devices of that type. | |
| 1714 If `window-system', search all window-system devices. | |
| 1715 Any other non-nil value means search all devices. | |
| 428 | 1716 */ |
| 444 | 1717 (frame, which_frames, which_devices)) |
| 428 | 1718 { |
| 793 | 1719 frame = wrap_frame (decode_frame (frame)); |
| 428 | 1720 |
| 444 | 1721 return next_frame (frame, which_frames, which_devices); |
| 428 | 1722 } |
| 1723 | |
| 1724 DEFUN ("previous-frame", Fprevious_frame, 0, 3, 0, /* | |
| 1725 Return the next frame of the right type in the frame list after FRAME. | |
| 444 | 1726 WHICH-FRAMES controls which frames are eligible to be returned; all |
| 428 | 1727 others will be skipped. Note that if there is only one eligible |
| 1728 frame, then `previous-frame' called repeatedly will always return | |
| 1729 the same frame, and if there is no eligible frame, then FRAME is | |
| 1730 returned. | |
| 1731 | |
| 444 | 1732 See `next-frame' for an explanation of the WHICH-FRAMES and WHICH-DEVICES |
| 428 | 1733 arguments. |
| 1734 */ | |
| 444 | 1735 (frame, which_frames, which_devices)) |
| 428 | 1736 { |
| 793 | 1737 frame = wrap_frame (decode_frame (frame)); |
| 428 | 1738 |
| 444 | 1739 return previous_frame (frame, which_frames, which_devices); |
| 428 | 1740 } |
| 1741 | |
| 1742 /* Return any frame for which PREDICATE is non-zero, or return Qnil | |
| 1743 if there aren't any. */ | |
| 1744 | |
| 1745 Lisp_Object | |
| 1746 find_some_frame (int (*predicate) (Lisp_Object, void *), | |
| 1747 void *closure) | |
| 1748 { | |
| 1749 Lisp_Object framecons, devcons, concons; | |
| 1750 | |
| 1751 FRAME_LOOP_NO_BREAK (framecons, devcons, concons) | |
| 1752 { | |
| 1753 Lisp_Object frame = XCAR (framecons); | |
| 1754 | |
| 1755 if ((predicate) (frame, closure)) | |
| 1756 return frame; | |
| 1757 } | |
| 1758 | |
| 1759 return Qnil; | |
| 1760 } | |
| 1761 | |
| 1762 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1763 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1764 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1765 /* frame deletion */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1766 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
1767 /**************************************************************************/ |
| 428 | 1768 |
| 1769 /* extern void free_line_insertion_deletion_costs (struct frame *f); */ | |
| 1770 | |
| 1771 /* Return 1 if it is ok to delete frame F; | |
| 1772 0 if all frames aside from F are invisible. | |
| 1773 (Exception: if F is a stream frame, it's OK to delete if | |
| 1774 any other frames exist.) */ | |
| 1775 | |
| 442 | 1776 int |
| 1777 other_visible_frames (struct frame *f) | |
| 428 | 1778 { |
| 793 | 1779 Lisp_Object frame = wrap_frame (f); |
| 1780 | |
| 428 | 1781 if (FRAME_STREAM_P (f)) |
| 442 | 1782 return !EQ (frame, next_frame (frame, Qt, Qt)); |
| 1783 return !EQ (frame, next_frame (frame, Qvisible_iconic_nomini, Qt)); | |
| 428 | 1784 } |
| 1785 | |
| 1786 /* Delete frame F. | |
| 1787 | |
| 1788 If FORCE is non-zero, allow deletion of the only frame. | |
| 1789 | |
| 1790 If CALLED_FROM_DELETE_DEVICE is non-zero, then, if | |
| 1791 deleting the last frame on a device, just delete it, | |
| 1792 instead of calling `delete-device'. | |
| 1793 | |
| 1794 If FROM_IO_ERROR is non-zero, then the frame is gone due | |
| 1795 to an I/O error. This affects what happens if we exit | |
| 1796 (we do an emergency exit instead of `save-buffers-kill-emacs'.) | |
| 1797 */ | |
| 1798 | |
| 1799 void | |
| 1800 delete_frame_internal (struct frame *f, int force, | |
| 1801 int called_from_delete_device, | |
| 1802 int from_io_error) | |
| 1803 { | |
| 1804 /* This function can GC */ | |
| 1805 int minibuffer_selected; | |
| 1806 struct device *d; | |
| 1807 struct console *con; | |
| 1808 Lisp_Object frame; | |
| 1809 Lisp_Object device; | |
| 1810 Lisp_Object console; | |
| 1811 struct gcpro gcpro1; | |
| 1313 | 1812 int depth; |
| 428 | 1813 |
| 1814 /* OK to delete an already deleted frame. */ | |
| 853 | 1815 if (!FRAME_LIVE_P (f)) |
| 428 | 1816 return; |
| 1817 | |
| 793 | 1818 frame = wrap_frame (f); |
| 853 | 1819 |
| 1820 if (!force) | |
| 1821 check_allowed_operation (OPERATION_DELETE_OBJECT, frame, Qnil); | |
| 1822 | |
| 428 | 1823 GCPRO1 (frame); |
| 1824 | |
| 1825 device = FRAME_DEVICE (f); | |
| 1826 d = XDEVICE (device); | |
| 1827 console = DEVICE_CONSOLE (d); | |
| 1828 con = XCONSOLE (console); | |
| 1829 | |
| 545 | 1830 if (!called_from_delete_device |
| 1831 && !DEVICE_IMPL_FLAG (d, XDEVIMPF_FRAMELESS_OK)) | |
| 428 | 1832 { |
| 1833 /* If we're deleting the only non-minibuffer frame on the | |
| 1834 device, delete the device. */ | |
| 1835 if (EQ (frame, next_frame (frame, Qnomini, FRAME_DEVICE (f)))) | |
| 1836 { | |
| 1837 delete_device_internal (d, force, 0, from_io_error); | |
| 1838 UNGCPRO; | |
| 1839 return; | |
| 1840 } | |
| 1841 } | |
| 1842 | |
| 1843 /* In FSF, delete-frame will not normally allow you to delete the | |
| 1844 last visible frame. This was too annoying, so we changed it to the | |
| 1845 only frame. However, this would let people shoot themselves by | |
| 1846 deleting all frames which were either visible or iconified and thus | |
| 1847 losing any way of communicating with the still running XEmacs process. | |
| 1848 So we put it back. */ | |
| 1849 if (!force && !allow_deletion_of_last_visible_frame && | |
| 442 | 1850 !other_visible_frames (f)) |
| 563 | 1851 invalid_operation ("Attempt to delete the sole visible or iconified frame", Qunbound); |
| 428 | 1852 |
| 1853 /* Does this frame have a minibuffer, and is it the surrogate | |
| 1854 minibuffer for any other frame? */ | |
| 1855 if (FRAME_HAS_MINIBUF_P (f)) | |
| 1856 { | |
| 1857 Lisp_Object frmcons, devcons, concons; | |
| 1858 | |
| 1859 FRAME_LOOP_NO_BREAK (frmcons, devcons, concons) | |
| 1860 { | |
| 2552 | 1861 Lisp_Object this_frame = XCAR (frmcons); |
| 1862 | |
| 1863 if (! EQ (this_frame, frame) | |
| 428 | 1864 && EQ (frame, (WINDOW_FRAME |
| 1865 (XWINDOW | |
| 2552 | 1866 (FRAME_MINIBUF_WINDOW (XFRAME (this_frame))))))) |
| 428 | 1867 { |
| 1868 /* We've found another frame whose minibuffer is on | |
| 1869 this frame. */ | |
| 563 | 1870 gui_error |
| 428 | 1871 ("Attempt to delete a surrogate minibuffer frame", frame); |
| 1872 } | |
| 1873 } | |
| 1874 } | |
| 1875 | |
| 1876 /* Test for popup frames hanging around. */ | |
| 1877 /* Deletion of a parent frame with popups is deadly. */ | |
| 1878 { | |
| 1879 Lisp_Object frmcons, devcons, concons; | |
| 1880 | |
| 1881 FRAME_LOOP_NO_BREAK (frmcons, devcons, concons) | |
| 1882 { | |
| 2552 | 1883 Lisp_Object this_frame = XCAR (frmcons); |
| 1884 | |
| 1885 | |
| 1886 if (! EQ (this_frame, frame)) | |
| 428 | 1887 { |
| 1888 struct device *devcons_d = XDEVICE (XCAR (devcons)); | |
| 1889 if (EQ (frame, DEVMETH_OR_GIVEN (devcons_d, get_frame_parent, | |
| 2552 | 1890 (XFRAME (this_frame)), |
| 428 | 1891 Qnil))) |
| 1892 /* We've found a popup frame whose parent is this frame. */ | |
| 563 | 1893 gui_error |
| 428 | 1894 ("Attempt to delete a frame with live popups", frame); |
| 1895 } | |
| 1896 } | |
| 1897 } | |
| 1898 | |
| 1899 /* Before here, we haven't made any dangerous changes (just checked for | |
| 1900 error conditions). Now run the delete-frame-hook. Remember that | |
| 1901 user code there could do any number of dangerous things, including | |
| 1902 signalling an error. */ | |
| 1903 | |
| 1904 va_run_hook_with_args (Qdelete_frame_hook, 1, frame); | |
| 1905 | |
| 1906 if (!FRAME_LIVE_P (f)) /* Make sure the delete-frame-hook didn't */ | |
| 1907 { /* go ahead and delete anything. */ | |
| 1908 UNGCPRO; | |
| 1909 return; | |
| 1910 } | |
| 1911 | |
| 1912 /* Call the delete-device-hook and delete-console-hook now if | |
| 1913 appropriate, before we do any dangerous things -- they too could | |
| 1914 signal an error. */ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
1915 if (XFIXNUM (Flength (DEVICE_FRAME_LIST (d))) == 1) |
| 428 | 1916 { |
| 1917 va_run_hook_with_args (Qdelete_device_hook, 1, device); | |
| 1918 if (!FRAME_LIVE_P (f)) /* Make sure the delete-device-hook didn't */ | |
| 1919 { /* go ahead and delete anything. */ | |
| 1920 UNGCPRO; | |
| 1921 return; | |
| 1922 } | |
| 1923 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
1924 if (XFIXNUM (Flength (CONSOLE_DEVICE_LIST (con))) == 1) |
| 428 | 1925 { |
| 1926 va_run_hook_with_args (Qdelete_console_hook, 1, console); | |
| 1927 if (!FRAME_LIVE_P (f)) /* Make sure the delete-console-hook didn't */ | |
| 1928 { /* go ahead and delete anything. */ | |
| 1929 UNGCPRO; | |
| 1930 return; | |
| 1931 } | |
| 1932 } | |
| 1933 } | |
| 1934 | |
| 1935 minibuffer_selected = EQ (minibuf_window, Fselected_window (Qnil)); | |
| 1936 | |
| 1937 /* If we were focused on this frame, then we're not any more. | |
| 1938 Assume that we lost the focus; that way, the call to | |
| 1939 Fselect_frame() below won't end up making us explicitly | |
| 1940 focus on another frame, which is generally undesirable in | |
| 1941 a point-to-type world. If our mouse ends up sitting over | |
| 1942 another frame, we will receive a FocusIn event and end up | |
| 1943 making that frame the selected frame. | |
| 1944 | |
| 1945 #### This may not be an ideal solution in a click-to-type | |
| 1946 world (in that case, we might want to explicitly choose | |
| 1947 another frame to have the focus, rather than relying on | |
| 1948 the WM, which might focus on a frame in a different app | |
| 1949 or focus on nothing at all). But there's no easy way | |
| 1950 to detect which focus model we're running on, and the | |
| 1951 alternative is more heinous. */ | |
| 1952 | |
| 1953 if (EQ (frame, DEVICE_FRAME_WITH_FOCUS_REAL (d))) | |
| 1954 DEVICE_FRAME_WITH_FOCUS_REAL (d) = Qnil; | |
| 1955 if (EQ (frame, DEVICE_FRAME_WITH_FOCUS_FOR_HOOKS (d))) | |
| 1956 DEVICE_FRAME_WITH_FOCUS_FOR_HOOKS (d) = Qnil; | |
| 1957 if (EQ (frame, DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS (d))) | |
| 1958 DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS (d) = Qnil; | |
| 1959 | |
| 1960 /* Don't allow the deleted frame to remain selected. | |
| 1961 Note that in the former scheme of things, this would | |
| 1962 have caused us to regain the focus. This no longer | |
| 1963 applies (see above); I think the new behavior is more | |
| 1964 logical. If someone disagrees, it can always be | |
| 1965 changed (or a new user variable can be introduced, ugh.) */ | |
| 1966 if (EQ (frame, DEVICE_SELECTED_FRAME (d))) | |
| 1967 { | |
| 1968 Lisp_Object next; | |
| 1969 | |
| 1970 /* If this is a popup frame, select its parent if possible. | |
| 1971 Otherwise, find another visible frame; if none, just take any frame. | |
| 4207 | 1972 First try the same device, then the same console. */ |
| 428 | 1973 |
| 1974 next = DEVMETH_OR_GIVEN (d, get_frame_parent, (f), Qnil); | |
| 1975 if (NILP (next) || EQ (next, frame) || ! FRAME_LIVE_P (XFRAME (next))) | |
| 442 | 1976 next = next_frame (frame, Qvisible, device); |
| 428 | 1977 if (NILP (next) || EQ (next, frame)) |
| 442 | 1978 next = next_frame (frame, Qvisible, console); |
| 1979 if (NILP (next) || EQ (next, frame)) | |
| 1980 next = next_frame (frame, Qvisible, Qt); | |
| 428 | 1981 if (NILP (next) || EQ (next, frame)) |
| 442 | 1982 next = next_frame (frame, Qt, device); |
| 428 | 1983 if (NILP (next) || EQ (next, frame)) |
| 442 | 1984 next = next_frame (frame, Qt, console); |
| 428 | 1985 if (NILP (next) || EQ (next, frame)) |
| 442 | 1986 next = next_frame (frame, Qt, Qt); |
| 428 | 1987 |
| 1988 /* if we haven't found another frame at this point | |
| 1989 then there aren't any. */ | |
| 1990 if (NILP (next) || EQ (next, frame)) | |
| 1991 ; | |
| 1992 else | |
| 1993 { | |
| 1994 int did_select = 0; | |
| 1995 /* if this is the global selected frame, select another one. */ | |
| 1996 if (EQ (frame, Fselected_frame (Qnil))) | |
| 1997 { | |
| 1998 Fselect_frame (next); | |
| 1999 did_select = 1; | |
| 2000 } | |
| 2001 /* | |
| 2002 * If the new frame we just selected is on a different | |
| 2003 * device then we still need to change DEVICE_SELECTED_FRAME(d) | |
| 2004 * to a live frame, if there are any left on this device. | |
| 2005 */ | |
| 2006 if (!EQ (device, FRAME_DEVICE(XFRAME(next)))) | |
| 2007 { | |
| 442 | 2008 Lisp_Object next_f = next_frame (frame, Qt, device); |
| 428 | 2009 if (NILP (next_f) || EQ (next_f, frame)) |
| 440 | 2010 set_device_selected_frame (d, Qnil); |
| 428 | 2011 else |
| 2012 set_device_selected_frame (d, next_f); | |
| 2013 } | |
| 2014 else if (! did_select) | |
| 2015 set_device_selected_frame (d, next); | |
| 2016 | |
| 2017 } | |
| 2018 } | |
| 2019 | |
| 2020 /* Don't allow minibuf_window to remain on a deleted frame. */ | |
| 2021 if (EQ (f->minibuffer_window, minibuf_window)) | |
| 2022 { | |
| 2023 struct frame *sel_frame = selected_frame (); | |
| 2024 Fset_window_buffer (sel_frame->minibuffer_window, | |
| 440 | 2025 XWINDOW (minibuf_window)->buffer, Qt); |
| 428 | 2026 minibuf_window = sel_frame->minibuffer_window; |
| 2027 | |
| 2028 /* If the dying minibuffer window was selected, | |
| 2029 select the new one. */ | |
| 2030 if (minibuffer_selected) | |
| 2031 Fselect_window (minibuf_window, Qnil); | |
| 2032 } | |
| 2033 | |
| 2034 /* After this point, no errors must be allowed to occur. */ | |
| 2035 | |
| 1313 | 2036 /* Checking for QUIT can run all sorts of weird code and may be deadly |
| 2037 so don't let it happen. */ | |
| 2038 depth = begin_dont_check_for_quit (); | |
| 2039 | |
| 428 | 2040 #ifdef HAVE_MENUBARS |
| 2041 free_frame_menubars (f); | |
| 2042 #endif | |
| 2043 #ifdef HAVE_SCROLLBARS | |
| 2044 free_frame_scrollbars (f); | |
| 2045 #endif | |
| 2046 #ifdef HAVE_TOOLBARS | |
| 2047 free_frame_toolbars (f); | |
| 2048 #endif | |
| 2049 free_frame_gutters (f); | |
| 442 | 2050 /* Unfortunately deleting the frame will also delete the parent of |
| 2051 all of the subwindow instances current on the frame. I think this | |
| 2052 can lead to bad things when trying to finalize the | |
| 2053 instances. Thus we loop over all instance caches calling the | |
| 2054 finalize method for each instance. */ | |
| 2055 free_frame_subwindow_instances (f); | |
| 428 | 2056 |
| 2057 /* This must be done before the window and window_mirror structures | |
| 2058 are freed. The scrollbar information is attached to them. */ | |
| 2059 MAYBE_FRAMEMETH (f, delete_frame, (f)); | |
| 2060 | |
| 2061 /* Mark all the windows that used to be on FRAME as deleted, and then | |
| 2062 remove the reference to them. */ | |
| 2063 delete_all_subwindows (XWINDOW (f->root_window)); | |
| 2064 f->root_window = Qnil; | |
| 2065 | |
| 2066 /* clear out the cached glyph information */ | |
| 442 | 2067 f->subwindow_instance_cache = Qnil; |
| 428 | 2068 |
| 2069 /* Remove the frame now from the list. This way, any events generated | |
| 2070 on this frame by the maneuvers below will disperse themselves. */ | |
| 2071 | |
| 2072 /* This used to be Fdelq(), but that will cause a seg fault if the | |
| 2073 QUIT checker happens to get invoked, because the frame list is in | |
| 2074 an inconsistent state. */ | |
| 2075 d->frame_list = delq_no_quit (frame, d->frame_list); | |
| 2076 RESET_CHANGED_SET_FLAGS; | |
| 2077 | |
| 2078 f->visible = 0; | |
| 2079 | |
| 617 | 2080 free_window_mirror (XWINDOW_MIRROR (f->root_mirror)); |
| 853 | 2081 |
| 428 | 2082 /* free_line_insertion_deletion_costs (f); */ |
| 2083 | |
| 2084 /* If we've deleted the last non-minibuf frame, then try to find | |
| 2085 another one. */ | |
| 2086 if (EQ (frame, CONSOLE_LAST_NONMINIBUF_FRAME (con))) | |
| 2087 { | |
| 2088 Lisp_Object frmcons, devcons; | |
| 2089 | |
| 2090 set_console_last_nonminibuf_frame (con, Qnil); | |
| 2091 | |
| 2092 CONSOLE_FRAME_LOOP_NO_BREAK (frmcons, devcons, con) | |
| 2093 { | |
| 2094 Lisp_Object ecran = XCAR (frmcons); | |
| 2095 if (!FRAME_MINIBUF_ONLY_P (XFRAME (ecran))) | |
| 2096 { | |
| 2097 set_console_last_nonminibuf_frame (con, ecran); | |
| 2098 goto double_break_1; | |
| 2099 } | |
| 2100 } | |
| 2101 } | |
| 2102 double_break_1: | |
| 2103 | |
| 2104 #if 0 | |
| 2105 /* The following test is degenerate FALSE */ | |
| 2106 if (called_from_delete_device < 0) | |
| 2107 /* then we're being called from delete-console, and we shouldn't | |
| 2108 try to find another default-minibuffer frame for the console. | |
| 2109 */ | |
| 2110 con->default_minibuffer_frame = Qnil; | |
| 2111 #endif | |
| 2112 | |
| 2113 /* If we've deleted this console's default_minibuffer_frame, try to | |
| 2114 find another one. Prefer minibuffer-only frames, but also notice | |
| 2115 frames with other windows. */ | |
| 2116 if (EQ (frame, con->default_minibuffer_frame)) | |
| 2117 { | |
| 2118 Lisp_Object frmcons, devcons; | |
| 2119 /* The last frame we saw with a minibuffer, minibuffer-only or not. */ | |
| 2120 Lisp_Object frame_with_minibuf; | |
| 2121 /* Some frame we found on the same console, or nil if there are none. */ | |
| 2122 Lisp_Object frame_on_same_console; | |
| 2123 | |
| 2124 frame_on_same_console = Qnil; | |
| 2125 frame_with_minibuf = Qnil; | |
| 2126 | |
| 2127 set_console_last_nonminibuf_frame (con, Qnil); | |
| 2128 | |
| 2129 CONSOLE_FRAME_LOOP_NO_BREAK (frmcons, devcons, con) | |
| 2130 { | |
| 2552 | 2131 Lisp_Object this_frame; |
| 428 | 2132 struct frame *f1; |
| 2133 | |
| 2552 | 2134 this_frame = XCAR (frmcons); |
| 2135 f1 = XFRAME (this_frame); | |
| 428 | 2136 |
| 2137 /* Consider only frames on the same console | |
| 2138 and only those with minibuffers. */ | |
| 2139 if (FRAME_HAS_MINIBUF_P (f1)) | |
| 2140 { | |
| 2552 | 2141 frame_with_minibuf = this_frame; |
| 428 | 2142 if (FRAME_MINIBUF_ONLY_P (f1)) |
| 2143 goto double_break_2; | |
| 2144 } | |
| 2145 | |
| 2552 | 2146 frame_on_same_console = this_frame; |
| 428 | 2147 } |
| 2148 double_break_2: | |
| 2149 | |
| 2150 if (!NILP (frame_on_same_console)) | |
| 2151 { | |
| 2152 /* We know that there must be some frame with a minibuffer out | |
| 2153 there. If this were not true, all of the frames present | |
| 2154 would have to be minibuffer-less, which implies that at some | |
| 2155 point their minibuffer frames must have been deleted, but | |
| 2156 that is prohibited at the top; you can't delete surrogate | |
| 2157 minibuffer frames. */ | |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4976
diff
changeset
|
2158 assert (!NILP (frame_with_minibuf)); |
| 428 | 2159 |
| 2160 con->default_minibuffer_frame = frame_with_minibuf; | |
| 2161 } | |
| 2162 else | |
| 2163 /* No frames left on this console--say no minibuffer either. */ | |
| 2164 con->default_minibuffer_frame = Qnil; | |
| 2165 } | |
| 2166 | |
| 617 | 2167 /* Nobody should be accessing anything in this object any more, and |
| 2168 making all Lisp_Objects Qnil allows for better GC'ing in case a | |
| 2169 pointer to the dead frame continues to hang around. Zero all | |
| 2170 other structs in case someone tries to access something through | |
| 2171 them. */ | |
| 2172 | |
| 2173 nuke_all_frame_slots (f); | |
| 428 | 2174 f->framemeths = dead_console_methods; |
| 1204 | 2175 f->frametype = dead_console; |
| 617 | 2176 |
| 853 | 2177 note_object_deleted (frame); |
| 2178 | |
| 1313 | 2179 unbind_to (depth); |
| 2180 | |
| 428 | 2181 UNGCPRO; |
| 2182 } | |
| 2183 | |
| 2184 void | |
| 2185 io_error_delete_frame (Lisp_Object frame) | |
| 2186 { | |
| 2187 delete_frame_internal (XFRAME (frame), 1, 0, 1); | |
| 2188 } | |
| 2189 | |
| 2190 DEFUN ("delete-frame", Fdelete_frame, 0, 2, "", /* | |
| 2191 Delete FRAME, permanently eliminating it from use. | |
| 2192 If omitted, FRAME defaults to the selected frame. | |
| 2193 A frame may not be deleted if its minibuffer is used by other frames. | |
| 2194 Normally, you cannot delete the last non-minibuffer-only frame (you must | |
| 2195 use `save-buffers-kill-emacs' or `kill-emacs'). However, if optional | |
| 2196 second argument FORCE is non-nil, you can delete the last frame. (This | |
| 2197 will automatically call `save-buffers-kill-emacs'.) | |
| 2198 */ | |
| 2199 (frame, force)) | |
| 2200 { | |
| 2201 /* This function can GC */ | |
| 2202 struct frame *f; | |
| 2203 | |
| 2204 if (NILP (frame)) | |
| 2205 { | |
| 2206 f = selected_frame (); | |
| 793 | 2207 frame = wrap_frame (f); |
| 428 | 2208 } |
| 2209 else | |
| 2210 { | |
| 2211 CHECK_FRAME (frame); | |
| 2212 f = XFRAME (frame); | |
| 2213 } | |
| 2214 | |
| 2215 delete_frame_internal (f, !NILP (force), 0, 0); | |
| 2216 return Qnil; | |
| 2217 } | |
| 2218 | |
| 2219 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2220 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2221 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2222 /* mouse position in frame */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2223 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2224 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2225 |
| 428 | 2226 /* Return mouse position in character cell units. */ |
| 2227 | |
| 2228 static int | |
| 2229 mouse_pixel_position_1 (struct device *d, Lisp_Object *frame, | |
| 2230 int *x, int *y) | |
| 2231 { | |
| 2232 switch (DEVMETH_OR_GIVEN (d, get_mouse_position, (d, frame, x, y), -1)) | |
| 2233 { | |
| 2234 case 1: | |
| 2235 return 1; | |
| 2236 | |
| 2237 case 0: | |
| 2238 *frame = Qnil; | |
| 2239 break; | |
| 2240 | |
| 2241 case -1: | |
| 2242 *frame = DEVICE_SELECTED_FRAME (d); | |
| 2243 break; | |
| 2244 | |
| 2245 default: | |
| 2500 | 2246 ABORT (); /* method is incorrectly written */ |
| 428 | 2247 } |
| 2248 | |
| 2249 return 0; | |
| 2250 } | |
| 2251 | |
| 2252 DEFUN ("mouse-pixel-position", Fmouse_pixel_position, 0, 1, 0, /* | |
| 2253 Return a list (WINDOW X . Y) giving the current mouse window and position. | |
| 442 | 2254 The position is given in pixel units, where (0, 0) is the upper-left corner |
| 2255 of the window. | |
| 428 | 2256 |
| 2257 When the cursor is not over a window, the return value is a list (nil nil). | |
| 2258 | |
| 2259 DEVICE specifies the device on which to read the mouse position, and | |
| 2260 defaults to the selected device. If the device is a mouseless terminal | |
| 442 | 2261 or XEmacs hasn't been programmed to read its mouse position, it returns |
| 428 | 2262 the device's selected window for WINDOW and nil for X and Y. |
| 2263 */ | |
| 2264 (device)) | |
| 2265 { | |
| 2266 struct device *d = decode_device (device); | |
| 2267 Lisp_Object frame; | |
| 2268 Lisp_Object window = Qnil; | |
| 2269 Lisp_Object x = Qnil; | |
| 2270 Lisp_Object y = Qnil; | |
| 2271 int intx, inty; | |
| 2272 | |
| 2273 if (mouse_pixel_position_1 (d, &frame, &intx, &inty) > 0) | |
| 2274 { | |
| 2275 struct window *w = | |
| 2276 find_window_by_pixel_pos (intx, inty, XFRAME (frame)->root_window); | |
| 2277 if (w) | |
| 2278 { | |
| 793 | 2279 window = wrap_window (w); |
| 428 | 2280 |
| 2281 /* Adjust the position to be relative to the window. */ | |
| 2282 intx -= w->pixel_left; | |
| 2283 inty -= w->pixel_top; | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2284 x = make_fixnum (intx); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2285 y = make_fixnum (inty); |
| 428 | 2286 } |
| 2287 } | |
| 2288 else if (FRAMEP (frame)) | |
| 2289 window = FRAME_SELECTED_WINDOW (XFRAME (frame)); | |
| 2290 | |
| 2291 return Fcons (window, Fcons (x, y)); | |
| 2292 } | |
| 2293 | |
| 2294 DEFUN ("mouse-position", Fmouse_position, 0, 1, 0, /* | |
| 2295 Return a list (WINDOW X . Y) giving the current mouse window and position. | |
| 2296 The position is of a character under cursor, where (0, 0) is the upper-left | |
| 2297 corner of the window. | |
| 2298 | |
| 2299 When the cursor is not over a character, or not over a window, the return | |
| 2300 value is a list (nil nil). | |
| 2301 | |
| 2302 DEVICE specifies the device on which to read the mouse position, and | |
| 2303 defaults to the selected device. If the device is a mouseless terminal | |
| 2304 or Emacs hasn't been programmed to read its mouse position, it returns | |
| 2305 the device's selected window for WINDOW and nil for X and Y. | |
| 2306 */ | |
| 2307 (device)) | |
| 2308 { | |
| 2309 struct device *d = decode_device (device); | |
| 2310 struct window *w; | |
| 2311 Lisp_Object frame, window = Qnil, lisp_x = Qnil, lisp_y = Qnil; | |
| 2312 int x, y, obj_x, obj_y; | |
| 665 | 2313 Charbpos charbpos, closest; |
| 428 | 2314 Charcount modeline_closest; |
| 2315 Lisp_Object obj1, obj2; | |
| 2316 | |
| 2317 if (mouse_pixel_position_1 (d, &frame, &x, &y) > 0) | |
| 2318 { | |
| 2319 int res = pixel_to_glyph_translation (XFRAME (frame), x, y, &x, &y, | |
| 665 | 2320 &obj_x, &obj_y, &w, &charbpos, |
| 428 | 2321 &closest, &modeline_closest, |
| 2322 &obj1, &obj2); | |
| 2323 if (res == OVER_TEXT) | |
| 2324 { | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2325 lisp_x = make_fixnum (x); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2326 lisp_y = make_fixnum (y); |
| 793 | 2327 window = wrap_window (w); |
| 428 | 2328 } |
| 2329 } | |
| 2330 else if (FRAMEP (frame)) | |
| 2331 window = FRAME_SELECTED_WINDOW (XFRAME (frame)); | |
| 2332 | |
| 2333 return Fcons (window, Fcons (lisp_x, lisp_y)); | |
| 2334 } | |
| 2335 | |
| 2336 DEFUN ("mouse-position-as-motion-event", Fmouse_position_as_motion_event, 0, 1, 0, /* | |
| 2337 Return the current mouse position as a motion event. | |
| 2338 This allows you to call the standard event functions such as | |
| 2339 `event-over-toolbar-p' to determine where the mouse is. | |
| 2340 | |
| 2341 DEVICE specifies the device on which to read the mouse position, and | |
| 2342 defaults to the selected device. If the mouse position can't be determined | |
| 2343 \(e.g. DEVICE is a TTY device), nil is returned instead of an event. | |
| 2344 */ | |
| 2345 (device)) | |
| 2346 { | |
| 2347 struct device *d = decode_device (device); | |
| 2348 Lisp_Object frame; | |
| 2349 int intx, inty; | |
| 2350 | |
| 2351 if (mouse_pixel_position_1 (d, &frame, &intx, &inty)) | |
| 2352 { | |
| 2353 Lisp_Object event = Fmake_event (Qnil, Qnil); | |
| 934 | 2354 XSET_EVENT_TYPE (event, pointer_motion_event); |
| 2355 XSET_EVENT_CHANNEL (event, frame); | |
| 1204 | 2356 XSET_EVENT_MOTION_X (event, intx); |
| 2357 XSET_EVENT_MOTION_Y (event, inty); | |
| 428 | 2358 return event; |
| 2359 } | |
| 2360 else | |
| 2361 return Qnil; | |
| 2362 } | |
| 2363 | |
| 2364 DEFUN ("set-mouse-position", Fset_mouse_position, 3, 3, 0, /* | |
| 2365 Move the mouse pointer to the center of character cell (X,Y) in WINDOW. | |
| 2366 Note, this is a no-op for an X frame that is not visible. | |
| 2367 If you have just created a frame, you must wait for it to become visible | |
| 2368 before calling this function on it, like this. | |
| 2369 (while (not (frame-visible-p frame)) (sleep-for .5)) | |
| 2370 Note also: Warping the mouse is contrary to the ICCCM, so be very sure | |
| 2371 that the behavior won't end up being obnoxious! | |
| 2372 */ | |
| 2373 (window, x, y)) | |
| 2374 { | |
| 2375 struct window *w; | |
| 2376 int pix_x, pix_y; | |
| 2377 | |
| 2378 CHECK_LIVE_WINDOW (window); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2379 CHECK_FIXNUM (x); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2380 CHECK_FIXNUM (y); |
| 428 | 2381 |
| 2382 /* Warping the mouse will cause EnterNotify and Focus events under X. */ | |
| 2383 w = XWINDOW (window); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2384 glyph_to_pixel_translation (w, XFIXNUM (x), XFIXNUM (y), &pix_x, &pix_y); |
| 428 | 2385 |
| 2386 MAYBE_FRAMEMETH (XFRAME (w->frame), set_mouse_position, (w, pix_x, pix_y)); | |
| 2387 | |
| 2388 return Qnil; | |
| 2389 } | |
| 2390 | |
| 2391 DEFUN ("set-mouse-pixel-position", Fset_mouse_pixel_position, 3, 3, 0, /* | |
| 2392 Move the mouse pointer to pixel position (X,Y) in WINDOW. | |
| 2393 Note, this is a no-op for an X frame that is not visible. | |
| 2394 If you have just created a frame, you must wait for it to become visible | |
| 2395 before calling this function on it, like this. | |
| 2396 (while (not (frame-visible-p frame)) (sleep-for .5)) | |
| 2397 */ | |
| 2398 (window, x, y)) | |
| 2399 { | |
| 2400 struct window *w; | |
| 2401 | |
| 2402 CHECK_LIVE_WINDOW (window); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2403 CHECK_FIXNUM (x); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2404 CHECK_FIXNUM (y); |
| 428 | 2405 |
| 2406 /* Warping the mouse will cause EnterNotify and Focus events under X. */ | |
| 2407 w = XWINDOW (window); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2408 FRAMEMETH (XFRAME (w->frame), set_mouse_position, (w, XFIXNUM (x), XFIXNUM (y))); |
| 428 | 2409 |
| 2410 return Qnil; | |
| 2411 } | |
| 2412 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2413 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2414 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2415 /* frame visibility */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2416 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2417 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2418 |
| 428 | 2419 DEFUN ("make-frame-visible", Fmake_frame_visible, 0, 1, 0, /* |
| 2420 Make the frame FRAME visible (assuming it is an X-window). | |
| 2421 If omitted, FRAME defaults to the currently selected frame. | |
| 2422 Also raises the frame so that nothing obscures it. | |
| 2423 */ | |
| 2424 (frame)) | |
| 2425 { | |
| 2426 struct frame *f = decode_frame (frame); | |
| 2427 | |
| 2428 MAYBE_FRAMEMETH (f, make_frame_visible, (f)); | |
| 2429 return frame; | |
| 2430 } | |
| 2431 | |
| 2432 DEFUN ("make-frame-invisible", Fmake_frame_invisible, 0, 2, 0, /* | |
| 2433 Unconditionally removes frame from the display (assuming it is an X-window). | |
| 2434 If omitted, FRAME defaults to the currently selected frame. | |
| 2435 If what you want to do is iconify the frame (if the window manager uses | |
| 2436 icons) then you should call `iconify-frame' instead. | |
| 2437 Normally you may not make FRAME invisible if all other frames are invisible | |
| 2438 and uniconified, but if the second optional argument FORCE is non-nil, | |
| 2439 you may do so. | |
| 2440 */ | |
| 2441 (frame, force)) | |
| 2442 { | |
| 2443 struct frame *f, *sel_frame; | |
| 2444 struct device *d; | |
| 2445 | |
| 2446 f = decode_frame (frame); | |
| 2447 d = XDEVICE (FRAME_DEVICE (f)); | |
| 2448 sel_frame = XFRAME (DEVICE_SELECTED_FRAME (d)); | |
| 2449 | |
| 2450 if (NILP (force) && !other_visible_frames (f)) | |
| 563 | 2451 invalid_operation ("Attempt to make invisible the sole visible or iconified frame", Qunbound); |
| 428 | 2452 |
| 2453 /* Don't allow minibuf_window to remain on a deleted frame. */ | |
| 2454 if (EQ (f->minibuffer_window, minibuf_window)) | |
| 2455 { | |
| 2456 Fset_window_buffer (sel_frame->minibuffer_window, | |
| 440 | 2457 XWINDOW (minibuf_window)->buffer, Qt); |
| 428 | 2458 minibuf_window = sel_frame->minibuffer_window; |
| 2459 } | |
| 2460 | |
| 2461 MAYBE_FRAMEMETH (f, make_frame_invisible, (f)); | |
| 2462 | |
| 2463 return Qnil; | |
| 2464 } | |
| 2465 | |
| 2466 DEFUN ("iconify-frame", Ficonify_frame, 0, 1, "", /* | |
| 2467 Make the frame FRAME into an icon, if the window manager supports icons. | |
| 2468 If omitted, FRAME defaults to the currently selected frame. | |
| 2469 */ | |
| 2470 (frame)) | |
| 2471 { | |
| 2472 struct frame *f, *sel_frame; | |
| 2473 struct device *d; | |
| 2474 | |
| 2475 f = decode_frame (frame); | |
| 2476 d = XDEVICE (FRAME_DEVICE (f)); | |
| 2477 sel_frame = XFRAME (DEVICE_SELECTED_FRAME (d)); | |
| 2478 | |
| 2479 /* Don't allow minibuf_window to remain on a deleted frame. */ | |
| 2480 if (EQ (f->minibuffer_window, minibuf_window)) | |
| 2481 { | |
| 2482 Fset_window_buffer (sel_frame->minibuffer_window, | |
| 440 | 2483 XWINDOW (minibuf_window)->buffer, Qt); |
| 428 | 2484 minibuf_window = sel_frame->minibuffer_window; |
| 2485 } | |
| 2486 | |
| 2487 MAYBE_FRAMEMETH (f, iconify_frame, (f)); | |
| 2488 | |
| 2489 return Qnil; | |
| 2490 } | |
| 2491 | |
| 2492 DEFUN ("deiconify-frame", Fdeiconify_frame, 0, 1, 0, /* | |
| 2493 Open (de-iconify) the iconified frame FRAME. | |
| 2494 Under X, this is currently the same as `make-frame-visible'. | |
| 2495 If omitted, FRAME defaults to the currently selected frame. | |
| 2496 Also raises the frame so that nothing obscures it. | |
| 2497 */ | |
| 2498 (frame)) | |
| 2499 { | |
| 2500 return Fmake_frame_visible (frame); | |
| 2501 } | |
| 2502 | |
| 3025 | 2503 /* FSF returns `icon' for iconized frames. What a crock! */ |
| 428 | 2504 |
| 2505 DEFUN ("frame-visible-p", Fframe_visible_p, 0, 1, 0, /* | |
| 2506 Return non NIL if FRAME is now "visible" (actually in use for display). | |
| 2507 A frame that is not visible is not updated, and, if it works through a | |
| 2508 window system, may not show at all. | |
| 2509 N.B. Under X "visible" means Mapped. It the window is mapped but not | |
| 3025 | 2510 actually visible on screen then `frame-visible-p' returns `hidden'. |
| 428 | 2511 */ |
| 2512 (frame)) | |
| 2513 { | |
| 2514 struct frame *f = decode_frame (frame); | |
| 2515 int visible = FRAMEMETH_OR_GIVEN (f, frame_visible_p, (f), f->visible); | |
| 2516 return visible ? ( visible > 0 ? Qt : Qhidden ) : Qnil; | |
| 2517 } | |
| 2518 | |
| 2519 DEFUN ("frame-totally-visible-p", Fframe_totally_visible_p, 0, 1, 0, /* | |
| 2520 Return t if frame is not obscured by any other window system windows. | |
| 2521 Always returns t for tty frames. | |
| 2522 */ | |
| 2523 (frame)) | |
| 2524 { | |
| 2525 struct frame *f = decode_frame (frame); | |
| 2526 return (FRAMEMETH_OR_GIVEN (f, frame_totally_visible_p, (f), f->visible) | |
| 2527 ? Qt : Qnil); | |
| 2528 } | |
| 2529 | |
| 2530 DEFUN ("frame-iconified-p", Fframe_iconified_p, 0, 1, 0, /* | |
| 2531 Return t if FRAME is iconified. | |
| 2532 Not all window managers use icons; some merely unmap the window, so this | |
| 2533 function is not the inverse of `frame-visible-p'. It is possible for a | |
| 2534 frame to not be visible and not be iconified either. However, if the | |
| 2535 frame is iconified, it will not be visible. | |
| 2536 */ | |
| 2537 (frame)) | |
| 2538 { | |
| 2539 struct frame *f = decode_frame (frame); | |
| 2540 if (f->visible) | |
| 2541 return Qnil; | |
| 2542 f->iconified = FRAMEMETH_OR_GIVEN (f, frame_iconified_p, (f), 0); | |
| 2543 return f->iconified ? Qt : Qnil; | |
| 2544 } | |
| 2545 | |
| 2546 DEFUN ("visible-frame-list", Fvisible_frame_list, 0, 1, 0, /* | |
| 2547 Return a list of all frames now "visible" (being updated). | |
| 2548 If DEVICE is specified only frames on that device will be returned. | |
| 460 | 2549 Note that under virtual window managers not all these frames are |
| 2550 necessarily really updated. | |
| 428 | 2551 */ |
| 2552 (device)) | |
| 2553 { | |
| 2554 Lisp_Object devcons, concons; | |
| 2555 struct frame *f; | |
| 2556 Lisp_Object value; | |
| 2557 | |
| 2558 value = Qnil; | |
| 2559 | |
| 2560 DEVICE_LOOP_NO_BREAK (devcons, concons) | |
| 2561 { | |
| 2562 assert (DEVICEP (XCAR (devcons))); | |
| 2563 | |
| 2564 if (NILP (device) || EQ (device, XCAR (devcons))) | |
| 2565 { | |
| 2566 Lisp_Object frmcons; | |
| 2567 | |
| 2568 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons))) | |
| 2569 { | |
| 2570 Lisp_Object frame = XCAR (frmcons); | |
| 2571 f = XFRAME (frame); | |
| 2572 if (FRAME_VISIBLE_P(f)) | |
| 2573 value = Fcons (frame, value); | |
| 2574 } | |
| 2575 } | |
| 2576 } | |
| 2577 | |
| 2578 return value; | |
| 2579 } | |
| 2580 | |
| 2581 DEFUN ("raise-frame", Fraise_frame, 0, 1, "", /* | |
| 2582 Bring FRAME to the front, so it occludes any frames it overlaps. | |
| 2583 If omitted, FRAME defaults to the currently selected frame. | |
| 2584 If FRAME is invisible, make it visible. | |
| 2585 If Emacs is displaying on an ordinary terminal or some other device which | |
| 2586 doesn't support multiple overlapping frames, this function does nothing. | |
| 2587 */ | |
| 2588 (frame)) | |
| 2589 { | |
| 2590 struct frame *f = decode_frame (frame); | |
| 2591 | |
| 2592 /* Do like the documentation says. */ | |
| 2593 Fmake_frame_visible (frame); | |
| 2594 MAYBE_FRAMEMETH (f, raise_frame, (f)); | |
| 2595 return Qnil; | |
| 2596 } | |
| 2597 | |
| 2598 DEFUN ("lower-frame", Flower_frame, 0, 1, "", /* | |
| 2599 Send FRAME to the back, so it is occluded by any frames that overlap it. | |
| 2600 If omitted, FRAME defaults to the currently selected frame. | |
| 2601 If Emacs is displaying on an ordinary terminal or some other device which | |
| 2602 doesn't support multiple overlapping frames, this function does nothing. | |
| 2603 */ | |
| 2604 (frame)) | |
| 2605 { | |
| 2606 struct frame *f = decode_frame (frame); | |
| 2607 | |
| 2608 MAYBE_FRAMEMETH (f, lower_frame, (f)); | |
| 2609 return Qnil; | |
| 2610 } | |
| 2611 | |
| 442 | 2612 |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2613 /***************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2614 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2615 /* print-related functions */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2616 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2617 /***************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2618 |
| 442 | 2619 DEFUN ("print-job-page-number", Fprint_job_page_number, 1, 1, 0, /* |
| 2620 Return current page number for the print job FRAME. | |
| 2621 */ | |
| 2622 (frame)) | |
| 2623 { | |
| 2624 CHECK_PRINTER_FRAME (frame); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2625 return make_fixnum (FRAME_PAGENUMBER (XFRAME (frame))); |
| 442 | 2626 } |
| 2627 | |
| 2628 DEFUN ("print-job-eject-page", Fprint_job_eject_page, 1, 1, 0, /* | |
| 2629 Eject page in the print job FRAME. | |
| 2630 */ | |
| 2631 (frame)) | |
| 2632 { | |
| 2633 struct frame *f; | |
| 2634 | |
| 2635 CHECK_PRINTER_FRAME (frame); | |
| 2636 f = XFRAME (frame); | |
| 2637 FRAMEMETH (f, eject_page, (f)); | |
| 2638 FRAME_SET_PAGENUMBER (f, 1 + FRAME_PAGENUMBER (f)); | |
| 2639 f->clear = 1; | |
| 2640 | |
| 2641 return Qnil; | |
| 2642 } | |
| 428 | 2643 |
| 2644 | |
| 2645 /***************************************************************************/ | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2646 /* */ |
| 428 | 2647 /* frame properties */ |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2648 /* */ |
| 428 | 2649 /***************************************************************************/ |
| 2650 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2651 DEFUN ("frame-name", Fframe_name, 0, 1, 0, /* |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2652 Return the name of FRAME (defaulting to the selected frame). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2653 This is not the same as the `title' of the frame. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2654 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2655 (frame)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2656 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2657 return decode_frame (frame)->name; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2658 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2659 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2660 DEFUN ("frame-modified-tick", Fframe_modified_tick, 0, 1, 0, /* |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2661 Return FRAME's tick counter, incremented for each change to the frame. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2662 Each frame has a tick counter which is incremented each time the frame |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2663 is resized, a window is resized, added, or deleted, a face is changed, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2664 `set-window-buffer' or `select-window' is called on a window in the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2665 frame, the window-start of a window in the frame has changed, or |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2666 anything else interesting has happened. It wraps around occasionally. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2667 No argument or nil as argument means use selected frame as FRAME. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2668 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2669 (frame)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2670 { |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2671 return make_fixnum (decode_frame (frame)->modiff); |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2672 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
2673 |
| 428 | 2674 static void |
| 2675 store_minibuf_frame_prop (struct frame *f, Lisp_Object val) | |
| 2676 { | |
| 1318 | 2677 /* This can call Lisp. */ |
| 793 | 2678 Lisp_Object frame = wrap_frame (f); |
| 2679 | |
| 428 | 2680 if (WINDOWP (val)) |
| 2681 { | |
| 2682 if (! MINI_WINDOW_P (XWINDOW (val))) | |
| 563 | 2683 gui_error |
| 428 | 2684 ("Surrogate minibuffer windows must be minibuffer windows", |
| 2685 val); | |
| 2686 | |
| 2687 if (FRAME_HAS_MINIBUF_P (f) || FRAME_MINIBUF_ONLY_P (f)) | |
| 563 | 2688 gui_error |
| 428 | 2689 ("Can't change the surrogate minibuffer of a frame with its own minibuffer", frame); |
| 2690 | |
| 2691 /* Install the chosen minibuffer window, with proper buffer. */ | |
| 2692 f->minibuffer_window = val; | |
| 2693 } | |
| 2694 else if (EQ (val, Qt)) | |
| 2695 { | |
| 2696 if (FRAME_HAS_MINIBUF_P (f) || FRAME_MINIBUF_ONLY_P (f)) | |
| 563 | 2697 gui_error |
| 428 | 2698 ("Frame already has its own minibuffer", frame); |
| 2699 else | |
| 2700 { | |
| 2701 setup_normal_frame (f); | |
| 2702 f->mirror_dirty = 1; | |
| 2703 | |
| 2704 update_frame_window_mirror (f); | |
| 2705 internal_set_frame_size (f, f->width, f->height, 1); | |
| 2706 } | |
| 2707 } | |
| 2708 } | |
| 2709 | |
| 2710 #if 0 | |
| 2711 | |
| 2712 /* possible code if you want to have symbols such as `default-background' | |
| 2713 map to setting the background of `default', etc. */ | |
| 2714 | |
| 2715 static int | |
| 2716 dissect_as_face_setting (Lisp_Object sym, Lisp_Object *face_out, | |
| 2717 Lisp_Object *face_prop_out) | |
| 2718 { | |
| 2719 Lisp_Object list = Vbuilt_in_face_specifiers; | |
| 793 | 2720 Lisp_Object s; |
| 428 | 2721 |
| 2722 if (!SYMBOLP (sym)) | |
| 2723 return 0; | |
| 2724 | |
| 2725 s = symbol_name (XSYMBOL (sym)); | |
| 2726 | |
| 2727 while (!NILP (list)) | |
| 2728 { | |
| 2729 Lisp_Object prop = Fcar (list); | |
| 793 | 2730 Lisp_Object prop_name; |
| 428 | 2731 |
| 2732 if (!SYMBOLP (prop)) | |
| 2733 continue; | |
| 2734 prop_name = symbol_name (XSYMBOL (prop)); | |
| 793 | 2735 if (XSTRING_LENGTH (s) > XSTRING_LENGTH (prop_name) + 1 |
| 2736 && !memcmp (XSTRING_DATA (prop_name), | |
| 2737 XSTRING_DATA (s) + XSTRING_LENGTH (s) | |
| 2738 - XSTRING_LENGTH (prop_name), | |
| 2739 XSTRING_LENGTH (prop_name)) | |
| 2740 && XSTRING_DATA (s)[XSTRING_LENGTH (s) - XSTRING_LENGTH (prop_name) | |
| 428 | 2741 - 1] == '-') |
| 2742 { | |
| 2743 Lisp_Object face = | |
| 793 | 2744 Ffind_face (make_string (XSTRING_DATA (s), |
| 2745 XSTRING_LENGTH (s) | |
| 2746 - XSTRING_LENGTH (prop_name) | |
| 428 | 2747 - 1)); |
| 2748 if (!NILP (face)) | |
| 2749 { | |
| 2750 *face_out = face; | |
| 2751 *face_prop_out = prop; | |
| 2752 return 1; | |
| 2753 } | |
| 2754 } | |
| 2755 | |
| 2756 list = Fcdr (list); | |
| 2757 } | |
| 2758 | |
| 2759 return 0; | |
| 2760 } | |
| 2761 | |
| 2762 #endif /* 0 */ | |
| 2763 | |
| 2764 static Lisp_Object | |
| 2765 get_property_alias (Lisp_Object prop) | |
| 2766 { | |
| 2767 while (1) | |
| 2768 { | |
| 2769 Lisp_Object alias = Qnil; | |
| 2770 | |
| 2771 if (SYMBOLP (prop)) | |
| 2772 alias = Fget (prop, Qframe_property_alias, Qnil); | |
| 2773 if (NILP (alias)) | |
| 2774 break; | |
| 2775 prop = alias; | |
| 2776 QUIT; | |
| 2777 } | |
| 2778 | |
| 2779 return prop; | |
| 2780 } | |
| 2781 | |
| 2782 /* #### Using this to modify the internal border width has no effect | |
| 2783 because the change isn't propagated to the windows. Are there | |
| 2784 other properties which this claims to handle, but doesn't? | |
| 2785 | |
| 2786 But of course. This stuff needs more work, but it's a lot closer | |
| 2787 to sanity now than before with the horrible frame-params stuff. */ | |
| 2788 | |
| 2789 DEFUN ("set-frame-properties", Fset_frame_properties, 2, 2, 0, /* | |
| 2790 Change some properties of a frame. | |
| 2791 PLIST is a property list. | |
| 2792 You can also change frame properties individually using `set-frame-property', | |
| 2793 but it may be more efficient to change many properties at once. | |
| 2794 | |
| 2795 Frame properties can be retrieved using `frame-property' or `frame-properties'. | |
| 2796 | |
| 2797 The following symbols etc. have predefined meanings: | |
| 2798 | |
| 2799 name Name of the frame. Used with X resources. | |
| 2800 Unchangeable after creation. | |
| 2801 | |
| 2802 height Height of the frame, in lines. | |
| 2803 | |
| 2804 width Width of the frame, in characters. | |
| 2805 | |
| 2806 minibuffer Gives the minibuffer behavior for this frame. Either | |
| 2807 t (frame has its own minibuffer), `only' (frame is | |
| 442 | 2808 a minibuffer-only frame), `none' (frame has no minibuffer) |
| 2809 or a window (frame uses that window, which is on another | |
| 2810 frame, as the minibuffer). | |
| 428 | 2811 |
| 2812 unsplittable If non-nil, frame cannot be split by `display-buffer'. | |
| 2813 | |
| 2814 current-display-table, menubar-visible-p, left-margin-width, | |
| 2815 right-margin-width, minimum-line-ascent, minimum-line-descent, | |
| 2816 use-left-overflow, use-right-overflow, scrollbar-width, scrollbar-height, | |
| 2817 default-toolbar, top-toolbar, bottom-toolbar, left-toolbar, right-toolbar, | |
| 2818 default-toolbar-height, default-toolbar-width, top-toolbar-height, | |
| 2819 bottom-toolbar-height, left-toolbar-width, right-toolbar-width, | |
| 2820 default-toolbar-visible-p, top-toolbar-visible-p, bottom-toolbar-visible-p, | |
| 2821 left-toolbar-visible-p, right-toolbar-visible-p, toolbar-buttons-captioned-p, | |
| 2822 top-toolbar-border-width, bottom-toolbar-border-width, | |
| 2823 left-toolbar-border-width, right-toolbar-border-width, | |
| 442 | 2824 modeline-shadow-thickness, has-modeline-p, |
| 2825 default-gutter, top-gutter, bottom-gutter, left-gutter, right-gutter, | |
| 2826 default-gutter-height, default-gutter-width, top-gutter-height, | |
| 2827 bottom-gutter-height, left-gutter-width, right-gutter-width, | |
| 2828 default-gutter-visible-p, top-gutter-visible-p, bottom-gutter-visible-p, | |
| 2829 left-gutter-visible-p, right-gutter-visible-p, top-gutter-border-width, | |
| 2830 bottom-gutter-border-width, left-gutter-border-width, right-gutter-border-width, | |
| 428 | 2831 [Giving the name of any built-in specifier variable is |
| 2832 equivalent to calling `set-specifier' on the specifier, | |
| 2833 with a locale of FRAME. Giving the name to `frame-property' | |
| 2834 calls `specifier-instance' on the specifier.] | |
| 2835 | |
| 2836 text-pointer-glyph, nontext-pointer-glyph, modeline-pointer-glyph, | |
| 2837 selection-pointer-glyph, busy-pointer-glyph, toolbar-pointer-glyph, | |
| 2838 menubar-pointer-glyph, scrollbar-pointer-glyph, gc-pointer-glyph, | |
| 2839 octal-escape-glyph, control-arrow-glyph, invisible-text-glyph, | |
| 2840 hscroll-glyph, truncation-glyph, continuation-glyph | |
| 2841 [Giving the name of any glyph variable is equivalent to | |
| 2842 calling `set-glyph-image' on the glyph, with a locale | |
| 2843 of FRAME. Giving the name to `frame-property' calls | |
| 2844 `glyph-image-instance' on the glyph.] | |
| 2845 | |
| 2846 [default foreground], [default background], [default font], | |
| 2847 [modeline foreground], [modeline background], [modeline font], | |
| 2848 etc. | |
| 2849 [Giving a vector of a face and a property is equivalent | |
| 2850 to calling `set-face-property' on the face and property, | |
| 2851 with a locale of FRAME. Giving the vector to | |
| 2852 `frame-property' calls `face-property-instance' on the | |
| 2853 face and property.] | |
| 2854 | |
| 2855 Finally, if a frame property symbol has the property `frame-property-alias' | |
| 2856 on it, then the value will be used in place of that symbol when looking | |
| 2857 up and setting frame property values. This allows you to alias one | |
| 2858 frame property name to another. | |
| 2859 | |
| 2860 See the variables `default-x-frame-plist', `default-tty-frame-plist' | |
| 2861 and `default-mswindows-frame-plist' for a description of the properties | |
| 2862 recognized for particular types of frames. | |
| 2863 */ | |
| 2864 (frame, plist)) | |
| 2865 { | |
| 1318 | 2866 /* This can call Lisp. */ |
| 428 | 2867 struct frame *f = decode_frame (frame); |
| 2868 Lisp_Object tail; | |
| 2869 Lisp_Object *tailp; | |
| 2870 struct gcpro gcpro1, gcpro2; | |
| 2871 | |
| 793 | 2872 frame = wrap_frame (f); |
| 428 | 2873 GCPRO2 (frame, plist); |
| 2874 Fcheck_valid_plist (plist); | |
| 2875 plist = Fcopy_sequence (plist); | |
| 2876 Fcanonicalize_lax_plist (plist, Qnil); | |
| 2877 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail))) | |
| 2878 { | |
| 2879 Lisp_Object prop = Fcar (tail); | |
| 2880 Lisp_Object val = Fcar (Fcdr (tail)); | |
| 2881 | |
| 2882 prop = get_property_alias (prop); | |
| 2883 | |
| 2884 #if 0 | |
| 2885 /* mly wants this, but it's not reasonable to change the name of a | |
| 2886 frame after it has been created, because the old name was used | |
| 2887 for resource lookup. */ | |
| 2888 if (EQ (prop, Qname)) | |
| 4207 | 2889 { |
| 2890 CHECK_STRING (val); | |
| 2891 f->name = val; | |
| 2892 } | |
| 428 | 2893 #endif /* 0 */ |
| 2894 if (EQ (prop, Qminibuffer)) | |
| 2895 store_minibuf_frame_prop (f, val); | |
| 2896 if (EQ (prop, Qunsplittable)) | |
| 2897 f->no_split = !NILP (val); | |
| 2898 if (EQ (prop, Qbuffer_predicate)) | |
| 2899 f->buffer_predicate = val; | |
| 2900 if (SYMBOLP (prop) && EQ (Fbuilt_in_variable_type (prop), | |
| 2901 Qconst_specifier)) | |
| 2902 call3 (Qset_specifier, Fsymbol_value (prop), val, frame); | |
| 2903 if (SYMBOLP (prop) && !NILP (Fget (prop, Qconst_glyph_variable, Qnil))) | |
| 2904 call3 (Qset_glyph_image, Fsymbol_value (prop), val, frame); | |
| 2905 if (VECTORP (prop) && XVECTOR_LENGTH (prop) == 2) | |
| 2906 { | |
| 2907 Lisp_Object face_prop = XVECTOR_DATA (prop)[1]; | |
| 2908 CHECK_SYMBOL (face_prop); | |
| 2909 call4 (Qset_face_property, | |
| 2910 Fget_face (XVECTOR_DATA (prop)[0]), | |
| 2911 face_prop, val, frame); | |
| 2912 } | |
| 2913 } | |
| 2914 | |
| 2915 MAYBE_FRAMEMETH (f, set_frame_properties, (f, plist)); | |
| 2916 for (tailp = &plist; !NILP (*tailp);) | |
| 2917 { | |
| 2918 Lisp_Object *next_tailp; | |
| 2919 Lisp_Object next; | |
| 2920 Lisp_Object prop; | |
| 2921 | |
| 2922 next = Fcdr (*tailp); | |
| 2923 CHECK_CONS (next); | |
| 2924 next_tailp = &XCDR (next); | |
| 2925 prop = Fcar (*tailp); | |
| 2926 | |
| 2927 prop = get_property_alias (prop); | |
| 2928 | |
| 2929 if (EQ (prop, Qminibuffer) | |
| 2930 || EQ (prop, Qunsplittable) | |
| 2931 || EQ (prop, Qbuffer_predicate) | |
| 2932 || EQ (prop, Qheight) | |
| 2933 || EQ (prop, Qwidth) | |
| 2934 || (SYMBOLP (prop) && EQ (Fbuilt_in_variable_type (prop), | |
| 2935 Qconst_specifier)) | |
| 2936 || (SYMBOLP (prop) && !NILP (Fget (prop, Qconst_glyph_variable, | |
| 2937 Qnil))) | |
| 2938 || (VECTORP (prop) && XVECTOR_LENGTH (prop) == 2) | |
| 2939 || FRAMEMETH_OR_GIVEN (f, internal_frame_property_p, (f, prop), 0)) | |
| 2940 *tailp = *next_tailp; | |
| 2941 tailp = next_tailp; | |
| 2942 } | |
| 2943 | |
| 2944 f->plist = nconc2 (plist, f->plist); | |
| 2945 Fcanonicalize_lax_plist (f->plist, Qnil); | |
| 2946 UNGCPRO; | |
| 2947 return Qnil; | |
| 2948 } | |
| 2949 | |
| 2950 DEFUN ("frame-property", Fframe_property, 2, 3, 0, /* | |
| 2951 Return FRAME's value for property PROPERTY. | |
| 444 | 2952 Return DEFAULT if there is no such property. |
| 428 | 2953 See `set-frame-properties' for the built-in property names. |
| 2954 */ | |
| 2955 (frame, property, default_)) | |
| 2956 { | |
| 2957 struct frame *f = decode_frame (frame); | |
| 2958 Lisp_Object value; | |
| 2959 | |
| 793 | 2960 frame = wrap_frame (f); |
| 428 | 2961 |
| 2962 property = get_property_alias (property); | |
| 2963 | |
| 2964 if (EQ (Qname, property)) return f->name; | |
| 2965 | |
| 2966 if (EQ (Qheight, property) || EQ (Qwidth, property)) | |
| 2967 { | |
| 5043 | 2968 int width, height; |
| 2969 get_frame_char_size (f, &width, &height); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
2970 return make_fixnum (EQ (Qheight, property) ? height : width); |
| 428 | 2971 } |
| 2972 | |
| 2973 /* NOTE: FSF returns Qnil instead of Qt for FRAME_HAS_MINIBUF_P. | |
| 2974 This is over-the-top bogosity, because it's inconsistent with | |
| 2975 the semantics of `minibuffer' when passed to `make-frame'. | |
| 2976 Returning Qt makes things consistent. */ | |
| 2977 if (EQ (Qminibuffer, property)) | |
| 2978 return (FRAME_MINIBUF_ONLY_P (f) ? Qonly : | |
| 2979 FRAME_HAS_MINIBUF_P (f) ? Qt : | |
| 2980 FRAME_MINIBUF_WINDOW (f)); | |
| 2981 if (EQ (Qunsplittable, property)) | |
| 2982 return FRAME_NO_SPLIT_P (f) ? Qt : Qnil; | |
| 2983 if (EQ (Qbuffer_predicate, property)) | |
| 2984 return f->buffer_predicate; | |
| 2985 | |
| 2986 if (SYMBOLP (property)) | |
| 2987 { | |
| 2988 if (EQ (Fbuilt_in_variable_type (property), Qconst_specifier)) | |
| 2989 return Fspecifier_instance (Fsymbol_value (property), | |
| 2990 frame, default_, Qnil); | |
| 2991 if (!NILP (Fget (property, Qconst_glyph_variable, Qnil))) | |
| 2992 { | |
| 2993 Lisp_Object glyph = Fsymbol_value (property); | |
| 2994 CHECK_GLYPH (glyph); | |
| 2995 return Fspecifier_instance (XGLYPH_IMAGE (glyph), | |
| 2996 frame, default_, Qnil); | |
| 2997 } | |
| 2998 } | |
| 2999 | |
| 3000 if (VECTORP (property) && XVECTOR_LENGTH (property) == 2) | |
| 3001 { | |
| 3002 Lisp_Object face_prop = XVECTOR_DATA (property)[1]; | |
| 3003 CHECK_SYMBOL (face_prop); | |
| 3004 return call3 (Qface_property_instance, | |
| 3005 Fget_face (XVECTOR_DATA (property)[0]), | |
| 3006 face_prop, frame); | |
| 3007 } | |
| 3008 | |
| 3009 if (HAS_FRAMEMETH_P (f, frame_property)) | |
| 3010 if (!UNBOUNDP (value = FRAMEMETH (f, frame_property, (f, property)))) | |
| 3011 return value; | |
| 3012 | |
| 3013 if (!UNBOUNDP (value = external_plist_get (&f->plist, property, 1, ERROR_ME))) | |
| 3014 return value; | |
| 3015 | |
| 3016 return default_; | |
| 3017 } | |
| 3018 | |
| 3019 DEFUN ("frame-properties", Fframe_properties, 0, 1, 0, /* | |
| 3020 Return a property list of the properties of FRAME. | |
| 3021 Do not modify this list; use `set-frame-property' instead. | |
| 3022 */ | |
| 3023 (frame)) | |
| 3024 { | |
| 3025 struct frame *f = decode_frame (frame); | |
| 3026 Lisp_Object result = Qnil; | |
| 3027 struct gcpro gcpro1; | |
| 3028 | |
| 3029 GCPRO1 (result); | |
| 3030 | |
| 793 | 3031 frame = wrap_frame (f); |
| 428 | 3032 |
| 3033 /* #### for the moment (since old code uses `frame-parameters'), | |
| 3034 we call `copy-sequence' on f->plist. That allows frame-parameters | |
| 3035 to destructively convert the plist into an alist, which is more | |
| 3036 efficient than doing it non-destructively. At some point we | |
| 3037 should remove the call to copy-sequence. */ | |
| 3038 result = Fcopy_sequence (f->plist); | |
| 3039 | |
| 3040 /* #### should we be adding all the specifiers and glyphs? | |
| 3041 That would entail having a list of them all. */ | |
| 3042 if (HAS_FRAMEMETH_P (f, frame_properties)) | |
| 3043 result = nconc2 (FRAMEMETH (f, frame_properties, (f)), result); | |
| 3044 | |
| 3045 if (!NILP (f->buffer_predicate)) | |
| 3046 result = cons3 (Qbuffer_predicate, f->buffer_predicate, result); | |
| 3047 | |
| 3048 if (FRAME_NO_SPLIT_P (f)) | |
| 3049 result = cons3 (Qunsplittable, Qt, result); | |
| 3050 | |
| 3051 /* NOTE: FSF returns Qnil instead of Qt for FRAME_HAS_MINIBUF_P. | |
| 3052 This is over-the-top bogosity, because it's inconsistent with | |
| 3053 the semantics of `minibuffer' when passed to `make-frame'. | |
| 3054 Returning Qt makes things consistent. */ | |
| 3055 result = cons3 (Qminibuffer, | |
| 3056 (FRAME_MINIBUF_ONLY_P (f) ? Qonly : | |
| 3057 FRAME_HAS_MINIBUF_P (f) ? Qt : | |
| 3058 FRAME_MINIBUF_WINDOW (f)), | |
| 3059 result); | |
| 3060 { | |
| 3061 int width, height; | |
| 5043 | 3062 get_frame_char_size (f, &width, &height); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3063 result = cons3 (Qwidth , make_fixnum (width), result); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3064 result = cons3 (Qheight, make_fixnum (height), result); |
| 428 | 3065 } |
| 3066 | |
| 3067 result = cons3 (Qname, f->name, result); | |
| 3068 | |
| 3069 UNGCPRO; | |
| 3070 return result; | |
| 3071 } | |
| 3072 | |
| 3073 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3074 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3075 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3076 /* frame sizing (user functions) */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3077 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3078 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3079 |
| 428 | 3080 DEFUN ("frame-pixel-height", Fframe_pixel_height, 0, 1, 0, /* |
| 1125 | 3081 Return the total height in pixels of FRAME. |
| 428 | 3082 */ |
| 3083 (frame)) | |
| 3084 { | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3085 struct frame *f = decode_frame (frame); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3086 int width, height; |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3087 |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3088 get_frame_new_total_pixel_size (f, &width, &height); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3089 return make_fixnum (height); |
| 428 | 3090 } |
| 3091 | |
| 1125 | 3092 DEFUN ("frame-displayable-pixel-height", Fframe_displayable_pixel_height, 0, 1, 0, /* |
| 3093 Return the height of the displayable area in pixels of FRAME. | |
| 3094 */ | |
| 3095 (frame)) | |
| 3096 { | |
| 3097 struct frame *f = decode_frame (frame); | |
| 5043 | 3098 int width, height; |
| 3099 | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3100 get_frame_new_displayable_pixel_size (f, &width, &height); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3101 return make_fixnum (height); |
| 1125 | 3102 } |
| 3103 | |
| 428 | 3104 DEFUN ("frame-pixel-width", Fframe_pixel_width, 0, 1, 0, /* |
| 1125 | 3105 Return the total width in pixels of FRAME. |
| 428 | 3106 */ |
| 3107 (frame)) | |
| 3108 { | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3109 struct frame *f = decode_frame (frame); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3110 int width, height; |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3111 |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3112 get_frame_new_total_pixel_size (f, &width, &height); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3113 return make_fixnum (width); |
| 428 | 3114 } |
| 3115 | |
| 1125 | 3116 DEFUN ("frame-displayable-pixel-width", Fframe_displayable_pixel_width, 0, 1, 0, /* |
| 3117 Return the width of the displayable area in pixels of FRAME. | |
| 3118 */ | |
| 3119 (frame)) | |
| 3120 { | |
| 3121 struct frame *f = decode_frame (frame); | |
| 5043 | 3122 int width, height; |
| 3123 | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3124 get_frame_new_displayable_pixel_size (f, &width, &height); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3125 return make_fixnum (width); |
| 1125 | 3126 } |
| 3127 | |
| 428 | 3128 DEFUN ("set-frame-height", Fset_frame_height, 2, 3, 0, /* |
| 3129 Specify that the frame FRAME has LINES lines. | |
| 3130 Optional third arg non-nil means that redisplay should use LINES lines | |
| 3131 but that the idea of the actual height of the frame should not be changed. | |
| 3132 */ | |
| 444 | 3133 (frame, lines, pretend)) |
| 428 | 3134 { |
| 1318 | 3135 /* This can call Lisp. */ |
| 428 | 3136 struct frame *f = decode_frame (frame); |
| 5043 | 3137 int cwidth, cheight; |
| 3138 int guwidth, guheight; | |
| 3139 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3140 CHECK_FIXNUM (lines); |
| 5043 | 3141 get_frame_char_size (f, &cwidth, &cheight); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3142 cheight = XFIXNUM (lines); |
| 5043 | 3143 frame_conversion_internal (f, SIZE_CHAR_CELL, cwidth, cheight, |
| 3144 SIZE_FRAME_UNIT, &guwidth, &guheight); | |
| 3145 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3146 return wrap_frame (f); | |
| 428 | 3147 } |
| 3148 | |
| 863 | 3149 DEFUN ("set-frame-pixel-height", Fset_frame_pixel_height, 2, 3, 0, /* |
| 1125 | 3150 Specify that the frame FRAME is a total of HEIGHT pixels tall. |
| 863 | 3151 Optional third arg non-nil means that redisplay should be HEIGHT pixels tall |
| 3152 but that the idea of the actual height of the frame should not be changed. | |
| 3153 */ | |
| 3154 (frame, height, pretend)) | |
| 3155 { | |
| 1318 | 3156 /* This can call Lisp. */ |
| 863 | 3157 struct frame *f = decode_frame (frame); |
| 5043 | 3158 int pwidth, pheight; |
| 3159 int guwidth, guheight; | |
| 3160 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3161 CHECK_FIXNUM (height); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3162 get_frame_new_total_pixel_size (f, &pwidth, &pheight); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3163 pheight = XFIXNUM (height); |
| 5043 | 3164 frame_conversion_internal (f, SIZE_TOTAL_PIXEL, pwidth, pheight, |
| 3165 SIZE_FRAME_UNIT, &guwidth, &guheight); | |
| 3166 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3167 return wrap_frame (f); | |
| 863 | 3168 } |
| 3169 | |
| 1125 | 3170 DEFUN ("set-frame-displayable-pixel-height", Fset_frame_displayable_pixel_height, 2, 3, 0, /* |
| 3171 Specify that the displayable area of frame FRAME is HEIGHT pixels tall. | |
| 3172 Optional third arg non-nil means that redisplay should be HEIGHT pixels tall | |
| 3173 but that the idea of the actual height of the frame should not be changed. | |
| 3174 */ | |
| 3175 (frame, height, pretend)) | |
| 3176 { | |
| 1318 | 3177 /* This can call Lisp. */ |
| 1125 | 3178 struct frame *f = decode_frame (frame); |
| 5043 | 3179 int pwidth, pheight; |
| 3180 int guwidth, guheight; | |
| 3181 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3182 CHECK_FIXNUM (height); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3183 get_frame_new_displayable_pixel_size (f, &pwidth, &pheight); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3184 pheight = XFIXNUM (height); |
| 5043 | 3185 frame_conversion_internal (f, SIZE_DISPLAYABLE_PIXEL, pwidth, pheight, |
| 3186 SIZE_FRAME_UNIT, &guwidth, &guheight); | |
| 3187 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3188 return wrap_frame (f); | |
| 1125 | 3189 } |
| 3190 | |
| 3191 | |
| 428 | 3192 DEFUN ("set-frame-width", Fset_frame_width, 2, 3, 0, /* |
| 3193 Specify that the frame FRAME has COLS columns. | |
| 3194 Optional third arg non-nil means that redisplay should use COLS columns | |
| 3195 but that the idea of the actual width of the frame should not be changed. | |
| 3196 */ | |
| 3197 (frame, cols, pretend)) | |
| 3198 { | |
| 1318 | 3199 /* This can call Lisp. */ |
| 428 | 3200 struct frame *f = decode_frame (frame); |
| 5043 | 3201 int cwidth, cheight; |
| 3202 int guwidth, guheight; | |
| 3203 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3204 CHECK_FIXNUM (cols); |
| 5043 | 3205 get_frame_char_size (f, &cwidth, &cheight); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3206 cwidth = XFIXNUM (cols); |
| 5043 | 3207 frame_conversion_internal (f, SIZE_CHAR_CELL, cwidth, cheight, |
| 3208 SIZE_FRAME_UNIT, &guwidth, &guheight); | |
| 3209 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3210 return wrap_frame (f); | |
| 428 | 3211 } |
| 3212 | |
| 863 | 3213 DEFUN ("set-frame-pixel-width", Fset_frame_pixel_width, 2, 3, 0, /* |
| 1125 | 3214 Specify that the frame FRAME is a total of WIDTH pixels wide. |
| 863 | 3215 Optional third arg non-nil means that redisplay should be WIDTH wide |
| 3216 but that the idea of the actual height of the frame should not be changed. | |
| 3217 */ | |
| 3218 (frame, width, pretend)) | |
| 3219 { | |
| 1318 | 3220 /* This can call Lisp. */ |
| 863 | 3221 struct frame *f = decode_frame (frame); |
| 5043 | 3222 int pwidth, pheight; |
| 3223 int guwidth, guheight; | |
| 3224 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3225 CHECK_FIXNUM (width); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3226 get_frame_new_total_pixel_size (f, &pwidth, &pheight); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3227 pwidth = XFIXNUM (width); |
| 5043 | 3228 frame_conversion_internal (f, SIZE_TOTAL_PIXEL, pwidth, pheight, |
| 3229 SIZE_FRAME_UNIT, &guwidth, &guheight); | |
| 3230 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3231 return wrap_frame (f); | |
| 1125 | 3232 } |
| 3233 | |
| 3234 DEFUN ("set-frame-displayable-pixel-width", Fset_frame_displayable_pixel_width, 2, 3, 0, /* | |
| 3235 Specify that the displayable area of frame FRAME is WIDTH pixels wide. | |
| 3236 Optional third arg non-nil means that redisplay should be WIDTH wide | |
| 3237 but that the idea of the actual height of the frame should not be changed. | |
| 3238 */ | |
| 3239 (frame, width, pretend)) | |
| 3240 { | |
| 1318 | 3241 /* This can call Lisp. */ |
| 1125 | 3242 struct frame *f = decode_frame (frame); |
| 5043 | 3243 int pwidth, pheight; |
| 3244 int guwidth, guheight; | |
| 3245 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3246 CHECK_FIXNUM (width); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3247 get_frame_new_displayable_pixel_size (f, &pwidth, &pheight); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3248 pwidth = XFIXNUM (width); |
| 5043 | 3249 frame_conversion_internal (f, SIZE_DISPLAYABLE_PIXEL, pwidth, pheight, |
| 3250 SIZE_FRAME_UNIT, &guwidth, &guheight); | |
| 3251 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3252 return wrap_frame (f); | |
| 863 | 3253 } |
| 3254 | |
| 428 | 3255 DEFUN ("set-frame-size", Fset_frame_size, 3, 4, 0, /* |
| 444 | 3256 Set the size of FRAME to COLS by ROWS, measured in characters. |
| 428 | 3257 Optional fourth arg non-nil means that redisplay should use COLS by ROWS |
| 3258 but that the idea of the actual size of the frame should not be changed. | |
| 3259 */ | |
| 3260 (frame, cols, rows, pretend)) | |
| 3261 { | |
| 1318 | 3262 /* This can call Lisp. */ |
| 428 | 3263 struct frame *f = decode_frame (frame); |
| 5043 | 3264 int guwidth, guheight; |
| 3265 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3266 CHECK_FIXNUM (cols); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3267 CHECK_FIXNUM (rows); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3268 frame_conversion_internal (f, SIZE_CHAR_CELL, XFIXNUM (cols), XFIXNUM (rows), |
| 5043 | 3269 SIZE_FRAME_UNIT, &guwidth, &guheight); |
| 3270 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3271 return wrap_frame (f); | |
| 428 | 3272 } |
| 3273 | |
| 863 | 3274 DEFUN ("set-frame-pixel-size", Fset_frame_pixel_size, 3, 4, 0, /* |
| 1125 | 3275 Set the total size of FRAME to WIDTH by HEIGHT, measured in pixels. |
| 863 | 3276 Optional fourth arg non-nil means that redisplay should use WIDTH by HEIGHT |
| 3277 but that the idea of the actual size of the frame should not be changed. | |
| 3278 */ | |
| 3279 (frame, width, height, pretend)) | |
| 3280 { | |
| 1318 | 3281 /* This can call Lisp. */ |
| 863 | 3282 struct frame *f = decode_frame (frame); |
| 5043 | 3283 int guwidth, guheight; |
| 3284 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3285 CHECK_FIXNUM (width); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3286 CHECK_FIXNUM (height); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3287 frame_conversion_internal (f, SIZE_TOTAL_PIXEL, XFIXNUM (width), XFIXNUM (height), |
| 5043 | 3288 SIZE_FRAME_UNIT, &guwidth, &guheight); |
| 3289 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3290 return wrap_frame (f); | |
| 1125 | 3291 } |
| 3292 | |
| 3293 DEFUN ("set-frame-displayable-pixel-size", Fset_frame_displayable_pixel_size, 3, 4, 0, /* | |
| 3294 Set the displayable size of FRAME to WIDTH by HEIGHT, measured in pixels. | |
| 3295 Optional fourth arg non-nil means that redisplay should use WIDTH by HEIGHT | |
| 3296 but that the idea of the actual size of the frame should not be changed. | |
| 3297 */ | |
| 3298 (frame, width, height, pretend)) | |
| 3299 { | |
| 1318 | 3300 /* This can call Lisp. */ |
| 1125 | 3301 struct frame *f = decode_frame (frame); |
| 5043 | 3302 int guwidth, guheight; |
| 3303 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3304 CHECK_FIXNUM (width); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3305 CHECK_FIXNUM (height); |
| 5043 | 3306 frame_conversion_internal (f, SIZE_DISPLAYABLE_PIXEL, |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3307 XFIXNUM (width), XFIXNUM (height), |
| 5043 | 3308 SIZE_FRAME_UNIT, &guwidth, &guheight); |
| 3309 internal_set_frame_size (f, guwidth, guheight, !NILP (pretend)); | |
| 3310 return wrap_frame (f); | |
| 863 | 3311 } |
| 3312 | |
| 428 | 3313 DEFUN ("set-frame-position", Fset_frame_position, 3, 3, 0, /* |
| 3314 Set position of FRAME in pixels to XOFFSET by YOFFSET. | |
| 3315 This is actually the position of the upper left corner of the frame. | |
| 3316 Negative values for XOFFSET or YOFFSET are interpreted relative to | |
| 3317 the rightmost or bottommost possible position (that stays within the screen). | |
| 3318 */ | |
| 3319 (frame, xoffset, yoffset)) | |
| 3320 { | |
| 3321 struct frame *f = decode_frame (frame); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3322 CHECK_FIXNUM (xoffset); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3323 CHECK_FIXNUM (yoffset); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3324 |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3325 MAYBE_FRAMEMETH (f, set_frame_position, (f, XFIXNUM (xoffset), XFIXNUM (yoffset))); |
| 428 | 3326 |
| 3327 return Qt; | |
| 3328 } | |
| 3329 | |
| 3330 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3331 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3332 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3333 /* various ways of measuring the frame size */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3334 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3335 /**************************************************************************/ |
| 428 | 3336 |
| 3337 /* Frame size conversion functions moved here from EmacsFrame.c | |
| 3338 because they're generic and really don't belong in that file. | |
| 3339 Function get_default_char_pixel_size() removed because it's | |
|
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
5046
diff
changeset
|
3340 exactly the same as default_face_width_and_height(). |
| 5043 | 3341 |
| 3342 Convert between total pixel size, displayable pixel size and | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3343 character-cell size. Variables are either "in", "out" or unused, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3344 depending on the value of PIXEL_TO_CHAR, which indicates which units the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3345 source and destination values are measured in. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3346 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3347 See frame_conversion_internal() for a discussion of the different |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3348 types of units. */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3349 |
| 428 | 3350 static void |
| 5043 | 3351 frame_conversion_internal_1 (struct frame *f, |
| 3352 pixel_to_char_mode_t pixel_to_char, | |
| 3353 int *total_pixel_width, int *total_pixel_height, | |
| 3354 int *disp_pixel_width, int *disp_pixel_height, | |
| 3355 int *char_width, int *char_height) | |
| 428 | 3356 { |
| 5043 | 3357 int cpw, cph; |
| 428 | 3358 int egw; |
| 3359 int obw, obh, bdr; | |
| 3360 Lisp_Object frame, window; | |
| 3361 | |
| 793 | 3362 frame = wrap_frame (f); |
|
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
5046
diff
changeset
|
3363 default_face_width_and_height (frame, &cpw, &cph); |
| 428 | 3364 |
| 3365 window = FRAME_SELECTED_WINDOW (f); | |
| 3366 | |
| 5045 | 3367 /* #### It really seems like we should also be subtracting out the |
| 3368 theoretical gutter width and height, just like we do for toolbars. | |
| 3369 There is currently a bug where if you call `set-frame-pixel-width' | |
| 3370 on MS Windows (at least, possibly also X) things get confused and | |
| 3371 the top of the root window overlaps the top gutter instead of being | |
| 3372 below it. This gets fixed next time you resize the frame using the | |
| 3373 mouse. Possibly this is caused by not handling the gutter height | |
| 3374 here? */ | |
| 438 | 3375 egw = max (glyph_width (Vcontinuation_glyph, window), |
| 3376 glyph_width (Vtruncation_glyph, window)); | |
| 428 | 3377 egw = max (egw, cpw); |
| 3378 bdr = 2 * f->internal_border_width; | |
| 3379 obw = FRAME_SCROLLBAR_WIDTH (f) + FRAME_THEORETICAL_LEFT_TOOLBAR_WIDTH (f) + | |
| 3380 FRAME_THEORETICAL_RIGHT_TOOLBAR_WIDTH (f) + | |
| 3381 2 * FRAME_THEORETICAL_LEFT_TOOLBAR_BORDER_WIDTH (f) + | |
| 3382 2 * FRAME_THEORETICAL_RIGHT_TOOLBAR_BORDER_WIDTH (f); | |
| 3383 obh = FRAME_SCROLLBAR_HEIGHT (f) + FRAME_THEORETICAL_TOP_TOOLBAR_HEIGHT (f) + | |
| 3384 FRAME_THEORETICAL_BOTTOM_TOOLBAR_HEIGHT (f) + | |
| 3385 2 * FRAME_THEORETICAL_TOP_TOOLBAR_BORDER_WIDTH (f) + | |
| 3386 2 * FRAME_THEORETICAL_BOTTOM_TOOLBAR_BORDER_WIDTH (f); | |
| 3387 | |
| 863 | 3388 /* Convert to chars so that the displayable area is pixel_width x |
| 3389 pixel_height. | |
| 3390 | |
| 3391 #### Consider rounding up to 0.5 characters to avoid adding too | |
| 3392 much space. */ | |
| 1125 | 3393 switch (pixel_to_char) |
| 863 | 3394 { |
| 1125 | 3395 case DISPLAYABLE_PIXEL_TO_CHAR: |
| 863 | 3396 if (char_width) |
| 5043 | 3397 *char_width = ROUND_UP (*disp_pixel_width, cpw) / cpw; |
| 863 | 3398 if (char_height) |
| 5043 | 3399 *char_height = ROUND_UP (*disp_pixel_height, cph) / cph; |
| 3400 break; | |
| 3401 case CHAR_TO_DISPLAYABLE_PIXEL: | |
| 3402 if (disp_pixel_width) | |
| 3403 *disp_pixel_width = *char_width * cpw; | |
| 3404 if (disp_pixel_height) | |
| 3405 *disp_pixel_height = *char_height * cph; | |
| 1125 | 3406 break; |
| 3407 case TOTAL_PIXEL_TO_CHAR: | |
| 3408 /* Convert to chars so that the total frame size is pixel_width x | |
| 3409 pixel_height. */ | |
| 428 | 3410 if (char_width) |
| 5043 | 3411 *char_width = 1 + ((*total_pixel_width - egw) - bdr - obw) / cpw; |
| 428 | 3412 if (char_height) |
| 5043 | 3413 *char_height = (*total_pixel_height - bdr - obh) / cph; |
| 1125 | 3414 break; |
| 3415 case CHAR_TO_TOTAL_PIXEL: | |
| 5043 | 3416 if (total_pixel_width) |
| 3417 *total_pixel_width = (*char_width - 1) * cpw + egw + bdr + obw; | |
| 3418 if (total_pixel_height) | |
| 3419 *total_pixel_height = *char_height * cph + bdr + obh; | |
| 1125 | 3420 break; |
| 5043 | 3421 case TOTAL_PIXEL_TO_DISPLAYABLE_PIXEL: |
| 3422 /* Convert to chars so that the total frame size is pixel_width x | |
| 3423 pixel_height. */ | |
| 3424 if (disp_pixel_width) | |
| 3425 *disp_pixel_width = cpw + (*total_pixel_width - egw) - bdr - obw; | |
| 3426 if (disp_pixel_height) | |
| 3427 *disp_pixel_height = *total_pixel_height - bdr - obh; | |
| 3428 break; | |
| 3429 case DISPLAYABLE_PIXEL_TO_TOTAL_PIXEL: | |
| 3430 if (total_pixel_width) | |
| 3431 *total_pixel_width = *disp_pixel_width - cpw + egw + bdr + obw; | |
| 3432 if (total_pixel_height) | |
| 3433 *total_pixel_height = *disp_pixel_height + bdr + obh; | |
| 1125 | 3434 break; |
| 428 | 3435 } |
| 3436 } | |
| 3437 | |
| 5043 | 3438 |
| 3439 static enum frame_size_type | |
| 3440 canonicalize_frame_size_type (enum frame_size_type type, int pixgeom) | |
| 3441 { | |
| 3442 if (type == SIZE_FRAME_UNIT) | |
| 3443 { | |
| 3444 if (pixgeom) | |
| 3445 type = SIZE_DISPLAYABLE_PIXEL; | |
| 3446 else | |
| 3447 type = SIZE_CHAR_CELL; | |
| 3448 } | |
| 3449 return type; | |
| 3450 } | |
| 3451 | |
| 3452 /* Basic frame conversion function. Convert source size to destination | |
| 3453 size, where either of them can be in total pixels, displayable pixels, | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3454 frame units or character-cell units. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3455 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3456 See comment at top of file for discussion about different types of |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3457 units. */ |
| 5043 | 3458 |
| 3459 static void | |
| 3460 frame_conversion_internal (struct frame *f, | |
| 3461 enum frame_size_type source, | |
| 3462 int source_width, int source_height, | |
| 3463 enum frame_size_type dest, | |
| 3464 int *dest_width, int *dest_height) | |
| 3465 { | |
| 3466 int pixgeom = window_system_pixelated_geometry (wrap_frame (f)); | |
| 3467 dest = canonicalize_frame_size_type (dest, pixgeom); | |
| 3468 source = canonicalize_frame_size_type (source, pixgeom); | |
| 3469 if (source == dest) | |
| 3470 { | |
| 3471 *dest_width = source_width; | |
| 3472 *dest_height = source_height; | |
| 3473 } | |
| 3474 else if (source == SIZE_TOTAL_PIXEL && dest == SIZE_CHAR_CELL) | |
| 3475 frame_conversion_internal_1 (f, TOTAL_PIXEL_TO_CHAR, | |
| 3476 &source_width, &source_height, 0, 0, | |
| 3477 dest_width, dest_height); | |
| 3478 else if (source == SIZE_DISPLAYABLE_PIXEL && dest == SIZE_CHAR_CELL) | |
| 3479 frame_conversion_internal_1 (f, DISPLAYABLE_PIXEL_TO_CHAR, 0, 0, | |
| 3480 &source_width, &source_height, | |
| 3481 dest_width, dest_height); | |
| 3482 else if (source == SIZE_TOTAL_PIXEL && dest == SIZE_DISPLAYABLE_PIXEL) | |
| 3483 frame_conversion_internal_1 (f, TOTAL_PIXEL_TO_DISPLAYABLE_PIXEL, | |
| 3484 &source_width, &source_height, | |
| 3485 dest_width, dest_height, 0, 0); | |
| 3486 else if (dest == SIZE_TOTAL_PIXEL && source == SIZE_CHAR_CELL) | |
| 3487 frame_conversion_internal_1 (f, CHAR_TO_TOTAL_PIXEL, | |
| 3488 dest_width, dest_height, 0, 0, | |
| 3489 &source_width, &source_height); | |
| 3490 else if (dest == SIZE_DISPLAYABLE_PIXEL && source == SIZE_CHAR_CELL) | |
| 3491 frame_conversion_internal_1 (f, CHAR_TO_DISPLAYABLE_PIXEL, 0, 0, | |
| 3492 dest_width, dest_height, | |
| 3493 &source_width, &source_height); | |
| 3494 else if (dest == SIZE_TOTAL_PIXEL && source == SIZE_DISPLAYABLE_PIXEL) | |
| 3495 frame_conversion_internal_1 (f, DISPLAYABLE_PIXEL_TO_TOTAL_PIXEL, | |
| 3496 dest_width, dest_height, | |
| 3497 &source_width, &source_height, 0, 0); | |
| 3498 else | |
| 3499 { | |
| 3500 ABORT (); | |
| 3501 if (dest_width) | |
| 3502 *dest_width = 0; | |
| 3503 if (dest_height) | |
| 3504 *dest_height = 0; | |
| 3505 } | |
| 3506 } | |
| 3507 | |
| 3508 /* This takes the size in pixels of the client area, and returns the number | |
| 428 | 3509 of characters that will fit there, taking into account the internal |
| 3510 border width, and the pixel width of the line terminator glyphs (which | |
| 3511 always count as one "character" wide, even if they are not the same size | |
| 3512 as the default character size of the default font). The frame scrollbar | |
| 3513 width and left and right toolbar widths are also subtracted out of the | |
| 3514 available width. The frame scrollbar height and top and bottom toolbar | |
| 3515 heights are subtracted out of the available height. | |
| 3516 | |
| 3517 Therefore the result is not necessarily a multiple of anything in | |
| 3518 particular. */ | |
| 5043 | 3519 |
| 428 | 3520 void |
| 3521 pixel_to_char_size (struct frame *f, int pixel_width, int pixel_height, | |
| 3522 int *char_width, int *char_height) | |
| 3523 { | |
| 5043 | 3524 frame_conversion_internal (f, SIZE_TOTAL_PIXEL, pixel_width, pixel_height, |
| 3525 SIZE_CHAR_CELL, char_width, char_height); | |
| 428 | 3526 } |
| 3527 | |
| 5043 | 3528 /* Given a character size, this returns the minimum pixel size of the |
| 3529 client area necessary to display that many characters, taking into | |
| 3530 account the internal border width, scrollbar height and width, toolbar | |
| 3531 heights and widths and the size of the line terminator glyphs (assuming | |
| 3532 the line terminators take up exactly one character position). | |
| 428 | 3533 |
| 3534 Therefore the result is not necessarily a multiple of anything in | |
| 3535 particular. */ | |
| 5043 | 3536 |
| 428 | 3537 void |
| 3538 char_to_pixel_size (struct frame *f, int char_width, int char_height, | |
| 3539 int *pixel_width, int *pixel_height) | |
| 3540 { | |
| 5043 | 3541 frame_conversion_internal (f, SIZE_CHAR_CELL, char_width, char_height, |
| 3542 SIZE_TOTAL_PIXEL, pixel_width, pixel_height); | |
| 428 | 3543 } |
| 3544 | |
| 5043 | 3545 /* Versions of the above that operate in "frame units" instead of |
| 3546 characters. frame units are the same as characters except on | |
| 3547 MS Windows and MS Printer frames, where they are displayable-area | |
| 3548 pixels. */ | |
| 3549 | |
| 3550 void | |
| 3551 pixel_to_frame_unit_size (struct frame *f, int pixel_width, int pixel_height, | |
| 3552 int *frame_unit_width, int *frame_unit_height) | |
| 3553 { | |
| 3554 frame_conversion_internal (f, SIZE_TOTAL_PIXEL, pixel_width, pixel_height, | |
| 3555 SIZE_FRAME_UNIT, frame_unit_width, | |
| 3556 frame_unit_height); | |
| 3557 } | |
| 3558 | |
| 3559 void | |
| 3560 frame_unit_to_pixel_size (struct frame *f, int frame_unit_width, | |
| 3561 int frame_unit_height, | |
| 3562 int *pixel_width, int *pixel_height) | |
| 3563 { | |
| 3564 frame_conversion_internal (f, SIZE_FRAME_UNIT, frame_unit_width, | |
| 3565 frame_unit_height, | |
| 3566 SIZE_TOTAL_PIXEL, pixel_width, pixel_height); | |
| 3567 } | |
| 3568 | |
| 428 | 3569 void |
| 3570 round_size_to_char (struct frame *f, int in_width, int in_height, | |
| 3571 int *out_width, int *out_height) | |
| 3572 { | |
| 3573 int char_width; | |
| 3574 int char_height; | |
| 3575 pixel_to_char_size (f, in_width, in_height, &char_width, &char_height); | |
| 3576 char_to_pixel_size (f, char_width, char_height, out_width, out_height); | |
| 3577 } | |
| 3578 | |
| 5043 | 3579 static void |
| 3580 get_frame_char_size (struct frame *f, int *out_width, int *out_height) | |
| 428 | 3581 { |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3582 *out_width = FRAME_CHARWIDTH (f); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3583 *out_height = FRAME_CHARHEIGHT (f); |
| 428 | 3584 } |
| 3585 | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3586 /* Return the "new" frame size in displayable pixels, which will be |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3587 accurate as of next redisplay. If we have changed the default font or |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3588 toolbar or scrollbar specifiers, the frame pixel size will change as of |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3589 next redisplay, but the frame character-cell size will remain the same. |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3590 So use those dimensions to compute the displayable-pixel size. */ |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3591 |
| 5043 | 3592 static void |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3593 get_frame_new_displayable_pixel_size (struct frame *f, int *out_width, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3594 int *out_height) |
| 428 | 3595 { |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3596 frame_conversion_internal (f, SIZE_CHAR_CELL, FRAME_CHARWIDTH (f), |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3597 FRAME_CHARHEIGHT (f), SIZE_DISPLAYABLE_PIXEL, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3598 out_width, out_height); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3599 } |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3600 |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3601 /* Return the "new" frame size in total pixels, which will be |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3602 accurate as of next redisplay. See get_frame_new_displayable_pixel_size(). |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3603 */ |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3604 |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3605 |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3606 static void |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3607 get_frame_new_total_pixel_size (struct frame *f, int *out_width, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3608 int *out_height) |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3609 { |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3610 frame_conversion_internal (f, SIZE_CHAR_CELL, FRAME_CHARWIDTH (f), |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3611 FRAME_CHARHEIGHT (f), SIZE_TOTAL_PIXEL, |
| 5043 | 3612 out_width, out_height); |
| 428 | 3613 } |
| 3614 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3615 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3616 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3617 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3618 /* frame resizing (implementation) */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3619 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3620 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3621 |
| 5045 | 3622 /* Change the frame height and/or width. Values passed in are in |
| 3623 frame units (character cells on X/GTK, displayable-area pixels | |
| 3624 on MS Windows or generally on pixelated-geometry window systems). */ | |
| 428 | 3625 static void |
| 5043 | 3626 change_frame_size_1 (struct frame *f, int newwidth, int newheight) |
| 428 | 3627 { |
| 3628 int new_pixheight, new_pixwidth; | |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3629 int paned_pixheight, paned_pixwidth; |
| 5043 | 3630 int real_font_height, real_font_width; |
| 428 | 3631 |
| 3632 /* #### Chuck -- shouldn't we be checking to see if the frame | |
| 3633 is being "changed" to its existing size, and do nothing if so? */ | |
| 3634 /* No, because it would hose toolbar updates. The toolbar | |
| 3635 update code relies on this function to cause window `top' and | |
| 3636 `left' coordinates to be recomputed even though no frame size | |
| 3637 change occurs. --kyle */ | |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4976
diff
changeset
|
3638 assert (!in_display && !hold_frame_size_changes); |
| 428 | 3639 |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3640 /* We no longer allow bogus values passed in. */ |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3641 assert (newheight && newwidth); |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3642 |
|
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
5046
diff
changeset
|
3643 default_face_width_and_height (wrap_frame (f), &real_font_width, |
|
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
5046
diff
changeset
|
3644 &real_font_height); |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3645 |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3646 frame_conversion_internal (f, SIZE_FRAME_UNIT, newwidth, newheight, |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3647 SIZE_TOTAL_PIXEL, &new_pixwidth, |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3648 &new_pixheight); |
| 428 | 3649 |
| 3650 /* This size-change overrides any pending one for this frame. */ | |
| 4307 | 3651 f->size_change_pending = 0; |
| 428 | 3652 FRAME_NEW_HEIGHT (f) = 0; |
| 3653 FRAME_NEW_WIDTH (f) = 0; | |
| 3654 | |
| 5045 | 3655 /* We need to remove the boundaries of the paned area (see top of file) |
| 3656 from the total-area pixel size, which is what we have now. | |
|
5078
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3657 */ |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3658 paned_pixheight = new_pixheight - |
|
5078
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3659 (FRAME_NONPANED_SIZE (f, TOP_EDGE) + FRAME_NONPANED_SIZE (f, BOTTOM_EDGE)); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3660 paned_pixwidth = new_pixwidth - |
|
5078
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3661 (FRAME_NONPANED_SIZE (f, LEFT_EDGE) + FRAME_NONPANED_SIZE (f, RIGHT_EDGE)); |
|
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3662 |
|
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3663 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top = FRAME_PANED_TOP_EDGE (f); |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3664 |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3665 if (FRAME_HAS_MINIBUF_P (f) |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3666 && ! FRAME_MINIBUF_ONLY_P (f)) |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3667 /* Frame has both root and minibuffer. */ |
| 428 | 3668 { |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3669 /* |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3670 * Leave the minibuffer height the same if the frame has |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3671 * been initialized, and the minibuffer height is tall |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3672 * enough to display at least one line of text in the default |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3673 * font, and the old minibuffer height is a multiple of the |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3674 * default font height. This should cause the minibuffer |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3675 * height to be recomputed on font changes but not for |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3676 * other frame size changes, which seems reasonable. |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3677 */ |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3678 int old_minibuf_height = |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3679 XWINDOW (FRAME_MINIBUF_WINDOW (f))->pixel_height; |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3680 int minibuf_height = |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3681 f->init_finished && (old_minibuf_height % real_font_height) == 0 ? |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3682 max (old_minibuf_height, real_font_height) : |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3683 real_font_height; |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3684 set_window_pixheight (FRAME_ROOT_WINDOW (f), |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3685 /* - font_height for minibuffer */ |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3686 paned_pixheight - minibuf_height, 0); |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3687 |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3688 XWINDOW (FRAME_MINIBUF_WINDOW (f))->pixel_top = |
|
5078
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3689 FRAME_PANED_TOP_EDGE (f) + |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3690 FRAME_BOTTOM_GUTTER_BOUNDS (f) + |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3691 paned_pixheight - minibuf_height; |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3692 |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3693 set_window_pixheight (FRAME_MINIBUF_WINDOW (f), minibuf_height, 0); |
| 428 | 3694 } |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3695 else |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3696 /* Frame has just one top-level window. */ |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3697 set_window_pixheight (FRAME_ROOT_WINDOW (f), paned_pixheight, 0); |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3698 |
|
5109
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3699 /* Set the value of FRAME_WIDTH/FRAME_HEIGHT and |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3700 FRAME_CHARWIDTH/FRAME_CHARHEIGHT. |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3701 |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3702 Question: Where is FRAME_PIXWIDTH/FRAME_PIXHEIGHT set? |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3703 Answer: In the device-specific code, as a result of a callback from |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3704 the window system indicating that the frame has changed size. |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3705 This happens: |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3706 |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3707 (1) in the WM_SIZE processing in event-msw.c |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3708 (2) in update_various_frame_slots() called from EmacsFrameResize() |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3709 (called from Xt when the frame is resized) in EmacsFrame.c for X |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3710 (3) in resize_event_cb() in frame-gtk.c |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3711 (4) For TTY's, there is no such callback, so we have to set it |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3712 ourselves. |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3713 */ |
|
c113da3e2f67
add a comment about where FRAME_PIXWIDTH/FRAME_PIXHEIGHT is set
Ben Wing <ben@xemacs.org>
parents:
5105
diff
changeset
|
3714 |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3715 FRAME_HEIGHT (f) = newheight; |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3716 if (FRAME_TTY_P (f)) |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3717 f->pixheight = newheight; |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3718 |
|
5078
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3719 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left = FRAME_PANED_LEFT_EDGE (f); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3720 set_window_pixwidth (FRAME_ROOT_WINDOW (f), paned_pixwidth, 0); |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3721 |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3722 if (FRAME_HAS_MINIBUF_P (f)) |
| 428 | 3723 { |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3724 XWINDOW (FRAME_MINIBUF_WINDOW (f))->pixel_left = |
|
5078
a04cf0fea770
fix for clipped minibuffer window
Ben Wing <ben@xemacs.org>
parents:
5052
diff
changeset
|
3725 FRAME_PANED_LEFT_EDGE (f); |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3726 set_window_pixwidth (FRAME_MINIBUF_WINDOW (f), paned_pixwidth, 0); |
| 428 | 3727 } |
| 3728 | |
|
5044
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3729 FRAME_WIDTH (f) = newwidth; |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3730 if (FRAME_TTY_P (f)) |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3731 f->pixwidth = newwidth; |
|
e84a30b0e4a2
remove duplicative code in change_frame_size()
Ben Wing <ben@xemacs.org>
parents:
5043
diff
changeset
|
3732 |
|
5105
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3733 /* Set the frame character-cell width appropriately. */ |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3734 if (window_system_pixelated_geometry (wrap_frame (f))) |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3735 pixel_to_char_size (f, new_pixwidth, new_pixheight, |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3736 &FRAME_CHARWIDTH (f), &FRAME_CHARHEIGHT (f)); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3737 else |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3738 { |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3739 FRAME_CHARWIDTH (f) = FRAME_WIDTH (f); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3740 FRAME_CHARHEIGHT (f) = FRAME_HEIGHT (f); |
|
d76a51b29d91
fix Stephen's bug with frame sizing
Ben Wing <ben@xemacs.org>
parents:
5104
diff
changeset
|
3741 } |
| 428 | 3742 |
| 3743 MARK_FRAME_TOOLBARS_CHANGED (f); | |
| 442 | 3744 MARK_FRAME_GUTTERS_CHANGED (f); |
| 428 | 3745 MARK_FRAME_CHANGED (f); |
| 3746 f->echo_area_garbaged = 1; | |
| 3747 } | |
| 3748 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3749 /* This function is called to change the redisplay structures of a frame |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3750 to correspond to a new width and height. IT DOES NOT CHANGE THE ACTUAL |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3751 SIZE OF A FRAME. It is meant to be called after the frame has been |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3752 resized, either as a result of user action or a call to a function |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3753 such as `set-frame-size'. For example, under MS-Windows it is called |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3754 from mswindows_wnd_proc() when a WM_SIZE message is received, indicating |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3755 that the user resized the frame, and from mswindows_set_frame_size(), |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3756 which is the device method that is called (from internal_set_frame_size()) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3757 when `set-frame-size' or similar function is called. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3758 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3759 Values passed in are in frame units (character cells on X/GTK, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3760 displayable-area pixels on MS Windows or generally on pixelated-geometry |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3761 window systems). See discussion at top of file. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3762 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3763 See also internal_set_frame_size() and adjust_frame_size(). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3764 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3765 |
| 428 | 3766 void |
| 5043 | 3767 change_frame_size (struct frame *f, int newwidth, int newheight, int delay) |
| 428 | 3768 { |
| 3769 /* sometimes we get passed a size that's too small (esp. when a | |
| 3770 client widget gets resized, since we have no control over this). | |
| 3771 So deal. */ | |
|
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
5046
diff
changeset
|
3772 check_frame_size (f, &newwidth, &newheight); |
| 428 | 3773 |
| 450 | 3774 /* Unconditionally mark that the frame has changed size. This is |
| 3775 because many things need to know after the | |
| 3776 fact. f->size_change_pending will get reset below. The most that | |
| 3777 can happen is that we will cycle through redisplay once more | |
| 3778 --andy. */ | |
| 3779 MARK_FRAME_SIZE_CHANGED (f); | |
| 3780 | |
| 3092 | 3781 #ifdef NEW_GC |
| 3782 if (delay || hold_frame_size_changes) | |
| 3783 #else /* not NEW_GC */ | |
| 1318 | 3784 if (delay || hold_frame_size_changes || gc_in_progress) |
| 3092 | 3785 #endif /* not NEW_GC */ |
| 428 | 3786 { |
| 3787 f->new_width = newwidth; | |
| 3788 f->new_height = newheight; | |
| 3789 return; | |
| 3790 } | |
| 3791 | |
| 3792 /* For TTY frames, it's like one, like all ... | |
| 3793 Can't have two TTY frames of different sizes on the same device. */ | |
| 3794 if (FRAME_TTY_P (f)) | |
| 3795 { | |
| 3796 Lisp_Object frmcons; | |
| 3797 | |
| 3798 DEVICE_FRAME_LOOP (frmcons, XDEVICE (FRAME_DEVICE (f))) | |
| 5043 | 3799 change_frame_size_1 (XFRAME (XCAR (frmcons)), newwidth, newheight); |
| 428 | 3800 } |
| 3801 else | |
| 5043 | 3802 change_frame_size_1 (f, newwidth, newheight); |
| 428 | 3803 } |
| 3804 | |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3805 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3806 /* This function is called from `set-frame-size' or the like, to explicitly |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3807 change the size of a frame. It calls the `set_frame_size' device |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3808 method, which makes the necessary window-system-specific call to change |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3809 the size of the frame and then calls change_frame_size() to change |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3810 the redisplay structures appropriately. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3811 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3812 Values passed in are in frame units (character cells on X/GTK, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3813 displayable-area pixels on MS Windows or generally on pixelated-geometry |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3814 window systems). See discussion at top of file. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3815 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3816 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3817 void |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3818 internal_set_frame_size (struct frame *f, int cols, int rows, int pretend) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3819 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3820 /* This can call Lisp. See mswindows_set_frame_size(). */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3821 /* An explicit size change cancels any pending frame size adjustment */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3822 CLEAR_FRAME_SIZE_SLIPPED (f); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3823 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3824 if (pretend || !HAS_FRAMEMETH_P (f, set_frame_size)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3825 change_frame_size (f, cols, rows, 0); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3826 else |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3827 FRAMEMETH (f, set_frame_size, (f, cols, rows)); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3828 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3829 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3830 /* This function is called from redisplay_frame() as a result of the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3831 "frame_slipped" flag being set. This flag is set when the default font |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3832 changes or when a change to scrollbar or toolbar visibility or size |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3833 is made (e.g. when a specifier such as `scrollbar-width' is changed). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3834 Its purpose is to resize the frame so that its size in character-cell |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3835 units stays the same. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3836 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3837 #### It should also be triggered by a change the gutter visibility or |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3838 size. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3839 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3840 When a scrollbar or toolbar specifier is changed, the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3841 frame_size_slipped() function is called (this happens because the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3842 specifier's value_changed_in_frame() hook has been set to |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3843 frame_size_slipped() by a call to set_specifier_caching()). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3844 All this does is call MARK_FRAME_SIZE_SLIPPED(), which sets the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3845 frame_slipped flag, which gets noticed by redisplay_frame(), as just |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3846 discussed. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3847 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3848 The way things get triggered when a change is made to the default font |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3849 is as follows: |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3850 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3851 (1) The specifier for the default font, which is attached to the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3852 face named `default', has its "face" property set to the `default' |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3853 face. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3854 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3855 (2) font_after_change() (the font specifier's after_changed() method) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3856 is called for the font specifier. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3857 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3858 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3859 (3) It in turn calls face_property_was_changed(), passing in the |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3860 default face. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3861 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3862 (4) face_property_was_changed() notices that the default face is having |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3863 a property set and calls update_EmacsFrame(). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3864 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3865 (5) This in turn notices that the default face's font is being changed |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3866 and calls MARK_FRAME_SIZE_SLIPPED() -- see above. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3867 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3868 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3869 void |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3870 adjust_frame_size (struct frame *f) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3871 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3872 /* This can call Lisp. */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3873 int keep_char_size = 0; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3874 Lisp_Object frame = wrap_frame (f); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3875 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3876 if (!f->size_slipped) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3877 return; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3878 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3879 /* Don't adjust tty frames. #### May break when TTY have menubars. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3880 Then, write an Vadjust_frame_function which will return t for TTY |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3881 frames. Another solution is frame_size_fixed_p method for TTYs, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3882 which always returned yes it's fixed. |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3883 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3884 if (!FRAME_WIN_P (f)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3885 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3886 CLEAR_FRAME_SIZE_SLIPPED (f); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3887 return; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3888 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3889 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3890 /* frame_size_fixed_p tells that frame size cannot currently |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3891 be changed change due to external conditions */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3892 if (!FRAMEMETH_OR_GIVEN (f, frame_size_fixed_p, (f), 0)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3893 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3894 if (NILP (Vadjust_frame_function)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3895 keep_char_size = 1; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3896 else if (EQ (Vadjust_frame_function, Qt)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3897 keep_char_size = 0; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3898 else |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3899 keep_char_size = |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3900 NILP (call1_trapping_problems ("Error in adjust-frame-function", |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3901 Vadjust_frame_function, frame, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3902 0)); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3903 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3904 if (keep_char_size) |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3905 Fset_frame_size (frame, make_fixnum (FRAME_CHARWIDTH(f)), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5474
diff
changeset
|
3906 make_fixnum (FRAME_CHARHEIGHT(f)), Qnil); |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3907 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3908 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3909 if (!keep_char_size) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3910 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3911 int height, width; |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3912 pixel_to_frame_unit_size (f, FRAME_PIXWIDTH(f), FRAME_PIXHEIGHT(f), |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3913 &width, &height); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3914 change_frame_size (f, width, height, 0); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3915 CLEAR_FRAME_SIZE_SLIPPED (f); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3916 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3917 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3918 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3919 /* This is a "specifier changed in frame" handler for various specifiers |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3920 changing which causes frame size adjustment. See the discussion in |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3921 adjust_frame_size(). |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3922 */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3923 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3924 void |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3925 frame_size_slipped (Lisp_Object UNUSED (specifier), struct frame *f, |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3926 Lisp_Object UNUSED (oldval)) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3927 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3928 MARK_FRAME_SIZE_SLIPPED (f); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3929 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3930 |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3931 void |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3932 invalidate_vertical_divider_cache_in_frame (struct frame *f) |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3933 { |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3934 /* Invalidate cached value of needs_vertical_divider_p in |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3935 every and all windows */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3936 map_windows (f, invalidate_vertical_divider_cache_in_window, 0); |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3937 } |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3938 |
| 428 | 3939 |
|
5104
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3940 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3941 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3942 /* frame title, icon, pointer */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3943 /* */ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3944 /**************************************************************************/ |
|
868a5349acee
add documentation to frame.c, rearrange some functions to consolidate in related areas
Ben Wing <ben@xemacs.org>
parents:
5090
diff
changeset
|
3945 |
| 438 | 3946 /* The caller is responsible for freeing the returned string. */ |
| 867 | 3947 static Ibyte * |
| 438 | 3948 generate_title_string (struct window *w, Lisp_Object format_str, |
| 3949 face_index findex, int type) | |
| 3950 { | |
| 3951 struct display_line *dl; | |
| 3952 struct display_block *db; | |
| 3953 int elt = 0; | |
| 3954 | |
| 3955 dl = &title_string_display_line; | |
| 3956 db = get_display_block_from_line (dl, TEXT); | |
| 3957 Dynarr_reset (db->runes); | |
| 3958 | |
| 3959 generate_formatted_string_db (format_str, Qnil, w, dl, db, findex, 0, | |
| 4207 | 3960 -1, type); |
| 438 | 3961 |
| 867 | 3962 Dynarr_reset (title_string_ichar_dynarr); |
| 438 | 3963 while (elt < Dynarr_length (db->runes)) |
| 3964 { | |
| 3965 if (Dynarr_atp (db->runes, elt)->type == RUNE_CHAR) | |
| 867 | 3966 Dynarr_add (title_string_ichar_dynarr, |
| 438 | 3967 Dynarr_atp (db->runes, elt)->object.chr.ch); |
| 3968 elt++; | |
| 3969 } | |
| 3970 | |
| 3971 return | |
| 867 | 3972 convert_ichar_string_into_malloced_string |
| 4967 | 3973 (Dynarr_begin (title_string_ichar_dynarr), |
| 867 | 3974 Dynarr_length (title_string_ichar_dynarr), 0); |
| 438 | 3975 } |
| 3976 | |
| 428 | 3977 void |
| 3978 update_frame_title (struct frame *f) | |
| 3979 { | |
| 3980 struct window *w = XWINDOW (FRAME_SELECTED_WINDOW (f)); | |
| 3981 Lisp_Object title_format; | |
| 3982 Lisp_Object icon_format; | |
| 867 | 3983 Ibyte *title; |
| 428 | 3984 |
| 3985 /* We don't change the title for the minibuffer unless the frame | |
| 3986 only has a minibuffer. */ | |
| 3987 if (MINI_WINDOW_P (w) && !FRAME_MINIBUF_ONLY_P (f)) | |
| 3988 return; | |
| 3989 | |
| 3990 /* And we don't want dead buffers to blow up on us. */ | |
| 3991 if (!BUFFER_LIVE_P (XBUFFER (w->buffer))) | |
| 3992 return; | |
| 3993 | |
| 3994 title = NULL; | |
| 3995 title_format = symbol_value_in_buffer (Qframe_title_format, w->buffer); | |
| 3996 icon_format = symbol_value_in_buffer (Qframe_icon_title_format, w->buffer); | |
| 3997 | |
| 867 | 3998 if (HAS_FRAMEMETH_P (f, set_title_from_ibyte)) |
| 428 | 3999 { |
| 438 | 4000 title = generate_title_string (w, title_format, |
| 4001 DEFAULT_INDEX, CURRENT_DISP); | |
| 867 | 4002 FRAMEMETH (f, set_title_from_ibyte, (f, title)); |
| 428 | 4003 } |
| 4004 | |
| 867 | 4005 if (HAS_FRAMEMETH_P (f, set_icon_name_from_ibyte)) |
| 428 | 4006 { |
| 4007 if (!EQ (icon_format, title_format) || !title) | |
| 4008 { | |
| 4009 if (title) | |
|
4976
16112448d484
Rename xfree(FOO, TYPE) -> xfree(FOO)
Ben Wing <ben@xemacs.org>
parents:
4968
diff
changeset
|
4010 xfree (title); |
| 428 | 4011 |
| 438 | 4012 title = generate_title_string (w, icon_format, |
| 4013 DEFAULT_INDEX, CURRENT_DISP); | |
| 428 | 4014 } |
| 867 | 4015 FRAMEMETH (f, set_icon_name_from_ibyte, (f, title)); |
| 428 | 4016 } |
| 4017 | |
| 4018 if (title) | |
|
4976
16112448d484
Rename xfree(FOO, TYPE) -> xfree(FOO)
Ben Wing <ben@xemacs.org>
parents:
4968
diff
changeset
|
4019 xfree (title); |
| 428 | 4020 } |
| 4021 | |
| 4022 | |
| 4023 DEFUN ("set-frame-pointer", Fset_frame_pointer, 2, 2, 0, /* | |
| 4024 Set the mouse pointer of FRAME to the given pointer image instance. | |
| 4025 You should not call this function directly. Instead, set one of | |
| 4026 the variables `text-pointer-glyph', `nontext-pointer-glyph', | |
| 4027 `modeline-pointer-glyph', `selection-pointer-glyph', | |
| 4028 `busy-pointer-glyph', or `toolbar-pointer-glyph'. | |
| 4029 */ | |
| 4030 (frame, image_instance)) | |
| 4031 { | |
| 4032 struct frame *f = decode_frame (frame); | |
| 4033 CHECK_POINTER_IMAGE_INSTANCE (image_instance); | |
| 4034 if (!EQ (f->pointer, image_instance)) | |
| 4035 { | |
| 4036 f->pointer = image_instance; | |
| 4037 MAYBE_FRAMEMETH (f, set_frame_pointer, (f)); | |
| 4038 } | |
| 4039 return Qnil; | |
| 4040 } | |
| 4041 | |
| 4042 | |
| 4043 void | |
| 4044 update_frame_icon (struct frame *f) | |
| 4045 { | |
| 4046 if (f->icon_changed || f->windows_changed) | |
| 4047 { | |
| 4048 Lisp_Object frame; | |
| 4049 Lisp_Object new_icon; | |
| 4050 | |
| 793 | 4051 frame = wrap_frame (f); |
| 428 | 4052 new_icon = glyph_image_instance (Vframe_icon_glyph, frame, |
| 4053 ERROR_ME_WARN, 0); | |
| 4054 if (!EQ (new_icon, f->icon)) | |
| 4055 { | |
| 4056 f->icon = new_icon; | |
| 4057 MAYBE_FRAMEMETH (f, set_frame_icon, (f)); | |
| 4058 } | |
| 4059 } | |
| 4060 | |
| 4061 f->icon_changed = 0; | |
| 4062 } | |
| 4063 | |
| 4064 static void | |
| 2286 | 4065 icon_glyph_changed (Lisp_Object UNUSED (glyph), Lisp_Object UNUSED (property), |
| 4066 Lisp_Object UNUSED (locale)) | |
| 428 | 4067 { |
| 4068 MARK_ICON_CHANGED; | |
| 4069 } | |
| 4070 | |
| 4071 | |
|
5158
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4072 #ifdef MEMORY_USAGE_STATS |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4073 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4074 struct frame_stats |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4075 { |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4076 struct usage_stats u; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4077 Bytecount gutter; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4078 Bytecount expose_ignore; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4079 Bytecount other; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4080 }; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4081 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4082 static void |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4083 compute_frame_usage (struct frame *f, struct frame_stats *stats, |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4084 struct usage_stats *ustats) |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4085 { |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4086 enum edge_pos edge; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4087 EDGE_POS_LOOP (edge) |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4088 { |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4089 stats->gutter += |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4090 compute_display_line_dynarr_usage (f->current_display_lines[edge], |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4091 ustats); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4092 stats->gutter += |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4093 compute_display_line_dynarr_usage (f->desired_display_lines[edge], |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4094 ustats); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4095 } |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4096 { |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4097 struct expose_ignore *e; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4098 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4099 for (e = f->subwindow_exposures; e; e = e->next) |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4100 stats->expose_ignore += malloced_storage_size (e, sizeof (*e), ustats); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4101 } |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4102 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4103 #if 0 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4104 stats->other += FRAMEMETH (f, frame_memory_usage, (f, ustats)); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4105 #endif |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4106 } |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4107 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4108 static void |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4109 frame_memory_usage (Lisp_Object frame, struct generic_usage_stats *gustats) |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4110 { |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4111 struct frame_stats *stats = (struct frame_stats *) gustats; |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4112 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4113 compute_frame_usage (XFRAME (frame), stats, &stats->u); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4114 } |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4115 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4116 #endif /* MEMORY_USAGE_STATS */ |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4117 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4118 |
| 438 | 4119 /***************************************************************************/ |
| 4120 /* */ | |
| 4121 /* initialization */ | |
| 4122 /* */ | |
| 4123 /***************************************************************************/ | |
| 4124 | |
| 4125 void | |
|
5158
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4126 frame_objects_create (void) |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4127 { |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4128 #ifdef MEMORY_USAGE_STATS |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4129 OBJECT_HAS_METHOD (frame, memory_usage); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4130 #endif |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4131 } |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4132 |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4133 void |
| 438 | 4134 init_frame (void) |
| 4135 { | |
| 4136 #ifndef PDUMP | |
| 4137 if (!initialized) | |
| 4138 #endif | |
| 4139 { | |
| 867 | 4140 title_string_ichar_dynarr = Dynarr_new (Ichar); |
| 4207 | 4141 DISPLAY_LINE_INIT (title_string_display_line); |
| 438 | 4142 } |
| 4143 } | |
| 4144 | |
| 428 | 4145 void |
| 4146 syms_of_frame (void) | |
| 4147 { | |
|
5117
3742ea8250b5
Checking in final CVS version of workspace 'ben-lisp-object'
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
4148 INIT_LISP_OBJECT (frame); |
| 3092 | 4149 #ifdef NEW_GC |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
4150 INIT_LISP_OBJECT (expose_ignore); |
| 3092 | 4151 #endif /* NEW_GC */ |
| 442 | 4152 |
| 563 | 4153 DEFSYMBOL (Qdelete_frame_hook); |
| 4154 DEFSYMBOL (Qselect_frame_hook); | |
| 4155 DEFSYMBOL (Qdeselect_frame_hook); | |
| 4156 DEFSYMBOL (Qcreate_frame_hook); | |
| 4157 DEFSYMBOL (Qcustom_initialize_frame); | |
| 4158 DEFSYMBOL (Qmouse_enter_frame_hook); | |
| 4159 DEFSYMBOL (Qmouse_leave_frame_hook); | |
| 4160 DEFSYMBOL (Qmap_frame_hook); | |
| 4161 DEFSYMBOL (Qunmap_frame_hook); | |
| 4162 | |
| 4163 DEFSYMBOL (Qframep); | |
| 4164 DEFSYMBOL (Qframe_live_p); | |
| 4165 DEFSYMBOL (Qdelete_frame); | |
| 4166 DEFSYMBOL (Qsynchronize_minibuffers); | |
| 4167 DEFSYMBOL (Qbuffer_predicate); | |
| 4168 DEFSYMBOL (Qframe_being_created); | |
| 4169 DEFSYMBOL (Qmake_initial_minibuffer_frame); | |
| 4170 | |
| 4171 DEFSYMBOL (Qframe_title_format); | |
| 4172 DEFSYMBOL (Qframe_icon_title_format); | |
| 4173 | |
| 4174 DEFSYMBOL (Qhidden); | |
| 4175 DEFSYMBOL (Qvisible); | |
| 4176 DEFSYMBOL (Qiconic); | |
| 4177 DEFSYMBOL (Qinvisible); | |
| 4178 DEFSYMBOL (Qvisible_iconic); | |
| 4179 DEFSYMBOL (Qinvisible_iconic); | |
| 4180 DEFSYMBOL (Qnomini); | |
| 4181 DEFSYMBOL (Qvisible_nomini); | |
| 4182 DEFSYMBOL (Qiconic_nomini); | |
| 4183 DEFSYMBOL (Qinvisible_nomini); | |
| 4184 DEFSYMBOL (Qvisible_iconic_nomini); | |
| 4185 DEFSYMBOL (Qinvisible_iconic_nomini); | |
| 4186 | |
| 4187 DEFSYMBOL (Qminibuffer); | |
| 4188 DEFSYMBOL (Qunsplittable); | |
| 4189 DEFSYMBOL (Qinternal_border_width); | |
| 4190 DEFSYMBOL (Qtop_toolbar_shadow_color); | |
| 4191 DEFSYMBOL (Qbottom_toolbar_shadow_color); | |
| 4192 DEFSYMBOL (Qbackground_toolbar_color); | |
| 4193 DEFSYMBOL (Qtop_toolbar_shadow_pixmap); | |
| 4194 DEFSYMBOL (Qbottom_toolbar_shadow_pixmap); | |
| 4195 DEFSYMBOL (Qtoolbar_shadow_thickness); | |
| 4196 DEFSYMBOL (Qscrollbar_placement); | |
| 4197 DEFSYMBOL (Qinter_line_space); | |
| 428 | 4198 /* Qiconic already in this function. */ |
| 563 | 4199 DEFSYMBOL (Qvisual_bell); |
| 4200 DEFSYMBOL (Qbell_volume); | |
| 4201 DEFSYMBOL (Qpointer_background); | |
| 4202 DEFSYMBOL (Qpointer_color); | |
| 4203 DEFSYMBOL (Qtext_pointer); | |
| 4204 DEFSYMBOL (Qspace_pointer); | |
| 4205 DEFSYMBOL (Qmodeline_pointer); | |
| 4206 DEFSYMBOL (Qgc_pointer); | |
| 4207 DEFSYMBOL (Qinitially_unmapped); | |
| 4208 DEFSYMBOL (Quse_backing_store); | |
| 4209 DEFSYMBOL (Qborder_color); | |
| 4210 DEFSYMBOL (Qborder_width); | |
| 428 | 4211 /* Qwidth, Qheight, Qleft, Qtop in general.c */ |
| 563 | 4212 DEFSYMBOL (Qset_specifier); |
| 4213 DEFSYMBOL (Qset_face_property); | |
| 4214 DEFSYMBOL (Qface_property_instance); | |
| 4215 DEFSYMBOL (Qframe_property_alias); | |
| 428 | 4216 |
| 4217 DEFSUBR (Fmake_frame); | |
| 4218 DEFSUBR (Fframep); | |
| 4219 DEFSUBR (Fframe_live_p); | |
| 4220 #if 0 /* FSFmacs */ | |
| 4221 DEFSUBR (Fignore_event); | |
| 4222 #endif | |
| 4223 DEFSUBR (Ffocus_frame); | |
| 4224 DEFSUBR (Fselect_frame); | |
| 4225 DEFSUBR (Fselected_frame); | |
| 4226 DEFSUBR (Factive_minibuffer_window); | |
| 4227 DEFSUBR (Flast_nonminibuf_frame); | |
| 4228 DEFSUBR (Fframe_root_window); | |
| 4229 DEFSUBR (Fframe_selected_window); | |
| 4230 DEFSUBR (Fset_frame_selected_window); | |
| 4231 DEFSUBR (Fframe_device); | |
| 4232 DEFSUBR (Fnext_frame); | |
| 4233 DEFSUBR (Fprevious_frame); | |
| 4234 DEFSUBR (Fdelete_frame); | |
| 4235 DEFSUBR (Fmouse_position); | |
| 4236 DEFSUBR (Fmouse_pixel_position); | |
| 4237 DEFSUBR (Fmouse_position_as_motion_event); | |
| 4238 DEFSUBR (Fset_mouse_position); | |
| 4239 DEFSUBR (Fset_mouse_pixel_position); | |
| 4240 DEFSUBR (Fmake_frame_visible); | |
| 4241 DEFSUBR (Fmake_frame_invisible); | |
| 4242 DEFSUBR (Ficonify_frame); | |
| 4243 DEFSUBR (Fdeiconify_frame); | |
| 4244 DEFSUBR (Fframe_visible_p); | |
| 4245 DEFSUBR (Fframe_totally_visible_p); | |
| 4246 DEFSUBR (Fframe_iconified_p); | |
| 4247 DEFSUBR (Fvisible_frame_list); | |
| 4248 DEFSUBR (Fraise_frame); | |
| 4249 DEFSUBR (Flower_frame); | |
| 442 | 4250 DEFSUBR (Fdisable_frame); |
| 4251 DEFSUBR (Fenable_frame); | |
| 428 | 4252 DEFSUBR (Fframe_property); |
| 4253 DEFSUBR (Fframe_properties); | |
| 4254 DEFSUBR (Fset_frame_properties); | |
| 4255 DEFSUBR (Fframe_pixel_height); | |
| 1125 | 4256 DEFSUBR (Fframe_displayable_pixel_height); |
| 428 | 4257 DEFSUBR (Fframe_pixel_width); |
| 1125 | 4258 DEFSUBR (Fframe_displayable_pixel_width); |
| 428 | 4259 DEFSUBR (Fframe_name); |
| 4260 DEFSUBR (Fframe_modified_tick); | |
| 4261 DEFSUBR (Fset_frame_height); | |
| 4262 DEFSUBR (Fset_frame_width); | |
| 4263 DEFSUBR (Fset_frame_size); | |
| 863 | 4264 DEFSUBR (Fset_frame_pixel_height); |
| 1125 | 4265 DEFSUBR (Fset_frame_displayable_pixel_height); |
| 863 | 4266 DEFSUBR (Fset_frame_pixel_width); |
| 1125 | 4267 DEFSUBR (Fset_frame_displayable_pixel_width); |
| 863 | 4268 DEFSUBR (Fset_frame_pixel_size); |
| 1125 | 4269 DEFSUBR (Fset_frame_displayable_pixel_size); |
| 428 | 4270 DEFSUBR (Fset_frame_position); |
| 4271 DEFSUBR (Fset_frame_pointer); | |
| 442 | 4272 DEFSUBR (Fprint_job_page_number); |
| 4273 DEFSUBR (Fprint_job_eject_page); | |
| 428 | 4274 } |
| 4275 | |
| 4276 void | |
| 4277 vars_of_frame (void) | |
| 4278 { | |
|
5158
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4279 #ifdef MEMORY_USAGE_STATS |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4280 OBJECT_HAS_PROPERTY |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4281 (frame, memusage_stats_list, list3 (Qgutter, intern ("expose-ignore"), |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4282 Qother)); |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4283 #endif /* MEMORY_USAGE_STATS */ |
|
9e0b43d3095c
more cleanups to object-memory-usage stuff
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
4284 |
| 428 | 4285 /* */ |
| 4286 Vframe_being_created = Qnil; | |
| 4287 staticpro (&Vframe_being_created); | |
| 4288 | |
| 4289 #ifdef HAVE_CDE | |
| 4290 Fprovide (intern ("cde")); | |
| 4291 #endif | |
| 4292 | |
| 4293 #if 0 /* FSFmacs stupidity */ | |
| 4294 xxDEFVAR_LISP ("emacs-iconified", &Vemacs_iconified /* | |
| 4295 Non-nil if all of emacs is iconified and frame updates are not needed. | |
| 4296 */ ); | |
| 4297 Vemacs_iconified = Qnil; | |
| 4298 #endif | |
| 4299 | |
| 4300 DEFVAR_LISP ("select-frame-hook", &Vselect_frame_hook /* | |
| 4301 Function or functions to run just after a new frame is given the focus. | |
| 4302 Note that calling `select-frame' does not necessarily set the focus: | |
| 4303 The actual window-system focus will not be changed until the next time | |
| 4304 that XEmacs is waiting for an event, and even then, the window manager | |
| 4305 may refuse the focus-change request. | |
| 4306 */ ); | |
| 4307 Vselect_frame_hook = Qnil; | |
| 4308 | |
| 4309 DEFVAR_LISP ("deselect-frame-hook", &Vdeselect_frame_hook /* | |
| 4310 Function or functions to run just before a frame loses the focus. | |
| 4311 See `select-frame-hook'. | |
| 4312 */ ); | |
| 4313 Vdeselect_frame_hook = Qnil; | |
| 4314 | |
| 4315 DEFVAR_LISP ("delete-frame-hook", &Vdelete_frame_hook /* | |
| 4316 Function or functions to call when a frame is deleted. | |
| 4317 One argument, the about-to-be-deleted frame. | |
| 4318 */ ); | |
| 4319 Vdelete_frame_hook = Qnil; | |
| 4320 | |
| 4321 DEFVAR_LISP ("create-frame-hook", &Vcreate_frame_hook /* | |
| 4322 Function or functions to call when a frame is created. | |
| 4323 One argument, the newly-created frame. | |
| 4324 */ ); | |
| 4325 Vcreate_frame_hook = Qnil; | |
| 4326 | |
| 4327 DEFVAR_LISP ("mouse-enter-frame-hook", &Vmouse_enter_frame_hook /* | |
| 4328 Function or functions to call when the mouse enters a frame. | |
| 4329 One argument, the frame. | |
| 4330 Be careful not to make assumptions about the window manager's focus model. | |
| 4331 In most cases, the `deselect-frame-hook' is more appropriate. | |
| 4332 */ ); | |
| 4333 Vmouse_enter_frame_hook = Qnil; | |
| 4334 | |
| 4335 DEFVAR_LISP ("mouse-leave-frame-hook", &Vmouse_leave_frame_hook /* | |
| 4336 Function or functions to call when the mouse leaves a frame. | |
| 4337 One argument, the frame. | |
| 4338 Be careful not to make assumptions about the window manager's focus model. | |
| 4339 In most cases, the `select-frame-hook' is more appropriate. | |
| 4340 */ ); | |
| 4341 Vmouse_leave_frame_hook = Qnil; | |
| 4342 | |
| 4343 DEFVAR_LISP ("map-frame-hook", &Vmap_frame_hook /* | |
| 4344 Function or functions to call when a frame is mapped. | |
| 4345 One argument, the frame. | |
| 4346 */ ); | |
| 4347 Vmap_frame_hook = Qnil; | |
| 4348 | |
| 4349 DEFVAR_LISP ("unmap-frame-hook", &Vunmap_frame_hook /* | |
| 4350 Function or functions to call when a frame is unmapped. | |
| 4351 One argument, the frame. | |
| 4352 */ ); | |
| 4353 Vunmap_frame_hook = Qnil; | |
| 4354 | |
| 4355 DEFVAR_BOOL ("allow-deletion-of-last-visible-frame", | |
| 4356 &allow_deletion_of_last_visible_frame /* | |
| 4357 *Non-nil means to assume the force option to delete-frame. | |
| 4358 */ ); | |
| 4359 allow_deletion_of_last_visible_frame = 0; | |
| 4360 | |
| 4361 DEFVAR_LISP ("adjust-frame-function", &Vadjust_frame_function /* | |
| 4362 Function or constant controlling adjustment of frame. | |
| 4363 When scrollbars, toolbars, default font etc. change in frame, the frame | |
| 4364 needs to be adjusted. The adjustment is controlled by this variable. | |
| 4365 Legal values are: | |
| 4366 nil to keep character frame size unchanged when possible (resize) | |
| 4367 t to keep pixel size unchanged (never resize) | |
| 4368 function symbol or lambda form. This function must return boolean | |
| 4369 value which is treated as above. Function is passed one parameter, | |
| 4370 the frame being adjusted. It function should not modify or delete | |
| 4371 the frame. | |
| 4372 */ ); | |
| 4373 Vadjust_frame_function = Qnil; | |
| 4374 | |
| 4375 DEFVAR_LISP ("mouse-motion-handler", &Vmouse_motion_handler /* | |
| 3577 | 4376 Handler for motion events. Must be a function taking one argument, the event. |
| 428 | 4377 For most applications, you should use `mode-motion-hook' instead of this. |
| 3577 | 4378 The default value is `default-mouse-motion-handler'. |
| 4379 | |
| 4380 Note that this is NOT a hook variable, so there is no standard way to remove | |
| 4381 actions from it. Instead, when adding a new kind of action, a hook variable | |
| 4382 should be defined and initialized to the current value of this variable, then | |
| 4383 this variable set to a function that runs the new hook. To disable the new | |
| 4384 actions, use `remove-hook' rather than setting `mouse-motion-handler'. | |
| 4385 | |
| 4386 `mouse-motion-hook' in the balloon-help library exemplifies this pattern. | |
| 428 | 4387 */ ); |
| 4388 Vmouse_motion_handler = Qnil; | |
| 4389 | |
| 4390 DEFVAR_LISP ("synchronize-minibuffers",&Vsynchronize_minibuffers /* | |
| 4391 Set to t if all minibuffer windows are to be synchronized. | |
| 4392 This will cause echo area messages to appear in the minibuffers of all | |
| 4393 visible frames. | |
| 4394 */ ); | |
| 4395 Vsynchronize_minibuffers = Qnil; | |
| 4396 | |
| 4397 DEFVAR_LISP ("frame-title-format", &Vframe_title_format /* | |
| 442 | 4398 Controls the title of the window-system window of the selected frame. |
| 428 | 4399 This is the same format as `modeline-format' with the exception that |
| 4400 %- is ignored. | |
| 4401 */ ); | |
| 442 | 4402 /* #### I would change this unilaterally but for the wrath of the Kyles |
| 4403 of the world. */ | |
| 4404 #ifdef WIN32_NATIVE | |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
4405 Vframe_title_format = build_ascstring ("%b - XEmacs"); |
| 442 | 4406 #else |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
4407 Vframe_title_format = build_ascstring ("%S: %b"); |
| 442 | 4408 #endif |
| 428 | 4409 |
| 4410 DEFVAR_LISP ("frame-icon-title-format", &Vframe_icon_title_format /* | |
| 4411 Controls the title of the icon corresponding to the selected frame. | |
| 4412 See also the variable `frame-title-format'. | |
| 4413 */ ); | |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
4414 Vframe_icon_title_format = build_ascstring ("%b"); |
| 428 | 4415 |
| 4416 DEFVAR_LISP ("default-frame-name", &Vdefault_frame_name /* | |
| 4417 The default name to assign to newly-created frames. | |
| 442 | 4418 This can be overridden by arguments to `make-frame'. This must be a string. |
| 4419 This is used primarily for picking up X resources, and is *not* the title | |
| 4420 of the frame. (See `frame-title-format'.) | |
| 2681 | 4421 |
| 4422 Previous to 21.5.21, this defaulted to `emacs'; since that release, it has | |
| 4423 defaulted to `XEmacs'. In the short term you can restore the old default by | |
| 4424 setting the environment variable USE_EMACS_AS_DEFAULT_APPLICATION_CLASS | |
| 4425 (which does affect the frame name, despite what it's called) to some value | |
| 4426 before starting XEmacs, but this is deprecated. | |
| 428 | 4427 */ ); |
| 2681 | 4428 Vdefault_frame_name = Qnil; |
| 428 | 4429 |
| 4430 DEFVAR_LISP ("default-frame-plist", &Vdefault_frame_plist /* | |
| 4431 Plist of default values for frame creation, other than the first one. | |
| 4432 These may be set in your init file, like this: | |
| 4433 | |
| 4434 \(setq default-frame-plist '(width 80 height 55)) | |
| 4435 | |
| 2747 | 4436 Predefined properties are described in `set-frame-properties'. |
| 4437 | |
| 428 | 4438 The properties may be in alist format for backward compatibility |
| 4439 but you should not rely on this behavior. | |
| 4440 | |
| 4441 These override values given in window system configuration data, | |
| 2747 | 4442 including X Windows' defaults database. |
| 4443 | |
| 4444 Values for the first Emacs frame are taken from `initial-frame-plist'. | |
| 4445 Since the first X frame is created before loading your .emacs file, you | |
| 4446 may wish use the X resource database to avoid flashing. | |
| 4447 | |
| 428 | 4448 For values specific to the separate minibuffer frame, see |
| 2747 | 4449 `minibuffer-frame-plist'. See also the variables `default-x-frame-plist' |
| 4450 and `default-tty-frame-plist', which are like `default-frame-plist' | |
| 4451 except that they apply only to X or tty frames, respectively \(whereas | |
| 4452 `default-frame-plist' applies to all types of frames). | |
| 428 | 4453 */ ); |
| 4454 Vdefault_frame_plist = Qnil; | |
| 4455 | |
| 4456 DEFVAR_LISP ("frame-icon-glyph", &Vframe_icon_glyph /* | |
| 4457 Icon glyph used to iconify a frame. | |
| 4458 */ ); | |
| 4459 } | |
| 4460 | |
| 4461 void | |
| 4462 complex_vars_of_frame (void) | |
| 4463 { | |
| 4464 Vframe_icon_glyph = allocate_glyph (GLYPH_ICON, icon_glyph_changed); | |
| 4465 } |