108 |
* Initialize window |
* Initialize window |
109 |
*/ |
*/ |
110 |
DEFUN ("sun-window-init", Fsun_window_init, Ssun_window_init, 0, 1, 0, |
DEFUN ("sun-window-init", Fsun_window_init, Ssun_window_init, 0, 1, 0, |
111 |
"One time setup for using Sun Windows with mouse.\n\ |
doc: /* One time setup for using Sun Windows with mouse. |
112 |
Unless optional argument FORCE is non-nil, is a noop after its first call.\n\ |
Unless optional argument FORCE is non-nil, is a noop after its first call. |
113 |
Returns a number representing the file descriptor of the open Sun Window,\n\ |
Returns a number representing the file descriptor of the open Sun Window, |
114 |
or -1 if can not open it.") |
or -1 if can not open it. */) |
115 |
(force) |
(force) |
116 |
Lisp_Object force; |
Lisp_Object force; |
117 |
{ |
{ |
118 |
char *cp; |
char *cp; |
119 |
static int already_initialized = 0; |
static int already_initialized = 0; |
149 |
* and can be interrupted by the mouse) |
* and can be interrupted by the mouse) |
150 |
*/ |
*/ |
151 |
DEFUN ("sit-for-millisecs", Fsit_for_millisecs, Ssit_for_millisecs, 1, 1, 0, |
DEFUN ("sit-for-millisecs", Fsit_for_millisecs, Ssit_for_millisecs, 1, 1, 0, |
152 |
"Like sit-for, but ARG is milliseconds. \n\ |
doc: /* Like sit-for, but ARG is milliseconds. |
153 |
Perform redisplay, then wait for ARG milliseconds or until\n\ |
Perform redisplay, then wait for ARG milliseconds or until |
154 |
input is available. Returns t if wait completed with no input.\n\ |
input is available. Returns t if wait completed with no input. |
155 |
Redisplay does not happen if input is available before it starts.") |
Redisplay does not happen if input is available before it starts. */) |
156 |
(n) |
(n) |
157 |
Lisp_Object n; |
Lisp_Object n; |
158 |
{ |
{ |
159 |
struct timeval Timeout; |
struct timeval Timeout; |
160 |
int waitmask = 1; |
int waitmask = 1; |
179 |
* Sun sleep-for (allows a shorter interval than the regular sleep-for) |
* Sun sleep-for (allows a shorter interval than the regular sleep-for) |
180 |
*/ |
*/ |
181 |
DEFUN ("sleep-for-millisecs", |
DEFUN ("sleep-for-millisecs", |
182 |
Fsleep_for_millisecs, |
Fsleep_for_millisecs, |
183 |
Ssleep_for_millisecs, 1, 1, 0, |
Ssleep_for_millisecs, 1, 1, 0, |
184 |
"Pause, without updating display, for ARG milliseconds.") |
doc: /* Pause, without updating display, for ARG milliseconds. */) |
185 |
(n) |
(n) |
186 |
Lisp_Object n; |
Lisp_Object n; |
187 |
{ |
{ |
188 |
unsigned useconds; |
unsigned useconds; |
189 |
|
|
194 |
} |
} |
195 |
|
|
196 |
DEFUN ("update-display", Fupdate_display, Supdate_display, 0, 0, 0, |
DEFUN ("update-display", Fupdate_display, Supdate_display, 0, 0, 0, |
197 |
"Perform redisplay.") |
doc: /* Perform redisplay. */) |
198 |
() |
() |
199 |
{ |
{ |
200 |
redisplay_preserve_echo_area (17); |
redisplay_preserve_echo_area (17); |
206 |
* Change the Sun mouse icon |
* Change the Sun mouse icon |
207 |
*/ |
*/ |
208 |
DEFUN ("sun-change-cursor-icon", |
DEFUN ("sun-change-cursor-icon", |
209 |
Fsun_change_cursor_icon, |
Fsun_change_cursor_icon, |
210 |
Ssun_change_cursor_icon, 1, 1, 0, |
Ssun_change_cursor_icon, 1, 1, 0, |
211 |
"Change the Sun mouse cursor icon. ICON is a lisp vector whose 1st element\n\ |
doc: /* Change the Sun mouse cursor icon. ICON is a lisp vector whose 1st element |
212 |
is the X offset of the cursor hot-point, whose 2nd element is the Y offset\n\ |
is the X offset of the cursor hot-point, whose 2nd element is the Y offset |
213 |
of the cursor hot-point and whose 3rd element is the cursor pixel data\n\ |
of the cursor hot-point and whose 3rd element is the cursor pixel data |
214 |
expressed as a string. If ICON is nil then the original arrow cursor is used") |
expressed as a string. If ICON is nil then the original arrow cursor is used. */) |
215 |
(Icon) |
(Icon) |
216 |
Lisp_Object Icon; |
Lisp_Object Icon; |
217 |
{ |
{ |
318 |
*/ |
*/ |
319 |
DEFUN ("sun-set-selection", Fsun_set_selection, Ssun_set_selection, 1, 1, |
DEFUN ("sun-set-selection", Fsun_set_selection, Ssun_set_selection, 1, 1, |
320 |
"sSet selection to: ", |
"sSet selection to: ", |
321 |
"Set the current sunwindow selection to STRING.") |
doc: /* Set the current sunwindow selection to STRING. */) |
322 |
(str) |
(str) |
323 |
Lisp_Object str; |
Lisp_Object str; |
324 |
{ |
{ |
339 |
* Stuff the current window system selection into the current buffer |
* Stuff the current window system selection into the current buffer |
340 |
*/ |
*/ |
341 |
DEFUN ("sun-get-selection", Fsun_get_selection, Ssun_get_selection, 0, 0, 0, |
DEFUN ("sun-get-selection", Fsun_get_selection, Ssun_get_selection, 0, 0, 0, |
342 |
"Return the current sunwindows selection as a string.") |
doc: /* Return the current sunwindows selection as a string. */) |
343 |
() |
() |
344 |
{ |
{ |
345 |
CHECK_GFX (Current_Selection); |
CHECK_GFX (Current_Selection); |
422 |
DEFUN ("sun-menu-internal", |
DEFUN ("sun-menu-internal", |
423 |
Fsun_menu_internal, |
Fsun_menu_internal, |
424 |
Ssun_menu_internal, 5, 5, 0, |
Ssun_menu_internal, 5, 5, 0, |
425 |
"Set up a SunView pop-up menu and return the user's choice.\n\ |
doc: /* Set up a SunView pop-up menu and return the user's choice. |
426 |
Arguments WINDOW, X, Y, BUTTON, and MENU.\n\ |
Arguments WINDOW, X, Y, BUTTON, and MENU. |
427 |
*** User code should generally use sun-menu-evaluate ***\n\ |
*** User code should generally use sun-menu-evaluate *** |
428 |
\n\ |
|
429 |
Arguments WINDOW, X, Y, BUTTON, and MENU.\n\ |
Arguments WINDOW, X, Y, BUTTON, and MENU. |
430 |
Put MENU up in WINDOW at position X, Y.\n\ |
Put MENU up in WINDOW at position X, Y. |
431 |
The BUTTON argument specifies the button to be released that selects an item:\n\ |
The BUTTON argument specifies the button to be released that selects an item: |
432 |
1 = LEFT BUTTON\n\ |
1 = LEFT BUTTON |
433 |
2 = MIDDLE BUTTON\n\ |
2 = MIDDLE BUTTON |
434 |
4 = RIGHT BUTTON\n\ |
4 = RIGHT BUTTON |
435 |
The MENU argument is a vector containing (STRING . VALUE) pairs.\n\ |
The MENU argument is a vector containing (STRING . VALUE) pairs. |
436 |
The VALUE of the selected item is returned.\n\ |
The VALUE of the selected item is returned. |
437 |
If the VALUE of the first pair is nil, then the first STRING will be used\n\ |
If the VALUE of the first pair is nil, then the first STRING will be used |
438 |
as a menu label.") |
as a menu label. */) |
439 |
(window, X_Position, Y_Position, Button, MEnu) |
(window, X_Position, Y_Position, Button, MEnu) |
440 |
Lisp_Object window, X_Position, Y_Position, Button, MEnu; |
Lisp_Object window, X_Position, Y_Position, Button, MEnu; |
441 |
{ |
{ |
442 |
Menu menu; |
Menu menu; |
443 |
int button, xpos, ypos; |
int button, xpos, ypos; |