annotate man/external-widget.texi @ 4677:8f1ee2d15784

Support full Common Lisp multiple values in C. lisp/ChangeLog 2009-08-11 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el : Update this file to support full C-level multiple values. This involves: -- Four new bytecodes, and special compiler functions to compile multiple-value-call, multiple-value-list-internal, values, values-list, and, since it now needs to pass back multiple values and is a special form, throw. -- There's a new compiler variable, byte-compile-checks-on-load, which is a list of forms that are evaluated at the very start of a file, with an error thrown if any of them give nil. -- The header is now inserted *after* compilation, giving a chance for the compilation process to influence what those checks are. There is still a check done before compilation for non-ASCII characters, to try to turn off dynamic docstrings if appopriate, in `byte-compile-maybe-reset-coding'. Space is reserved for checks; comments describing the version of the byte compiler generating the file are inserted if space remains for them. * bytecomp.el (byte-compile-version): Update this, we're a newer version of the byte compiler. * byte-optimize.el (byte-optimize-funcall): Correct a comment. * bytecomp.el (byte-compile-lapcode): Discard the arg with byte-multiple-value-call. * bytecomp.el (byte-compile-checks-and-comments-space): New variable, describe how many octets to reserve for checks at the start of byte-compiled files. * cl-compat.el: Remove the fake multiple-value implementation. Have the functions that use it use the real multiple-value implementation instead. * cl-macs.el (cl-block-wrapper, cl-block-throw): Revise the byte-compile properties of these symbols to work now we've made throw into a special form; keep the byte-compile properties as anonymous lambdas, since we don't have docstrings for them. * cl-macs.el (multiple-value-bind, multiple-value-setq) (multiple-value-list, nth-value): Update these functions to work with the C support for multiple values. * cl-macs.el (values): Modify the setf handler for this to call #'multiple-value-list-internal appropriately. * cl-macs.el (cl-setf-do-store): If the store form is a cons, treat it specially as wrapping the store value. * cl.el (cl-block-wrapper): Make this an alias of #'and, not #'identity, since it needs to pass back multiple values. * cl.el (multiple-value-apply): We no longer support this, mark it obsolete. * lisp-mode.el (eval-interactive-verbose): Remove a useless space in the docstring. * lisp-mode.el (eval-interactive): Update this function and its docstring. It now passes back a list, basically wrapping any eval calls with multiple-value-list. This allows multiple values to be printed by default in *scratch*. * lisp-mode.el (prin1-list-as-multiple-values): New function, printing a list as multiple values in the manner of Bruno Haible's clisp, separating each entry with " ;\n". * lisp-mode.el (eval-last-sexp): Call #'prin1-list-as-multiple-values on the return value of #'eval-interactive. * lisp-mode.el (eval-defun): Call #'prin1-list-as-multiple-values on the return value of #'eval-interactive. * mouse.el (mouse-eval-sexp): Deal with lists corresponding to multiple values from #'eval-interactive. Call #'cl-prettyprint, which is always available, instead of sometimes calling #'pprint and sometimes falling back to prin1. * obsolete.el (obsolete-throw): New function, called from eval.c when #'funcall encounters an attempt to call #'throw (now a special form) as a function. Only needed for compatibility with 21.4 byte-code. man/ChangeLog addition: 2009-08-11 Aidan Kehoe <kehoea@parhasard.net> * cl.texi (Organization): Remove references to the obsolete multiple-value emulating code. src/ChangeLog addition: 2009-08-11 Aidan Kehoe <kehoea@parhasard.net> * bytecode.c (enum Opcode /* Byte codes */): Add four new bytecodes, to deal with multiple values. (POP_WITH_MULTIPLE_VALUES): New macro. (POP): Modify this macro to ignore multiple values. (DISCARD_PRESERVING_MULTIPLE_VALUES): New macro. (DISCARD): Modify this macro to ignore multiple values. (TOP_WITH_MULTIPLE_VALUES): New macro. (TOP_ADDRESS): New macro. (TOP): Modify this macro to ignore multiple values. (TOP_LVALUE): New macro. (Bcall): Ignore multiple values where appropriate. (Breturn): Pass back multiple values. (Bdup): Preserve multiple values. Use TOP_LVALUE with most bytecodes that assign anything to anything. (Bbind_multiple_value_limits, Bmultiple_value_call, Bmultiple_value_list_internal, Bthrow): Implement the new bytecodes. (Bgotoifnilelsepop, Bgotoifnonnilelsepop, BRgotoifnilelsepop, BRgotoifnonnilelsepop): Discard any multiple values. * callint.c (Fcall_interactively): Ignore multiple values when calling #'eval, in two places. * device-x.c (x_IO_error_handler): * macros.c (pop_kbd_macro_event): * eval.c (Fsignal): * eval.c (flagged_a_squirmer): Call throw_or_bomb_out, not Fthrow, now that the latter is a special form. * eval.c: Make Qthrow, Qobsolete_throw available as symbols. Provide multiple_value_current_limit, multiple-values-limit (the latter as specified by Common Lisp. * eval.c (For): Ignore multiple values when comparing with Qnil, but pass any multiple values back for the last arg. * eval.c (Fand): Ditto. * eval.c (Fif): Ignore multiple values when examining the result of the condition. * eval.c (Fcond): Ignore multiple values when comparing what the clauses give, but pass them back if a clause gave non-nil. * eval.c (Fprog2): Never pass back multiple values. * eval.c (FletX, Flet): Ignore multiple when evaluating what exactly symbols should be bound to. * eval.c (Fwhile): Ignore multiple values when evaluating the test. * eval.c (Fsetq, Fdefvar, Fdefconst): Ignore multiple values. * eval.c (Fthrow): Declare this as a special form; ignore multiple values for TAG, preserve them for VALUE. * eval.c (throw_or_bomb_out): Make this available to other files, now Fthrow is a special form. * eval.c (Feval): Ignore multiple values when calling a compiled function, a non-special-form subr, or a lambda expression. * eval.c (Ffuncall): If we attempt to call #'throw (now a special form) as a function, don't error, call #'obsolete-throw instead. * eval.c (make_multiple_value, multiple_value_aset) (multiple_value_aref, print_multiple_value, mark_multiple_value) (size_multiple_value): Implement the multiple_value type. Add a long comment describing our implementation. * eval.c (bind_multiple_value_limits): New function, used by the bytecode and by #'multiple-value-call, #'multiple-value-list-internal. * eval.c (multiple_value_call): New function, used by the bytecode and #'multiple-value-call. * eval.c (Fmultiple_value_call): New special form. * eval.c (multiple_value_list_internal): New function, used by the byte code and #'multiple-value-list-internal. * eval.c (Fmultiple_value_list_internal, Fmultiple_value_prog1): New special forms. * eval.c (Fvalues, Fvalues_list): New Lisp functions. * eval.c (values2): New function, for C code returning multiple values. * eval.c (syms_of_eval): Make our new Lisp functions and symbols available. * eval.c (multiple-values-limit): Make this available to Lisp. * event-msw.c (dde_eval_string): * event-stream.c (execute_help_form): * glade.c (connector): * glyphs-widget.c (glyph_instantiator_to_glyph): * glyphs.c (evaluate_xpm_color_symbols): * gui-x.c (wv_set_evalable_slot, button_item_to_widget_value): * gui.c (gui_item_value, gui_item_display_flush_left): * lread.c (check_if_suppressed): * menubar-gtk.c (menu_convert, menu_descriptor_to_widget_1): * menubar-msw.c (populate_menu_add_item): * print.c (Fwith_output_to_temp_buffer): * symbols.c (Fsetq_default): Ignore multiple values when calling Feval. * symeval.h: Add the header declarations necessary for the multiple-values implementation. * inline.c: #include symeval.h, now that it has some inline functions. * lisp.h: Update Fthrow's declaration. Make throw_or_bomb_out available to all files. * lrecord.h (enum lrecord_type): Add the multiple_value type here.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 16 Aug 2009 20:55:49 +0100
parents 42375619fa45
children 03ab78e48ef6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 \input texinfo @c -*-texinfo-*-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 @setfilename ../info/external-widget.info
675
bb2ecf4a4a16 [xemacs-hg @ 2001-11-27 18:53:47 by adrian]
adrian
parents: 428
diff changeset
3 @settitle The External Client Widget
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 @ifinfo
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 @dircategory XEmacs Editor
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 @direntry
721
f72a191f8ecf [xemacs-hg @ 2002-01-02 20:56:32 by adrian]
adrian
parents: 675
diff changeset
8 * External Widget: (external-widget). External Client Widget.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 @end direntry
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 @end ifinfo
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 @node Top, Using an External Client Widget,, (dir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 An @dfn{external client widget} is a widget that is part of another program
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 but functions as an Emacs frame. This is intended to be a more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 powerful replacement for standard text widgets.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 @menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 * Using an External Client Widget::
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 * External Client Widget Resource Settings::
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 * Motif-Specific Info About the External Client Widget::
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
22 * External Client Widget Internals::
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 @end menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 @node Using an External Client Widget, External Client Widget Resource Settings, Top, Top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 @chapter Using an External Client Widget
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 There are three different implementations of the external client widget.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 One is designed for use in Motif applications and is linked with the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 option @code{-lextcli_Xm}. Another is designed for non-Motif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 applications that still use the X toolkit; it is linked with the option
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 @code{-lextcli_Xt}. The third is designed for applications that do not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 use the X toolkit; it is linked with the option @code{-lextcli_Xlib}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 In order to use an external client widget in a client program that uses
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 the X toolkit (i.e. either of the first two options described above),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 simply create an instance of widget type ExternalClient and link your
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 program with the appropriate library. The corresponding header file is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 called @file{ExternalClient.h}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 Documentation still needs to be provided for using the raw Xlib
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 version of the external client widget.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 The external client widget will not do anything until an instance of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 Emacs is told about this particular widget. To do that, call the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 function @code{make-frame}, specifying a value for the frame parameter
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 @code{window-id}. This value should be a string containing the decimal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 representation of the widget's X window ID number (this can be obtained
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 by the Xt function @code{XtWindow()}). In order for the client program
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 to communicate this information to Emacs, a method such as sending a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 ToolTalk message needs to be used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 Once @code{make-frame} has been called, Emacs will create a frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 that occupies the client widget's window. This frame can be used just
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 like any other frame in Emacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 @node External Client Widget Resource Settings, Motif-Specific Info About the External Client Widget, Using an External Client Widget, Top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 @chapter External Client Widget Resource Settings
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 The external client widget is a subclass of the Motif widget XmPrimitive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 and thus inherits all its resources. In addition, the following new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 resources are defined:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 @table @samp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 @item deadShell (class DeadShell)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 A boolean resource indicating whether the last request to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 ExternalShell widget that contains the frame corresponding to this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 widget timed out. If true, no further requests will be made (all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 requests will automatically fail) until a response to the last
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 request is received. This resource should normally not be set by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 user.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 @item shellTimeout (class ShellTimeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 A value specifying how long (in milliseconds) the client should wait
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 for a response when making a request to the corresponding ExternalShell
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 widget. If this timeout is exceeded, the client will assume that the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 shell is dead and will fail the request and all subsequent requests
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 until a response to the request is received. Default value is 5000,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 or 5 seconds.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 @end table
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 The shell that contains the frame corresponding to an external client
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 widget is of type ExternalShell, as opposed to standard frames, whose
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 shell is of type TopLevelShell. The ExternalShell widget is a direct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 subclass of Shell and thus inherits its resources. In addition, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 following new resources are defined:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 @table @samp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 @item window (class Window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 The X window ID of the widget to use for this Emacs frame. This is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 normally set by the call to @code{x-create-frame} and should not be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 modified by the user.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 @item deadClient (class DeadClient)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 A boolean resource indicating whether the last request to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 corresponding ExternalClient widget timed out. If true, no further
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 requests will be made (all requests will automatically fail) until a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 response to the last request is received. This resource should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 normally not be set by the user.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 @item ClientTimeout (class ClientTimeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 A value specifying how long (in milliseconds) the shell should wait
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 for a response when making a request to the corresponding ExternalClient
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 widget. If this timeout is exceeded, the shell will assume that the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 client is dead and will fail the request and all subsequent requests
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 until a response to the request is received. Default value is 5000,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 or 5 seconds.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 @end table
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 Note that the requests that are made between the client and the shell
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 are primarily for handling query-geometry and geometry-manager requests
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 made by parent or child widgets.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
116 @node Motif-Specific Info About the External Client Widget, External Client Widget Internals, External Client Widget Resource Settings, Top
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 @chapter Motif-Specific Info About the External Client Widget
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 By default, the external client widget has navigation type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 @samp{XmTAB_GROUP}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 The widget traversal keystrokes are modified slightly from the standard
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 XmPrimitive keystrokes. In particular, @kbd{@key{TAB}} alone does not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 traverse to the next widget (@kbd{Ctrl-@key{TAB}} must be used instead),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 but functions like a normal @key{TAB} in Emacs. This follows the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 semantics of the Motif text widget. The traversal keystrokes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 @kbd{Ctrl-@key{TAB}} and @kbd{Shift-@key{TAB}} are silently filtered by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 the external client widget and are not seen by Emacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
130 @node External Client Widget Internals, , Motif-Specific Info About the External Client Widget, Top
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
131 @chapter External Client Widget Internals
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
132
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
133 The following text is lifted verbatim from Ben Wing's comments in
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
134 @file{ExternalShell.c}.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
135
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
136 This is a special Shell that is designed to use an externally-
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
137 provided window created by someone else (possibly another process).
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
138 That other window should have an associated widget of class
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
139 ExternalClient. The two widgets communicate with each other using
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
140 ClientMessage events and properties on the external window.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
141
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
142 Ideally this feature should be independent of Emacs. Unfortunately
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
143 there are lots and lots of specifics that need to be dealt with
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
144 for this to work properly, and some of them can't conveniently
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
145 be handled within the widget's methods. Some day the code may
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
146 be rewritten so that the embedded-widget feature can be used by
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
147 any application, with appropriate entry points that are called
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
148 at specific points within the application.
753
41528f633ff7 [xemacs-hg @ 2002-02-13 15:28:56 by stephent]
stephent
parents: 750
diff changeset
149
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
150 This feature is similar to the OLE (Object Linking & Embedding)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
151 feature provided by MS Windows.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
152
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
153 Communication between this shell and the client widget:
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
154
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
155 Communication is through ClientMessage events with message_type
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
156 EXTW_NOTIFY and format 32. Both the shell and the client widget
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
157 communicate with each other by sending the message to the same
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
158 window (the "external window" below), and the data.l[0] value is
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
159 used to determine who sent the message.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
160
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
161 The data is formatted as follows:
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
162
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
163 data.l[0] = who sent this message: external_shell_send (0) or
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
164 external_client_send (1)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
165 data.l[1] = message type (see enum en_extw_notify below)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
166 data.l[2-4] = data associated with this message
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
167
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
168 EventHandler() handles messages from the other side.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
169
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
170 extw_send_notify_3() sends a message to the other side.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
171
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
172 extw_send_geometry_value() is used when an XtWidgetGeometry structure
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
173 needs to be sent. This is too much data to fit into a
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
174 ClientMessage, so the data is stored in a property and then
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
175 extw_send_notify_3() is called.
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
176
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
177 extw_get_geometry_value() receives an XtWidgetGeometry structure from a
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
178 property.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
179
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
180 extw_wait_for_response() is used when a response to a sent message
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
181 is expected. It looks for a matching event within a
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
182 particular timeout.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
183
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
184 The particular message types are as follows:
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
185
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
186 1) extw_notify_init (event_window, event_mask)
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
187
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
188 This is sent from the shell to the client after the shell realizes
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
189 its EmacsFrame widget on the client's "external window". This
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
190 tells the client that it should start passing along events of the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
191 types specified in event_mask. event_window specifies the window
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
192 of the EmacsFrame widget, which is a child of the client's
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
193 external window.
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
194
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
195 extw_notify_init (client_type)
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
196
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
197 When the client receives an extw_notify_init message from the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
198 shell, it sends back a message of the same sort specifying the type
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
199 of the toolkit used by the client (Motif, generic Xt, or Xlib).
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
200
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
201 2) extw_notify_end ()
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
202
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
203 This is sent from the shell to the client when the shell's
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
204 EmacsFrame widget is destroyed, and tells the client to stop
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
205 passing events along.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
206
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
207 3) extw_notify_qg (result)
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
208
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
209 This is sent from the client to the shell when a QueryGeometry
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
210 request is received on the client. The XtWidgetGeometry structure
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
211 specified in the QueryGeometry request is passed on in the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
212 EXTW_QUERY_GEOMETRY property (of type EXTW_WIDGET_GEOMETRY) on the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
213 external window. result is unused.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
214
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
215 In response, the shell passes the QueryGeometry request down the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
216 widget tree, and when a response is received, sends a message of
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
217 type extw_notify_qg back to the client, with result specifying the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
218 GeometryResult value. If this value is XtGeometryAlmost, the
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
219 returned XtWidgetGeometry structure is stored into the same property
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
220 as above. [BPW is there a possible race condition here?]
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
221
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
222 4) extw_notify_gm (result)
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
223
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
224 A very similar procedure to that for extw_notify_qg is followed
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
225 when the shell's RootGeometryManager method is called, indicating
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
226 that a child widget wishes to change the shell's geometry. The
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
227 XtWidgetGeometry structure is stored in the EXTW_GEOMETRY_MANAGER
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
228 property.
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
229
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
230 5) extw_notify_focus_in (), extw_notify_focus_out ()
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
231
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
232 These are sent from the client to the shell when the client gains
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
233 or loses the keyboard focus. It is done this way because Xt
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
234 maintains its own concept of keyboard focus and only the client
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 755
diff changeset
235 knows this information.
750
f929ab5ec903 [xemacs-hg @ 2002-02-13 12:52:03 by stephent]
stephent
parents: 721
diff changeset
236
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 @summarycontents
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 @contents
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 @bye