/[emacs]/emacs/src/sunfns.c
ViewVC logotype

Diff of /emacs/src/sunfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by gerd, Fri Oct 5 09:50:31 2001 UTC revision 1.20 by pj, Sun Oct 21 12:07:34 2001 UTC
# Line 108  struct cursor DefaultCursor = {0, 0, PIX Line 108  struct cursor DefaultCursor = {0, 0, PIX
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;
# Line 149  or -1 if can not open it.") Line 149  or -1 if can not open it.")
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;
# Line 179  Redisplay does not happen if input is av Line 179  Redisplay does not happen if input is av
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    
# Line 194  DEFUN ("sleep-for-millisecs", Line 194  DEFUN ("sleep-for-millisecs",
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);
# Line 206  DEFUN ("update-display", Fupdate_display Line 206  DEFUN ("update-display", Fupdate_display
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  {  {
# Line 318  sel_read (sel, file) Line 318  sel_read (sel, file)
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  {  {
# Line 339  DEFUN ("sun-set-selection", Fsun_set_sel Line 339  DEFUN ("sun-set-selection", Fsun_set_sel
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);
# Line 422  make_menu_label (menu) Line 422  make_menu_label (menu)
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;

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26