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

Diff of /emacs/src/w32fns.c

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

revision 1.127 by jasonr, Sun Oct 21 11:42:44 2001 UTC revision 1.128 by jasonr, Sat Oct 27 22:30:55 2001 UTC
# Line 307  int image_cache_refcount, dpyinfo_refcou Line 307  int image_cache_refcount, dpyinfo_refcou
307  extern Lisp_Object Vw32_num_mouse_buttons;  extern Lisp_Object Vw32_num_mouse_buttons;
308  extern Lisp_Object Vw32_recognize_altgr;  extern Lisp_Object Vw32_recognize_altgr;
309    
310    extern HWND w32_system_caret_hwnd;
311    extern int w32_system_caret_width;
312    extern int w32_system_caret_height;
313    extern int w32_system_caret_x;
314    extern int w32_system_caret_y;
315    
316    
317  /* Error if we are not connected to MS-Windows.  */  /* Error if we are not connected to MS-Windows.  */
318  void  void
# Line 4785  w32_wnd_proc (hwnd, msg, wParam, lParam) Line 4791  w32_wnd_proc (hwnd, msg, wParam, lParam)
4791        unregister_hot_keys (hwnd);        unregister_hot_keys (hwnd);
4792        button_state = 0;        button_state = 0;
4793        ReleaseCapture ();        ReleaseCapture ();
4794          /* Relinquish the system caret.  */
4795          if (w32_system_caret_hwnd)
4796            {
4797              DestroyCaret ();
4798              w32_system_caret_hwnd = NULL;
4799            }
4800      case WM_MOVE:      case WM_MOVE:
4801      case WM_SIZE:      case WM_SIZE:
4802      case WM_COMMAND:      case WM_COMMAND:
# Line 4926  w32_wnd_proc (hwnd, msg, wParam, lParam) Line 4938  w32_wnd_proc (hwnd, msg, wParam, lParam)
4938        DragAcceptFiles ((HWND) wParam, FALSE);        DragAcceptFiles ((HWND) wParam, FALSE);
4939        return DestroyWindow ((HWND) wParam);        return DestroyWindow ((HWND) wParam);
4940    
4941        case WM_EMACS_DESTROY_CARET:
4942          w32_system_caret_hwnd = NULL;
4943          return DestroyCaret ();
4944    
4945        case WM_EMACS_TRACK_CARET:
4946          /* If there is currently no system caret, create one.  */
4947          if (w32_system_caret_hwnd == NULL)
4948            {
4949              w32_system_caret_hwnd = hwnd;
4950              CreateCaret (hwnd, NULL, w32_system_caret_width,
4951                           w32_system_caret_height);
4952            }
4953          return SetCaretPos (w32_system_caret_x, w32_system_caret_y);
4954    
4955      case WM_EMACS_TRACKPOPUPMENU:      case WM_EMACS_TRACKPOPUPMENU:
4956        {        {
4957          UINT flags;          UINT flags;

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

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