/* Functions for Sun Windows menus and selection buffer.
- Copyright (C) 1987, 1999, 2001 Free Software Foundation, Inc.
+ Copyright (C) 1987, 1999, 2001, 2002, 2003, 2004,
+ 2005 Free Software Foundation, Inc.
This file is probably totally obsolete. In any case, the FSF is
unwilling to support it. We agreed to include it in our distribution
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
/* Author: Jeff Peck, Sun Microsystems, Inc. <peck@sun.com>
Original ideas by David Kastan and Eric Negaard, SRI International
{
struct timeval Timeout;
int waitmask = 1;
-
+
CHECK_NUMBER (n);
Timeout.tv_sec = XINT(n) / 1000;
Timeout.tv_usec = (XINT(n) - (Timeout.tv_sec * 1000)) * 1000;
/*
* Sun sleep-for (allows a shorter interval than the regular sleep-for)
*/
-DEFUN ("sleep-for-millisecs",
+DEFUN ("sleep-for-millisecs",
Fsleep_for_millisecs,
Ssleep_for_millisecs, 1, 1, 0,
doc: /* Pause, without updating display, for ARG milliseconds. */)
register short *p;
register int i;
Lisp_Object X_Hot, Y_Hot, Data;
-
+
CHECK_GFX (Qnil);
/*
* If the icon is null, we just restore the DefaultCursor
*/
- if (NILP(Icon))
+ if (NILP(Icon))
CurrentCursor = DefaultCursor;
else {
/*
X_Hot = XVECTOR(Icon)->contents[0];
Y_Hot = XVECTOR(Icon)->contents[1];
Data = XVECTOR(Icon)->contents[2];
-
+
CHECK_NUMBER (X_Hot);
CHECK_NUMBER (Y_Hot);
CHECK_STRING (Data);
struct selection *sel;
FILE *file;
{
- fwrite (SDATA (Current_Selection), sizeof (char),
+ fwrite (SDATA (Current_Selection), sizeof (char),
sel->sel_items, file);
}
{
register int i, n;
register char *cp;
-
+
Current_Selection = make_string ("", 0);
if (sel->sel_items <= 0)
return (0);
error("fread botch in sel_read");
return(-1);
} else if (n < 0) {
- error("Error reading selection.");
+ error("Error reading selection");
return(-1);
}
/*
* The shelltool select saves newlines as carriage returns,
* but emacs wants newlines.
*/
- for (i = 0; i < n; i++)
+ for (i = 0; i < n; i++)
if (cp[i] == '\r') cp[i] = '\n';
Current_Selection = make_string (cp, n);
return menu_item;
}
-Menu
+Menu
sun_menu_create (Vector)
Lisp_Object Vector;
{
Menu menu;
int i;
CHECK_VECTOR(Vector);
- menu=menu_create(0);
+ menu=menu_create(0);
for(i = 0; i < XVECTOR(Vector)->size; i++) {
- menu_set (menu, MENU_APPEND_ITEM,
+ menu_set (menu, MENU_APPEND_ITEM,
sun_item_create(XVECTOR(Vector)->contents[i]), 0);
}
return menu;
Event event0;
Event *event = &event0;
Lisp_Object Value, Pair;
-
+
CHECK_NUMBER(X_Position);
CHECK_NUMBER(Y_Position);
CHECK_LIVE_WINDOW(window);
CHECK_GFX (Qnil);
- xpos = CtoSX (WINDOW_LEFT_MARGIN (XWINDOW (window)) + XINT(X_Position));
- ypos = CtoSY (XWINDOW(window)->top + XINT(Y_Position));
+ xpos = CtoSX (WINDOW_LEFT_EDGE_COL (XWINDOW (window))
+ + WINDOW_LEFT_SCROLL_BAR_COLS (XWINDOW (window))
+ + XINT(X_Position));
+ ypos = CtoSY (WINDOW_TOP_EDGE_LINE (XWINDOW(window)) + XINT(Y_Position));
#ifdef Menu_Base_Kludge
{static Lisp_Object symbol[2];
symbol[0] = Fintern (sm_kludge_string, Qnil);
defsubr(&Ssun_get_selection);
defsubr(&Ssun_menu_internal);
}
+
+/* arch-tag: 2d7decb7-58f6-41aa-b45b-077ccfab7158
+ (do not change this comment) */