mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

* gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to

Browse Source 
x-use-old-gtk-file-dialog.

* xfns.c: Define x_use_old_gtk_file_dialog.
(syms_of_xfns): Rename use-old-gtk-file-dialog to x-...  Move it
outside ifdef USE_GTK.
This commit is contained in:
Jan Djärv 2004-11-23 19:56:55 +00:00
parent 6f8a274229
commit 255e4140a7
3 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ChangeLog
View File

@ -1,3 +1,12 @@
2004-11-23 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
x-use-old-gtk-file-dialog.
* xfns.c: Define x_use_old_gtk_file_dialog.
(syms_of_xfns): Rename use-old-gtk-file-dialog to x-... Move it
outside ifdef USE_GTK.
2004-11-23 Kim F. Storm <storm@cua.dk>
* dispextern.h (MATRIX_ROW_ENDS_IN_MIDDLE_OF_CHAR_P)

8
src/gtkutil.c
View File

@ -1122,10 +1122,6 @@ create_dialog (wv, select_cb, deactivate_cb)
/***********************************************************************
File dialog functions
***********************************************************************/
#ifdef HAVE_GTK_FILE_BOTH
int use_old_gtk_file_dialog;
#endif
/* Function that is called when the file dialog pops down.
W is the dialog widget, RESPONSE is the response code.
USER_DATA is what we passed in to g_signal_connect (pointer to int). */
@ -1311,7 +1307,9 @@ xg_get_file_name (f, prompt, default_filename, mustmatch_p, only_dir_p)
xg_get_file_func func;
#ifdef HAVE_GTK_FILE_BOTH
if (use_old_gtk_file_dialog)
extern int x_use_old_gtk_file_dialog;
if (x_use_old_gtk_file_dialog)
w = xg_get_file_with_selection (f, prompt, default_filename,
mustmatch_p, only_dir_p, &func);
else

20
src/xfns.c
View File

@ -151,6 +151,10 @@ char *gray_bitmap_bits = gray_bits;
int display_hourglass_p;
/* Non-zero means prompt with the old GTK file selection dialog. */
int x_use_old_gtk_file_dialog;
/* The background and shape of the mouse pointer, and shape when not
over text or in the modeline. */
@ -5574,6 +5578,14 @@ such a font. This is especially effective for such large fonts as
Chinese, Japanese, and Korean. */);
Vx_pixel_size_width_font_regexp = Qnil;
/* This is not ifdef:ed, so other builds than GTK can customize it. */
DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog,
doc: /* *Non-nil means prompt with the old GTK file selection dialog.
If nil or if the file selection dialog is not available, the new GTK file
chooser is used instead. To turn off all file dialogs set the
variable `use-file-dialog'. */);
x_use_old_gtk_file_dialog = 0;
#ifdef USE_X_TOOLKIT
Fprovide (intern ("x-toolkit"), Qnil);
#ifdef USE_MOTIF
@ -5593,14 +5605,6 @@ Chinese, Japanese, and Korean. */);
Fprovide (intern ("x-toolkit"), Qnil);
Fprovide (intern ("gtk"), Qnil);
#ifdef HAVE_GTK_FILE_BOTH
DEFVAR_BOOL ("use-old-gtk-file-dialog", &use_old_gtk_file_dialog,
doc: /* *Non-nil means that the old GTK file selection dialog is used.
If nil the new GTK file chooser is used instead. To turn off
all file dialogs set the variable `use-file-dialog'. */);
use_old_gtk_file_dialog = 0;
#endif
DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string,
doc: /* Version info for GTK+. */);
{