Mercurial > emacs
annotate lwlib/xlwmenu.h @ 106376:642af15d3e89
Use completion-in-buffer and remove uses of dynamic scoping.
* progmodes/pascal.el (pascal-str, pascal-all, pascal-pred)
(pascal-buffer-to-use, pascal-flag): Don't declare.
(pascal-func-completion, pascal-type-completion, pascal-var-completion)
(pascal-get-completion-decl, pascal-keyword-completion):
Add `pascal-str' argument, save-excursion,
return the found completions, and don't filter with pascal-pred.
(pascal-completion-cache): New var.
(pascal-completion): Don't switch buffer any more (it was never
necessary). Don't save-excursion any more (it's done by the called
subroutines). Use a cache to avoid redundant computations.
Use complete-with-action rather than pascal-completion-response and
let it apply the predicate as well.
(pascal-complete-word): Use completion-in-buffer when
pascal-toggle-completions is nil.
(pascal-show-completions): Don't bind pascal-buffer-to-use since it's
not used any more.
(pascal-comp-defun): Don't change buffer any more.
Use complete-with-action rather than pascal-completion-response and
let it apply the predicate as well.
(pascal-goto-defun): Change buffer before calling pascal-comp-defun
when neded.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 02 Dec 2009 18:31:26 +0000 |
parents | 3c31d7653adf |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
60584
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
1 /* Interface of a lightweight menubar widget. |
76180 | 2 Copyright (C) 1992 Lucid, Inc. |
100957 | 3 Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
76180 | 4 Free Software Foundation, Inc. |
60584
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
5 |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
6 This file is part of the Lucid Widget Library. |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
7 |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
8 The Lucid Widget Library is free software; you can redistribute it and/or |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
9 modify it under the terms of the GNU General Public License as published by |
76216
707d586d3aaa
Lucid Widget Library was released under GPLv1 or later (license only
Glenn Morris <rgm@gnu.org>
parents:
76180
diff
changeset
|
10 the Free Software Foundation; either version 1, or (at your option) |
60584
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
11 any later version. |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
12 |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
13 The Lucid Widget Library is distributed in the hope that it will be useful, |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
14 but WITHOUT ANY WARRANTY; without even the implied warranty of |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
16 GNU General Public License for more details. |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
17 |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
18 You should have received a copy of the GNU General Public License |
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
19 along with GNU Emacs; see the file COPYING. If not, write to the |
64083 | 20 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
21 Boston, MA 02110-1301, USA. */ | |
60584
597c62d04dec
Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53564
diff
changeset
|
22 |
5626 | 23 #ifndef _XlwMenu_h |
24 #define _XlwMenu_h | |
25 | |
26 /*********************************************************************** | |
27 * | |
28 * XlwMenu Widget | |
29 * | |
30 ***********************************************************************/ | |
31 | |
32 #include "lwlib.h" | |
33 | |
34 /* Resource names used by the XlwMenu widget */ | |
45146
174fe450ad23
(XtNdisabledForeground, XtCDisabledForeground): New resource names.
Pavel Janík <Pavel@Janik.cz>
parents:
29466
diff
changeset
|
35 #define XtNdisabledForeground "disabledForeground" |
174fe450ad23
(XtNdisabledForeground, XtCDisabledForeground): New resource names.
Pavel Janík <Pavel@Janik.cz>
parents:
29466
diff
changeset
|
36 #define XtCDisabledForeground "DisabledForeground" |
5626 | 37 #define XtNbuttonForeground "buttonForeground" |
38 #define XtCButtonForeground "ButtonForeground" | |
39 #define XtNmargin "margin" | |
40 #define XtNhorizontalSpacing "horizontalSpacing" | |
41 #define XtNverticalSpacing "verticalSpacing" | |
42 #define XtNarrowSpacing "arrowSpacing" | |
43 #define XtNmenu "menu" | |
44 #define XtCMenu "Menu" | |
45 #define XtNopen "open" | |
46 #define XtNselect "select" | |
27339
8b90339beb04
(XtNhighlightCallback): New define.
Gerd Moellmann <gerd@gnu.org>
parents:
8786
diff
changeset
|
47 #define XtNhighlightCallback "highlightCallback" |
75016
6a01460d75ba
(XtNleaveCallback, XtNenterCallback): New strings.
Jan Djärv <jan.h.d@swipnet.se>
parents:
68640
diff
changeset
|
48 #define XtNenterCallback "enterCallback" |
6a01460d75ba
(XtNleaveCallback, XtNenterCallback): New strings.
Jan Djärv <jan.h.d@swipnet.se>
parents:
68640
diff
changeset
|
49 #define XtNleaveCallback "leaveCallback" |
5626 | 50 #define XtNmenuBorderWidth "menuBorderWidth" |
51 #define XtNhorizontal "horizontal" | |
52 #define XtCHorizontal "Horizontal" | |
53 #define XtNcursor "cursor" | |
54 #define XtNCursor "Cursor" | |
8786 | 55 #define XtNshowGrip "showGrip" |
56 #define XtCShowGrip "ShowGrip" | |
57 #define XtNresizeToPreferred "resizeToPreferred" | |
58 #define XtCResizeToPreferred "ResizeToPreferred" | |
59 #define XtNallowResize "allowResize" | |
60 #define XtCAllowResize "AllowResize" | |
5626 | 61 |
62 /* Motif-compatible resource names */ | |
63 #define XmNshadowThickness "shadowThickness" | |
64 #define XmCShadowThickness "ShadowThickness" | |
65 #define XmNtopShadowColor "topShadowColor" | |
66 #define XmCTopShadowColor "TopShadowColor" | |
67 #define XmNbottomShadowColor "bottomShadowColor" | |
68 #define XmCBottomShadowColor "BottomShadowColor" | |
69 #define XmNtopShadowPixmap "topShadowPixmap" | |
70 #define XmCTopShadowPixmap "TopShadowPixmap" | |
71 #define XmNbottomShadowPixmap "bottomShadowPixmap" | |
72 #define XmCBottomShadowPixmap "BottomShadowPixmap" | |
73 #define XmRHorizontalDimension "HorizontalDimension" | |
74 | |
75 typedef struct _XlwMenuRec *XlwMenuWidget; | |
76 typedef struct _XlwMenuClassRec *XlwMenuWidgetClass; | |
77 | |
78 extern WidgetClass xlwMenuWidgetClass; | |
79 | |
80 #endif /* _XlwMenu_h */ | |
52401 | 81 |
82 /* arch-tag: 0c019735-d61b-4080-be85-4fdd6e50ae07 | |
83 (do not change this comment) */ |