Mercurial > hg > xemacs-beta
annotate src/frame-gtk.c @ 5118:e0db3c197671 ben-lisp-object
merge up to latest default branch, doesn't compile yet
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 26 Dec 2009 21:18:49 -0600 |
| parents | 229bd619740a |
| children | d1247f3cc363 |
| rev | line source |
|---|---|
| 2168 | 1 /* Functions for the GTK toolkit. |
| 462 | 2 Copyright (C) 1989, 1992-5, 1997 Free Software Foundation, Inc. |
| 1346 | 3 Copyright (C) 1995, 1996, 2002, 2003 Ben Wing. |
| 462 | 4 |
| 5 This file is part of XEmacs. | |
| 6 | |
| 7 XEmacs is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 9 Free Software Foundation; either version 2, or (at your option) any | |
| 10 later version. | |
| 11 | |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with XEmacs; see the file COPYING. If not, write to | |
| 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 20 Boston, MA 02111-1307, USA. */ | |
| 21 | |
| 22 /* Synched up with: Not synched with FSF. */ | |
| 23 | |
| 24 /* Substantially rewritten for XEmacs. */ | |
| 25 /* Revamped to use Gdk/Gtk by William Perry */ | |
| 26 | |
| 27 #include <config.h> | |
| 28 #include "lisp.h" | |
| 29 | |
| 872 | 30 #include "buffer.h" |
| 31 #include "device-impl.h" | |
| 32 #include "events.h" | |
| 33 #include "extents.h" | |
| 34 #include "faces.h" | |
| 35 #include "frame-impl.h" | |
| 36 #include "window.h" | |
| 37 | |
| 38 #ifdef HAVE_DRAGNDROP | |
| 39 #include "dragdrop.h" | |
| 40 #endif | |
| 41 | |
| 2168 | 42 #include "elhash.h" |
| 872 | 43 #include "console-gtk-impl.h" |
| 462 | 44 #include "glyphs-gtk.h" |
| 872 | 45 #include "objects-gtk-impl.h" |
| 462 | 46 #include "scrollbar-gtk.h" |
| 872 | 47 #include "ui-gtk.h" |
| 462 | 48 |
| 49 #include "gtk-xemacs.h" | |
| 50 | |
| 51 #ifdef HAVE_GNOME | |
| 52 #include <libgnomeui/libgnomeui.h> | |
| 53 #endif | |
| 54 | |
| 55 #define BORDER_WIDTH 0 | |
| 56 #define INTERNAL_BORDER_WIDTH 0 | |
| 57 | |
| 58 #define TRANSIENT_DATA_IDENTIFIER "xemacs::transient_for" | |
| 59 #define UNMAPPED_DATA_IDENTIFIER "xemacs::initially_unmapped" | |
| 60 | |
| 61 #define STUPID_X_SPECIFIC_GTK_STUFF | |
| 62 | |
| 63 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 64 #include <gdk/gdkx.h> | |
| 65 #endif | |
| 66 | |
| 67 /* Default properties to use when creating frames. */ | |
| 68 Lisp_Object Vdefault_gtk_frame_plist; | |
| 69 | |
| 70 Lisp_Object Qdetachable_menubar; | |
| 71 Lisp_Object Qtext_widget; | |
| 72 Lisp_Object Qcontainer_widget; | |
| 73 Lisp_Object Qshell_widget; | |
| 74 | |
| 75 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 76 EXFUN (Fgtk_window_id, 1); | |
| 77 #endif | |
| 78 | |
| 79 #ifdef HAVE_DRAGNDROP | |
| 80 enum { | |
| 81 TARGET_TYPE_STRING, | |
| 82 TARGET_TYPE_URI_LIST, | |
| 83 }; | |
| 84 | |
| 85 static GtkTargetEntry dnd_target_table[] = { | |
| 86 { "STRING", 0, TARGET_TYPE_STRING }, | |
| 87 { "text/plain", 0, TARGET_TYPE_STRING }, | |
| 88 { "text/uri-list", 0, TARGET_TYPE_URI_LIST }, | |
| 89 { "_NETSCAPE_URL", 0, TARGET_TYPE_STRING } | |
| 90 }; | |
| 91 | |
| 92 static guint dnd_n_targets = sizeof(dnd_target_table) / sizeof(dnd_target_table[0]); | |
| 93 | |
| 94 #endif | |
| 95 | |
| 1204 | 96 static const struct memory_description gtk_frame_data_description_1 [] = { |
| 97 { XD_LISP_OBJECT, offsetof (struct gtk_frame, icon_pixmap) }, | |
| 98 { XD_LISP_OBJECT, offsetof (struct gtk_frame, icon_pixmap_mask) }, | |
| 99 { XD_LISP_OBJECT_ARRAY, offsetof (struct gtk_frame, lisp_visible_widgets), | |
| 100 3 }, | |
| 1346 | 101 { XD_LISP_OBJECT, offsetof (struct gtk_frame, menubar_data) }, |
| 1204 | 102 { XD_END } |
| 103 }; | |
| 104 | |
| 3092 | 105 #ifdef NEW_GC |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4117
diff
changeset
|
106 DEFINE_DUMPABLE_INTERNAL_LISP_OBJECT ("gtk-frame", gtk_frame, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4117
diff
changeset
|
107 0, gtk_frame_data_description_1, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4117
diff
changeset
|
108 Lisp_Gtk_Frame); |
| 3092 | 109 #else /* not NEW_GC */ |
| 1204 | 110 extern const struct sized_memory_description gtk_frame_data_description; |
| 111 | |
| 112 const struct sized_memory_description gtk_frame_data_description = { | |
| 113 sizeof (struct gtk_frame), gtk_frame_data_description_1 | |
| 114 }; | |
| 3092 | 115 #endif /* not NEW_GC */ |
| 1204 | 116 |
| 462 | 117 |
| 118 /************************************************************************/ | |
| 119 /* helper functions */ | |
| 120 /************************************************************************/ | |
| 121 | |
| 2168 | 122 /* Return the Emacs frame-object which contains the given widget. */ |
| 123 struct frame * | |
| 124 gtk_widget_to_frame (GtkWidget *w) | |
| 125 { | |
| 126 struct frame *f = NULL; | |
| 127 | |
| 128 for (; w; w = w->parent) | |
| 129 { | |
| 130 if ((f = (struct frame *) gtk_object_get_data (GTK_OBJECT (w), | |
| 131 GTK_DATA_FRAME_IDENTIFIER))) | |
| 132 return (f); | |
| 133 } | |
| 134 | |
| 135 return (selected_frame()); | |
| 136 } | |
| 137 | |
| 138 | |
| 462 | 139 /* Return the Emacs frame-object corresponding to an X window */ |
| 140 struct frame * | |
| 141 gtk_window_to_frame (struct device *d, GdkWindow *wdesc) | |
| 142 { | |
| 143 Lisp_Object tail, frame; | |
| 144 struct frame *f; | |
| 145 | |
| 146 /* This function was previously written to accept only a window argument | |
| 147 (and to loop over all devices looking for a matching window), but | |
| 148 that is incorrect because window ID's are not unique across displays. */ | |
| 149 | |
| 150 for (tail = DEVICE_FRAME_LIST (d); CONSP (tail); tail = XCDR (tail)) | |
| 151 { | |
| 152 frame = XCAR (tail); | |
| 153 if (!FRAMEP (frame)) | |
| 154 continue; | |
| 155 f = XFRAME (frame); | |
| 156 if (FRAME_GTK_P (f) && GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (f)) == wdesc) | |
| 157 return f; | |
| 158 } | |
| 159 return 0; | |
| 160 } | |
| 161 | |
| 162 /* Like gtk_window_to_frame but also compares the window with the widget's | |
| 163 windows */ | |
| 164 struct frame * | |
| 165 gtk_any_window_to_frame (struct device *d, GdkWindow *w) | |
| 166 { | |
| 167 do | |
| 168 { | |
| 169 Lisp_Object frmcons; | |
| 170 | |
| 171 DEVICE_FRAME_LOOP (frmcons, d) | |
| 172 { | |
| 173 struct frame *fr = XFRAME (XCAR (frmcons)); | |
| 174 if ((w == GET_GTK_WIDGET_WINDOW (FRAME_GTK_SHELL_WIDGET (fr))) || | |
| 175 (w == GET_GTK_WIDGET_WINDOW (FRAME_GTK_CONTAINER_WIDGET (fr))) || | |
| 176 #ifdef HAVE_MENUBARS | |
| 177 (w == GET_GTK_WIDGET_WINDOW (FRAME_GTK_MENUBAR_WIDGET (fr))) || | |
| 178 #endif | |
| 179 (w == GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (fr)))) | |
| 180 { | |
| 181 return (fr); | |
| 182 } | |
| 183 } | |
| 184 w = gdk_window_get_parent (w); | |
| 185 } while (w); | |
| 186 | |
| 187 return (0); | |
| 188 } | |
| 189 | |
| 190 struct frame * | |
| 191 gtk_any_widget_or_parent_to_frame (struct device *d, GtkWidget *widget) | |
| 192 { | |
| 193 return (gtk_any_window_to_frame (d, GET_GTK_WIDGET_WINDOW (widget))); | |
| 194 } | |
| 195 | |
| 196 struct device * | |
| 197 gtk_any_window_to_device (GdkWindow *w) | |
| 198 { | |
| 199 struct device *d = NULL; | |
| 200 Lisp_Object devcons, concons; | |
| 201 | |
| 202 DEVICE_LOOP_NO_BREAK (devcons, concons) | |
| 203 { | |
| 204 d = XDEVICE (XCAR (devcons)); | |
| 205 if (!DEVICE_GTK_P (d)) continue; | |
| 206 if (gtk_any_window_to_frame (d, w)) | |
| 207 return (d); | |
| 208 } | |
| 209 return (NULL); | |
| 210 } | |
| 211 | |
| 212 struct frame * | |
| 213 decode_gtk_frame (Lisp_Object frame) | |
| 214 { | |
| 215 if (NILP (frame)) | |
| 793 | 216 frame = wrap_frame (selected_frame ()); |
| 462 | 217 CHECK_LIVE_FRAME (frame); |
| 218 /* this will also catch dead frames, but putting in the above check | |
| 219 results in a more useful error */ | |
| 220 CHECK_GTK_FRAME (frame); | |
| 221 return XFRAME (frame); | |
| 222 } | |
| 223 | |
| 224 | |
| 225 /************************************************************************/ | |
| 226 /* window-manager interactions */ | |
| 227 /************************************************************************/ | |
| 228 static int | |
| 229 gtk_frame_iconified_p (struct frame *f) | |
| 230 { | |
| 231 return (f->iconified); | |
| 232 } | |
| 233 | |
| 234 | |
| 235 /************************************************************************/ | |
| 236 /* frame properties */ | |
| 237 /************************************************************************/ | |
| 238 | |
| 239 static Lisp_Object | |
| 240 gtk_frame_property (struct frame *f, Lisp_Object property) | |
| 241 { | |
| 242 GtkWidget *shell = FRAME_GTK_SHELL_WIDGET (f); | |
| 243 | |
| 244 if (EQ (Qleft, property) || EQ (Qtop, property)) | |
| 245 { | |
| 246 gint x, y; | |
| 247 if (!GET_GTK_WIDGET_WINDOW(shell)) | |
| 248 return Qzero; | |
| 249 gdk_window_get_deskrelative_origin (GET_GTK_WIDGET_WINDOW (shell), &x, &y); | |
| 250 if (EQ (Qleft, property)) return make_int (x); | |
| 251 if (EQ (Qtop, property)) return make_int (y); | |
| 252 } | |
| 253 if (EQ (Qshell_widget, property)) | |
| 254 { | |
| 255 return (FRAME_GTK_LISP_WIDGETS (f)[0]); | |
| 256 } | |
| 257 if (EQ (Qcontainer_widget, property)) | |
| 258 { | |
| 259 return (FRAME_GTK_LISP_WIDGETS (f)[1]); | |
| 260 } | |
| 261 if (EQ (Qtext_widget, property)) | |
| 262 { | |
| 263 return (FRAME_GTK_LISP_WIDGETS (f)[2]); | |
| 264 } | |
| 265 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 266 if (EQ (Qwindow_id, property)) | |
| 771 | 267 return Fgtk_window_id (wrap_frame (f)); |
| 462 | 268 #endif |
| 269 | |
| 270 return Qunbound; | |
| 271 } | |
| 272 | |
| 273 static int | |
| 3087 | 274 gtk_internal_frame_property_p (struct frame *UNUSED(f), Lisp_Object property) |
| 462 | 275 { |
| 276 return EQ (property, Qleft) | |
| 277 || EQ (property, Qtop) | |
| 278 || EQ (Qshell_widget, property) | |
| 279 || EQ (Qcontainer_widget, property) | |
| 280 || EQ (Qtext_widget, property) | |
| 281 || EQ (property, Qwindow_id) | |
| 282 || STRINGP (property); | |
| 283 } | |
| 284 | |
| 285 static Lisp_Object | |
| 286 gtk_frame_properties (struct frame *f) | |
| 287 { | |
| 288 Lisp_Object props = Qnil; | |
| 289 GtkWidget *shell = FRAME_GTK_SHELL_WIDGET (f); | |
| 290 gint x, y; | |
| 291 | |
| 292 props = cons3 (Qshell_widget, FRAME_GTK_LISP_WIDGETS (f)[0], props); | |
| 293 props = cons3 (Qcontainer_widget, FRAME_GTK_LISP_WIDGETS (f)[1], props); | |
| 294 props = cons3 (Qtext_widget, FRAME_GTK_LISP_WIDGETS (f)[2], props); | |
| 295 | |
| 296 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 771 | 297 props = cons3 (Qwindow_id, Fgtk_window_id (wrap_frame (f)), props); |
| 462 | 298 #endif |
| 299 | |
| 300 if (!GET_GTK_WIDGET_WINDOW (shell)) | |
| 301 x = y = 0; | |
| 302 else | |
| 303 gdk_window_get_deskrelative_origin (GET_GTK_WIDGET_WINDOW (shell), &x, &y); | |
| 304 | |
| 305 props = cons3 (Qtop, make_int (y), props); | |
| 306 props = cons3 (Qleft, make_int (x), props); | |
| 307 | |
| 308 return props; | |
| 309 } | |
| 310 | |
| 311 | |
| 312 /* Functions called only from `gtk_set_frame_properties' to set | |
| 313 individual properties. */ | |
| 314 | |
| 315 static void | |
| 2286 | 316 gtk_set_frame_text_value (struct frame *UNUSED (f), Ibyte *value, |
| 462 | 317 void (*func) (gpointer, gchar *), |
| 318 gpointer arg) | |
| 319 { | |
| 320 gchar *the_text = (gchar *) value; | |
| 321 | |
| 322 /* Programmer fuckup or window is not realized yet. */ | |
| 323 if (!func || !arg) return; | |
| 324 | |
| 325 #ifdef MULE | |
| 326 { | |
| 867 | 327 Ibyte *ptr; |
| 462 | 328 |
| 329 /* Optimize for common ASCII case */ | |
| 330 for (ptr = value; *ptr; ptr++) | |
| 826 | 331 if (!byte_ascii_p (*ptr)) |
| 462 | 332 { |
| 333 char *tmp; | |
| 334 C_STRING_TO_EXTERNAL (value, tmp, Qctext); | |
| 335 the_text = tmp; | |
| 336 break; | |
| 337 } | |
| 338 } | |
| 339 #endif /* MULE */ | |
| 340 | |
| 341 (*func) (arg, (gchar *) the_text); | |
| 342 } | |
| 343 | |
| 344 static void | |
| 867 | 345 gtk_set_title_from_ibyte (struct frame *f, Ibyte *name) |
| 462 | 346 { |
| 347 if (GTK_IS_WINDOW (FRAME_GTK_SHELL_WIDGET (f))) | |
| 348 gtk_set_frame_text_value (f, name, | |
| 349 (void (*)(gpointer, gchar *)) | |
| 350 gtk_window_set_title, FRAME_GTK_SHELL_WIDGET (f)); | |
| 351 } | |
| 352 | |
| 353 static void | |
| 867 | 354 gtk_set_icon_name_from_ibyte (struct frame *f, Ibyte *name) |
| 462 | 355 { |
| 356 gtk_set_frame_text_value (f, name, | |
| 357 (void (*)(gpointer, gchar *)) | |
| 358 gdk_window_set_icon_name, FRAME_GTK_SHELL_WIDGET (f)->window); | |
| 359 } | |
| 360 | |
| 361 /* Set the initial frame size as specified. This function is used | |
| 362 when the frame's widgets have not yet been realized. | |
| 363 */ | |
| 364 static void | |
| 365 gtk_set_initial_frame_size (struct frame *f, int x, int y, | |
| 366 unsigned int w, unsigned int h) | |
| 367 { | |
| 368 GtkWidget *shell = FRAME_GTK_SHELL_WIDGET (f); | |
| 369 GdkGeometry geometry; | |
| 370 | |
| 371 if (GTK_IS_WINDOW (shell)) | |
| 372 { | |
| 2054 | 373 GdkWindowHints geometry_mask = GDK_HINT_RESIZE_INC; |
| 462 | 374 /* Deal with the cell size */ |
| 771 | 375 default_face_height_and_width (wrap_frame (f), &geometry.height_inc, &geometry.width_inc); |
| 462 | 376 |
| 377 gtk_window_set_geometry_hints (GTK_WINDOW (shell), | |
| 378 FRAME_GTK_TEXT_WIDGET (f), &geometry, geometry_mask); | |
| 379 gdk_window_set_hints (GET_GTK_WIDGET_WINDOW (shell), x, y, 0, 0, 0, 0, GDK_HINT_POS); | |
| 380 gtk_window_set_policy (GTK_WINDOW (shell), TRUE, TRUE, FALSE); | |
| 381 } | |
| 382 | |
| 383 FRAME_HEIGHT (f) = h; | |
| 384 FRAME_WIDTH (f) = w; | |
| 385 | |
| 386 change_frame_size (f, h, w, 0); | |
| 387 { | |
| 388 GtkRequisition req; | |
| 389 | |
| 390 gtk_widget_size_request (FRAME_GTK_SHELL_WIDGET (f), &req); | |
| 391 gtk_widget_set_usize (FRAME_GTK_SHELL_WIDGET (f), req.width, req.height); | |
| 392 } | |
| 393 } | |
| 394 | |
| 395 /* Report that a frame property of frame S is being set or changed. | |
| 396 If the property is not specially recognized, do nothing. | |
| 397 */ | |
| 398 | |
| 399 static void | |
| 400 gtk_set_frame_properties (struct frame *f, Lisp_Object plist) | |
| 401 { | |
| 402 gint x, y; | |
| 403 gint width = 0, height = 0; | |
| 404 gboolean width_specified_p = FALSE; | |
| 405 gboolean height_specified_p = FALSE; | |
| 406 gboolean x_position_specified_p = FALSE; | |
| 407 gboolean y_position_specified_p = FALSE; | |
| 408 Lisp_Object tail; | |
| 409 | |
| 410 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail))) | |
| 411 { | |
| 412 Lisp_Object prop = Fcar (tail); | |
| 413 Lisp_Object val = Fcar (Fcdr (tail)); | |
| 414 | |
| 415 if (SYMBOLP (prop)) | |
| 416 { | |
| 417 if (EQ (prop, Qfont)) | |
| 418 { | |
| 419 /* If the value is not a string we silently ignore it. */ | |
| 420 if (STRINGP (val)) | |
| 421 { | |
| 422 Lisp_Object frm, font_spec; | |
| 423 | |
| 793 | 424 frm = wrap_frame (f); |
| 462 | 425 font_spec = Fget (Fget_face (Qdefault), Qfont, Qnil); |
| 426 | |
| 427 Fadd_spec_to_specifier (font_spec, val, frm, Qnil, Qnil); | |
| 428 update_frame_face_values (f); | |
| 429 } | |
| 430 continue; | |
| 431 } | |
| 432 else if (EQ (prop, Qwidth)) | |
| 433 { | |
| 434 CHECK_INT (val); | |
| 435 width = XINT (val); | |
| 436 width_specified_p = TRUE; | |
| 437 continue; | |
| 438 } | |
| 439 else if (EQ (prop, Qheight)) | |
| 440 { | |
| 441 CHECK_INT (val); | |
| 442 height = XINT (val); | |
| 443 height_specified_p = TRUE; | |
| 444 continue; | |
| 445 } | |
| 446 /* Further kludge the x/y. */ | |
| 447 else if (EQ (prop, Qx)) | |
| 448 { | |
| 449 CHECK_INT (val); | |
| 450 x = (gint) XINT (val); | |
| 451 x_position_specified_p = TRUE; | |
| 452 continue; | |
| 453 } | |
| 454 else if (EQ (prop, Qy)) | |
| 455 { | |
| 456 CHECK_INT (val); | |
| 457 y = (gint) XINT (val); | |
| 458 y_position_specified_p = TRUE; | |
| 459 continue; | |
| 460 } | |
| 461 } | |
| 462 } | |
| 463 | |
| 464 /* Kludge kludge kludge. We need to deal with the size and position | |
| 465 specially. */ | |
| 466 { | |
| 467 int size_specified_p = width_specified_p || height_specified_p; | |
| 468 int position_specified_p = x_position_specified_p || y_position_specified_p; | |
| 469 | |
| 470 if (!width_specified_p) | |
| 471 width = 80; | |
| 472 if (!height_specified_p) | |
| 473 height = 30; | |
| 474 | |
| 475 /* Kludge kludge kludge kludge. */ | |
| 476 if (position_specified_p && | |
| 477 (!x_position_specified_p || !y_position_specified_p)) | |
| 478 { | |
| 479 gint dummy; | |
| 480 GtkWidget *shell = FRAME_GTK_SHELL_WIDGET (f); | |
| 481 gdk_window_get_deskrelative_origin (GET_GTK_WIDGET_WINDOW (shell), | |
| 482 (x_position_specified_p ? &dummy : &x), | |
| 483 (y_position_specified_p ? &dummy : &y)); | |
| 484 } | |
| 485 | |
| 486 if (!f->init_finished) | |
| 487 { | |
| 488 if (size_specified_p || position_specified_p) | |
| 489 gtk_set_initial_frame_size (f, x, y, width, height); | |
| 490 } | |
| 491 else | |
| 492 { | |
| 493 if (size_specified_p) | |
| 494 { | |
| 793 | 495 Lisp_Object frame = wrap_frame (f); |
| 496 | |
| 462 | 497 Fset_frame_size (frame, make_int (width), make_int (height), Qnil); |
| 498 } | |
| 499 if (position_specified_p) | |
| 500 { | |
| 793 | 501 Lisp_Object frame = wrap_frame (f); |
| 502 | |
| 462 | 503 Fset_frame_position (frame, make_int (x), make_int (y)); |
| 504 } | |
| 505 } | |
| 506 } | |
| 507 } | |
| 508 | |
| 509 | |
| 510 /************************************************************************/ | |
| 511 /* widget creation */ | |
| 512 /************************************************************************/ | |
| 513 /* Figure out what size the shell widget should initially be, | |
| 514 and set it. Should be called after the default font has been | |
| 515 determined but before the widget has been realized. */ | |
| 516 | |
| 517 extern Lisp_Object Vgtk_initial_geometry; | |
| 518 | |
| 519 #ifndef HAVE_GNOME | |
| 520 static int | |
| 521 get_number (const char **geometry) | |
| 522 { | |
| 523 int value = 0; | |
| 524 int mult = 1; | |
| 525 | |
| 526 if (**geometry == '-'){ | |
| 527 mult = -1; | |
| 528 (*geometry)++; | |
| 529 } | |
| 530 while (**geometry && isdigit (**geometry)){ | |
| 531 value = value * 10 + (**geometry - '0'); | |
| 532 (*geometry)++; | |
| 533 } | |
| 534 return value * mult; | |
| 535 } | |
| 536 | |
| 537 /* | |
| 538 */ | |
| 539 | |
| 540 /** | |
| 541 * gnome_parse_geometry | |
| 542 * @geometry: geometry string to be parsed | |
| 543 * @xpos: X position geometry component | |
| 544 * @ypos: Y position geometry component | |
| 545 * @width: pixel width geometry component | |
| 546 * @height: pixel height geometry component | |
| 547 * | |
| 548 * Description: | |
| 549 * Parses the geometry string passed in @geometry, and fills | |
| 550 * @xpos, @ypos, @width, and @height with | |
| 551 * the corresponding values upon completion of the parse. | |
| 552 * If the parse fails, it should be assumed that @xpos, @ypos, @width, | |
| 553 * and @height contain undefined values. | |
| 554 * | |
| 555 * Returns: | |
| 556 * %TRUE if the geometry was successfully parsed, %FALSE otherwise. | |
| 557 **/ | |
| 558 | |
| 559 static gboolean | |
| 560 gnome_parse_geometry (const gchar *geometry, gint *xpos, | |
| 561 gint *ypos, gint *width, gint *height) | |
| 562 { | |
| 563 int subtract; | |
| 564 | |
| 565 g_return_val_if_fail (xpos != NULL, FALSE); | |
| 566 g_return_val_if_fail (ypos != NULL, FALSE); | |
| 567 g_return_val_if_fail (width != NULL, FALSE); | |
| 568 g_return_val_if_fail (height != NULL, FALSE); | |
| 569 | |
| 570 *xpos = *ypos = *width = *height = -1; | |
| 571 | |
| 572 if (!geometry) | |
| 573 return FALSE; | |
| 574 | |
| 575 if (*geometry == '=') | |
| 576 geometry++; | |
| 577 if (!*geometry) | |
| 578 return FALSE; | |
| 579 if (isdigit (*geometry)) | |
| 580 *width = get_number (&geometry); | |
| 581 if (!*geometry) | |
| 582 return TRUE; | |
| 583 if (*geometry == 'x' || *geometry == 'X'){ | |
| 584 geometry++; | |
| 585 *height = get_number (&geometry); | |
| 586 } | |
| 587 if (!*geometry) | |
| 588 return 1; | |
| 589 if (*geometry == '+'){ | |
| 590 subtract = 0; | |
| 591 geometry++; | |
| 592 } else if (*geometry == '-'){ | |
| 593 subtract = gdk_screen_width (); | |
| 594 geometry++; | |
| 595 } else | |
| 596 return FALSE; | |
| 597 *xpos = get_number (&geometry); | |
| 598 if (subtract) | |
| 599 *xpos = subtract - *xpos; | |
| 600 if (!*geometry) | |
| 601 return TRUE; | |
| 602 if (*geometry == '+'){ | |
| 603 subtract = 0; | |
| 604 geometry++; | |
| 605 } else if (*geometry == '-'){ | |
| 606 subtract = gdk_screen_height (); | |
| 607 geometry++; | |
| 608 } else | |
| 609 return FALSE; | |
| 610 *ypos = get_number (&geometry); | |
| 611 if (subtract) | |
| 612 *ypos = subtract - *ypos; | |
| 613 return TRUE; | |
| 614 } | |
| 615 #endif | |
| 616 | |
| 617 static void | |
| 618 gtk_initialize_frame_size (struct frame *f) | |
| 619 { | |
| 620 gint x = 10, y = 10, w = 80, h = 30; | |
| 621 | |
| 622 if (STRINGP (Vgtk_initial_geometry)) | |
| 623 { | |
| 2054 | 624 if (!gnome_parse_geometry ((char*) XSTRING_DATA (Vgtk_initial_geometry), &x,&y,&w,&h)) |
| 462 | 625 { |
| 626 x = y = 10; | |
| 627 w = 80; | |
| 628 h = 30; | |
| 629 } | |
| 630 } | |
| 631 | |
| 632 /* set the position of the frame's root window now. When the | |
| 633 frame was created, the position was initialized to (0,0). */ | |
| 634 { | |
| 635 struct window *win = XWINDOW (f->root_window); | |
| 636 | |
| 637 WINDOW_LEFT (win) = FRAME_LEFT_BORDER_END (f); | |
| 638 WINDOW_TOP (win) = FRAME_TOP_BORDER_END (f); | |
| 639 | |
| 640 if (!NILP (f->minibuffer_window)) | |
| 641 { | |
| 642 win = XWINDOW (f->minibuffer_window); | |
| 643 WINDOW_LEFT (win) = FRAME_LEFT_BORDER_END (f); | |
| 644 } | |
| 645 } | |
| 646 | |
| 647 gtk_set_initial_frame_size (f, x, y, w, h); | |
| 648 } | |
| 649 | |
| 650 static gboolean | |
| 2286 | 651 resize_event_cb (GtkWidget *UNUSED (w), GtkAllocation *allocation, |
| 652 gpointer user_data) | |
| 462 | 653 { |
| 654 struct frame *f = (struct frame *) user_data; | |
| 655 | |
| 656 f->pixwidth = allocation->width; | |
| 657 f->pixheight = allocation->height; | |
| 658 | |
| 659 if (FRAME_GTK_TEXT_WIDGET (f)->window) | |
| 660 { | |
| 793 | 661 Lisp_Object frame = wrap_frame (f); |
| 662 | |
| 462 | 663 Fredraw_frame (frame, Qt); |
| 664 } | |
| 665 | |
| 666 return (FALSE); | |
| 667 } | |
| 668 | |
| 669 static gboolean | |
| 2286 | 670 delete_event_cb (GtkWidget *UNUSED (w), GdkEvent *UNUSED (ev), |
| 671 gpointer user_data) | |
| 462 | 672 { |
| 673 struct frame *f = (struct frame *) user_data; | |
| 793 | 674 Lisp_Object frame = wrap_frame (f); |
| 462 | 675 |
| 676 enqueue_misc_user_event (frame, Qeval, list3 (Qdelete_frame, frame, Qt)); | |
| 677 | |
| 678 /* See if tickling the event queue helps us with our delays when | |
| 679 clicking 'close' */ | |
| 680 signal_fake_event (); | |
| 681 | |
| 682 return (TRUE); | |
| 683 } | |
| 684 | |
| 685 extern gboolean emacs_shell_event_handler (GtkWidget *wid, GdkEvent *event, gpointer closure); | |
| 686 extern Lisp_Object build_gtk_object (GtkObject *obj); | |
| 687 | |
| 688 #ifndef GNOME_IS_APP | |
| 689 #define GNOME_IS_APP(x) 0 | |
| 690 #define gnome_app_set_contents(x,y) 0 | |
| 691 #endif | |
| 692 | |
| 693 static void | |
| 694 cleanup_deleted_frame (gpointer data) | |
| 695 { | |
| 696 struct frame *f = (struct frame *) data; | |
| 793 | 697 Lisp_Object frame = wrap_frame (f); |
| 462 | 698 |
| 699 Fdelete_frame (frame, Qt); | |
| 700 } | |
| 701 | |
| 702 #ifdef HAVE_DRAGNDROP | |
| 703 extern void | |
| 704 dragndrop_data_received (GtkWidget *widget, | |
| 705 GdkDragContext *context, | |
| 706 gint x, | |
| 707 gint y, | |
| 708 GtkSelectionData *data, | |
| 709 guint info, | |
| 710 guint time); | |
| 711 | |
| 712 extern gboolean | |
| 713 dragndrop_dropped (GtkWidget *widget, | |
| 714 GdkDragContext *drag_context, | |
| 715 gint x, | |
| 716 gint y, | |
| 717 guint time, | |
| 718 gpointer user_data); | |
| 719 | |
| 720 Lisp_Object Vcurrent_drag_object; | |
| 721 | |
| 722 #define DRAG_SELECTION_DATA_ERROR "Error converting drag data to external format" | |
| 723 static void | |
| 2286 | 724 dragndrop_get_drag (GtkWidget *UNUSED (widget), |
| 725 GdkDragContext *UNUSED (drag_context), | |
| 462 | 726 GtkSelectionData *data, |
| 727 guint info, | |
| 2286 | 728 guint UNUSED (time), |
| 729 gpointer UNUSED (user_data)) | |
| 462 | 730 { |
| 731 gtk_selection_data_set (data, GDK_SELECTION_TYPE_STRING, 8, | |
| 732 DRAG_SELECTION_DATA_ERROR, | |
| 733 strlen (DRAG_SELECTION_DATA_ERROR)); | |
| 734 | |
| 735 switch (info) | |
| 736 { | |
| 737 case TARGET_TYPE_STRING: | |
| 738 { | |
| 739 Lisp_Object string = Vcurrent_drag_object; | |
| 740 | |
| 741 if (!STRINGP (Vcurrent_drag_object)) | |
| 742 { | |
| 743 string = Fprin1_to_string (string, Qnil); | |
| 744 /* Convert to a string */ | |
| 745 } | |
| 746 | |
| 747 gtk_selection_data_set (data, GDK_SELECTION_TYPE_STRING, | |
| 748 8, XSTRING_DATA (string), XSTRING_LENGTH (string)); | |
| 749 } | |
| 750 break; | |
| 751 case TARGET_TYPE_URI_LIST: | |
| 752 break; | |
| 753 default: | |
| 754 break; | |
| 755 } | |
| 756 Vcurrent_drag_object = Qnil; | |
| 757 } | |
| 758 | |
| 759 DEFUN ("gtk-start-drag-internal", Fgtk_start_drag_internal, 2, 3, 0, /* | |
| 760 Start a GTK drag from a buffer. | |
| 761 First arg is the event that started the drag, | |
| 762 second arg should be some string, and the third | |
| 763 is the type of the data (this should be a MIME type as a string (ie: text/plain)). | |
| 764 The type defaults to text/plain. | |
| 765 */ | |
| 766 (event, data, dtyp)) | |
| 767 { | |
| 768 if (EVENTP(event)) | |
| 769 { | |
| 770 struct frame *f = decode_gtk_frame (Fselected_frame (Qnil)); | |
| 771 GtkWidget *wid = FRAME_GTK_TEXT_WIDGET (f); | |
| 772 struct Lisp_Event *lisp_event = XEVENT(event); | |
| 773 GdkAtom dnd_typ; | |
| 774 GtkTargetList *tl = gtk_target_list_new (dnd_target_table, dnd_n_targets); | |
| 775 | |
| 776 /* only drag if this is really a press */ | |
| 777 if (EVENT_TYPE(lisp_event) != button_press_event) | |
| 778 return Qnil; | |
| 779 | |
| 780 /* get the desired type */ | |
| 781 if (!NILP (dtyp) && STRINGP (dtyp)) | |
| 782 dnd_typ = gdk_atom_intern (XSTRING_DATA (dtyp), FALSE); | |
| 783 | |
| 1204 | 784 gtk_drag_begin (wid, tl, GDK_ACTION_COPY, |
| 785 EVENT_BUTTON_BUTTON (lisp_event), NULL); | |
| 462 | 786 |
| 787 Vcurrent_drag_object = data; | |
| 788 | |
| 789 gtk_target_list_unref (tl); | |
| 790 } | |
| 791 return Qnil; | |
| 792 } | |
| 793 #endif | |
| 794 | |
| 795 /* Creates the widgets for a frame. | |
| 796 lisp_window_id is a Lisp description of an X window or Xt | |
| 797 widget to parse. | |
| 798 | |
| 799 This function does not map the windows. (That is | |
| 800 done by gtk_popup_frame().) | |
| 801 */ | |
| 802 static void | |
| 803 gtk_create_widgets (struct frame *f, Lisp_Object lisp_window_id, Lisp_Object parent) | |
| 804 { | |
| 805 const char *name; | |
| 806 GtkWidget *text, *container, *shell; | |
| 807 gboolean embedded_p = !NILP (lisp_window_id); | |
| 808 #ifdef HAVE_MENUBARS | |
| 809 int menubar_visible; | |
| 810 #endif | |
| 811 | |
| 812 if (STRINGP (f->name)) | |
| 813 TO_EXTERNAL_FORMAT (LISP_STRING, f->name, C_STRING_ALLOCA, name, Qctext); | |
| 814 else | |
| 815 name = "emacs"; | |
| 816 | |
| 817 FRAME_GTK_TOP_LEVEL_FRAME_P (f) = 1; | |
| 818 | |
| 819 if (embedded_p) | |
| 820 { | |
| 821 CHECK_GTK_OBJECT (lisp_window_id); | |
| 822 | |
| 823 if (!GTK_IS_CONTAINER (XGTK_OBJECT (lisp_window_id)->object)) | |
| 824 { | |
| 563 | 825 invalid_argument ("Window ID must be a GtkContainer subclass", lisp_window_id); |
| 462 | 826 } |
| 827 | |
| 828 shell = gtk_vbox_new (FALSE, 0); | |
| 829 | |
| 830 gtk_object_weakref (GTK_OBJECT (shell), cleanup_deleted_frame, f); | |
| 831 gtk_container_add (GTK_CONTAINER (XGTK_OBJECT (lisp_window_id)->object), shell); | |
| 832 } | |
| 833 else | |
| 834 { | |
| 835 #ifdef HAVE_GNOME | |
| 836 shell = GTK_WIDGET (gnome_app_new ("XEmacs", "XEmacs/GNOME")); | |
| 837 #else | |
| 838 shell = GTK_WIDGET (gtk_window_new (GTK_WINDOW_TOPLEVEL)); | |
| 839 #endif | |
| 840 } | |
| 841 | |
| 842 if (!NILP (parent)) | |
| 843 { | |
| 844 /* If this is a transient window, keep the parent info around */ | |
| 845 GtkWidget *parentwid = FRAME_GTK_SHELL_WIDGET (XFRAME (parent)); | |
| 846 gtk_object_set_data (GTK_OBJECT (shell), TRANSIENT_DATA_IDENTIFIER, parentwid); | |
| 847 gtk_window_set_transient_for (GTK_WINDOW (shell), GTK_WINDOW (parentwid)); | |
| 848 } | |
| 849 | |
| 850 gtk_container_set_border_width (GTK_CONTAINER (shell), 0); | |
| 851 | |
| 2168 | 852 /* Add a mapping from widget to frame to help widget callbacks quickly find |
| 853 their corresponding frame. */ | |
| 854 gtk_object_set_data (GTK_OBJECT (shell), GTK_DATA_FRAME_IDENTIFIER, f); | |
| 462 | 855 |
| 856 FRAME_GTK_SHELL_WIDGET (f) = shell; | |
| 857 | |
| 858 text = GTK_WIDGET (gtk_xemacs_new (f)); | |
| 859 | |
| 860 if (!GNOME_IS_APP (shell)) | |
| 861 container = GTK_WIDGET (gtk_vbox_new (FALSE, INTERNAL_BORDER_WIDTH)); | |
| 862 else | |
| 863 container = shell; | |
| 864 | |
| 865 FRAME_GTK_CONTAINER_WIDGET (f) = container; | |
| 866 FRAME_GTK_TEXT_WIDGET (f) = text; | |
| 867 | |
| 868 #ifdef HAVE_DRAGNDROP | |
| 869 gtk_drag_dest_set (text, GTK_DEST_DEFAULT_MOTION | GTK_DEST_DEFAULT_HIGHLIGHT, | |
| 870 dnd_target_table, dnd_n_targets, | |
| 871 GDK_ACTION_COPY | GDK_ACTION_LINK | GDK_ACTION_ASK); | |
| 872 gtk_signal_connect (GTK_OBJECT (text), "drag_drop", | |
| 873 GTK_SIGNAL_FUNC (dragndrop_dropped), text); | |
| 874 gtk_signal_connect (GTK_OBJECT (text), "drag_data_received", | |
| 875 GTK_SIGNAL_FUNC (dragndrop_data_received), text); | |
| 876 gtk_signal_connect (GTK_OBJECT (text), "drag_data_get", | |
| 877 GTK_SIGNAL_FUNC (dragndrop_get_drag), NULL); | |
| 878 #endif | |
| 879 | |
| 880 #ifdef HAVE_MENUBARS | |
| 881 /* Create the initial menubar widget. */ | |
| 882 menubar_visible = gtk_initialize_frame_menubar (f); | |
| 883 | |
| 884 if (menubar_visible) | |
| 885 { | |
| 886 gtk_widget_show_all (FRAME_GTK_MENUBAR_WIDGET (f)); | |
| 887 } | |
| 888 #endif /* HAVE_MENUBARS */ | |
| 889 | |
| 890 if (GNOME_IS_APP (shell)) | |
| 891 gnome_app_set_contents (GNOME_APP (shell), text); | |
| 892 else | |
| 893 /* Now comes the drawing area, which should fill the rest of the | |
| 894 ** frame completely. | |
| 895 */ | |
| 896 gtk_box_pack_end (GTK_BOX (container), text, TRUE, TRUE, 0); | |
| 897 | |
| 898 /* Connect main event handler */ | |
| 899 gtk_signal_connect (GTK_OBJECT (shell), "delete-event", GTK_SIGNAL_FUNC (delete_event_cb), f); | |
| 900 | |
| 901 { | |
| 902 static char *events_to_frob[] = { "focus-in-event", | |
| 903 "focus-out-event", | |
| 904 "enter-notify-event", | |
| 905 "leave-notify-event", | |
| 906 "map-event", | |
| 907 "unmap-event", | |
| 908 "property-notify-event", | |
| 909 "selection-clear-event", | |
| 910 "selection-request-event", | |
| 911 "selection-notify-event", | |
| 912 "client-event", | |
| 913 /* "configure-event", */ | |
| 914 "visibility-notify-event", | |
| 915 NULL }; | |
| 916 int i; | |
| 917 | |
| 918 for (i = 0; events_to_frob[i]; i++) | |
| 919 { | |
| 920 gtk_signal_connect (GTK_OBJECT (shell), events_to_frob[i], | |
| 921 GTK_SIGNAL_FUNC (emacs_shell_event_handler), f); | |
| 922 } | |
| 923 } | |
| 924 | |
| 925 gtk_signal_connect (GTK_OBJECT (shell), "size-allocate", GTK_SIGNAL_FUNC (resize_event_cb), f); | |
| 926 | |
| 927 /* This might be safe to call now... */ | |
| 928 /* gtk_signal_connect (GTK_OBJECT (shell), "event", GTK_SIGNAL_FUNC (emacs_shell_event_handler), f); */ | |
| 929 | |
| 930 /* Let's make sure we get all the events we can */ | |
| 931 gtk_widget_set_events (text, GDK_ALL_EVENTS_MASK); | |
| 932 | |
| 933 if (shell != container) | |
| 934 gtk_container_add (GTK_CONTAINER (shell), container); | |
| 935 | |
| 936 gtk_widget_set_name (shell, "XEmacs::shell"); | |
| 937 gtk_widget_set_name (container, "XEmacs::container"); | |
| 938 gtk_widget_set_name (text, "XEmacs::text"); | |
| 939 | |
| 940 FRAME_GTK_LISP_WIDGETS(f)[0] = build_gtk_object (GTK_OBJECT (shell)); | |
| 941 FRAME_GTK_LISP_WIDGETS(f)[1] = build_gtk_object (GTK_OBJECT (container)); | |
| 942 FRAME_GTK_LISP_WIDGETS(f)[2] = build_gtk_object (GTK_OBJECT (text)); | |
| 943 | |
| 944 gtk_widget_realize (shell); | |
| 945 } | |
| 946 | |
| 947 /* create the windows for the specified frame and display them. | |
| 948 Note that the widgets have already been created, and any | |
| 949 necessary geometry calculations have already been done. */ | |
| 950 static void | |
| 951 gtk_popup_frame (struct frame *f) | |
| 952 { | |
| 953 /* */ | |
| 954 | |
| 955 if (gtk_object_get_data (GTK_OBJECT (FRAME_GTK_SHELL_WIDGET (f)), UNMAPPED_DATA_IDENTIFIER)) | |
| 956 { | |
| 957 FRAME_GTK_TOTALLY_VISIBLE_P (f) = 0; | |
| 958 f->visible = 0; | |
| 959 gtk_widget_realize (FRAME_GTK_SHELL_WIDGET (f)); | |
| 960 gtk_widget_realize (FRAME_GTK_TEXT_WIDGET (f)); | |
| 961 gtk_widget_hide_all (FRAME_GTK_SHELL_WIDGET (f)); | |
| 962 } | |
| 963 else | |
| 964 { | |
| 965 gtk_widget_show_all (FRAME_GTK_SHELL_WIDGET (f)); | |
| 966 } | |
| 967 } | |
| 968 | |
| 969 static void | |
| 970 allocate_gtk_frame_struct (struct frame *f) | |
| 971 { | |
| 1346 | 972 int i; |
| 973 | |
| 462 | 974 /* zero out all slots. */ |
| 3092 | 975 #ifdef NEW_GC |
| 976 f->frame_data = alloc_lrecord_type (struct gtk_frame, &lrecord_gtk_frame); | |
| 977 #else /* not NEW_GC */ | |
| 462 | 978 f->frame_data = xnew_and_zero (struct gtk_frame); |
| 3092 | 979 #endif /* not NEW_GC */ |
| 462 | 980 |
| 981 /* yeah, except the lisp ones */ | |
| 982 FRAME_GTK_ICON_PIXMAP (f) = Qnil; | |
| 983 FRAME_GTK_ICON_PIXMAP_MASK (f) = Qnil; | |
| 1346 | 984 FRAME_GTK_MENUBAR_DATA (f) = Qnil; |
| 985 for (i = 0; i < 3; i++) | |
| 986 FRAME_GTK_LISP_WIDGETS (f)[i] = Qnil; | |
| 2168 | 987 |
| 988 /* | |
| 989 Hashtables of callback data for glyphs on the frame. Make them EQ because | |
| 990 we only use ints as keys. Otherwise we run into stickiness in redisplay | |
| 991 because internal_equal() can QUIT. See enter_redisplay_critical_section(). | |
| 992 */ | |
| 993 FRAME_GTK_WIDGET_INSTANCE_HASH_TABLE (f) = | |
| 994 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQ); | |
| 995 FRAME_GTK_WIDGET_CALLBACK_HASH_TABLE (f) = | |
| 996 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQ); | |
| 997 FRAME_GTK_WIDGET_CALLBACK_EX_HASH_TABLE (f) = | |
| 998 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQ); | |
| 462 | 999 } |
| 1000 | |
| 1001 | |
| 1002 /************************************************************************/ | |
| 1003 /* Lisp functions */ | |
| 1004 /************************************************************************/ | |
| 1005 | |
| 1006 static void | |
| 771 | 1007 gtk_init_frame_1 (struct frame *f, Lisp_Object props, |
| 2286 | 1008 int UNUSED (frame_name_is_defaulted)) |
| 462 | 1009 { |
| 1010 /* This function can GC */ | |
| 1011 Lisp_Object initially_unmapped; | |
| 1012 Lisp_Object device = FRAME_DEVICE (f); | |
| 1013 Lisp_Object lisp_window_id = Fplist_get (props, Qwindow_id, Qnil); | |
| 1014 Lisp_Object popup = Fplist_get (props, Qpopup, Qnil); | |
| 1015 | |
| 1016 if (!NILP (popup)) | |
| 1017 { | |
| 1018 if (EQ (popup, Qt)) | |
| 1019 popup = Fselected_frame (device); | |
| 1020 CHECK_LIVE_FRAME (popup); | |
| 1021 if (!EQ (device, FRAME_DEVICE (XFRAME (popup)))) | |
| 563 | 1022 invalid_argument_2 ("Parent must be on same device as frame", |
| 1023 device, popup); | |
| 462 | 1024 } |
| 1025 | |
| 1026 initially_unmapped = Fplist_get (props, Qinitially_unmapped, Qnil); | |
| 1027 | |
| 1028 /* | |
| 1029 * Previously we set this only if NILP (DEVICE_SELECTED_FRAME (d)) | |
| 1030 * to make sure that messages were displayed as soon as possible | |
| 1031 * if we're creating the first frame on a device. But it is | |
| 1032 * better to just set this all the time, so that when a new frame | |
| 1033 * is created that covers the selected frame, echo area status | |
| 1034 * messages can still be seen. f->visible is reset later if the | |
| 1035 * initially-unmapped property is found to be non-nil in the | |
| 1036 * frame properties. | |
| 1037 */ | |
| 1038 f->visible = 1; | |
| 1039 | |
| 1040 allocate_gtk_frame_struct (f); | |
| 1041 gtk_create_widgets (f, lisp_window_id, popup); | |
| 1042 | |
| 1043 if (!NILP (initially_unmapped)) | |
| 1044 { | |
| 1045 gtk_object_set_data (GTK_OBJECT (FRAME_GTK_SHELL_WIDGET (f)), | |
| 1046 UNMAPPED_DATA_IDENTIFIER, (gpointer) 1); | |
| 1047 } | |
| 1048 } | |
| 1049 | |
| 1050 static void | |
| 2286 | 1051 gtk_init_frame_2 (struct frame *f, Lisp_Object UNUSED (props)) |
| 462 | 1052 { |
| 1053 /* Set up the values of the widget/frame. A case could be made for putting | |
| 1054 this inside of the widget's initialize method. */ | |
| 1055 | |
| 1056 update_frame_face_values (f); | |
| 1057 gtk_initialize_frame_size (f); | |
| 1058 /* Kyle: | |
| 1059 * update_frame_title() can't be done here, because some of the | |
| 1060 * modeline specs depend on the frame's device having a selected | |
| 1061 * frame, and that may not have been set up yet. The redisplay | |
| 1062 * will update the frame title anyway, so nothing is lost. | |
| 1063 * JV: | |
| 1064 * It turns out it gives problems with FVWMs name based mapping. | |
| 1065 * We'll just need to be carefull in the modeline specs. | |
| 1066 */ | |
| 1067 update_frame_title (f); | |
| 1068 } | |
| 1069 | |
| 1070 static void | |
| 1071 gtk_init_frame_3 (struct frame *f) | |
| 1072 { | |
| 1073 /* Pop up the frame. */ | |
| 1074 gtk_popup_frame (f); | |
| 1075 } | |
| 1076 | |
| 1077 static void | |
| 1078 gtk_mark_frame (struct frame *f) | |
| 1079 { | |
| 1080 mark_object (FRAME_GTK_ICON_PIXMAP (f)); | |
| 1081 mark_object (FRAME_GTK_ICON_PIXMAP_MASK (f)); | |
| 1346 | 1082 mark_object (FRAME_GTK_MENUBAR_DATA (f)); |
| 462 | 1083 mark_object (FRAME_GTK_LISP_WIDGETS (f)[0]); |
| 1084 mark_object (FRAME_GTK_LISP_WIDGETS (f)[1]); | |
| 1085 mark_object (FRAME_GTK_LISP_WIDGETS (f)[2]); | |
| 2168 | 1086 mark_object (FRAME_GTK_WIDGET_INSTANCE_HASH_TABLE (f)); |
| 1087 mark_object (FRAME_GTK_WIDGET_CALLBACK_HASH_TABLE (f)); | |
| 1088 mark_object (FRAME_GTK_WIDGET_CALLBACK_EX_HASH_TABLE (f)); | |
| 462 | 1089 } |
| 1090 | |
| 1091 static void | |
| 1092 gtk_set_frame_icon (struct frame *f) | |
| 1093 { | |
| 1094 GdkPixmap *gtk_pixmap = NULL, *gtk_mask = NULL; | |
| 1095 | |
| 1096 if (IMAGE_INSTANCEP (f->icon) | |
| 1097 && IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (f->icon))) | |
| 1098 { | |
| 1099 gtk_pixmap = XIMAGE_INSTANCE_GTK_PIXMAP (f->icon); | |
| 1100 gtk_mask = XIMAGE_INSTANCE_GTK_MASK (f->icon); | |
| 1101 } | |
| 1102 else | |
| 1103 { | |
| 1104 gtk_pixmap = 0; | |
| 1105 gtk_mask = 0; | |
| 1106 } | |
| 1107 | |
| 1108 gdk_window_set_icon (GET_GTK_WIDGET_WINDOW (FRAME_GTK_SHELL_WIDGET (f)), NULL, gtk_pixmap, gtk_mask); | |
| 1109 } | |
| 1110 | |
| 1111 static void | |
| 1112 gtk_set_frame_pointer (struct frame *f) | |
| 1113 { | |
| 1114 GtkWidget *w = FRAME_GTK_TEXT_WIDGET (f); | |
| 1115 GdkCursor *c = XIMAGE_INSTANCE_GTK_CURSOR (f->pointer); | |
| 1116 | |
| 1117 if (POINTER_IMAGE_INSTANCEP (f->pointer)) | |
| 1118 { | |
| 1119 gdk_window_set_cursor (GET_GTK_WIDGET_WINDOW (w), c); | |
| 1120 gdk_flush (); | |
| 1121 } | |
| 1122 else | |
| 1123 { | |
| 2500 | 1124 /* ABORT()? */ |
| 462 | 1125 stderr_out ("POINTER_IMAGE_INSTANCEP (f->pointer) failed!\n"); |
| 1126 } | |
| 1127 } | |
| 1128 | |
| 1129 static Lisp_Object | |
| 1130 gtk_get_frame_parent (struct frame *f) | |
| 1131 { | |
| 2054 | 1132 GtkWidget *parentwid = (GtkWidget*) gtk_object_get_data (GTK_OBJECT (FRAME_GTK_SHELL_WIDGET (f)), |
| 1133 TRANSIENT_DATA_IDENTIFIER); | |
| 462 | 1134 |
| 1135 /* find the frame whose wid is parentwid */ | |
| 1136 if (parentwid) | |
| 1137 { | |
| 1138 Lisp_Object frmcons; | |
| 1139 DEVICE_FRAME_LOOP (frmcons, XDEVICE (FRAME_DEVICE (f))) | |
| 1140 { | |
| 1141 Lisp_Object frame = XCAR (frmcons); | |
| 1142 if (FRAME_GTK_SHELL_WIDGET (XFRAME (frame)) == parentwid) | |
| 1143 return frame; | |
| 1144 } | |
| 1145 } | |
| 1146 return Qnil; | |
| 1147 } | |
| 1148 | |
| 1149 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 1150 DEFUN ("gtk-window-id", Fgtk_window_id, 0, 1, 0, /* | |
| 1151 Get the ID of the Gtk window. | |
| 1152 This gives us a chance to manipulate the Emacs window from within a | |
| 1153 different program. Since the ID is an unsigned long, we return it as | |
| 1154 a string. | |
| 1155 */ | |
| 1156 (frame)) | |
| 1157 { | |
| 1158 char str[255]; | |
| 1159 struct frame *f = decode_gtk_frame (frame); | |
| 1160 | |
| 1161 /* Arrrrggghhh... this defeats the whole purpose of using Gdk... do we really need this? */ | |
| 1162 sprintf (str, "%lu", GDK_WINDOW_XWINDOW( GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (f)))); | |
| 1163 return build_string (str); | |
| 1164 } | |
| 1165 #endif | |
| 1166 | |
| 1167 | |
| 1168 /************************************************************************/ | |
| 1169 /* manipulating the X window */ | |
| 1170 /************************************************************************/ | |
| 1171 | |
| 1172 static void | |
| 1173 gtk_set_frame_position (struct frame *f, int xoff, int yoff) | |
| 1174 { | |
| 1175 gtk_widget_set_uposition (FRAME_GTK_SHELL_WIDGET (f), xoff, yoff); | |
| 1176 } | |
| 1177 | |
| 1178 /* Call this to change the size of frame S's x-window. */ | |
| 1179 | |
| 1180 static void | |
| 1181 gtk_set_frame_size (struct frame *f, int cols, int rows) | |
| 1182 { | |
| 1183 GtkWidget *shell = FRAME_GTK_SHELL_WIDGET (f); | |
| 1184 GdkGeometry geometry; | |
| 1185 | |
| 1186 if (GTK_IS_WINDOW (shell)) | |
| 1187 { | |
| 2054 | 1188 GdkWindowHints geometry_mask = GDK_HINT_RESIZE_INC; |
| 1189 | |
| 462 | 1190 /* Update the cell size */ |
| 771 | 1191 default_face_height_and_width (wrap_frame (f), &geometry.height_inc, &geometry.width_inc); |
| 462 | 1192 |
| 1193 gtk_window_set_geometry_hints (GTK_WINDOW (shell), | |
| 1194 FRAME_GTK_TEXT_WIDGET (f), &geometry, geometry_mask); | |
| 1195 } | |
| 1196 | |
| 1197 change_frame_size (f, rows, cols, 0); | |
| 1198 | |
| 1199 { | |
| 1200 GtkRequisition req; | |
| 1201 | |
| 1202 gtk_widget_size_request (FRAME_GTK_SHELL_WIDGET (f), &req); | |
| 1203 gtk_widget_set_usize (FRAME_GTK_SHELL_WIDGET (f), req.width, req.height); | |
| 1204 } | |
| 1205 } | |
| 1206 | |
| 1207 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 1208 /* There is NO equivalent to XWarpPointer under Gtk */ | |
| 1209 static void | |
| 1210 gtk_set_mouse_position (struct window *w, int x, int y) | |
| 1211 { | |
| 1212 struct frame *f = XFRAME (w->frame); | |
| 1213 Display *display = GDK_DISPLAY (); | |
| 1214 XWarpPointer (display, None, | |
| 1215 GDK_WINDOW_XWINDOW (GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (f))), | |
| 1216 0, 0, 0, 0, w->pixel_left + x, w->pixel_top + y); | |
| 1217 } | |
| 1218 #endif /* STUPID_X_SPECIFIC_GTK_STUFF */ | |
| 1219 | |
| 1220 static int | |
| 1221 gtk_get_mouse_position (struct device *d, Lisp_Object *frame, int *x, int *y) | |
| 1222 { | |
| 1223 /* Returns the pixel position within the editor text widget */ | |
| 1224 gint win_x, win_y; | |
| 1225 GdkWindow *w = gdk_window_at_pointer (&win_x, &win_y); | |
| 1226 struct frame *f = NULL; | |
| 1227 | |
| 1228 if (!w) return (0); | |
| 1229 | |
| 1230 /* At this point, w is the innermost GdkWindow containing the | |
| 1231 ** pointer and win_x and win_y are the coordinates of that window. | |
| 1232 */ | |
| 1233 f = gtk_any_window_to_frame (d, w); | |
| 1234 | |
| 1235 if (!f) return (0); | |
| 1236 | |
| 793 | 1237 *frame = wrap_frame (f); |
| 462 | 1238 |
| 1239 gdk_window_get_pointer (GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (f)), | |
| 1240 &win_x, &win_y, NULL); | |
| 1241 | |
| 1242 *x = win_x; | |
| 1243 *y = win_y; | |
| 1244 | |
| 1245 return (1); | |
| 1246 } | |
| 1247 | |
| 2268 | 1248 static DECLARE_DOESNT_RETURN (gtk_cant_notify_wm_error (void)); |
| 1249 | |
| 1250 static DOESNT_RETURN | |
| 1251 gtk_cant_notify_wm_error () | |
| 462 | 1252 { |
| 563 | 1253 signal_error (Qgui_error, "Can't notify window manager of iconification", Qunbound); |
| 462 | 1254 } |
| 1255 | |
| 1256 /* Raise frame F. */ | |
| 1257 static void | |
| 1258 gtk_raise_frame_1 (struct frame *f, int force) | |
| 1259 { | |
| 1260 if (FRAME_VISIBLE_P (f) || force) | |
| 1261 { | |
| 1262 GdkWindow *emacs_window = GET_GTK_WIDGET_WINDOW (FRAME_GTK_SHELL_WIDGET (f)); | |
| 1263 | |
| 1264 gdk_window_raise (emacs_window); | |
| 1265 } | |
| 1266 } | |
| 1267 | |
| 1268 static void | |
| 1269 gtk_raise_frame (struct frame *f) | |
| 1270 { | |
| 1271 gtk_raise_frame_1 (f, 1); | |
| 1272 } | |
| 1273 | |
| 1274 /* Lower frame F. */ | |
| 1275 static void | |
| 1276 gtk_lower_frame (struct frame *f) | |
| 1277 { | |
| 1278 if (FRAME_VISIBLE_P (f)) | |
| 1279 { | |
| 1280 gdk_window_lower (GET_GTK_WIDGET_WINDOW (FRAME_GTK_SHELL_WIDGET (f))); | |
| 1281 } | |
| 1282 } | |
| 1283 | |
| 1284 /* Change from withdrawn state to mapped state. */ | |
| 1285 static void | |
| 1286 gtk_make_frame_visible (struct frame *f) | |
| 1287 { | |
| 2195 | 1288 gtk_widget_map (FRAME_GTK_SHELL_WIDGET (f)); |
| 462 | 1289 gtk_raise_frame_1 (f, 0); |
| 1290 } | |
| 1291 | |
| 1292 /* Change from mapped state to withdrawn state. */ | |
| 1293 static void | |
| 1294 gtk_make_frame_invisible (struct frame *f) | |
| 1295 { | |
| 2195 | 1296 gtk_widget_unmap(FRAME_GTK_SHELL_WIDGET (f)); |
| 462 | 1297 } |
| 1298 | |
| 1299 static int | |
| 1300 gtk_frame_visible_p (struct frame *f) | |
| 1301 { | |
| 1302 GtkWidget *w = FRAME_GTK_SHELL_WIDGET (f); | |
| 1303 | |
| 1304 f->visible = (GTK_OBJECT_FLAGS (w) & GTK_VISIBLE); | |
| 1305 | |
| 1306 return f->visible; | |
| 1307 } | |
| 1308 | |
| 1309 static int | |
| 1310 gtk_frame_totally_visible_p (struct frame *f) | |
| 1311 { | |
| 1312 return FRAME_GTK_TOTALLY_VISIBLE_P (f); | |
| 1313 } | |
| 1314 | |
| 1315 /* Change window state from mapped to iconified. */ | |
| 1316 static void | |
| 1317 gtk_iconify_frame (struct frame *f) | |
| 1318 { | |
| 1319 GdkWindow *w = GET_GTK_WIDGET_WINDOW (FRAME_GTK_SHELL_WIDGET (f)); | |
| 1320 | |
| 1321 /* There is no equivalent to XIconifyWindow in Gtk/Gdk. */ | |
| 1322 if (!XIconifyWindow (GDK_WINDOW_XDISPLAY (w), | |
| 1323 GDK_WINDOW_XWINDOW (w), | |
| 1324 DefaultScreen (GDK_WINDOW_XDISPLAY (w)))) | |
| 1325 gtk_cant_notify_wm_error (); | |
| 1326 | |
| 1327 f->iconified = 1; | |
| 1328 } | |
| 1329 | |
| 1330 /* Sets the X focus to frame f. */ | |
| 1331 static void | |
| 1332 gtk_focus_on_frame (struct frame *f) | |
| 1333 { | |
| 1334 GtkWidget *shell_widget; | |
| 1335 | |
| 1336 assert (FRAME_GTK_P (f)); | |
| 1337 | |
| 1338 shell_widget = FRAME_GTK_SHELL_WIDGET (f); | |
| 1339 if (!GET_GTK_WIDGET_WINDOW (shell_widget)) | |
| 1340 return; | |
| 1341 | |
| 1342 gtk_widget_grab_focus (shell_widget); | |
| 1343 } | |
| 1344 | |
| 1345 /* Destroy the window of frame S. */ | |
| 1346 static void | |
| 1347 gtk_delete_frame (struct frame *f) | |
| 1348 { | |
| 1349 GtkWidget *w = FRAME_GTK_SHELL_WIDGET (f); | |
| 1350 | |
| 1351 gtk_widget_destroy (w); | |
| 1352 | |
| 1353 if (FRAME_GTK_GEOM_FREE_ME_PLEASE (f)) | |
| 1726 | 1354 xfree (FRAME_GTK_GEOM_FREE_ME_PLEASE (f), char *); |
| 4117 | 1355 #ifndef NEW_GC |
| 1726 | 1356 xfree (f->frame_data, void *); |
| 3092 | 1357 #endif /* not NEW_GC */ |
| 462 | 1358 f->frame_data = 0; |
| 1359 } | |
| 1360 | |
| 1361 static void | |
| 1362 gtk_recompute_cell_sizes (struct frame *frm) | |
| 1363 { | |
| 1364 if (GTK_IS_WINDOW (FRAME_GTK_SHELL_WIDGET (frm))) | |
| 1365 { | |
| 1366 GtkWindow *w = GTK_WINDOW (FRAME_GTK_SHELL_WIDGET (frm)); | |
| 1367 GdkGeometry geometry; | |
| 1368 GdkWindowHints geometry_mask; | |
| 1369 gint width_inc = 10; | |
| 1370 gint height_inc = 10; | |
| 1371 | |
| 771 | 1372 default_face_height_and_width (wrap_frame (frm), &height_inc, &width_inc); |
| 462 | 1373 geometry_mask = GDK_HINT_RESIZE_INC; |
| 1374 geometry.width_inc = width_inc; | |
| 1375 geometry.height_inc = height_inc; | |
| 1376 | |
| 1377 gtk_window_set_geometry_hints (w, FRAME_GTK_TEXT_WIDGET (frm), &geometry, geometry_mask); | |
| 1378 } | |
| 1379 } | |
| 1380 | |
| 1381 static void | |
| 1382 gtk_update_frame_external_traits (struct frame* frm, Lisp_Object name) | |
| 1383 { | |
| 1384 Lisp_Object frame = Qnil; | |
| 1385 | |
| 793 | 1386 frame = wrap_frame (frm); |
| 462 | 1387 |
| 1388 if (EQ (name, Qforeground)) | |
| 1389 { | |
| 1390 Lisp_Object color = FACE_FOREGROUND (Vdefault_face, frame); | |
| 1391 GdkColor *fgc; | |
| 1392 | |
| 1393 if (!EQ (color, Vthe_null_color_instance)) | |
| 1394 { | |
| 1395 fgc = COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (color)); | |
| 1396 /* #### BILL!!! The X code set the XtNforeground property of | |
| 1397 the text widget here. Why did they bother? All that type | |
| 1398 of thing is done down in the guts of the redisplay code, | |
| 1399 not in the Emacs* widgets. */ | |
| 1400 } | |
| 1401 } | |
| 1402 else if (EQ (name, Qbackground)) | |
| 1403 { | |
| 1404 Lisp_Object color = FACE_BACKGROUND (Vdefault_face, frame); | |
| 1405 GdkColor *bgc; | |
| 1406 | |
| 1407 if (!EQ (color, Vthe_null_color_instance)) | |
| 1408 { | |
| 1409 bgc = COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (color)); | |
| 1410 if (FRAME_GTK_SHELL_WIDGET (frm)->window) | |
| 1411 { | |
| 1412 gdk_window_set_background (FRAME_GTK_SHELL_WIDGET (frm)->window, bgc); | |
| 1413 } | |
| 1414 if (FRAME_GTK_TEXT_WIDGET (frm)->window) | |
| 1415 { | |
| 1416 gdk_window_set_background (FRAME_GTK_TEXT_WIDGET (frm)->window, bgc); | |
| 1417 } | |
| 1418 } | |
| 1419 | |
| 1420 /* Really crappy way to force the modeline shadows to be | |
| 1421 redrawn. But effective. */ | |
| 1422 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (frm); | |
| 1423 MARK_FRAME_CHANGED (frm); | |
| 1424 } | |
| 1425 else if (EQ (name, Qfont)) | |
| 1426 { | |
| 1427 Lisp_Object font = FACE_FONT (Vdefault_face, frame, Vcharset_ascii); | |
| 1428 | |
| 3676 | 1429 /* It may be that instantiating the font has deleted the frame (will |
| 1430 happen if the user has specified a charset registry for ASCII that | |
| 1431 isn't available on the server, and our fallback of iso8859-1 isn't | |
| 1432 available; something vanishingly rare.) In that case, return from | |
| 1433 this function. */ | |
| 1434 | |
| 1435 if (!FRAME_LIVE_P(frm)) | |
| 1436 { | |
| 1437 return; | |
| 1438 } | |
| 1439 | |
| 462 | 1440 if (!EQ (font, Vthe_null_font_instance)) |
| 1441 { | |
| 1442 /* #### BILL!!! The X code set the XtNfont property of the | |
| 1443 text widget here. Why did they bother? All that type of | |
| 1444 thing is done down in the guts of the redisplay code, not | |
| 1445 in the Emacs* widgets. */ | |
| 1446 } | |
| 1447 } | |
| 1448 else | |
| 2500 | 1449 ABORT (); |
| 462 | 1450 |
| 1451 #ifdef HAVE_TOOLBARS | |
| 1452 /* Setting the background clears the entire frame area | |
| 1453 including the toolbar so we force an immediate redraw of | |
| 1454 it. */ | |
| 1455 if (EQ (name, Qbackground)) | |
| 1456 MAYBE_DEVMETH (XDEVICE (frm->device), redraw_frame_toolbars, (frm)); | |
| 1457 #endif /* HAVE_TOOLBARS */ | |
| 1458 | |
| 1459 /* Set window manager resize increment hints according to | |
| 1460 the new character size */ | |
| 1461 if (EQ (name, Qfont) && FRAME_GTK_TOP_LEVEL_FRAME_P (frm)) | |
| 1462 gtk_recompute_cell_sizes (frm); | |
| 1463 } | |
| 1464 | |
| 1465 | |
| 1466 /************************************************************************/ | |
| 1467 /* initialization */ | |
| 1468 /************************************************************************/ | |
| 1469 | |
| 1470 void | |
| 1471 syms_of_frame_gtk (void) | |
| 1472 { | |
| 3092 | 1473 #ifdef NEW_GC |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4117
diff
changeset
|
1474 INIT_LISP_OBJECT (gtk_frame); |
| 3092 | 1475 #endif /* NEW_GC */ |
| 1476 | |
| 563 | 1477 DEFSYMBOL (Qtext_widget); |
| 1478 DEFSYMBOL (Qcontainer_widget); | |
| 1479 DEFSYMBOL (Qshell_widget); | |
| 1480 DEFSYMBOL (Qdetachable_menubar); | |
| 462 | 1481 |
| 1482 #ifdef HAVE_DRAGNDROP | |
| 1483 staticpro (&Vcurrent_drag_object); | |
| 1484 Vcurrent_drag_object = Qnil; | |
| 1485 DEFSUBR (Fgtk_start_drag_internal); | |
| 1486 #endif | |
| 1487 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 1488 DEFSUBR (Fgtk_window_id); | |
| 1489 #endif | |
| 1490 } | |
| 1491 | |
| 1492 void | |
| 1493 console_type_create_frame_gtk (void) | |
| 1494 { | |
| 1495 /* frame methods */ | |
| 1496 CONSOLE_HAS_METHOD (gtk, init_frame_1); | |
| 1497 CONSOLE_HAS_METHOD (gtk, init_frame_2); | |
| 1498 CONSOLE_HAS_METHOD (gtk, init_frame_3); | |
| 1499 CONSOLE_HAS_METHOD (gtk, mark_frame); | |
| 1500 CONSOLE_HAS_METHOD (gtk, focus_on_frame); | |
| 1501 CONSOLE_HAS_METHOD (gtk, delete_frame); | |
| 1502 CONSOLE_HAS_METHOD (gtk, get_mouse_position); | |
| 1503 #ifdef STUPID_X_SPECIFIC_GTK_STUFF | |
| 1504 CONSOLE_HAS_METHOD (gtk, set_mouse_position); | |
| 1505 #endif | |
| 1506 CONSOLE_HAS_METHOD (gtk, raise_frame); | |
| 1507 CONSOLE_HAS_METHOD (gtk, lower_frame); | |
| 1508 CONSOLE_HAS_METHOD (gtk, make_frame_visible); | |
| 1509 CONSOLE_HAS_METHOD (gtk, make_frame_invisible); | |
| 1510 CONSOLE_HAS_METHOD (gtk, iconify_frame); | |
| 1511 CONSOLE_HAS_METHOD (gtk, set_frame_size); | |
| 1512 CONSOLE_HAS_METHOD (gtk, set_frame_position); | |
| 1513 CONSOLE_HAS_METHOD (gtk, frame_property); | |
| 1514 CONSOLE_HAS_METHOD (gtk, internal_frame_property_p); | |
| 1515 CONSOLE_HAS_METHOD (gtk, frame_properties); | |
| 1516 CONSOLE_HAS_METHOD (gtk, set_frame_properties); | |
| 867 | 1517 CONSOLE_HAS_METHOD (gtk, set_title_from_ibyte); |
| 1518 CONSOLE_HAS_METHOD (gtk, set_icon_name_from_ibyte); | |
| 462 | 1519 CONSOLE_HAS_METHOD (gtk, frame_visible_p); |
| 1520 CONSOLE_HAS_METHOD (gtk, frame_totally_visible_p); | |
| 1521 CONSOLE_HAS_METHOD (gtk, frame_iconified_p); | |
| 1522 CONSOLE_HAS_METHOD (gtk, set_frame_pointer); | |
| 1523 CONSOLE_HAS_METHOD (gtk, set_frame_icon); | |
| 1524 CONSOLE_HAS_METHOD (gtk, get_frame_parent); | |
| 1525 CONSOLE_HAS_METHOD (gtk, update_frame_external_traits); | |
| 1526 } | |
| 1527 | |
| 1528 void | |
| 1529 vars_of_frame_gtk (void) | |
| 1530 { | |
| 1531 DEFVAR_LISP ("default-gtk-frame-plist", &Vdefault_gtk_frame_plist /* | |
| 1532 Plist of default frame-creation properties for Gtk frames. | |
| 1533 These override what is specified in the resource database and in | |
| 1534 `default-frame-plist', but are overridden by the arguments to the | |
| 1535 particular call to `make-frame'. | |
| 1536 | |
| 1537 Note: In many cases, properties of a frame are available as specifiers | |
| 1538 instead of through the frame-properties mechanism. | |
| 1539 | |
| 1540 Here is a list of recognized frame properties, other than those | |
| 1541 documented in `set-frame-properties' (they can be queried and | |
| 1542 set at any time, except as otherwise noted): | |
| 1543 | |
| 1544 initially-unmapped If non-nil, the frame will not be visible | |
| 1545 when it is created. In this case, you | |
| 1546 need to call `make-frame-visible' to make | |
| 1547 the frame appear. | |
| 1548 popup If non-nil, it should be a frame, and this | |
| 1549 frame will be created as a "popup" frame | |
| 1550 whose parent is the given frame. This | |
| 1551 will make the window manager treat the | |
| 1552 frame as a dialog box, which may entail | |
| 1553 doing different things (e.g. not asking | |
| 1554 for positioning, and not iconifying | |
| 1555 separate from its parent). | |
| 1556 inter-line-space Not currently implemented. | |
| 1557 toolbar-shadow-thickness Thickness of toolbar shadows. | |
| 1558 background-toolbar-color Color of toolbar background. | |
| 1559 bottom-toolbar-shadow-color Color of bottom shadows on toolbars. | |
| 1560 (*Not* specific to the bottom-toolbar.) | |
| 1561 top-toolbar-shadow-color Color of top shadows on toolbars. | |
| 1562 (*Not* specific to the top-toolbar.) | |
| 1563 internal-border-width Width of internal border around text area. | |
| 1564 border-width Width of external border around text area. | |
| 1565 top Y position (in pixels) of the upper-left | |
| 1566 outermost corner of the frame (i.e. the | |
| 1567 upper-left of the window-manager | |
| 1568 decorations). | |
| 1569 left X position (in pixels) of the upper-left | |
| 1570 outermost corner of the frame (i.e. the | |
| 1571 upper-left of the window-manager | |
| 1572 decorations). | |
| 1573 border-color Color of external border around text area. | |
| 1574 cursor-color Color of text cursor. | |
| 1575 | |
| 1576 See also `default-frame-plist', which specifies properties which apply | |
| 1577 to all frames, not just Gtk frames. | |
| 1578 */ ); | |
| 1579 Vdefault_gtk_frame_plist = Qnil; | |
| 1580 | |
| 1581 gtk_console_methods->device_specific_frame_props = &Vdefault_gtk_frame_plist; | |
| 1582 } |