/[emacs]/emacs/src/gtkutil.c
ViewVC logotype

Diff of /emacs/src/gtkutil.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33.2.7 by miles, Thu Nov 4 08:55:33 2004 UTC revision 1.33.2.8 by miles, Fri Nov 12 02:52:57 2004 UTC
# Line 1131  enum Line 1131  enum
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    
# Line 1178  xg_get_file_with_chooser (f, prompt, def Line 1178  xg_get_file_with_chooser (f, prompt, def
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    
# Line 3538  xg_initialize () Line 3554  xg_initialize ()
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 */

Legend:
Removed from v.1.33.2.7  
changed lines
  Added in v.1.33.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26