comparison src/w32fns.c @ 89945:59dcbfe97385

Revision: [e-mail]--gnu-2004/emacs--unicode--0--patch-17 Merge from emacs--cvs-trunk--0 Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-417 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-419 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-420 Tweak permissions * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-421 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-430 Update from CVS

89944:ecb75580442e

{
  if (msg == WM_NOTIFY)
    {
      OFNOTIFY * notify = (OFNOTIFY *)lParam;
      /* Detect when the Filter dropdown is changed.  */
      if (notify->hdr.code == CDN_TYPECHANGE)
	{
	  HWND dialog = GetParent (hwnd);
	  HWND edit_control = GetDlgItem (dialog, FILE_NAME_TEXT_FIELD);

	  /* Directories is in index 2.  */

					       "Current Directory");
	      EnableWindow (edit_control, FALSE);
	    }
	  else
	    {
	      CommDlg_OpenSave_SetControlText (dialog, FILE_NAME_TEXT_FIELD,
					       "");
	      EnableWindow (edit_control, TRUE);
	    }
	}
    }
  return 0;

  Lisp_Object file = Qnil;
  int count = SPECPDL_INDEX ();
  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
  char filename[MAX_PATH + 1];
  char init_dir[MAX_PATH + 1];

  GCPRO5 (prompt, dir, default_filename, mustmatch, file);
  CHECK_STRING (prompt);
  CHECK_STRING (dir);

      file_name_only = strrchr (full_path_name, '\\');
      if (!file_name_only)
        file_name_only = full_path_name;
      else
        {
          file_name_only++;
        }

      strncpy (filename, file_name_only, MAX_PATH);
      filename[MAX_PATH] = '\0';
    }
  else

    file_details.lpstrFilter = "All Files (*.*)\0*.*\0Directories\0*|*\0\0";
    file_details.lpstrFile = filename;
    file_details.nMaxFile = sizeof (filename);
    file_details.lpstrInitialDir = init_dir;
    file_details.lpstrTitle = SDATA (prompt);
    file_details.Flags = (OFN_HIDEREADONLY | OFN_NOCHANGEDIR
			  | OFN_EXPLORER | OFN_ENABLEHOOK);
    if (!NILP (mustmatch))
      file_details.Flags |= OFN_FILEMUSTEXIST | OFN_PATHMUSTEXIST;

    if (GetOpenFileName (&file_details))
      {
	dostounix_filename (filename);
	if (file_details.nFilterIndex == 2)
	  {
	    /* "Folder Only" selected - strip dummy file name.  */
	    char * last = strrchr (filename, '/');
	    *last = '\0';
	  }

	file = DECODE_FILE(build_string (filename));

89945:59dcbfe97385

{
  if (msg == WM_NOTIFY)
    {
      OFNOTIFY * notify = (OFNOTIFY *)lParam;
      /* Detect when the Filter dropdown is changed.  */
      if (notify->hdr.code == CDN_TYPECHANGE
	  || notify->hdr.code == CDN_INITDONE)
	{
	  HWND dialog = GetParent (hwnd);
	  HWND edit_control = GetDlgItem (dialog, FILE_NAME_TEXT_FIELD);

	  /* Directories is in index 2.  */

					       "Current Directory");
	      EnableWindow (edit_control, FALSE);
	    }
	  else
	    {
	      /* Don't override default filename on init done.  */
	      if (notify->hdr.code == CDN_TYPECHANGE)
		CommDlg_OpenSave_SetControlText (dialog,
						 FILE_NAME_TEXT_FIELD, "");
	      EnableWindow (edit_control, TRUE);
	    }
	}
    }
  return 0;

  Lisp_Object file = Qnil;
  int count = SPECPDL_INDEX ();
  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
  char filename[MAX_PATH + 1];
  char init_dir[MAX_PATH + 1];
  int default_filter_index = 1; /* 1: All Files, 2: Directories only  */

  GCPRO5 (prompt, dir, default_filename, mustmatch, file);
  CHECK_STRING (prompt);
  CHECK_STRING (dir);

      file_name_only = strrchr (full_path_name, '\\');
      if (!file_name_only)
        file_name_only = full_path_name;
      else
	file_name_only++;

      strncpy (filename, file_name_only, MAX_PATH);
      filename[MAX_PATH] = '\0';
    }
  else

    file_details.lpstrFilter = "All Files (*.*)\0*.*\0Directories\0*|*\0\0";
    file_details.lpstrFile = filename;
    file_details.nMaxFile = sizeof (filename);
    file_details.lpstrInitialDir = init_dir;
    file_details.lpstrTitle = SDATA (prompt);

    /* If prompt starts with Dired, default to directories only.  */
    /* A bit hacky, but there doesn't seem to be a better way to
       DTRT for dired.  */
    if (strncmp (file_details.lpstrTitle, "Dired", 5) == 0)
      default_filter_index = 2;

    file_details.nFilterIndex = default_filter_index;

    file_details.Flags = (OFN_HIDEREADONLY | OFN_NOCHANGEDIR
			  | OFN_EXPLORER | OFN_ENABLEHOOK);
    if (!NILP (mustmatch))
      file_details.Flags |= OFN_FILEMUSTEXIST | OFN_PATHMUSTEXIST;

    if (GetOpenFileName (&file_details))
      {
	dostounix_filename (filename);
	if (file_details.nFilterIndex == 2)
	  {
	    /* "Directories" selected - strip dummy file name.  */
	    char * last = strrchr (filename, '/');
	    *last = '\0';
	  }

	file = DECODE_FILE(build_string (filename));