/[dtapublic]/projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinpointer.c

Diff of /projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinpointer.c

Parent Directory | Revision Log | View Patch Patch

-revision 69 by dashley,
Sat Nov  5 10:54:17 2016 UTC
+revision 71 by dashley,
Sat Nov  5 11:07:06 2016 UTC
 Line 1
  /* $Header$ */
  /*
   * tkWinPointer.c --
   *
   *      Windows specific mouse tracking code.
   *
   * Copyright (c) 1995-1997 Sun Microsystems, Inc.
   * Copyright (c) 1998-1999 by Scriptics Corporation.
   *
   * See the file "license.terms" for information on usage and redistribution
   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
   *
   * RCS: @(#) $Id: tkwinpointer.c,v 1.1.1.1 2001/06/13 05:14:12 dtashley Exp $
   */
  #include "tkWinInt.h"
  /*
   * Check for enter/leave events every MOUSE_TIMER_INTERVAL milliseconds.
   */
  #define MOUSE_TIMER_INTERVAL 250
  /*
   * Declarations of static variables used in this file.
   */
  static int captured = 0;                /* 1 if mouse is currently captured. */
  static TkWindow *keyboardWinPtr = NULL; /* Current keyboard grab window. */
  static Tcl_TimerToken mouseTimer;       /* Handle to the latest mouse timer. */
  static int mouseTimerSet = 0;           /* 1 if the mouse timer is active. */
  /*
   * Forward declarations of procedures used in this file.
   */
  static void             MouseTimerProc _ANSI_ARGS_((ClientData clientData));
  /*
   *----------------------------------------------------------------------
   *
   * TkWinGetModifierState --
   *
   *      Return the modifier state as of the last message.
   *
   * Results:
   *      Returns the X modifier mask.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  int
  TkWinGetModifierState()
  {
      int state = 0;
      if (GetKeyState(VK_SHIFT) & 0x8000) {
          state |= ShiftMask;
      }
      if (GetKeyState(VK_CONTROL) & 0x8000) {
          state |= ControlMask;
      }
      if (GetKeyState(VK_MENU) & 0x8000) {
          state |= ALT_MASK;
      }
      if (GetKeyState(VK_CAPITAL) & 0x0001) {
          state |= LockMask;
      }
      if (GetKeyState(VK_NUMLOCK) & 0x0001) {
          state |= Mod1Mask;
      }
      if (GetKeyState(VK_SCROLL) & 0x0001) {
          state |= Mod3Mask;
      }
      if (GetKeyState(VK_LBUTTON) & 0x8000) {
          state |= Button1Mask;
      }
      if (GetKeyState(VK_MBUTTON) & 0x8000) {
          state |= Button2Mask;
      }
      if (GetKeyState(VK_RBUTTON) & 0x8000) {
          state |= Button3Mask;
      }
      return state;
  }
  /*
   *----------------------------------------------------------------------
   *
   * Tk_PointerEvent --
   *
   *      This procedure is called for each pointer-related event.
   *      It converts the position to root coords and updates the
   *      global pointer state machine.  It also ensures that the
   *      mouse timer is scheduled.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      May queue events and change the grab state.
   *
   *----------------------------------------------------------------------
   */
  void
  Tk_PointerEvent(hwnd, x, y)
      HWND hwnd;                          /* Window for coords, or NULL for
                                           * the root window. */
      int x, y;                           /* Coords relative to hwnd, or screen
                                           * if hwnd is NULL. */
  {
      POINT pos;
      int state;
      Tk_Window tkwin;
      pos.x = x;
      pos.y = y;
      /*
       * Convert client coords to root coords if we were given a window.
       */
      if (hwnd) {
          ClientToScreen(hwnd, &pos);
      }
      /*
       * If the mouse is captured, Windows will report all pointer
       * events to the capture window.  So, we need to determine which
       * window the mouse is really over and change the event.  Note
       * that the computed hwnd may point to a window not owned by Tk,
       * or a toplevel decorative frame, so tkwin can be NULL.
       */
      if (captured || hwnd == NULL) {
          hwnd = WindowFromPoint(pos);
      }
      tkwin = Tk_HWNDToWindow(hwnd);
      state = TkWinGetModifierState();
      Tk_UpdatePointer(tkwin, pos.x, pos.y, state);
      if ((captured || tkwin) && !mouseTimerSet) {
          mouseTimerSet = 1;
          mouseTimer = Tcl_CreateTimerHandler(MOUSE_TIMER_INTERVAL,
                  MouseTimerProc, NULL);
      }
  }
  /*
   *----------------------------------------------------------------------
   *
   * XGrabKeyboard --
   *
   *      Simulates a keyboard grab by setting the focus.
   *
   * Results:
   *      Always returns GrabSuccess.
   *
   * Side effects:
   *      Sets the keyboard focus to the specified window.
   *
   *----------------------------------------------------------------------
   */
  int
  XGrabKeyboard(display, grab_window, owner_events, pointer_mode,
          keyboard_mode, time)
      Display* display;
      Window grab_window;
      Bool owner_events;
      int pointer_mode;
      int keyboard_mode;
      Time time;
  {
      keyboardWinPtr = TkWinGetWinPtr(grab_window);
      return GrabSuccess;
  }
  /*
   *----------------------------------------------------------------------
   *
   * XUngrabKeyboard --
   *
   *      Releases the simulated keyboard grab.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Sets the keyboard focus back to the value before the grab.
   *
   *----------------------------------------------------------------------
   */
  void
  XUngrabKeyboard(display, time)
      Display* display;
      Time time;
  {
      keyboardWinPtr = NULL;
  }
  /*
   *----------------------------------------------------------------------
   *
   * MouseTimerProc --
   *
   *      Check the current mouse position and look for enter/leave
   *      events.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      May schedule a new timer and/or generate enter/leave events.
   *
   *----------------------------------------------------------------------
   */
  void
  MouseTimerProc(clientData)
      ClientData clientData;
  {
      POINT pos;
      mouseTimerSet = 0;
      /*
       * Get the current mouse position and window.  Don't do anything
       * if the mouse hasn't moved since the last time we looked.
       */
      GetCursorPos(&pos);
      Tk_PointerEvent(NULL, pos.x, pos.y);
  }
  /*
   *----------------------------------------------------------------------
   *
   * TkWinCancelMouseTimer --
   *
   *    If the mouse timer is set, cancel it.
   *
   * Results:
   *    None.
   *
   * Side effects:
   *    May cancel the mouse timer.
   *
   *----------------------------------------------------------------------
   */
  void
  TkWinCancelMouseTimer()
  {
      if (mouseTimerSet) {
          Tcl_DeleteTimerHandler(mouseTimer);
          mouseTimerSet = 0;
      }
  }
  /*
   *----------------------------------------------------------------------
   *
   * TkGetPointerCoords --
   *
   *      Fetch the position of the mouse pointer.
   *
   * Results:
   *      *xPtr and *yPtr are filled in with the root coordinates
   *      of the mouse pointer for the display.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  void
  TkGetPointerCoords(tkwin, xPtr, yPtr)
      Tk_Window tkwin;            /* Window that identifies screen on which
                                   * lookup is to be done. */
      int *xPtr, *yPtr;           /* Store pointer coordinates here. */
  {
      POINT point;
      GetCursorPos(&point);
      *xPtr = point.x;
      *yPtr = point.y;
  }
  /*
   *----------------------------------------------------------------------
   *
   * XQueryPointer --
   *
   *      Check the current state of the mouse.  This is not a complete
   *      implementation of this function.  It only computes the root
   *      coordinates and the current mask.
   *
   * Results:
   *      Sets root_x_return, root_y_return, and mask_return.  Returns
   *      true on success.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  Bool
  XQueryPointer(display, w, root_return, child_return, root_x_return,
          root_y_return, win_x_return, win_y_return, mask_return)
      Display* display;
      Window w;
      Window* root_return;
      Window* child_return;
      int* root_x_return;
      int* root_y_return;
      int* win_x_return;
      int* win_y_return;
      unsigned int* mask_return;
  {
      display->request++;
      TkGetPointerCoords(NULL, root_x_return, root_y_return);
      *mask_return = TkWinGetModifierState();
      return True;
  }
  /*
   *----------------------------------------------------------------------
   *
   * XWarpPointer --
   *
   *      Move pointer to new location.  This is not a complete
   *      implementation of this function.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Mouse pointer changes position on screen.
   *
   *----------------------------------------------------------------------
   */
  void
  XWarpPointer(display, src_w, dest_w, src_x, src_y, src_width,
          src_height, dest_x, dest_y)
      Display* display;
      Window src_w;
      Window dest_w;
      int src_x;
      int src_y;
      unsigned int src_width;
      unsigned int src_height;
      int dest_x;
      int dest_y;
  {
      RECT r;
      GetWindowRect(Tk_GetHWND(dest_w), &r);
      SetCursorPos(r.left+dest_x, r.top+dest_y);
  }
  /*
   *----------------------------------------------------------------------
   *
   * XGetInputFocus --
   *
   *      Retrieves the current keyboard focus window.
   *
   * Results:
   *      Returns the current focus window.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  void
  XGetInputFocus(display, focus_return, revert_to_return)
      Display *display;
      Window *focus_return;
      int *revert_to_return;
  {
      Tk_Window tkwin = Tk_HWNDToWindow(GetFocus());
      *focus_return = tkwin ? Tk_WindowId(tkwin) : None;
      *revert_to_return = RevertToParent;
      display->request++;
  }
  /*
   *----------------------------------------------------------------------
   *
   * XSetInputFocus --
   *
   *      Set the current focus window.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Changes the keyboard focus and causes the selected window to
   *      be activated.
   *
   *----------------------------------------------------------------------
   */
  void
  XSetInputFocus(display, focus, revert_to, time)
      Display* display;
      Window focus;
      int revert_to;
      Time time;
  {
      display->request++;
      if (focus != None) {
          SetFocus(Tk_GetHWND(focus));
      }
  }
  /*
   *----------------------------------------------------------------------
   *
   * TkpChangeFocus --
   *
   *      This procedure is invoked to move the system focus from
   *      one window to another.
   *
   * Results:
   *      The return value is the serial number of the command that
   *      changed the focus.  It may be needed by the caller to filter
   *      out focus change events that were queued before the command.
   *      If the procedure doesn't actually change the focus then
   *      it returns 0.
   *
   * Side effects:
   *      The official Windows focus window changes;  the application's focus
   *      window isn't changed by this procedure.
   *
   *----------------------------------------------------------------------
   */
  int
  TkpChangeFocus(winPtr, force)
      TkWindow *winPtr;           /* Window that is to receive the X focus. */
      int force;                  /* Non-zero means claim the focus even
                                   * if it didn't originally belong to
                                   * topLevelPtr's application. */
  {
      TkDisplay *dispPtr = winPtr->dispPtr;
      Window focusWindow;
      int dummy, serial;
      TkWindow *winPtr2;
      if (!force) {
          XGetInputFocus(dispPtr->display, &focusWindow, &dummy);
          winPtr2 = (TkWindow *) Tk_IdToWindow(dispPtr->display, focusWindow);
          if ((winPtr2 == NULL) || (winPtr2->mainPtr != winPtr->mainPtr)) {
              return 0;
          }
      }
      if (winPtr->window == None) {
          panic("ChangeXFocus got null X window");
      }
      /*
       * Change the foreground window so the focus window is raised to the top of
       * the system stacking order and gets the keyboard focus.
       */
      if (force) {
          TkWinSetForegroundWindow(winPtr);
      }
      XSetInputFocus(dispPtr->display, winPtr->window, RevertToParent,
              CurrentTime);
      /*
       * Remember the current serial number for the X server and issue
       * a dummy server request.  This marks the position at which we
       * changed the focus, so we can distinguish FocusIn and FocusOut
       * events on either side of the mark.
       */
      serial = NextRequest(winPtr->display);
      XNoOp(winPtr->display);
      return serial;
  }
  /*
   *----------------------------------------------------------------------
   *
   * TkpSetCapture --
   *
   *      This function captures the mouse so that all future events
   *      will be reported to this window, even if the mouse is outside
   *      the window.  If the specified window is NULL, then the mouse
   *      is released.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Sets the capture flag and captures the mouse.
   *
   *----------------------------------------------------------------------
   */
  void
  TkpSetCapture(winPtr)
      TkWindow *winPtr;                   /* Capture window, or NULL. */
  {
      if (winPtr) {
          SetCapture(Tk_GetHWND(Tk_WindowId(winPtr)));
          captured = 1;
      } else {
          captured = 0;
          ReleaseCapture();
      }
  }
  /* End of tkwinpointer.c */

 Legend:



Removed from v.69
 


changed lines


 
Added in v.71
 Legend:



Removed from v.69
 


changed lines


 
Added in v.71
-Removed from v.69
+Added in v.71

dashley@gmail.com	ViewVC Help
Powered by ViewVC 1.1.25