Mercurial > hg > xemacs-beta

comparison src/frame-x.c @ 4790:bc4f2511bbea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove support for the OffiX drag-and-drop protocol. See xemacs-patches message with ID <870180fe0912211421m3e3d7891pdadefef167b50cb4@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Tue, 22 Dec 2009 15:52:06 -0700
parents 5460287a3327
children a6c778975d7d 19a72041c5ed e0db3c197671
comparison
equal deleted inserted replaced
4789:56049bea9231 4790:bc4f2511bbea
56 #include "ExternalShell.h" 56 #include "ExternalShell.h"
57 #endif 57 #endif
58 58
59 #ifdef HAVE_DRAGNDROP 59 #ifdef HAVE_DRAGNDROP
60 #include "dragdrop.h" 60 #include "dragdrop.h"
61 #endif
62
63 #ifdef HAVE_OFFIX_DND
64 #include "offix.h"
65 #endif 61 #endif
66 62
67 /* Default properties to use when creating frames. */ 63 /* Default properties to use when creating frames. */
68 Lisp_Object Vdefault_x_frame_plist; 64 Lisp_Object Vdefault_x_frame_plist;
69 65
1000 } 996 }
1001 997
1002 frame_title_format_already_set = 1; 998 frame_title_format_already_set = 1;
1003 } 999 }
1004 1000
1005 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND) 1001 #if defined (HAVE_CDE)
1006 1002
1007 static Extbyte * 1003 static Extbyte *
1008 start_drag_internal_1 (Lisp_Object event, Lisp_Object data, 1004 start_drag_internal_1 (Lisp_Object event, Lisp_Object data,
1009 Lisp_Object encoding, XEvent *x_event, int listp, 1005 Lisp_Object encoding, XEvent *x_event, int listp,
1010 Widget *wid_out, Bytecount *len_out, 1006 Widget *wid_out, Bytecount *len_out,
1093 1089
1094 *wid_out = wid; 1090 *wid_out = wid;
1095 return dnd_data; 1091 return dnd_data;
1096 } 1092 }
1097 1093
1098 #endif /* defined (HAVE_CDE) || defined (HAVE_OFFIX_DND) */ 1094 #endif /* defined (HAVE_CDE) */
1099 1095
1100 #ifdef HAVE_CDE 1096 #ifdef HAVE_CDE
1101 #include <Dt/Dt.h> 1097 #include <Dt/Dt.h>
1102 #include <Dt/Dnd.h> 1098 #include <Dt/Dnd.h>
1103 1099
1331 UNGCPRO; 1327 UNGCPRO;
1332 return; 1328 return;
1333 } 1329 }
1334 #endif /* HAVE_CDE */ 1330 #endif /* HAVE_CDE */
1335 1331
1336 #ifdef HAVE_OFFIX_DND
1337
1338 DEFUN ("offix-start-drag-internal", Foffix_start_drag_internal, 2, 3, 0, /*
1339 Start a OffiX drag from a buffer.
1340 First arg is the event that started the drag,
1341 second arg should be some string, and the third
1342 is the type of the data (this should be an int).
1343 The type defaults to DndText (4).
1344 */
1345 (event, data, dtyp))
1346 {
1347 Extbyte *dnd_data;
1348 XEvent x_event;
1349 Bytecount dnd_len;
1350 Widget wid;
1351 int num_items;
1352 int dnd_type = DndText;
1353
1354 if (!NILP (dtyp))
1355 {
1356 CHECK_INT (dtyp);
1357 dnd_type = XINT (dtyp);
1358 }
1359
1360 dnd_data = start_drag_internal_1 (event, data, Qoffix_dnd_encoding,
1361 &x_event, dnd_type == DndFiles,
1362 &wid, &dnd_len, &num_items);
1363
1364 DndSetData (dnd_type, (UExtbyte *) dnd_data, dnd_len);
1365 xfree (dnd_data, Extbyte *);
1366
1367 /* the next thing blocks everything... */
1368 if (DndHandleDragging (wid, &x_event))
1369 return Qt;
1370
1371 return Qnil;
1372 }
1373
1374 #endif /* HAVE_OFFIX_DND */
1375
1376 1332
1377 /************************************************************************/ 1333 /************************************************************************/
1378 /* widget creation */ 1334 /* widget creation */
1379 /************************************************************************/ 1335 /************************************************************************/
1380 1336
2808 DEFSYMBOL (Qx_resource_name); 2764 DEFSYMBOL (Qx_resource_name);
2809 2765
2810 DEFSUBR (Fx_window_id); 2766 DEFSUBR (Fx_window_id);
2811 #ifdef HAVE_CDE 2767 #ifdef HAVE_CDE
2812 DEFSUBR (Fcde_start_drag_internal); 2768 DEFSUBR (Fcde_start_drag_internal);
2813 #endif
2814 #ifdef HAVE_OFFIX_DND
2815 DEFSUBR (Foffix_start_drag_internal);
2816 #endif 2769 #endif
2817 } 2770 }
2818 2771
2819 void 2772 void
2820 console_type_create_frame_x (void) 2773 console_type_create_frame_x (void)