159 |
struct timeval Timeout; |
struct timeval Timeout; |
160 |
int waitmask = 1; |
int waitmask = 1; |
161 |
|
|
162 |
CHECK_NUMBER (n, 0); |
CHECK_NUMBER (n); |
163 |
Timeout.tv_sec = XINT(n) / 1000; |
Timeout.tv_sec = XINT(n) / 1000; |
164 |
Timeout.tv_usec = (XINT(n) - (Timeout.tv_sec * 1000)) * 1000; |
Timeout.tv_usec = (XINT(n) - (Timeout.tv_sec * 1000)) * 1000; |
165 |
|
|
187 |
{ |
{ |
188 |
unsigned useconds; |
unsigned useconds; |
189 |
|
|
190 |
CHECK_NUMBER (n, 0); |
CHECK_NUMBER (n); |
191 |
useconds = XINT(n) * 1000; |
useconds = XINT(n) * 1000; |
192 |
usleep(useconds); |
usleep(useconds); |
193 |
return(Qt); |
return(Qt); |
230 |
/* |
/* |
231 |
* extract the data from the vector |
* extract the data from the vector |
232 |
*/ |
*/ |
233 |
CHECK_VECTOR (Icon, 0); |
CHECK_VECTOR (Icon); |
234 |
if (XVECTOR(Icon)->size < 3) return(Qnil); |
if (XVECTOR(Icon)->size < 3) return(Qnil); |
235 |
X_Hot = XVECTOR(Icon)->contents[0]; |
X_Hot = XVECTOR(Icon)->contents[0]; |
236 |
Y_Hot = XVECTOR(Icon)->contents[1]; |
Y_Hot = XVECTOR(Icon)->contents[1]; |
237 |
Data = XVECTOR(Icon)->contents[2]; |
Data = XVECTOR(Icon)->contents[2]; |
238 |
|
|
239 |
CHECK_NUMBER (X_Hot, 0); |
CHECK_NUMBER (X_Hot); |
240 |
CHECK_NUMBER (Y_Hot, 0); |
CHECK_NUMBER (Y_Hot); |
241 |
CHECK_STRING (Data, 0); |
CHECK_STRING (Data); |
242 |
if (XSTRING(Data)->size != 32) return(Qnil); |
if (XSTRING(Data)->size != 32) return(Qnil); |
243 |
/* |
/* |
244 |
* Setup the new cursor |
* Setup the new cursor |
324 |
{ |
{ |
325 |
struct selection selection; |
struct selection selection; |
326 |
|
|
327 |
CHECK_STRING (str, 0); |
CHECK_STRING (str); |
328 |
Current_Selection = str; |
Current_Selection = str; |
329 |
|
|
330 |
CHECK_GFX (Qnil); |
CHECK_GFX (Qnil); |
363 |
|
|
364 |
if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair); |
if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair); |
365 |
String = Fcar(Pair); |
String = Fcar(Pair); |
366 |
CHECK_STRING(String, 0); |
CHECK_STRING(String); |
367 |
Value = Fcdr(Pair); |
Value = Fcdr(Pair); |
368 |
if (SYMBOLP (Value)) |
if (SYMBOLP (Value)) |
369 |
Value = SYMBOL_VALUE (Value); |
Value = SYMBOL_VALUE (Value); |
384 |
{ |
{ |
385 |
Menu menu; |
Menu menu; |
386 |
int i; |
int i; |
387 |
CHECK_VECTOR(Vector,0); |
CHECK_VECTOR(Vector); |
388 |
menu=menu_create(0); |
menu=menu_create(0); |
389 |
for(i = 0; i < XVECTOR(Vector)->size; i++) { |
for(i = 0; i < XVECTOR(Vector)->size; i++) { |
390 |
menu_set (menu, MENU_APPEND_ITEM, |
menu_set (menu, MENU_APPEND_ITEM, |
445 |
Event *event = &event0; |
Event *event = &event0; |
446 |
Lisp_Object Value, Pair; |
Lisp_Object Value, Pair; |
447 |
|
|
448 |
CHECK_NUMBER(X_Position, 0); |
CHECK_NUMBER(X_Position); |
449 |
CHECK_NUMBER(Y_Position, 1); |
CHECK_NUMBER(Y_Position); |
450 |
CHECK_LIVE_WINDOW(window, 2); |
CHECK_LIVE_WINDOW(window); |
451 |
CHECK_NUMBER(Button, 3); |
CHECK_NUMBER(Button); |
452 |
CHECK_VECTOR(MEnu, 4); |
CHECK_VECTOR(MEnu); |
453 |
|
|
454 |
CHECK_GFX (Qnil); |
CHECK_GFX (Qnil); |
455 |
|
|