guint info,
guint time_stamp,
gpointer data);
+extern void emacs_gtk_selection_clear_event_handle (GtkWidget *widget,
+ GdkEventSelection *event,
+ gpointer data);
extern void emacs_gtk_selection_received (GtkWidget *widget,
GtkSelectionData *selection_data,
gpointer user_data);
XSETDEVICE (device, d);
/* gtk_init() and even gtk_check_init() are so brain dead that
- getting an empty argv array causes them to abort. */
+ getting an empty argv array causes them to ABORT. */
if (NILP (Vgtk_initial_argv_list))
{
signal_simple_error ("gtk-initial-argv-list must be set before creating Gtk devices", Vgtk_initial_argv_list);
/* Need to set up some selection handlers */
gtk_selection_add_target (GTK_WIDGET (app_shell), GDK_SELECTION_PRIMARY,
GDK_SELECTION_TYPE_STRING, 0);
+ gtk_selection_add_target (GTK_WIDGET (app_shell),
+ gdk_atom_intern("CLIPBOARD", FALSE),
+ GDK_SELECTION_TYPE_STRING, 0);
gtk_signal_connect (GTK_OBJECT (app_shell), "selection_get",
GTK_SIGNAL_FUNC (emacs_gtk_selection_handle), NULL);
+ gtk_signal_connect (GTK_OBJECT (app_shell), "selection_clear_event",
+ GTK_SIGNAL_FUNC (emacs_gtk_selection_clear_event_handle),
+ NULL);
gtk_signal_connect (GTK_OBJECT (app_shell), "selection_received",
GTK_SIGNAL_FUNC (emacs_gtk_selection_received), NULL);
return (result);
}
-static unsigned int
-gtk_device_implementation_flags (void)
-{
- return 0; /* XDEVIMPF_PIXEL_GEOMETRY; */
-}
-
\f
/************************************************************************/
/* initialization */
CONSOLE_HAS_METHOD (gtk, mark_device);
CONSOLE_HAS_METHOD (gtk, delete_device);
CONSOLE_HAS_METHOD (gtk, device_system_metrics);
- CONSOLE_HAS_METHOD (gtk, device_implementation_flags);
+ /* CONSOLE_IMPLEMENTATION_FLAGS (gtk, XDEVIMPF_PIXEL_GEOMETRY); */
+ /* I inserted the above commented out statement, as the original
+ implementation of gtk_device_implementation_flags(), which I
+ deleted, contained commented out XDEVIMPF_PIXEL_GEOMETRY - kkm*/
}
void