mirror of https://github.com/MidnightCommander/mc
488 lines
13 KiB
C
488 lines
13 KiB
C
#include <config.h>
|
|
#ifndef GTK
|
|
#include "coolwidget.h"
|
|
#endif
|
|
|
|
int just_dropped_something = 0;
|
|
|
|
#include "edit.h"
|
|
#include <X11/Xmd.h>
|
|
#include <X11/Xatom.h>
|
|
#ifndef GTK
|
|
#include "app_glob.c"
|
|
#include "coollocal.h"
|
|
#endif
|
|
#include "editcmddef.h"
|
|
#include "xdnd.h"
|
|
#ifdef GTK
|
|
#include "src/mad.h"
|
|
#else
|
|
#include "mad.h"
|
|
#endif
|
|
|
|
#ifndef HAVE_DND
|
|
|
|
Atom **xdnd_typelist_send = 0;
|
|
Atom **xdnd_typelist_receive = 0;
|
|
|
|
#define NUM_SIMPLE_TYPES 10
|
|
|
|
/* each entry is listed in order of what we would like the RECEIVE */
|
|
static char *mime_type_send[NUM_SIMPLE_TYPES][10] =
|
|
{
|
|
{0}, /* DndUnknown 0 */
|
|
{0}, /* DndRawData 1 */
|
|
{"url/url", "text/plain", 0}, /* DndFile 2 (input widget) */
|
|
{"text/plain", "text/uri-list", 0}, /* DndFiles 3 (fielded text box) */
|
|
{"text/plain", "application/octet-stream", 0}, /* DndText 4 (editor widget) */
|
|
/* don't use these: */
|
|
{0}, /* DndLink 5 */
|
|
{0}, /* DndDir 6 */
|
|
{0}, /* DndExe 7 */
|
|
{0}, /* DndURL 8 */
|
|
{0}, /* DndMIME 9 */
|
|
};
|
|
|
|
static char *mime_type_recieve[NUM_SIMPLE_TYPES][10] =
|
|
{
|
|
{0}, /* DndUnknown 0 */
|
|
{0}, /* DndRawData 1 */
|
|
{"url/url", "text/uri-list", "text/plain", 0}, /* DndFile 2 (input widget) */
|
|
{0}, /* DndFiles 3 */
|
|
{"url/url", "text/plain", "application/octet-stream", "text/uri-list", 0}, /* DndText 4 (editor widget) */
|
|
/* don't use these: */
|
|
{0}, /* DndLink 5 */
|
|
{0}, /* DndDir 6 */
|
|
{0}, /* DndExe 7 */
|
|
{0}, /* DndURL 8 */
|
|
{0}, /* DndMIME 9 */
|
|
};
|
|
|
|
#ifndef GTK
|
|
|
|
static char dnd_directory[MAX_PATH_LEN] = "/";
|
|
|
|
char *striptrailing (char *s, int c)
|
|
{
|
|
int i;
|
|
i = strlen (s) - 1;
|
|
|
|
while (i >= 0) {
|
|
if (s[i] == c) {
|
|
s[i--] = 0;
|
|
continue;
|
|
}
|
|
break;
|
|
}
|
|
return s;
|
|
}
|
|
|
|
/* return the prepending directory (see CDndFileList() below) */
|
|
char *CDndDirectory (void)
|
|
{
|
|
return dnd_directory;
|
|
}
|
|
|
|
/*
|
|
Sets the directory, must be a null terminated complete path.
|
|
Strips trailing slashes.
|
|
*/
|
|
void CSetDndDirectory (char *d)
|
|
{
|
|
if (!d)
|
|
return;
|
|
strcpy (dnd_directory, d);
|
|
striptrailing (dnd_directory, '/');
|
|
if (*dnd_directory)
|
|
return;
|
|
*dnd_directory = '/';
|
|
}
|
|
|
|
/*
|
|
Takes a newline seperated list of files,
|
|
returns a newline seperated list of complete `file:' path names
|
|
by prepending dnd_directory to each file name.
|
|
returns 0 if no files in list.
|
|
result must always be free'd.
|
|
returns l as the total length of data.
|
|
returns num_files as the number of files in the list.
|
|
Alters t
|
|
*/
|
|
char *CDndFileList (char *t, int *l, int *num_files)
|
|
{
|
|
char *p, *q, *r, *result;
|
|
int i, len, done = 0;
|
|
|
|
/* strip leading newlines */
|
|
while (*t == '\n')
|
|
t++;
|
|
|
|
/* strip trailing newlines */
|
|
striptrailing (t, '\n');
|
|
|
|
if (!*t)
|
|
return 0;
|
|
|
|
/* count files */
|
|
for (i = 1, p = t; *p; p++)
|
|
if (*p == '\n')
|
|
i++;
|
|
|
|
*num_files = i;
|
|
|
|
len = (unsigned long) p - (unsigned long) t;
|
|
result = CMalloc ((strlen (dnd_directory) + strlen ("file:") + 2) * i + len + 2);
|
|
|
|
r = result;
|
|
p = t;
|
|
while (!done) {
|
|
q = strchr (p, '\n');
|
|
if (q)
|
|
*q = 0;
|
|
else
|
|
done = 1;
|
|
strcpy (r, "file:");
|
|
if (*p != '/') {
|
|
strcat (r, dnd_directory);
|
|
strcat (r, "/");
|
|
}
|
|
strcat (r, p);
|
|
r += strlen (r);
|
|
*r++ = '\n';
|
|
p = ++q;
|
|
}
|
|
*r = 0;
|
|
*l = (unsigned long) r - (unsigned long) result;
|
|
return result;
|
|
}
|
|
|
|
Window get_focus_border_widget (void);
|
|
|
|
static void widget_apply_leave (DndClass * dnd, Window widgets_window)
|
|
{
|
|
CWidget *w;
|
|
w = CWidgetOfWindow (widgets_window);
|
|
if (get_focus_border_widget () == widgets_window)
|
|
destroy_focus_border ();
|
|
if (w)
|
|
CExpose (w->ident);
|
|
}
|
|
|
|
static int widget_insert_drop (DndClass * dnd, unsigned char *data, int length, int remaining, Window into, Window from, Atom type)
|
|
{
|
|
CWidget *w;
|
|
char *p;
|
|
w = CWidgetOfWindow (into);
|
|
if (!w)
|
|
return 1;
|
|
if (*w->funcs->insert_drop) {
|
|
int r;
|
|
Window child_return;
|
|
int xd, yd;
|
|
if (!dnd->user_hook1)
|
|
dnd->user_hook2 = dnd->user_hook1 = CMalloc (length + remaining + 1);
|
|
memcpy (dnd->user_hook2, data, length);
|
|
p = dnd->user_hook2;
|
|
p += length; /* avoids ansi warning */
|
|
dnd->user_hook2 = p;
|
|
if (remaining)
|
|
return 0;
|
|
XTranslateCoordinates (CDisplay, CRoot, into, dnd->x, dnd->y, &xd, &yd, &child_return);
|
|
r = (*w->funcs->insert_drop) (w->funcs->data, from, dnd->user_hook1, (unsigned long) dnd->user_hook2 - (unsigned long) dnd->user_hook1, xd, yd, type, dnd->supported_action);
|
|
free (dnd->user_hook1);
|
|
dnd->user_hook1 = dnd->user_hook2 = 0;
|
|
if (get_focus_border_widget () == into)
|
|
destroy_focus_border ();
|
|
CExpose (w->ident);
|
|
return r;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
static int array_length (Atom * a)
|
|
{
|
|
int n;
|
|
for (n = 0; a[n]; n++);
|
|
return n;
|
|
}
|
|
|
|
static int widget_apply_position (DndClass * dnd, Window widgets_window, Window from,
|
|
Atom action, int x, int y, Time t, Atom * typelist,
|
|
int *want_position, Atom * supported_action, Atom * desired_type,
|
|
XRectangle * rectangle)
|
|
{
|
|
CWidget *w;
|
|
Window child_return;
|
|
int xt, yt;
|
|
int xd, yd;
|
|
long click;
|
|
int i, j;
|
|
Atom result = 0;
|
|
|
|
w = CWidgetOfWindow (widgets_window);
|
|
if (!w)
|
|
return 0;
|
|
|
|
/* input widgets can't drop to themselves :-( */
|
|
if (w->kind == C_TEXTINPUT_WIDGET && widgets_window == from)
|
|
return 0;
|
|
|
|
/* look up mime types from my own list of supported types */
|
|
for (j = 0; xdnd_typelist_receive[w->funcs->types][j]; j++) {
|
|
for (i = 0; typelist[i]; i++) {
|
|
if (typelist[i] == xdnd_typelist_receive[w->funcs->types][j]) {
|
|
result = typelist[i];
|
|
break;
|
|
}
|
|
}
|
|
if (result)
|
|
break;
|
|
}
|
|
|
|
if (!result && w->funcs->mime_majors) {
|
|
char **names_return;
|
|
names_return = CMalloc ((array_length (typelist) + 1) * sizeof (char *));
|
|
if (XGetAtomNames (CDisplay, typelist, array_length (typelist), names_return)) {
|
|
for (i = 0; i < array_length (typelist); i++) {
|
|
for (j = 0; w->funcs->mime_majors[j]; j++) {
|
|
if (!strncmp (w->funcs->mime_majors[j], names_return[i], strlen (w->funcs->mime_majors[j]))) {
|
|
result = typelist[i];
|
|
break;
|
|
}
|
|
}
|
|
if (result)
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
/* not supported, so return false */
|
|
if (!result)
|
|
return 0;
|
|
|
|
XTranslateCoordinates (CDisplay, CRoot, widgets_window, x, y, &xd, &yd, &child_return);
|
|
if (xd < 0 || yd < 0 || xd >= CWidthOf (w) || yd >= CHeightOf (w))
|
|
return 0;
|
|
|
|
if (w->funcs->xy && w->funcs->cp && w->funcs->move) {
|
|
(*w->funcs->xy) (xd, yd, &xt, &yt);
|
|
click = (*w->funcs->cp) (w->funcs->data, xt, yt);
|
|
if (w->funcs->fin_mark)
|
|
(*w->funcs->fin_mark) (w->funcs->data);
|
|
if (w->funcs->move)
|
|
(*w->funcs->move) (w->funcs->data, click, yt);
|
|
if (w->funcs->redraw)
|
|
(*w->funcs->redraw) (w->funcs->data, click);
|
|
}
|
|
/* we want more position messages */
|
|
*want_position = 1;
|
|
|
|
/* we only support copy and move */
|
|
if (action == dnd->XdndActionMove) {
|
|
*supported_action = dnd->XdndActionMove;
|
|
} else {
|
|
*supported_action = dnd->XdndActionCopy;
|
|
}
|
|
*desired_type = result;
|
|
rectangle->x = x;
|
|
rectangle->y = y;
|
|
rectangle->width = rectangle->height = 0;
|
|
if (get_focus_border_widget () != widgets_window) {
|
|
destroy_focus_border ();
|
|
create_focus_border (w, 4);
|
|
}
|
|
CExpose (w->ident);
|
|
return 1;
|
|
}
|
|
|
|
static void widget_get_data (DndClass * dnd, Window window, unsigned char **data, int *length, Atom type)
|
|
{
|
|
int t = DndText;
|
|
long start_mark, end_mark;
|
|
CWidget *w;
|
|
w = CWidgetOfWindow (window);
|
|
if (!w) {
|
|
return;
|
|
}
|
|
if (!w->funcs)
|
|
return;
|
|
if ((*w->funcs->marks) (w->funcs->data, &start_mark, &end_mark)) {
|
|
return;
|
|
}
|
|
if (type == XInternAtom (dnd->display, "url/url", False))
|
|
t = DndFile;
|
|
else if (type == XInternAtom (dnd->display, "text/uri-list", False))
|
|
t = DndFiles;
|
|
*data = (unsigned char *) (*w->funcs->get_block) (w->funcs->data, start_mark, end_mark, &t, length);
|
|
}
|
|
|
|
static int widget_exists (DndClass * dnd, Window window)
|
|
{
|
|
return (CWidgetOfWindow (window) != 0);
|
|
}
|
|
|
|
static void handle_expose_events (DndClass * dnd, XEvent * xevent)
|
|
{
|
|
if (!xevent->xexpose.count)
|
|
render_focus_border (xevent->xexpose.window);
|
|
return;
|
|
}
|
|
|
|
|
|
void mouse_init (void)
|
|
{
|
|
CDndClass->handle_expose_events = handle_expose_events;
|
|
CDndClass->widget_insert_drop = widget_insert_drop;
|
|
CDndClass->widget_exists = widget_exists;
|
|
CDndClass->widget_apply_position = widget_apply_position;
|
|
CDndClass->widget_get_data = widget_get_data;
|
|
CDndClass->widget_apply_leave = widget_apply_leave;
|
|
CDndClass->options |= XDND_OPTION_NO_HYSTERESIS;
|
|
CDndClass->user_hook1 = CDndClass->user_hook2 = 0;
|
|
if (!xdnd_typelist_receive) {
|
|
int i;
|
|
xdnd_typelist_receive = malloc ((NUM_SIMPLE_TYPES + 1) * sizeof (Atom *));
|
|
xdnd_typelist_send = malloc ((NUM_SIMPLE_TYPES + 1) * sizeof (Atom *));
|
|
for (i = 0; i < NUM_SIMPLE_TYPES; i++) {
|
|
int j;
|
|
xdnd_typelist_receive[i] = CMalloc (32 * sizeof (Atom));
|
|
for (j = 0; mime_type_recieve[i][j]; j++) {
|
|
xdnd_typelist_receive[i][j] = XInternAtom (CDndClass->display, mime_type_recieve[i][j], False);
|
|
xdnd_typelist_receive[i][j + 1] = 0;
|
|
}
|
|
xdnd_typelist_receive[i + 1] = 0;
|
|
xdnd_typelist_send[i] = CMalloc (32 * sizeof (Atom));
|
|
for (j = 0; mime_type_send[i][j]; j++) {
|
|
xdnd_typelist_send[i][j] = XInternAtom (CDndClass->display, mime_type_send[i][j], False);
|
|
xdnd_typelist_send[i][j + 1] = 0;
|
|
}
|
|
xdnd_typelist_send[i + 1] = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
void mouse_shut (void)
|
|
{
|
|
if (xdnd_typelist_receive) {
|
|
int i;
|
|
for (i = 0; xdnd_typelist_send[i]; i++)
|
|
free (xdnd_typelist_send[i]);
|
|
free (xdnd_typelist_send);
|
|
xdnd_typelist_send = 0;
|
|
for (i = 0; xdnd_typelist_receive[i]; i++)
|
|
free (xdnd_typelist_receive[i]);
|
|
free (xdnd_typelist_receive);
|
|
xdnd_typelist_receive = 0;
|
|
}
|
|
}
|
|
|
|
#endif /* !GTK */
|
|
|
|
struct mouse_funcs *mouse_funcs_new (void *data, struct mouse_funcs *m)
|
|
{
|
|
struct mouse_funcs *p;
|
|
p = CMalloc (sizeof (*m));
|
|
memcpy (p, m, sizeof (*m));
|
|
p->data = data;
|
|
return p;
|
|
}
|
|
|
|
#endif /* HAVE_DND */
|
|
|
|
void mouse_mark (XEvent * event, int double_click, struct mouse_funcs *funcs)
|
|
{
|
|
void *data;
|
|
static unsigned long win_press = 0;
|
|
static int state = 0; /* 0 = button up, 1 = button pressed, 2 = button pressed and dragging */
|
|
static int x_last, y_last;
|
|
long click;
|
|
data = funcs->data;
|
|
|
|
if (event->type == ButtonPress) {
|
|
long start_mark, end_mark;
|
|
state = 1;
|
|
win_press = (unsigned long) event->xbutton.window;
|
|
(*funcs->xy) (event->xbutton.x, event->xbutton.y, &x_last, &y_last);
|
|
click = (*funcs->cp) (data, x_last, y_last);
|
|
if (!(*funcs->marks) (data, &start_mark, &end_mark)) {
|
|
if ((*funcs->range) (data, start_mark, end_mark, click)) { /* if clicked on highlighted text */
|
|
unsigned char *t;
|
|
int l;
|
|
#ifdef HAVE_DND
|
|
int type;
|
|
t = (unsigned char *) (*funcs->get_block) (data, start_mark, end_mark, &type, &l);
|
|
if (t) {
|
|
just_dropped_something = 1;
|
|
CDrag (event->xbutton.window, type, t, l, event->xbutton.button == Button1 ? Button1Mask : 0);
|
|
free (t);
|
|
}
|
|
#else
|
|
#ifndef GTK
|
|
/* this is just to get the type which depends on the number of lines selected for
|
|
the fileselection box: */
|
|
t = (unsigned char *) (*funcs->get_block) (data, start_mark, end_mark, &funcs->types, &l);
|
|
if (t) {
|
|
free (t);
|
|
if (xdnd_drag (CDndClass, event->xbutton.window,
|
|
event->xbutton.button == Button1 ? CDndClass->XdndActionCopy : CDndClass->XdndActionMove,
|
|
xdnd_typelist_send[funcs->types]) == CDndClass->XdndActionMove) {
|
|
if (funcs->delete_block)
|
|
(*funcs->delete_block) (data);
|
|
}
|
|
}
|
|
#endif
|
|
#endif
|
|
if (funcs->fin_mark)
|
|
(*funcs->fin_mark) (data);
|
|
return;
|
|
}
|
|
}
|
|
just_dropped_something = 0;
|
|
if (funcs->fin_mark)
|
|
(*funcs->fin_mark) (data);
|
|
(*funcs->move) (data, click, y_last);
|
|
if (double_click && funcs->dclick) {
|
|
(*funcs->dclick) (data, event);
|
|
state = 0;
|
|
}
|
|
if (funcs->redraw)
|
|
(*funcs->redraw) (data, click);
|
|
} else if (event->type == ButtonRelease && state > 0 && win_press == (unsigned long) event->xbutton.window && !double_click) {
|
|
int x, y;
|
|
long start_mark, end_mark;
|
|
(*funcs->xy) (event->xbutton.x, event->xbutton.y, &x, &y);
|
|
click = (*funcs->cp) (data, x, y);
|
|
(*funcs->move) (data, click, y);
|
|
if (state == 2)
|
|
goto unhighlight;
|
|
if (!(*funcs->marks) (data, &start_mark, &end_mark)) {
|
|
if ((*funcs->range) (data, start_mark, end_mark, click)) { /* if clicked on highlighted text */
|
|
unhighlight:
|
|
if (funcs->release_mark)
|
|
(*funcs->release_mark) (data, event);
|
|
}
|
|
}
|
|
state = 0;
|
|
if (funcs->redraw)
|
|
(*funcs->redraw) (data, click);
|
|
} else if (event->type == MotionNotify && state > 0 && win_press == (unsigned long) event->xbutton.window && event->xbutton.state) {
|
|
int x, y;
|
|
if (!event->xmotion.state)
|
|
return;
|
|
(*funcs->xy) (event->xbutton.x, event->xbutton.y, &x, &y);
|
|
if (x == x_last && y == y_last && state == 1)
|
|
return;
|
|
click = (*funcs->cp) (data, x, y);
|
|
if (state == 1) {
|
|
state = 2;
|
|
if (funcs->move_mark)
|
|
(funcs->move_mark) (data);
|
|
}
|
|
(*funcs->move) (data, click, y);
|
|
if (funcs->motion)
|
|
(*funcs->motion) (data, click);
|
|
if (funcs->redraw)
|
|
(*funcs->redraw) (data, click);
|
|
}
|
|
}
|
|
|