comparison src/xterm.c @ 29717:acaa36b47f50

fix up more Lisp_Object/int conversion issues
author Ken Raeburn <raeburn@raeburn.org>
date Sun, 18 Jun 2000 20:14:37 +0000
parents d171b4754825
children 1ac32ce72622
comparison
equal deleted inserted replaced
29716:8797e25c4231 29717:acaa36b47f50
7443 ev->type = ClientMessage; 7443 ev->type = ClientMessage;
7444 ev->message_type = FRAME_X_DISPLAY_INFO (f)->Xatom_Scrollbar; 7444 ev->message_type = FRAME_X_DISPLAY_INFO (f)->Xatom_Scrollbar;
7445 ev->display = FRAME_X_DISPLAY (f); 7445 ev->display = FRAME_X_DISPLAY (f);
7446 ev->window = FRAME_X_WINDOW (f); 7446 ev->window = FRAME_X_WINDOW (f);
7447 ev->format = 32; 7447 ev->format = 32;
7448 ev->data.l[0] = (long) window; 7448 ev->data.l[0] = (long) XFASTINT (window);
7449 ev->data.l[1] = (long) part; 7449 ev->data.l[1] = (long) part;
7450 ev->data.l[2] = (long) 0; 7450 ev->data.l[2] = (long) 0;
7451 ev->data.l[3] = (long) portion; 7451 ev->data.l[3] = (long) portion;
7452 ev->data.l[4] = (long) whole; 7452 ev->data.l[4] = (long) whole;
7453 7453
7470 x_scroll_bar_to_input_event (event, ievent) 7470 x_scroll_bar_to_input_event (event, ievent)
7471 XEvent *event; 7471 XEvent *event;
7472 struct input_event *ievent; 7472 struct input_event *ievent;
7473 { 7473 {
7474 XClientMessageEvent *ev = (XClientMessageEvent *) event; 7474 XClientMessageEvent *ev = (XClientMessageEvent *) event;
7475 Lisp_Object window = (Lisp_Object) ev->data.l[0]; 7475 Lisp_Object window;
7476 struct frame *f = XFRAME (XWINDOW (window)->frame); 7476 struct frame *f;
7477
7478 XSETFASTINT (window, ev->data.l[0]);
7479 f = XFRAME (XWINDOW (window)->frame);
7477 7480
7478 ievent->kind = scroll_bar_click; 7481 ievent->kind = scroll_bar_click;
7479 ievent->frame_or_window = window; 7482 ievent->frame_or_window = window;
7480 ievent->timestamp = XtLastTimestampProcessed (FRAME_X_DISPLAY (f)); 7483 ievent->timestamp = XtLastTimestampProcessed (FRAME_X_DISPLAY (f));
7481 ievent->part = ev->data.l[1]; 7484 ievent->part = ev->data.l[1];