xemacs-beta: src/frame-x.c comparison

comparison src/frame-x.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19

author	cvs
date	Mon, 13 Aug 2007 09:55:28 +0200
parents	e121b013d1f0
children	ecf6ba7b0a10

comparison

equal deleted inserted replaced

-:bcd2674570bf
+:3d6bfa290dbd
 void
 x_wm_set_cell_size (Widget wmshell, int cw, int ch)
 {
 Arg al [2];
 if (!XtIsWMShell (wmshell))
 abort ();
 if (cw <= 0 || ch <= 0)
 abort ();
 void
 x_wm_set_variable_size (Widget wmshell, int width, int height)
 {
 Arg al [2];
 if (!XtIsWMShell (wmshell))
 abort ();
 #ifdef DEBUG_GEOMETRY_MANAGEMENT
 /* See comment in EmacsShell.c */
 printf ("x_wm_set_variable_size: %d %d\n", width, height);
 defi(Qborder_width, XtNborderWidth);
 defi(Qwidth, XtNwidth);
 defi(Qheight, XtNheight);
 defi(Qleft, XtNx);
 defi(Qtop, XtNy);
 #undef def
 }
 static Lisp_Object
 color_to_string (Widget w, unsigned long pixel)
 {
 /* Naturally those bastards who wrote Xt couldn't be bothered
 to learn about race conditions and such.  We can't trust
 the X and Y values to have any semblance of correctness,
 so we smash the right values in place. */
 /* We might be called before we've actually realized the window (if
 we're checking for the minibuffer resource).  This will bomb in
 that case so we don't bother calling it. */
 if (XtWindow (shell))
 x_get_top_level_position (XtDisplay (shell), XtWindow (shell),
 #endif
 if (!XtWindow(shell))
 x = y = 0;
 else
 x_get_top_level_position (XtDisplay (shell), XtWindow (shell), &x, &y);
 FROB (Qleft, make_int (x));
 FROB (Qtop,  make_int (y));
 FROB (Qborder_width, make_int (w->core.border_width));
 FROB (Qinternal_border_width,
 XtSetArg (al[1], Xt_resource_encoding_name, encoding);
 XtSetValues (FRAME_X_SHELL_WIDGET (f), al, 2);
 }
 }
 static void
 x_set_title_from_bufbyte (struct frame *f, Bufbyte *name)
 {
 x_set_frame_text_value (f, name, XtNtitle, XtNtitleEncoding);
 }
 EmacsFrameSetCharSize (FRAME_X_TEXT_WIDGET (f), w, h);
 /* and also set the WMShell's geometry */
 (flags & XNegative) ? (xval = -x, xsign = '-') : (xval = x, xsign = '+');
 (flags & YNegative) ? (yval = -y, ysign = '-') : (yval = y, ysign = '+');
 if (uspos && ussize)
 sprintf (shell_geom, "=%dx%d%c%d%c%d", w, h, xsign, xval, ysign, yval);
 else if (uspos)
 sprintf (shell_geom, "=%c%d%c%d", xsign, xval, ysign, yval);
 else if (ussize)
 sprintf (shell_geom, "=%dx%d", w, h);
 if (uspos || ussize)
 {
-temp = xmalloc (1 + strlen (shell_geom));
+temp = (char *) xmalloc (1 + strlen (shell_geom));
 strcpy (temp, shell_geom);
 FRAME_X_GEOM_FREE_ME_PLEASE (f) = temp;
 }
 else
 temp = NULL;
 XtSetArg (al [0], XtNgeometry, temp);
 XtSetValues (FRAME_X_SHELL_WIDGET (f), al, 1);
 }
 /* Report to X that a frame property of frame S is being set or changed.
 Bool y_position_specified_p = False;
 Bool internal_border_width_specified = False;
 Lisp_Object tail;
 Widget w = FRAME_X_TEXT_WIDGET (f);
 Arg al [10];
 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail)))
 {
 Lisp_Object prop = Fcar (tail);
 Lisp_Object val = Fcar (Fcdr (tail));
 if (STRINGP (prop))
 	{
 	  CONST char *extprop;
 	  if (XSTRING_LENGTH (prop) == 0)
 	    continue;
 	  GET_C_STRING_CTEXT_DATA_ALLOCA (prop, extprop);
 	  if (STRINGP (val))
 if (!width_specified_p)
 width = FRAME_WIDTH (f);
 if (!height_specified_p)
 height = FRAME_HEIGHT (f);
 /* Kludge kludge kludge kludge. */
 if (position_specified_p &&
 	(!x_position_specified_p || !y_position_specified_p))
 {
 	Position dummy;
 #if 0
 	x = (int) (FRAME_X_SHELL_WIDGET (f)->core.x);
 	y = (int) (FRAME_X_SHELL_WIDGET (f)->core.y);
 #endif
 }
 if (!f->init_finished)
 {
 	int flags = (size_specified_p ? WidthValue | HeightValue : 0) |
 	  (position_specified_p ?
 	   XValue | YValue | (x < 0 ? XNegative : 0) | (y < 0 ? YNegative : 0)
 static void
 maybe_set_frame_title_format (Widget shell)
 {
 /* Only do this if this is the first X frame we're creating.
 If the *title resource (or -title option) was specified, then
 set frame-title-format to its value.
 */
 if (!frame_title_format_already_set)
 dnd_convert_cb_rec[0].callback = x_cde_convert_callback;
 dnd_convert_cb_rec[0].closure  = (XtPointer) Ctext;
 dnd_convert_cb_rec[1].callback = NULL;
 dnd_convert_cb_rec[1].closure  = NULL;
 dnd_destroy_cb_rec[0].callback = x_cde_destroy_callback;
 dnd_destroy_cb_rec[0].closure  = (XtPointer) Ctext;
 dnd_destroy_cb_rec[1].callback = NULL;
 dnd_destroy_cb_rec[1].closure  = NULL;
 int ii;
 Lisp_Object path  = Qnil;
 Lisp_Object frame = Qnil;
 Lisp_Object data  = Qnil;
 struct gcpro gcpro1, gcpro2, gcpro3;
 DtDndTransferCallbackStruct *transferInfo =
 (DtDndTransferCallbackStruct *) callData;
 if (transferInfo == NULL)
 return;
 GCPRO3 (path, frame, data);
 frame = make_frame ((struct frame *) clientData);
 if (transferInfo->dropData->protocol == DtDND_FILENAME_TRANSFER)
 {
 for (ii = 0; ii < transferInfo->dropData->numItems; ii++)
 	{
 	  filePath = transferInfo->dropData->data.files[ii];
 /* ### Mule-izing required */
 	  path = make_string ((Bufbyte *)filePath, strlen (filePath));
 	  va_run_hook_with_args (Qdrag_and_drop_functions, 2, frame, path);
 	}
 }
 else if (transferInfo->dropData->protocol == DtDND_BUFFER_TRANSFER)
 {
 int speccount = specpdl_depth();
 record_unwind_protect(abort_current_drag, Qnil);
 drag_not_done = 1;
 for (ii = 0; ii < transferInfo->dropData->numItems; ii++)
 	{
 	  filePath = transferInfo->dropData->data.buffers[ii].name;
 #endif /* HAVE_CDE */
 #ifdef HAVE_OFFIX_DND
 #include <OffiX/DragAndDrop.h>
 void
 x_offix_drop_event_handler (Widget widget, XtPointer data, XEvent *event,
 			    Boolean *b)
 {
 int i, len, Type;
 unsigned char *Data;
 unsigned long Size;
 Lisp_Object path = Qnil;
 Lisp_Object frame = Qnil;
 if (!DndIsDropMessage(event)) /* the better way */
 {
 stderr_out("DndDropHandler: pseudo drop received (ignore me!)\n");
 return;
 }
 Type = DndDataType (event);
 DndGetData (&Data, &Size);
 GCPRO4 (path, frame, dnd_data, dnd_type);
 frame = make_frame ((struct frame *) data);
 stderr_out("DndDropHandler: valid drop received (T%d S%u)\n",Type,Size);
 switch (Type)
 {
 case DndFiles:
 while (*Data)
 	{
 or
 	argv[0]			FRAME-NAME	container	emacsTextPane
 	ApplicationShell	EmacsShell	EmacsManager	EmacsFrame
 #ifdef EXTERNAL_WIDGET
 The ExternalShell widget is simply a replacement for the Shell widget
 which is able to deal with using an externally-supplied window instead
 of always creating its own.
 #endif
 */
 int app_flags = 0;
 int app_x = 0;
 int app_y = 0;
 unsigned int app_w = 0;
 unsigned int app_h = 0;
 /* Geometry of the EmacsFrame */
 int frame_flags = 0;
 int frame_x = 0;
 int frame_y = 0;
 unsigned int frame_w = 0;
 unsigned int frame_h = 0;
 /* Hairily merged geometry */
 int x = 0;
 int y = 0;
 unsigned int w = 80;
 unsigned int h = 40;
 if (frame_flags & (XValue | YValue))
 	{
 	  XtSetArg (al [0], XtNwidth,  &frame_w);
 	  XtSetArg (al [1], XtNheight, &frame_h);
 	  XtGetValues (ew, al, 2);
 	  if (frame_flags & XNegative)
 	    frame_x += frame_w;
 	  if (frame_flags & YNegative)
 	    frame_y += frame_h;
 if (ew_geom)
 frame_flags = XParseGeometry (ew_geom,
 				  &frame_x, &frame_y,
 				  &frame_w, &frame_h);
 if (first_x_frame_p (f))
 {
 /* If this is the first frame created:
 ====================================
 {
 /* The scrollbar positioning is completely handled by redisplay.  We
 just need to know which sides they are supposed to go on. */
 unsigned char scrollbar_placement;
 Arg al [1];
 XtSetArg (al [0], XtNscrollBarPlacement, &scrollbar_placement);
 XtGetValues (text, al, 1);
 f->scrollbar_on_left = (scrollbar_placement == XtTOP_LEFT ||
 scrollbar_placement == XtBOTTOM_LEFT);
 f->scrollbar_on_top  = (scrollbar_placement == XtTOP_LEFT ||
 if (STRINGP (f->name))
 GET_C_STRING_CTEXT_DATA_ALLOCA (f->name, name);
 else
 name = "emacs";
 /* The widget hierarchy is
 	argv[0]			shell		pane		FRAME-NAME
 	ApplicationShell	EmacsShell	EmacsManager	EmacsFrame
 XtSetArg (al [0], XtNborderWidth, 0); /* should this be settable? */
 XtSetArg (al [1], XtNemacsFrame,  f);
 text = XtCreateWidget (name, emacsFrameClass, container, al, 2);
 FRAME_X_TEXT_WIDGET (f) = text;
 #ifdef HAVE_MENUBARS
 /* Create the initial menubar widget. */
 menubar_visible = x_initialize_frame_menubar (f);
 FRAME_X_TOP_WIDGETS (f)[0] = menubar = FRAME_X_MENUBAR_WIDGET (f);
 FRAME_X_NUM_TOP_WIDGETS (f) = 1;
 if (menubar_visible)
 XtManageChild (menubar);
 #endif /* HAVE_MENUBARS */
 XtManageChild (text);
 XtManageChild (container);
 }
 #ifdef HAVE_XIM
 XIM_init_frame (f);
 #endif /* HAVE_XIM */
 #ifdef HACK_EDITRES
 /* Allow XEmacs to respond to EditRes requests.  See the O'Reilly Xt */
 /* Instrinsics Programming Manual, Motif Edition, Aug 1993, Sect 14.14, */
 /* pp. 483-493. */
 XtAddEventHandler (shell_widget,           /* the shell widget in question */
 		     (EventMask) NoEventMask,/* OR with existing mask */
 		     True,                   /* called on non-maskable events? */
-		     _XEditResCheckMessages, /* the handler */
+		     (XtEventHandler) _XEditResCheckMessages, /* the handler */
 		     NULL);
 #endif /* HACK_EDITRES */
 #ifdef HAVE_CDE
 {
 #ifdef HAVE_OFFIX_DND
 {
 DndInitialize (FRAME_X_SHELL_WIDGET (f));
 DndRegisterDropWidget (FRAME_X_TEXT_WIDGET (f),
 			   x_offix_drop_event_handler,
 			   (XtPointer) f);
 }
 #endif
 be initialized to something relevant to the time we created the window.
 */
 XChangeProperty (XtDisplay (frame_widget), XtWindow (frame_widget),
 		   DEVICE_XATOM_WM_PROTOCOLS (d), XA_ATOM, 32, PropModeAppend,
 		   (unsigned char*) NULL, 0);
 x_send_synthetic_mouse_event (f);
 }
 static void
 allocate_x_frame_struct (struct frame *f)
 {
 /* zero out all slots. */
-f->frame_data = malloc_type_and_zero (struct x_frame);
+f->frame_data = xnew_and_zero (struct x_frame);
 /* yeah, except the lisp ones */
 FRAME_X_ICON_PIXMAP (f) = Qnil;
 FRAME_X_ICON_PIXMAP_MASK (f) = Qnil;
 #ifdef ENERGIZE
 might not be processed). */
 XtSetArg (al [0], XtNwinGravity, win_gravity);
 XtSetArg (al [1], XtNx, xoff);
 XtSetArg (al [2], XtNy, yoff);
 XtSetValues (w, al, 3);
 /* Sometimes you will find that
 (set-frame-position (selected-frame) -50 -50)
 doesn't put the frame where you expect it to: i.e. it's closer to
 Display *display = DEVICE_X_DISPLAY (XDEVICE (f->device));
 if (FRAME_VISIBLE_P(f) || force)
 {
 emacs_window = XtWindow (FRAME_X_SHELL_WIDGET (f));
 /* first raises all the dialog boxes, then put emacs just below the
 * bottom most dialog box */
 bottom_dialog = lw_raise_all_pop_up_widgets ();
 if (bottom_dialog && XtWindow (bottom_dialog))
 	{
 	  xwc.sibling = XtWindow (bottom_dialog);
 x_lower_frame (struct frame *f)
 {
 Display *display = DEVICE_X_DISPLAY (XDEVICE (f->device));
 XWindowChanges xwc;
 unsigned int flags;
 if (FRAME_VISIBLE_P(f))
 {
 xwc.stack_mode = Below;
 flags = CWStackMode;
 if (!XReconfigureWMWindow (display, XtWindow (FRAME_X_SHELL_WIDGET (f)),
 Note also that under fvwm a frame can be Viewable (and thus Mapped)
 but still X-invisible
 f->visible = xwa.map_state == IsViewable; */
 viewable = xwa.map_state == IsViewable;
 if (viewable)
 {
 Window focus;
 int revert_to;
 XGetInputFocus (XtDisplay (shell_widget), &focus, &revert_to);
 window-id			The X window ID corresponding to the
 				frame.  May be set only at startup, and
 				only if external widget support was
 				compiled in; doing so causes the frame
-				to be created as an \"external widget\"
+				to be created as an "external widget"
 				in another program that uses an existing
 				window in the program rather than creating
 				a new one.
 initially-unmapped		If non-nil, the frame will not be visible
 				when it is created.  In this case, you
 				need to call `make-frame-visible' to make
 				the frame appear.
 popup				If non-nil, it should be a frame, and this
-				frame will be created as a \"popup\" frame
+				frame will be created as a "popup" frame
 				whose parent is the given frame.  This
 				will make the window manager treat the
 				frame as a dialog box, which may entail
 				doing different things (e.g. not asking
 				for positioning, and not iconifying

Mercurial > hg > xemacs-beta

comparison src/frame-x.c @ 185:3d6bfa290dbd r20-3b19