Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Include shellapi.h.

Browse source 
(w32_createwindow): Enable drag-n-drop on new windows.
(w32_wnd_proc): Handle WM_DROPFILES messages.
Disable drag-n-drop on closing windows.
This commit is contained in:
Richard M. Stallman 1998-05-01 04:37:42 +00:00
parent 33b307f8fc
commit cb9e33d4a5
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/w32fns.c
View file

@ -40,6 +40,7 @@ Boston, MA 02111-1307, USA. */
#include "termhooks.h"
#include <commdlg.h>
#include <shellapi.h>
extern void abort ();
extern void free_frame_menubar ();
@ -2891,6 +2892,9 @@ w32_createwindow (f)
SetWindowLong (hwnd, WND_SCROLLBAR_INDEX, f->output_data.w32->vertical_scroll_bar_extra);
SetWindowLong (hwnd, WND_BACKGROUND_INDEX, f->output_data.w32->background_pixel);
/* Enable drag-n-drop. */
DragAcceptFiles (hwnd, TRUE);
/* Do this to discard the default setting specified by our parent. */
ShowWindow (hwnd, SW_HIDE);
}
@ -3583,6 +3587,11 @@ w32_wnd_proc (hwnd, msg, wParam, lParam)
my_post_msg (&wmsg, hwnd, msg, wParam, lParam);
return 0;
case WM_DROPFILES:
wmsg.dwModifiers = w32_get_modifiers ();
my_post_msg (&wmsg, hwnd, msg, wParam, lParam);
return 0;
case WM_TIMER:
/* Flush out saved messages if necessary. */
if (wParam == mouse_button_timer)
@ -3862,6 +3871,7 @@ w32_wnd_proc (hwnd, msg, wParam, lParam)
}
case WM_EMACS_DESTROYWINDOW:
DragAcceptFiles ((HWND) wParam, FALSE);
return DestroyWindow ((HWND) wParam);
case WM_EMACS_TRACKPOPUPMENU: