return f;
FOR_EACH_FRAME (tail, frame)
- {
- f = XFRAME (frame);
- if (FRAME_PGTK_P (f) && FRAME_LIVE_P (f))
- return f;
- }
+ {
+ f = XFRAME (frame);
+ if (FRAME_PGTK_P (f) && FRAME_LIVE_P (f))
+ return f;
+ }
}
else if (TERMINALP (object))
{
if (t->type == output_pgtk)
FOR_EACH_FRAME (tail, frame)
- {
- f = XFRAME (frame);
- if (FRAME_LIVE_P (f) && f->terminal == t)
- return f;
- }
+ {
+ f = XFRAME (frame);
+ if (FRAME_LIVE_P (f) && f->terminal == t)
+ return f;
+ }
}
else if (FRAMEP (object))
{
return NULL;
}
-static GtkClipboard *symbol_to_gtk_clipboard(GtkWidget *widget, Lisp_Object symbol)
+static GtkClipboard *
+symbol_to_gtk_clipboard (GtkWidget * widget, Lisp_Object symbol)
{
GdkAtom atom;
CHECK_SYMBOL (symbol);
- if (NILP(symbol)) {
- atom = GDK_SELECTION_PRIMARY;
- } else if (EQ(symbol, QCLIPBOARD)) {
- atom = GDK_SELECTION_CLIPBOARD;
- } else if (EQ(symbol, QPRIMARY)) {
- atom = GDK_SELECTION_PRIMARY;
- } else if (EQ(symbol, QSECONDARY)) {
- atom = GDK_SELECTION_SECONDARY;
- } else if (EQ(symbol, Qt)) {
- atom = GDK_SELECTION_SECONDARY;
- } else {
- atom = 0;
- error ("Bad selection");
- }
-
- return gtk_widget_get_clipboard(widget, atom);
+ if (NILP (symbol))
+ {
+ atom = GDK_SELECTION_PRIMARY;
+ }
+ else if (EQ (symbol, QCLIPBOARD))
+ {
+ atom = GDK_SELECTION_CLIPBOARD;
+ }
+ else if (EQ (symbol, QPRIMARY))
+ {
+ atom = GDK_SELECTION_PRIMARY;
+ }
+ else if (EQ (symbol, QSECONDARY))
+ {
+ atom = GDK_SELECTION_SECONDARY;
+ }
+ else if (EQ (symbol, Qt))
+ {
+ atom = GDK_SELECTION_SECONDARY;
+ }
+ else
+ {
+ atom = 0;
+ error ("Bad selection");
+ }
+
+ return gtk_widget_get_clipboard (widget, atom);
}
-static void selection_type_to_quarks(GdkAtom type, GQuark *quark_data, GQuark *quark_size)
+static void
+selection_type_to_quarks (GdkAtom type, GQuark * quark_data,
+ GQuark * quark_size)
{
- if (type == GDK_SELECTION_PRIMARY) {
- *quark_data = quark_primary_data;
- *quark_size = quark_primary_size;
- } else if (type == GDK_SELECTION_SECONDARY) {
- *quark_data = quark_secondary_data;
- *quark_size = quark_secondary_size;
- } else if (type == GDK_SELECTION_CLIPBOARD) {
- *quark_data = quark_clipboard_data;
- *quark_size = quark_clipboard_size;
- } else {
- /* fixme: Is it safe to use 'error' here? */
- error("Unknown selection type.");
- }
+ if (type == GDK_SELECTION_PRIMARY)
+ {
+ *quark_data = quark_primary_data;
+ *quark_size = quark_primary_size;
+ }
+ else if (type == GDK_SELECTION_SECONDARY)
+ {
+ *quark_data = quark_secondary_data;
+ *quark_size = quark_secondary_size;
+ }
+ else if (type == GDK_SELECTION_CLIPBOARD)
+ {
+ *quark_data = quark_clipboard_data;
+ *quark_size = quark_clipboard_size;
+ }
+ else
+ {
+ /* fixme: Is it safe to use 'error' here? */
+ error ("Unknown selection type.");
+ }
}
static void
-get_func(GtkClipboard *cb, GtkSelectionData *data, guint info, gpointer user_data_or_owner)
+get_func (GtkClipboard * cb, GtkSelectionData * data, guint info,
+ gpointer user_data_or_owner)
{
- PGTK_TRACE("get_func:");
- GObject *obj = G_OBJECT(user_data_or_owner);
+ PGTK_TRACE ("get_func:");
+ GObject *obj = G_OBJECT (user_data_or_owner);
const char *str;
int size;
GQuark quark_data, quark_size;
- selection_type_to_quarks(gtk_clipboard_get_selection(cb), &quark_data, &quark_size);
+ selection_type_to_quarks (gtk_clipboard_get_selection (cb), &quark_data,
+ &quark_size);
- str = g_object_get_qdata(obj, quark_data);
- size = GPOINTER_TO_SIZE(g_object_get_qdata(obj, quark_size));
- PGTK_TRACE("get_func: str: %s", str);
- gtk_selection_data_set_text(data, str, size);
+ str = g_object_get_qdata (obj, quark_data);
+ size = GPOINTER_TO_SIZE (g_object_get_qdata (obj, quark_size));
+ PGTK_TRACE ("get_func: str: %s", str);
+ gtk_selection_data_set_text (data, str, size);
}
static void
-clear_func(GtkClipboard *cb, gpointer user_data_or_owner)
+clear_func (GtkClipboard * cb, gpointer user_data_or_owner)
{
- PGTK_TRACE("clear_func:");
- GObject *obj = G_OBJECT(user_data_or_owner);
+ PGTK_TRACE ("clear_func:");
+ GObject *obj = G_OBJECT (user_data_or_owner);
GQuark quark_data, quark_size;
- selection_type_to_quarks(gtk_clipboard_get_selection(cb), &quark_data, &quark_size);
+ selection_type_to_quarks (gtk_clipboard_get_selection (cb), &quark_data,
+ &quark_size);
- g_object_set_qdata(obj, quark_data, NULL);
- g_object_set_qdata(obj, quark_size, 0);
+ g_object_set_qdata (obj, quark_data, NULL);
+ g_object_set_qdata (obj, quark_size, 0);
}
========================================================================== */
-void pgtk_selection_init(void)
+void
+pgtk_selection_init (void)
{
- if (quark_primary_data == 0) {
- quark_primary_data = g_quark_from_static_string("pgtk-primary-data");
- quark_primary_size = g_quark_from_static_string("pgtk-primary-size");
- quark_secondary_data = g_quark_from_static_string("pgtk-secondary-data");
- quark_secondary_size = g_quark_from_static_string("pgtk-secondary-size");
- quark_clipboard_data = g_quark_from_static_string("pgtk-clipboard-data");
- quark_clipboard_size = g_quark_from_static_string("pgtk-clipboard-size");
- }
+ if (quark_primary_data == 0)
+ {
+ quark_primary_data = g_quark_from_static_string ("pgtk-primary-data");
+ quark_primary_size = g_quark_from_static_string ("pgtk-primary-size");
+ quark_secondary_data =
+ g_quark_from_static_string ("pgtk-secondary-data");
+ quark_secondary_size =
+ g_quark_from_static_string ("pgtk-secondary-size");
+ quark_clipboard_data =
+ g_quark_from_static_string ("pgtk-clipboard-data");
+ quark_clipboard_size =
+ g_quark_from_static_string ("pgtk-clipboard-size");
+ }
}
-void pgtk_selection_lost(GtkWidget *widget, GdkEventSelection *event, gpointer user_data)
+void
+pgtk_selection_lost (GtkWidget * widget, GdkEventSelection * event,
+ gpointer user_data)
{
GQuark quark_data, quark_size;
- PGTK_TRACE("pgtk_selection_lost:");
+ PGTK_TRACE ("pgtk_selection_lost:");
- selection_type_to_quarks(event->selection, &quark_data, &quark_size);
+ selection_type_to_quarks (event->selection, &quark_data, &quark_size);
- g_object_set_qdata(G_OBJECT(widget), quark_data, NULL);
- g_object_set_qdata(G_OBJECT(widget), quark_size, 0);
+ g_object_set_qdata (G_OBJECT (widget), quark_data, NULL);
+ g_object_set_qdata (G_OBJECT (widget), quark_size, 0);
}
static bool
========================================================================== */
-DEFUN ("pgtk-own-selection-internal", Fpgtk_own_selection_internal,
- Spgtk_own_selection_internal, 2, 3, 0,
+DEFUN ("pgtk-own-selection-internal", Fpgtk_own_selection_internal, Spgtk_own_selection_internal, 2, 3, 0,
doc: /* Assert an X selection of type SELECTION and value VALUE.
SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
\(Those are literal upper-case symbol names, since that's what X expects.)
anything that the functions on `selection-converter-alist' know about.
FRAME should be a frame that should own the selection. If omitted or
-nil, it defaults to the selected frame.*/)
- (Lisp_Object selection, Lisp_Object value, Lisp_Object frame)
+nil, it defaults to the selected frame. */)
+ (Lisp_Object selection, Lisp_Object value, Lisp_Object frame)
{
- PGTK_TRACE("pgtk-own-selection-internal.");
+ PGTK_TRACE ("pgtk-own-selection-internal.");
Lisp_Object successful_p = Qnil;
Lisp_Object target_symbol, rest;
GtkClipboard *cb;
if (!pgtk_selection_usable ())
return Qnil;
- if (NILP (frame)) frame = selected_frame;
+ if (NILP (frame))
+ frame = selected_frame;
if (!FRAME_LIVE_P (XFRAME (frame)) || !FRAME_PGTK_P (XFRAME (frame)))
error ("pgtk selection unavailable for this frame");
- f = XFRAME(frame);
+ f = XFRAME (frame);
- cb = symbol_to_gtk_clipboard(FRAME_GTK_WIDGET(f), selection);
- selection_type_to_quarks(gtk_clipboard_get_selection(cb), &quark_data, &quark_size);
+ cb = symbol_to_gtk_clipboard (FRAME_GTK_WIDGET (f), selection);
+ selection_type_to_quarks (gtk_clipboard_get_selection (cb), &quark_data,
+ &quark_size);
/* We only support copy of text. */
target_symbol = QTEXT;
targets = gtk_target_table_new_from_list (list, &n_targets);
- int size = SBYTES(value);
- gchar *str = xmalloc(size + 1);
- memcpy(str, SSDATA(value), size);
+ int size = SBYTES (value);
+ gchar *str = xmalloc (size + 1);
+ memcpy (str, SSDATA (value), size);
str[size] = '\0';
- widget = FRAME_GTK_WIDGET(f);
- g_object_set_qdata_full(G_OBJECT(widget), quark_data, str, xfree);
- g_object_set_qdata_full(G_OBJECT(widget), quark_size, GSIZE_TO_POINTER(size), NULL);
+ widget = FRAME_GTK_WIDGET (f);
+ g_object_set_qdata_full (G_OBJECT (widget), quark_data, str, xfree);
+ g_object_set_qdata_full (G_OBJECT (widget), quark_size,
+ GSIZE_TO_POINTER (size), NULL);
- PGTK_TRACE("set_with_owner: owner=%p", FRAME_GTK_WIDGET(f));
+ PGTK_TRACE ("set_with_owner: owner=%p", FRAME_GTK_WIDGET (f));
if (gtk_clipboard_set_with_owner (cb,
targets, n_targets,
get_func, clear_func,
- G_OBJECT(FRAME_GTK_WIDGET(f)))) {
- PGTK_TRACE("set_with_owner succeeded..");
- successful_p = Qt;
- } else {
- PGTK_TRACE("set_with_owner failed.");
- }
+ G_OBJECT (FRAME_GTK_WIDGET (f))))
+ {
+ PGTK_TRACE ("set_with_owner succeeded..");
+ successful_p = Qt;
+ }
+ else
+ {
+ PGTK_TRACE ("set_with_owner failed.");
+ }
gtk_clipboard_set_can_store (cb, NULL, 0);
gtk_target_table_free (targets, n_targets);
if (!EQ (Vpgtk_sent_selection_hooks, Qunbound))
{
/* FIXME: Use run-hook-with-args! */
- for (rest = Vpgtk_sent_selection_hooks; CONSP (rest); rest = Fcdr (rest))
- call3 (Fcar (rest), selection, target_symbol, successful_p);
+ for (rest = Vpgtk_sent_selection_hooks; CONSP (rest);
+ rest = Fcdr (rest))
+ call3 (Fcar (rest), selection, target_symbol, successful_p);
}
return value;
}
-DEFUN ("pgtk-disown-selection-internal", Fpgtk_disown_selection_internal,
- Spgtk_disown_selection_internal, 1, 3, 0,
+DEFUN ("pgtk-disown-selection-internal", Fpgtk_disown_selection_internal, Spgtk_disown_selection_internal, 1, 3, 0,
doc: /* If we own the selection SELECTION, disown it.
Disowning it means there is no such selection.
On PGTK, the TIME-OBJECT is unused. */)
(Lisp_Object selection, Lisp_Object time_object, Lisp_Object terminal)
{
- PGTK_TRACE("pgtk-disown-selection-internal.");
+ PGTK_TRACE ("pgtk-disown-selection-internal.");
struct frame *f = frame_for_pgtk_selection (terminal);
GtkClipboard *cb;
if (!f)
return Qnil;
- cb = symbol_to_gtk_clipboard(FRAME_GTK_WIDGET(f), selection);
+ cb = symbol_to_gtk_clipboard (FRAME_GTK_WIDGET (f), selection);
- gtk_clipboard_clear(cb);
+ gtk_clipboard_clear (cb);
return Qt;
}
-DEFUN ("pgtk-selection-exists-p", Fpgtk_selection_exists_p, Spgtk_selection_exists_p,
- 0, 2, 0, doc: /* Whether there is an owner for the given X selection.
+DEFUN ("pgtk-selection-exists-p", Fpgtk_selection_exists_p, Spgtk_selection_exists_p, 0, 2, 0,
+ doc: /* Whether there is an owner for the given X selection.
SELECTION should be the name of the selection in question, typically
one of the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. (X expects
these literal upper-case names.) The symbol nil is the same as
frame's display, or the first available X display.
On Nextstep, TERMINAL is unused. */)
- (Lisp_Object selection, Lisp_Object terminal)
+ (Lisp_Object selection, Lisp_Object terminal)
{
- PGTK_TRACE("pgtk-selection-exists-p.");
+ PGTK_TRACE ("pgtk-selection-exists-p.");
struct frame *f = frame_for_pgtk_selection (terminal);
GtkClipboard *cb;
if (!f)
return Qnil;
- cb = symbol_to_gtk_clipboard(FRAME_GTK_WIDGET(f), selection);
+ cb = symbol_to_gtk_clipboard (FRAME_GTK_WIDGET (f), selection);
- return gtk_clipboard_wait_is_text_available(cb) ? Qt : Qnil;
+ return gtk_clipboard_wait_is_text_available (cb) ? Qt : Qnil;
}
-DEFUN ("pgtk-selection-owner-p", Fpgtk_selection_owner_p, Spgtk_selection_owner_p,
- 0, 2, 0,
+DEFUN ("pgtk-selection-owner-p", Fpgtk_selection_owner_p, Spgtk_selection_owner_p, 0, 2, 0,
doc: /* Whether the current Emacs process owns the given X Selection.
The arg should be the name of the selection in question, typically one of
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
frame's display, or the first available X display.
On Nextstep, TERMINAL is unused. */)
- (Lisp_Object selection, Lisp_Object terminal)
+ (Lisp_Object selection, Lisp_Object terminal)
{
- PGTK_TRACE("pgtk-selection-owner-p.");
+ PGTK_TRACE ("pgtk-selection-owner-p.");
struct frame *f = frame_for_pgtk_selection (terminal);
GtkClipboard *cb;
GObject *obj;
if (!pgtk_selection_usable ())
return Qnil;
- cb = symbol_to_gtk_clipboard(FRAME_GTK_WIDGET(f), selection);
- selection_type_to_quarks(gtk_clipboard_get_selection(cb), &quark_data, &quark_size);
+ cb = symbol_to_gtk_clipboard (FRAME_GTK_WIDGET (f), selection);
+ selection_type_to_quarks (gtk_clipboard_get_selection (cb), &quark_data,
+ &quark_size);
- obj = gtk_clipboard_get_owner(cb);
+ obj = gtk_clipboard_get_owner (cb);
- return g_object_get_qdata(obj, quark_data) != NULL ? Qt : Qnil;
+ return g_object_get_qdata (obj, quark_data) != NULL ? Qt : Qnil;
}
-DEFUN ("pgtk-get-selection-internal", Fpgtk_get_selection_internal,
- Spgtk_get_selection_internal, 2, 4, 0,
+DEFUN ("pgtk-get-selection-internal", Fpgtk_get_selection_internal, Spgtk_get_selection_internal, 2, 4, 0,
doc: /* Return text selected from some X window.
SELECTION-SYMBOL is typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
\(Those are literal upper-case symbol names, since that's what X expects.)
if (!pgtk_selection_usable ())
return Qnil;
- cb = symbol_to_gtk_clipboard(FRAME_GTK_WIDGET(f), selection_symbol);
+ cb = symbol_to_gtk_clipboard (FRAME_GTK_WIDGET (f), selection_symbol);
- gchar *s = gtk_clipboard_wait_for_text(cb);
+ gchar *s = gtk_clipboard_wait_for_text (cb);
if (s == NULL)
return Qnil;
- int size = strlen(s);
+ int size = strlen (s);
Lisp_Object str = make_unibyte_string (s, size);
Fput_text_property (make_fixnum (0), make_fixnum (size),
Qforeign_selection, QUTF8_STRING, str);
void
nxatoms_of_pgtkselect (void)
{
- PGTK_TRACE("nxatoms_of_pgtkselect");
+ PGTK_TRACE ("nxatoms_of_pgtkselect");
}
void
syms_of_pgtkselect (void)
{
- PGTK_TRACE("syms_of_pgtkselect");
+ PGTK_TRACE ("syms_of_pgtkselect");
DEFSYM (QCLIPBOARD, "CLIPBOARD");
DEFSYM (QSECONDARY, "SECONDARY");
#endif
DEFVAR_LISP ("pgtk-sent-selection-hooks", Vpgtk_sent_selection_hooks,
- "A list of functions to be called when Emacs answers a selection request.\n\
+ "A list of functions to be called when Emacs answers a selection request.\n\
The functions are called with four arguments:\n\
- the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\
- the selection-type which Emacs was asked to convert the\n\
projects / emacs.git / commitdiff