/* 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, 2006, 2007 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
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2, or (at your option)
+the Free Software Foundation; either version 3, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
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);
+
+ Current_Selection = empty_unibyte_string;
if (sel->sel_items <= 0)
return (0);
cp = (char *) malloc(sel->sel_items);
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);
Lisp_Object String;
Lisp_Object Value;
- if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
+ CHECK_LIST_CONS (Pair, Pair);
String = Fcar(Pair);
CHECK_STRING(String);
Value = Fcdr(Pair);
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) */