comparison src/frame-x.c @ 211:78478c60bfcd r20-4b4

Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 1f0dabaa0855
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
1 /* Functions for the X window system. 1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 2 Copyright (C) 1989, 1992-5, 1997 Free Software Foundation, Inc.
3 Copyright (C) 1995, 1996 Ben Wing. 3 Copyright (C) 1995, 1996 Ben Wing.
4 4
5 This file is part of XEmacs. 5 This file is part of XEmacs.
6 6
7 XEmacs is free software; you can redistribute it and/or modify it 7 XEmacs is free software; you can redistribute it and/or modify it
1222 xfree (dnd_data); 1222 xfree (dnd_data);
1223 return Qnil; 1223 return Qnil;
1224 } 1224 }
1225 len = XSTRING_LENGTH (XCAR (run)) + 1; 1225 len = XSTRING_LENGTH (XCAR (run)) + 1;
1226 dnd_data = xrealloc (dnd_data, dnd_len + len); 1226 dnd_data = xrealloc (dnd_data, dnd_len + len);
1227 strcpy (dnd_data + dnd_len - 1, XSTRING_DATA (XCAR (run))); 1227 strcpy (dnd_data + dnd_len - 1, (CONST char *)XSTRING_DATA (XCAR (run)));
1228 dnd_len += len; 1228 dnd_len += len;
1229 run = XCDR (run); 1229 run = XCDR (run);
1230 } 1230 }
1231 1231
1232 dnd_data[dnd_len - 1] = 0; /* the list-ending zero */ 1232 dnd_data[dnd_len - 1] = 0; /* the list-ending zero */
1237 { 1237 {
1238 if (!STRINGP (data)) 1238 if (!STRINGP (data))
1239 return Qnil; 1239 return Qnil;
1240 1240
1241 /* and whats with MULE data ??? */ 1241 /* and whats with MULE data ??? */
1242 dnd_data = XSTRING_DATA (data); 1242 dnd_data = (char *)XSTRING_DATA (data);
1243 dnd_len = XSTRING_LENGTH (data) + 1; /* the zero */ 1243 dnd_len = XSTRING_LENGTH (data) + 1; /* the zero */
1244 1244
1245 } 1245 }
1246 1246
1247 /* 1247 /*
1273 1273
1274 x_event.xbutton.state = state; 1274 x_event.xbutton.state = state;
1275 x_event.xbutton.button = lisp_event->event.button.button; 1275 x_event.xbutton.button = lisp_event->event.button.button;
1276 x_event.xkey.same_screen = True; 1276 x_event.xkey.same_screen = True;
1277 1277
1278 DndSetData(dnd_typ, dnd_data, dnd_len); 1278 DndSetData(dnd_typ, (unsigned char *)dnd_data, dnd_len);
1279 if (dnd_dealloc) 1279 if (dnd_dealloc)
1280 xfree (dnd_data); 1280 xfree (dnd_data);
1281 1281
1282 if (DndHandleDragging(wid, &x_event)) 1282 if (DndHandleDragging(wid, &x_event))
1283 return Qt; 1283 return Qt;