home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tkisrc04.zip / tk / os2 / tkOS2Cursor.c < prev    next >
C/C++ Source or Header  |  1998-08-07  |  10KB  |  330 lines
  1. /* 
  2.  * tkOS2Cursor.c --
  3.  *
  4.  *    This file contains OS/2 PM specific cursor related routines.
  5.  *    Note: cursors for the mouse are called "POINTER" in Presentation
  6.  *    Manager, those in text are "CURSOR".
  7.  *
  8.  * Copyright (c) 1996-1997 Illya Vaes
  9.  * Copyright (c) 1995 Sun Microsystems, Inc.
  10.  *
  11.  * See the file "license.terms" for information on usage and redistribution
  12.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13.  */
  14.  
  15.  
  16. #include "tkOS2Int.h"
  17.  
  18. /*
  19.  * The following data structure contains the system specific data
  20.  * necessary to control OS/2 PM pointers.
  21.  */
  22.  
  23. typedef struct {
  24.     TkCursor info;        /* Generic cursor info used by tkCursor.c */
  25.     HPOINTER OS2Pointer;    /* OS/2 PM pointer handle */
  26.     int system;            /* 1 if cursor is a system cursor, else 0. */
  27. } TkOS2Cursor;
  28.  
  29. /*
  30.  * The table below is used to map from the name of a predefined cursor
  31.  * to its resource identifier.
  32.  */
  33.  
  34. static struct CursorName {
  35.     char *name;
  36.     LONG id;
  37. } cursorNames[] = {
  38. /*    {"X_cursor",        SPTR_ARROW}, */
  39.     {"arrow",            SPTR_ARROW},
  40. /*    {"based_arrow_down",    SPTR_SIZENS}, */
  41. /*    {"based_arrow_up",        SPTR_SIZENS}, */
  42. /*    {"bottom_left_corner",    SPTR_SIZENESW}, */
  43. /*    {"bottom_right_corner",    SPTR_SIZENWSE}, */
  44. /*    {"bottom_side",        SPTR_SIZENS}, */
  45. /*    {"bottom_tee",        SPTR_SIZENS}, */
  46. /*    {"center_ptr",        SPTR_MOVE}, */
  47. /*    {"clock",            SPTR_WAIT}, */
  48. /*    {"cross",            SPTR_ARROW}, */
  49. /*    {"cross_reverse",        SPTR_ARROW}, */
  50. /*    {"crosshair",        SPTR_TEXT}, */
  51. /*    {"diamond_cross",        SPTR_ARROW}, */
  52.     {"double_arrow",        SPTR_SIZEWE},
  53.     {"fleur",            SPTR_MOVE},
  54.     {"ibeam",            SPTR_TEXT},
  55.     {"left_ptr",        SPTR_ARROW},
  56.     {"left_side",        SPTR_SIZEWE},
  57.     {"left_tee",        SPTR_SIZEWE},
  58. /*    {"mouse",            SPTR_ARROW}, */
  59.     {"no",            SPTR_ILLEGAL},
  60. /*    {"plus",            SPTR_ARROW}, */
  61. /*    {"question_arrow",        SPTR_QUESICON}, */
  62. /*    {"right_ptr",        SPTR_SIZEWE}, */
  63. /*    {"right_side",        SPTR_SIZEWE}, */
  64. /*    {"right_tee",        SPTR_SIZEWE}, */
  65. /*    {"sb_down_arrow",        SPTR_SIZENS}, */
  66.     {"sb_h_double_arrow",    SPTR_SIZEWE},
  67. /*    {"sb_left_arrow",        SPTR_SIZEWE}, */
  68. /*    {"sb_right_arrow",        SPTR_SIZEWE}, */
  69. /*    {"sb_up_arrow",        SPTR_SIZENS}, */
  70.     {"sb_v_double_arrow",    SPTR_SIZENS},
  71.     {"size_nw_se",        SPTR_SIZENWSE},
  72.     {"size_ne_sw",        SPTR_SIZENESW},
  73.     {"size",            SPTR_MOVE},
  74.     {"starting",        SPTR_WAIT},
  75. /*    {"target",            SPTR_SIZE}, */
  76. /*    {"tcross",            SPTR_ARROW}, */
  77. /*    {"top_left_arrow",        SPTR_ARROW}, */
  78. /*    {"top_left_corner",        SPTR_SIZENWSE}, */
  79. /*    {"top_right_corner",    SPTR_SIZENESW}, */
  80. /*    {"top_side",        SPTR_SIZENS}, */
  81. /*    {"top_tee",            SPTR_SIZENS}, */
  82. /*    {"ul_angle",        SPTR_SIZENWSE}, */
  83.     {"uparrow",            SPTR_SIZENS},
  84. /*    {"ur_angle",        SPTR_SIZENESW}, */
  85.     {"watch",            SPTR_WAIT},
  86.     {"wait",            SPTR_WAIT},
  87.     {"xterm",            SPTR_TEXT},
  88.     /* cursors without moderately reasonable equivalents: question mark icon */
  89. /*
  90.     {"boat",            SPTR_QUESICON},
  91.     {"bogosity",        SPTR_QUESICON},
  92.     {"box_spiral",        SPTR_QUESICON},
  93.     {"circle",            SPTR_QUESICON},
  94.     {"coffee_mug",        SPTR_QUESICON},
  95.     {"dot",            SPTR_QUESICON},
  96.     {"dotbox",            SPTR_QUESICON},
  97.     {"draft_large",        SPTR_QUESICON},
  98.     {"draft_small",        SPTR_QUESICON},
  99.     {"draped_box",        SPTR_QUESICON},
  100.     {"exchange",        SPTR_QUESICON},
  101.     {"gobbler",            SPTR_QUESICON},
  102.     {"gumby",            SPTR_QUESICON},
  103.     {"hand1",            SPTR_QUESICON},
  104.     {"hand2",            SPTR_QUESICON},
  105.     {"heart",            SPTR_QUESICON},
  106.     {"icon",            SPTR_QUESICON},
  107.     {"iron_cross",        SPTR_QUESICON},
  108.     {"leftbutton",        SPTR_QUESICON},
  109.     {"ll_angle",        SPTR_QUESICON},
  110.     {"lr_angle",        SPTR_QUESICON},
  111.     {"man",            SPTR_QUESICON},
  112.     {"middlebutton",        SPTR_QUESICON},
  113.     {"pencil",            SPTR_QUESICON},
  114.     {"pirate",            SPTR_QUESICON},
  115.     {"rightbutton",        SPTR_QUESICON},
  116.     {"rtl_logo",        SPTR_QUESICON},
  117.     {"sailboat",        SPTR_QUESICON},
  118.     {"shuttle",            SPTR_QUESICON},
  119.     {"spider",            SPTR_QUESICON},
  120.     {"spraycan",        SPTR_QUESICON},
  121.     {"star",            SPTR_QUESICON},
  122.     {"trek",            SPTR_QUESICON},
  123.     {"umbrella",        SPTR_QUESICON},
  124. */
  125.     {NULL,            0}
  126. };
  127. /* Include cursors; done by Ilya Zakharevich */
  128. #include "rc/cursors.h"
  129.  
  130. /*
  131.  * The default cursor is used whenever no other cursor has been specified.
  132.  */
  133.  
  134. #define TK_DEFAULT_CURSOR    SPTR_ARROW
  135.  
  136.  
  137. /*
  138.  *----------------------------------------------------------------------
  139.  *
  140.  * TkGetCursorByName --
  141.  *
  142.  *    Retrieve a system cursor by name.  
  143.  *
  144.  * Results:
  145.  *    Returns a new cursor, or NULL on errors.  
  146.  *
  147.  * Side effects:
  148.  *    Allocates a new cursor.
  149.  *
  150.  *----------------------------------------------------------------------
  151.  */
  152.  
  153. TkCursor *
  154. TkGetCursorByName(interp, tkwin, string)
  155.     Tcl_Interp *interp;        /* Interpreter to use for error reporting. */
  156.     Tk_Window tkwin;        /* Window in which cursor will be used. */
  157.     Tk_Uid string;        /* Description of cursor.  See manual entry
  158.                  * for details on legal syntax. */
  159. {
  160.     struct CursorName *namePtr;
  161.     TkOS2Cursor *cursorPtr;
  162.  
  163. #ifdef DEBUG
  164.     printf("TkGetCursorByName %s\n", string);
  165. #endif
  166.  
  167.     /*
  168.      * Check for the cursor in the system cursor set.
  169.      */
  170.  
  171.     for (namePtr = cursorNames; namePtr->name != NULL; namePtr++) {
  172.     if (strcmp(namePtr->name, string) == 0) {
  173.         break;
  174.     }
  175.     }
  176.  
  177.     cursorPtr = (TkOS2Cursor *) ckalloc(sizeof(TkOS2Cursor));
  178.     cursorPtr->info.cursor = (Tk_Cursor) cursorPtr;
  179.     if (namePtr->name != NULL) {
  180.     /* Found a system cursor, make a reference (not a copy) */
  181.     cursorPtr->OS2Pointer = WinQuerySysPointer(HWND_DESKTOP, namePtr->id,
  182.                                                FALSE);
  183.     cursorPtr->system = 1;
  184.     } else {
  185.     myCursor *curPtr = cursors;
  186.  
  187.     /* Added X-derived cursors by Ilya Zakharevich */
  188.     cursorPtr->system = 0;
  189.     while (curPtr->name) {
  190.         if (strcmp(curPtr->name, string) == 0) {
  191.             break;
  192.         }
  193.         curPtr++;
  194.     }
  195.     if (curPtr->name &&
  196.         (cursorPtr->OS2Pointer = WinLoadPointer(HWND_DESKTOP,
  197.                                                 TkOS2GetTkModule(),
  198.                                                 curPtr->id))
  199.             != NULLHANDLE) {
  200.            cursorPtr->system = 0;
  201.         } else {
  202.         /* Try a system cursor, make a reference (not a copy) */
  203.         cursorPtr->OS2Pointer = WinQuerySysPointer(HWND_DESKTOP,
  204.                                                    SPTR_QUESICON, FALSE);
  205.         cursorPtr->system = 1;
  206.         }
  207.     }
  208.     if (cursorPtr->OS2Pointer == NULLHANDLE) {
  209.     ckfree((char *)cursorPtr);
  210.     Tcl_AppendResult(interp, "bad cursor spec \"", string, "\"",
  211.         (char *) NULL);
  212.     return NULL;
  213.     } else {
  214.     return (TkCursor *) cursorPtr;
  215.     }
  216. }
  217.  
  218. /*
  219.  *----------------------------------------------------------------------
  220.  *
  221.  * TkCreateCursorFromData --
  222.  *
  223.  *    Creates a cursor from the source and mask bits.
  224.  *
  225.  * Results:
  226.  *    Returns a new cursor, or NULL on errors.
  227.  *
  228.  * Side effects:
  229.  *    Allocates a new cursor.
  230.  *
  231.  *----------------------------------------------------------------------
  232.  */
  233.  
  234. TkCursor *
  235. TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot,
  236.     fgColor, bgColor)
  237.     Tk_Window tkwin;        /* Window in which cursor will be used. */
  238.     char *source;        /* Bitmap data for cursor shape. */
  239.     char *mask;            /* Bitmap data for cursor mask. */
  240.     int width, height;        /* Dimensions of cursor. */
  241.     int xHot, yHot;        /* Location of hot-spot in cursor. */
  242.     XColor fgColor;        /* Foreground color for cursor. */
  243.     XColor bgColor;        /* Background color for cursor. */
  244. {
  245.     return NULL;
  246. }
  247.  
  248. /*
  249.  *----------------------------------------------------------------------
  250.  *
  251.  * TkFreeCursor --
  252.  *
  253.  *    This procedure is called to release a cursor allocated by
  254.  *    TkGetCursorByName.
  255.  *
  256.  * Results:
  257.  *    None.
  258.  *
  259.  * Side effects:
  260.  *    The cursor data structure is deallocated.
  261.  *
  262.  *----------------------------------------------------------------------
  263.  */
  264.  
  265. void
  266. TkFreeCursor(cursorPtr)
  267.     TkCursor *cursorPtr;
  268. {
  269.     TkOS2Cursor *OS2PointerPtr = (TkOS2Cursor *) cursorPtr;
  270.     ckfree((char *) OS2PointerPtr);
  271. }
  272.  
  273. /*
  274.  *----------------------------------------------------------------------
  275.  *
  276.  * TkOS2UpdateCursor --
  277.  *
  278.  *    Set the PM global cursor to the cursor associated with the given
  279.  *      Tk window.
  280.  *
  281.  * Results:
  282.  *    None.
  283.  *
  284.  * Side effects:
  285.  *    Changes the mouse cursor.
  286.  *
  287.  *----------------------------------------------------------------------
  288.  */
  289.  
  290. void
  291. TkOS2UpdateCursor(winPtr)
  292.     TkWindow *winPtr;
  293. {
  294.     HPOINTER cursor = NULLHANDLE;
  295.  
  296. #ifdef DEBUG
  297.     printf("TkOS2UpdateCursor winPtr %x\n", winPtr);
  298. #endif
  299.  
  300.     /*
  301.      * A window inherits its cursor from its parent if it doesn't
  302.      * have one of its own.  Top level windows inherit the default
  303.      * cursor.
  304.      */
  305.  
  306.     while (winPtr != NULL) {
  307. #ifdef DEBUG
  308.         printf("    winPtr->atts %x\n", winPtr->atts);
  309.         printf("    winPtr->atts.cursor %x\n", winPtr->atts.cursor);
  310. #endif
  311.     if (winPtr->atts.cursor != None) {
  312.         cursor = ((TkOS2Cursor *) (winPtr->atts.cursor))->OS2Pointer;
  313.         break;
  314.     } else if (winPtr->flags & TK_TOP_LEVEL) {
  315.         cursor = WinQuerySysPointer(HWND_DESKTOP, TK_DEFAULT_CURSOR, FALSE);
  316.         break;
  317.     }
  318.     winPtr = winPtr->parentPtr;
  319. #ifdef DEBUG
  320.         printf("    winPtr %x\n", winPtr);
  321. #endif
  322.     }
  323. #ifdef DEBUG
  324.     printf("    cursor %x\n", cursor);
  325. #endif
  326.     if (cursor != NULLHANDLE) {
  327.     WinSetPointer(HWND_DESKTOP, cursor);
  328.     }
  329. }
  330.