1131 |
}; |
}; |
1132 |
|
|
1133 |
#ifdef HAVE_GTK_FILE_BOTH |
#ifdef HAVE_GTK_FILE_BOTH |
1134 |
static int use_old_gtk_file_dialog; |
int use_old_gtk_file_dialog; |
1135 |
#endif |
#endif |
1136 |
|
|
1137 |
|
|
1178 |
|
|
1179 |
|
|
1180 |
if (default_filename) |
if (default_filename) |
1181 |
gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin), |
{ |
1182 |
default_filename); |
Lisp_Object file; |
1183 |
|
struct gcpro gcpro1; |
1184 |
|
GCPRO1 (file); |
1185 |
|
|
1186 |
|
/* File chooser does not understand ~/... in the file name. It must be |
1187 |
|
an absolute name starting with /. */ |
1188 |
|
if (default_filename[0] != '/') |
1189 |
|
{ |
1190 |
|
file = Fexpand_file_name (build_string (default_filename), Qnil); |
1191 |
|
default_filename = SDATA (file); |
1192 |
|
} |
1193 |
|
|
1194 |
|
gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (filewin), |
1195 |
|
default_filename); |
1196 |
|
|
1197 |
|
UNGCPRO; |
1198 |
|
} |
1199 |
|
|
1200 |
gtk_widget_show (filewin); |
gtk_widget_show (filewin); |
1201 |
|
|
3554 |
"gtk-key-theme-name", |
"gtk-key-theme-name", |
3555 |
"Emacs", |
"Emacs", |
3556 |
EMACS_CLASS); |
EMACS_CLASS); |
|
|
|
|
#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 |
|
3557 |
} |
} |
3558 |
|
|
3559 |
#endif /* USE_GTK */ |
#endif /* USE_GTK */ |