*** macosx-8-4-branch merged into the mainline [tcl patch #602770] ***macosx_8_4_merge_2002_08_31_trunk

	* generic/tk.decls:
	* generic/tkInt.decls: added new "aqua" specific entries to the
	stubs tables. Changed all "unix" entries to "x11" to allow us to
	distinguish and build both "aqua" on MacOSX and "x11" on MacOSX.

	* generic/tk.h: added a #ifnded RESOURCE_INCLUDED so that tk.h can
	be passed to the resource compiler.

	* generic/tkCmds.c (Tk_TkObjCmd): added [tk windowingsystem]
	subcommand: returns "x11" when running on X11, "win32" on Windows,
	"classic" on MacOS9 and "aqua" on MacOSX Aqua (i.e. Carbon)

	* generic/tkFont.c (TkFontGetFirstTextLayout): new private function
	returning the first chunk of a Tk_TextLayout, i.e. until the first
	font change on the first line (or the whole first line if there is
	no such font change).

	* generic/tkMain.c: made Tcl_ThreadDataKey static

	* library/demos/puzzle.tcl: fixed button metrics for aqua

	* tests/cursor.test: check for presence of arrow cursor instead of
	heart cursor

	* xlib/xcolors.c: changed xColors static initialization to more
	standard C

	* macosx/Wish.pbproj/jingham.pbxuser (new):
	* macosx/Wish.pbproj/project.pbxproj (new): project for Apple's
	ProjectBuilder IDE.

	* macosx/Makefile (new): simple makefile for building the project
	from the command line via the ProjectBuilder tool 'pbxbuild'.

	* macosx/tkMacOSXAppInit.c (new): macosx specific AppInit looking
	for a AppMain.tcl file in its bundled Resources/Scripts folder. If
	present, argv[1] is set to that file and the Scripts folder is
	added to the auto_path. This allows tk apps to embed scripts within
	their bundle directory structure.

	* macosx/tkMacOSXInit.c (new): macosx adapted version of
	tkUnixInit.c: we initialize & cache the Carbon native encoding
	(e.g. 'macRoman') and try to find the tk script library files
	inside Tk packaged as a framework.

	* macosx/tkMacOSXNotify.c (new): new macosx specific merged
	Carbon/select-based notifier.

	* macosx/tkMacOSXEvent.c (new):
	* macosx/tkMacOSXEvent.h (new):
	* macosx/tkMacOSXKeyEvent.c (new):
	* macosx/tkMacOSXMouseEvent.c (new):
	* macosx/tkMacOSXWindowEvent.c (new): new macosx specific event
	handling functionality.

	* macosx/tkMacOSX.h (new):
	* macosx/tkMacOSXBitmap.c (new):
	* macosx/tkMacOSXButton.c (new):
	* macosx/tkMacOSXClipboard.c (new):
	* macosx/tkMacOSXColor.c (new):
	* macosx/tkMacOSXConfig.c (new):
	* macosx/tkMacOSXCursor.c (new):
	* macosx/tkMacOSXDefault.h (new):
	* macosx/tkMacOSXDialog.c (new):
	* macosx/tkMacOSXDraw.c (new):
	* macosx/tkMacOSXEmbed.c (new):
	* macosx/tkMacOSXFont.c (new):
	* macosx/tkMacOSXHLEvents.c (new):
	* macosx/tkMacOSXInt.h (new):
	* macosx/tkMacOSXKeyboard.c (new):
	* macosx/tkMacOSXMenu.c (new):
	* macosx/tkMacOSXMenubutton.c (new):
	* macosx/tkMacOSXMenus.c (new):
	* macosx/tkMacOSXPort.h (new):
	* macosx/tkMacOSXRegion.c (new):
	* macosx/tkMacOSXScale.c (new):
	* macosx/tkMacOSXScrlbr.c (new):
	* macosx/tkMacOSXSubwindows.c (new):
	* macosx/tkMacOSXTest.c (new):
	* macosx/tkMacOSXUtil.c (new):
	* macosx/tkMacOSXUtil.h (new):
	* macosx/tkMacOSXWm.c (new):
	* macosx/tkMacOSXWm.h (new):
	* macosx/tkMacOSXXStubs.c (new): macosx ports of classic mac Tk
	implementation in tk/mac.

	* macosx/tkMacOSXSend.c (new): only send to local interp
	implemented currently.

	* macosx/tkMacOSXDebug.h (new):
	* macosx/tkMacOSXDebug.c (new): new macosx specific functions for
	debugging MacOS events, regions, etc.

	* macosx/tkAboutDlg.r (new):
	* macosx/tkMacOSXApplication.r (new):
	* macosx/tkMacOSXCursors.r (new):
	* macosx/tkMacOSXLibrary.r (new):
	* macosx/tkMacOSXMenu.r (new):
	* macosx/tkMacOSXResource.r (new):
	* macosx/tkMacOSXXCursors.r (new):
	* macosx/tclets.r (new): sources for Rez resource compiler.

	* macosx/Wish.icns (new): Wish application icon.

	* generic/tk.h:
	* generic/default.h:
	* generic/tkBind.c:
	* generic/tkCmds.c:
	* generic/tkGrab.c:
	* generic/tkPointer.c:
	* generic/tkPort.h:
	* generic/tkSelect.c:
	* generic/tkStubLib.c:
	* generic/tkTest.c:
	* generic/tkText.c:
	* generic/tkWindow.c:
	* unix/tkUnix3d.c:
	* xlib/xgc.c:
	* xlib/X11/X.h:
	* xlib/X11/Xlib.h:
	* xlib/X11/Xutil.h: added #includes and #ifdefs for macosx

	* library/bgerror.tcl:
	* library/button.tcl:
	* library/console.tcl:
	* library/dialog.tcl:
	* library/entry.tcl:
	* library/listbox.tcl:
	* library/menu.tcl:
	* library/msgbox.tcl:
	* library/scrlbar.tcl:
	* library/spinbox.tcl:
	* library/text.tcl:
	* library/tk.tcl:
	* library/demos/menu.tcl:
	* library/demos/menubu.tcl:
	* library/demos/widget: check [tk windowingsystem] instead of
	and/or in addition to $tcl_platform(platform).

	* generic/tkInt.h:
	* mac/tkMacBitmap.c:
	* mac/tkMacWm.c: added missing CONSTification

	* generic/tkIntDecls.h:
	* generic/tkIntPlatDecls.h:
	* generic/tkIntXlibDecls.h:
	* generic/tkPlatDecls.h:
	* generic/tkStubInit.c: regen

1 files changed, 439 insertions, 0 deletions

diff --git a/macosx/tkMacOSXDebug.c b/macosx/tkMacOSXDebug.c
new file mode 100644
index 0000000..53997e8
--- /dev/null
+++ b/macosx/tkMacOSXDebug.c
@@ -0,0 +1,439 @@
+/*
+ * tkMacOSXDebug.c --
+ *
+ *	Implementation of Macintosh specific functions for debugging MacOS events,
+ *      regions, etc...
+ *
+ *      Copyright 2001, Apple Computer, Inc.
+ *
+ *      The following terms apply to all files originating from Apple
+ *      Computer, Inc. ("Apple") and associated with the software
+ *      unless explicitly disclaimed in individual files.
+ *
+ *
+ *      Apple hereby grants permission to use, copy, modify,
+ *      distribute, and license this software and its documentation
+ *      for any purpose, provided that existing copyright notices are
+ *      retained in all copies and that this notice is included
+ *      verbatim in any distributions. No written agreement, license,
+ *      or royalty fee is required for any of the authorized
+ *      uses. Modifications to this software may be copyrighted by
+ *      their authors and need not follow the licensing terms
+ *      described here, provided that the new terms are clearly
+ *      indicated on the first page of each file where they apply.
+ *
+ *
+ *      IN NO EVENT SHALL APPLE, THE AUTHORS OR DISTRIBUTORS OF THE
+ *      SOFTWARE BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL,
+ *      INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF
+ *      THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF,
+ *      EVEN IF APPLE OR THE AUTHORS HAVE BEEN ADVISED OF THE
+ *      POSSIBILITY OF SUCH DAMAGE.  APPLE, THE AUTHORS AND
+ *      DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING,
+ *      BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+ *      FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS
+ *      SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND APPLE,THE
+ *      AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE
+ *      MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
+ *
+ *      GOVERNMENT USE: If you are acquiring this software on behalf
+ *      of the U.S. government, the Government shall have only
+ *      "Restricted Rights" in the software and related documentation
+ *      as defined in the Federal Acquisition Regulations (FARs) in
+ *      Clause 52.227.19 (c) (2).  If you are acquiring the software
+ *      on behalf of the Department of Defense, the software shall be
+ *      classified as "Commercial Computer Software" and the
+ *      Government shall have only "Restricted Rights" as defined in
+ *      Clause 252.227-7013 (c) (1) of DFARs.  Notwithstanding the
+ *      foregoing, the authors grant the U.S. Government and others
+ *      acting in its behalf permission to use and distribute the
+ *      software in accordance with the terms specified in this
+ *      license.
+ */
+
+#include "tkMacOSXDebug.h"
+
+typedef struct {
+ EventKind kind;
+ char     * name;
+} MyEventName;
+
+typedef struct {
+ EventClass    c;
+ MyEventName * names;
+} MyEventNameList;
+
+static MyEventName windowEventNames [] = {
+ {  kEventWindowUpdate,"Update"},
+ {  kEventWindowDrawContent,"DrawContent"},
+ {  kEventWindowActivated,"Activated"},
+ {  kEventWindowDeactivated,"Deactivated"},
+ {  kEventWindowGetClickActivation,"GetClickActivation"},
+ {  kEventWindowShowing,"Showing"},
+ {  kEventWindowHiding,"Hiding"},
+ {  kEventWindowShown,"Shown"},
+ {  kEventWindowHidden,"Hidden"},
+ {  kEventWindowBoundsChanging,"BoundsChanging"},
+ {  kEventWindowBoundsChanged,"BoundsChanged"},
+ {  kEventWindowResizeStarted,"ResizeStarted"},
+ {  kEventWindowResizeCompleted,"ResizeCompleted"},
+ {  kEventWindowDragStarted,"DragStarted"},
+ {  kEventWindowDragCompleted,"DragCompleted"},
+ {  kEventWindowClickDragRgn,"ClickDragRgn"},
+ {  kEventWindowClickResizeRgn,"ClickResizeRgn"},
+ {  kEventWindowClickCollapseRgn,"ClickCollapseRgn"},
+ {  kEventWindowClickCloseRgn,"ClickCloseRgn"},
+ {  kEventWindowClickZoomRgn,"ClickZoomRgn"},
+ {  kEventWindowClickContentRgn,"ClickContentRgn"},
+ {  kEventWindowClickProxyIconRgn,"ClickProxyIconRgn"},
+ {  kEventWindowCursorChange,"CursorChange" },
+ {  kEventWindowCollapse,"Collapse"},
+ {  kEventWindowCollapsed,"Collapsed"},
+ {  kEventWindowCollapseAll,"CollapseAll"},
+ {  kEventWindowExpand,"Expand"},
+ {  kEventWindowExpanded,"Expanded"},
+ {  kEventWindowExpandAll,"ExpandAll"},
+ {  kEventWindowCollapse,"Collapse"},
+ {  kEventWindowClose,"Close"},
+ {  kEventWindowClosed,"Closed"},
+ {  kEventWindowCloseAll,"CloseAll"},
+ {  kEventWindowZoom,"Zoom"},
+ {  kEventWindowZoomed,"Zoomed"},
+ {  kEventWindowZoomAll,"ZoomAll"},
+ {  kEventWindowContextualMenuSelect,"ContextualMenuSelect"},
+ {  kEventWindowPathSelect,"PathSelect"},
+ {  kEventWindowGetIdealSize,"GetIdealSize"},
+ {  kEventWindowGetMinimumSize,"GetMinimumSize"},
+ {  kEventWindowGetMaximumSize,"GetMaximumSize"},
+ {  kEventWindowConstrain,"Constrain"},
+ {  kEventWindowHandleContentClick,"HandleContentClick"},
+ {  kEventWindowProxyBeginDrag,"ProxyBeginDra}"},
+ {  kEventWindowProxyEndDrag,"ProxyEndDrag"},
+ {  kEventWindowFocusAcquired,"FocusAcquired"},
+ {  kEventWindowFocusRelinquish,"FocusRelinquish"},
+ {  kEventWindowDrawFrame,"DrawFrame"},
+ {  kEventWindowDrawPart,"DrawPart"},
+ {  kEventWindowGetRegion,"GetRegion"},
+ {  kEventWindowHitTest,"HitTest"},
+ {  kEventWindowInit,"Init"},
+ {  kEventWindowDispose,"Dispose"},
+ {  kEventWindowDragHilite,"DragHilite"},
+ {  kEventWindowModified,"Modified"},
+ {  kEventWindowSetupProxyDragImage,"SetupProxyDragImage"},
+ {  kEventWindowStateChanged,"StateChanged"},
+ {  kEventWindowMeasureTitle,"MeasureTitle"},
+ {  kEventWindowDrawGrowBox,"DrawGrowBox"},
+ {  kEventWindowGetGrowImageRegion,"GetGrowImageRegion"},
+ {  kEventWindowPaint,"Paint"},
+ { 0, NULL },
+};
+
+static MyEventName mouseEventNames [] = {
+ {  kEventMouseMoved, "Moved"},
+ {  kEventMouseUp, "Up"},
+ {  kEventMouseDown, "Down"},
+ {  kEventMouseDragged, "Dragged"},
+ {  kEventMouseWheelMoved, "WheelMoved"},
+ { 0, NULL}
+};
+
+static MyEventName keyboardEventNames [] = {
+ { kEventRawKeyDown, "Down"},
+ { kEventRawKeyRepeat, "Repeat"},
+ { kEventRawKeyUp, "Up"},
+ { kEventRawKeyModifiersChanged, "ModifiersChanged"},
+ { kEventHotKeyPressed, "HotKeyPressed"},
+ { kEventHotKeyReleased, "HotKeyReleased"},
+ { 0, NULL}
+};
+
+static MyEventName appEventNames [] = {
+ { kEventAppActivated, "Activated"},
+ { kEventAppDeactivated, "Deactivated"},  
+ { kEventAppQuit, "Quit"},
+ { kEventAppLaunchNotification, "LaunchNotification"},
+ { kEventAppLaunched, "Launched"},
+ { kEventAppTerminated, "Terminated"},
+ { kEventAppFrontSwitched, "FrontSwitched"},
+ { 0, NULL}
+};
+
+static MyEventName menuEventNames [] = {
+ { kEventMenuBeginTracking, "BeginTracking"},
+ { kEventMenuEndTracking, "EndTracking"},
+ { kEventMenuChangeTrackingMode, "ChangeTrackingMode"},
+ { kEventMenuOpening, "Opening"},
+ { kEventMenuClosed, "Closed"},
+ { kEventMenuTargetItem, "TargetItem"},
+ { kEventMenuMatchKey, "MatchKey"},
+ { kEventMenuEnableItems, "EnableItems"},
+ { kEventMenuDispose, "Dispose"},
+ { 0, NULL }
+};
+
+static MyEventName controlEventNames [] = {
+ { kEventControlInitialize, "Initialize" },
+ { kEventControlDispose, "Dispose" },
+ { kEventControlGetOptimalBounds, "GetOptimalBounds" },
+ { kEventControlHit, "Hit" },
+ { kEventControlSimulateHit, "SimulateHit" },
+ { kEventControlHitTest, "HitTest" },
+ { kEventControlDraw, "Draw" },
+ { kEventControlApplyBackground, "ApplyBackground" },
+ { kEventControlApplyTextColor, "ApplyTextColor" },
+ { kEventControlSetFocusPart, "SetFocusPart" },
+ { kEventControlGetFocusPart, "GetFocusPart" },
+ { kEventControlActivate, "Activate" },
+ { kEventControlDeactivate, "Deactivate" },
+ { kEventControlSetCursor, "SetCursor" },
+ { kEventControlContextualMenuClick, "ContextualMenuClick" },
+ { kEventControlClick, "Click" },
+ { kEventControlTrack, "Track" },
+ { kEventControlGetScrollToHereStartPoint, "GetScrollToHereStartPoint" },
+ { kEventControlGetIndicatorDragConstraint, "GetIndicatorDragConstraint" },
+ { kEventControlIndicatorMoved, "IndicatorMoved" },
+ { kEventControlGhostingFinished, "GhostingFinished" },
+ { kEventControlGetActionProcPart, "GetActionProcPart" },
+ { kEventControlGetPartRegion, "GetPartRegion" },
+ { kEventControlGetPartBounds, "GetPartBounds" },
+ { kEventControlSetData, "SetData" },
+ { kEventControlGetData, "GetData" },
+ { kEventControlValueFieldChanged, "ValueFieldChanged" },
+ { kEventControlAddedSubControl, "AddedSubControl" },
+ { kEventControlRemovingSubControl, "RemovingSubControl" },
+ { kEventControlBoundsChanged, "BoundsChanged" },
+ { kEventControlOwningWindowChanged, "OwningWindowChanged" },
+ { kEventControlArbitraryMessage, "ArbitraryMessage" },
+ { 0, NULL }
+};
+
+
+static MyEventName commandEventNames [] = {
+ { kEventCommandProcess, "Process" },
+ { kEventCommandUpdateStatus, "UpdateStatus" },
+ { 0, NULL }
+};
+
+static MyEventNameList eventNameList [] = {
+ { kEventClassWindow, windowEventNames },
+ { kEventClassMouse, mouseEventNames },
+ { kEventClassKeyboard, keyboardEventNames },
+ { kEventClassApplication, appEventNames },
+ { kEventClassMenu, menuEventNames },
+ { kEventClassControl, controlEventNames },
+ { kEventClassCommand, commandEventNames },
+ { 0, NULL}
+};
+
+
+MyEventName classicEventNames [] = {
+ { nullEvent,"nullEvent" },
+ { mouseDown,"mouseDown" },
+ { mouseUp,"mouseUp" },
+ { keyDown,"keyDown" },
+ { keyUp,"keyUp" },
+ { autoKey,"autoKey" },
+ { updateEvt,"updateEvt" },
+ { diskEvt,"diskEvt" },
+ { activateEvt,"activateEvt" },
+ { osEvt,"osEvt" },
+ { kHighLevelEvent,"kHighLevelEvent" },
+ { 0, NULL }
+};
+
+char * 
+CarbonEventToAscii(EventRef eventRef, char * buf)
+{     
+    EventClass eventClass;
+    EventKind  eventKind;
+    MyEventNameList * list = eventNameList;
+    MyEventName     * names = NULL;
+    int *       iPtr = ( int * )buf;
+    char *      iBuf = buf;
+    int found = 0;
+
+    eventClass = GetEventClass(eventRef);
+    eventKind = GetEventKind(eventRef);
+
+    *iPtr = eventClass;
+    buf [ 4 ] = 0;
+    strcat(buf, " ");
+    buf += strlen(buf);
+    while (list->names && (!names) ) {
+        if (eventClass==list->c) {
+            names = list -> names;
+        } else {
+            list++;
+        }
+    }
+    if (names) {
+       found = 0;
+       while (names->name && !found) {
+           if (eventKind==names->kind) {
+               sprintf(buf, "%-20s", names->name);
+               found=1;
+           } else {
+               names++;
+           }
+        }
+        if (!found) {
+            sprintf(buf, "%-20d", eventKind );
+        }
+    } else {
+        sprintf(buf, "%-20d", eventKind );
+    }
+    return iBuf;
+}
+
+char * CarbonEventKindToAscii(EventRef eventRef, char * buf )
+{     
+   EventClass eventClass;
+   EventKind  eventKind;
+   MyEventNameList * list = eventNameList;
+   MyEventName     * names = NULL;
+   int               found = 0;
+   eventClass = GetEventClass(eventRef);
+   eventKind = GetEventKind(eventRef);
+   while (list->names && (!names) ) {
+       if (eventClass == list -> c) {
+           names = list -> names;
+       } else {
+           list++;
+       }
+   }
+   if (names) {
+       found=0;
+       while ( names->name && !found ) {
+           if (eventKind==names->kind) {
+               sprintf(buf,"%s",names->name);
+               found=1;
+           } else {
+               names++;
+           }
+       }
+    }
+    if (!found) {
+        sprintf ( buf,"%d", eventKind );
+     } else {
+        sprintf ( buf,"%d", eventKind );
+     }
+     return buf;
+}
+
+char * ClassicEventToAscii(EventRecord * eventPtr, char * buf )
+{
+    MyEventName     * names = NULL;
+    int found = 0;
+    names = classicEventNames;
+    while ( names -> name && !found )
+        if (eventPtr->what==names->kind) {
+            int * iPtr;
+            char cBuf[8];
+            iPtr=( int *)&cBuf;
+            *iPtr = eventPtr->message;
+            cBuf[4] = 0;
+            sprintf(buf, "%-16s %08x %04x %s", names->name,
+                    (int) eventPtr->message,
+                    eventPtr->modifiers, 
+                    cBuf);
+            found=1;
+        } else {
+          names++;
+        }
+    if (!found) {
+               sprintf(buf,"%-16d %08x %08x, %s",
+                       eventPtr->what, (int) eventPtr->message,
+                       eventPtr->modifiers, buf);
+    }
+    return buf;
+ 
+}
+
+void printPoint(char * tag, Point * p )
+{
+    fprintf(stderr,"%s %4d %4d\n",
+        tag,p->h,p->v );
+}
+
+void printRect(char * tag, Rect * r )
+{
+    fprintf(stderr,"%s %4d %4d %4d %4d (%dx%d)\n",
+        tag,r->left,r->top,r->right,r->bottom,
+        r->right-r->left+1,r->bottom-r->top+1 );
+}
+
+void printRegion(char * tag, RgnHandle rgn )
+{
+    Rect r;
+    GetRegionBounds(rgn,&r);
+    printRect(tag,&r);
+}
+
+void printWindowTitle(char * tag, WindowRef window )
+{
+    Str255 title;
+    GetWTitle(window,title);
+    title [ title[0] + 1 ] = 0;
+    fprintf(stderr, "%s %s\n", tag, title +1 );
+}
+
+typedef struct {
+ int    msg;
+ char * name;
+} MsgName;
+
+MsgName msgNames [] = {
+    { kMenuDrawMsg,       "Draw"},
+    { kMenuSizeMsg,       "Size"},
+    { kMenuPopUpMsg,      "PopUp"},
+    { kMenuCalcItemMsg,   "CalcItem" },
+    { kMenuThemeSavvyMsg, "ThemeSavvy"},
+    { kMenuInitMsg,       "Init" },
+    { kMenuDisposeMsg,    "Dispose" },
+    { kMenuFindItemMsg,   "FindItem" },
+    { kMenuHiliteItemMsg, "HiliteItem" },
+    { kMenuDrawItemsMsg,  "DrawItems" },
+    { -1, NULL }
+};
+
+
+char *
+TkMacOSXMenuMessageToAscii(int msg, char * s)
+{
+    MsgName * msgNamePtr;
+    for (msgNamePtr = msgNames;msgNamePtr->name;) {
+        if (msgNamePtr->msg==msg) {
+           strcpy(s,msgNamePtr->name);
+           return s;
+        } else {
+            msgNamePtr++;
+        }
+    }
+    sprintf(s,"unknown : %d", msg );
+    return s;
+}
+
+
+char * MouseTrackingResultToAscii(MouseTrackingResult r, char * buf) 
+{
+    MsgName trackingNames [] = {
+        { kMouseTrackingMousePressed  , "MousePressed  " },
+        { kMouseTrackingMouseReleased , "MouseReleased " },
+        { kMouseTrackingMouseExited   , "MouseExited   " },
+        { kMouseTrackingMouseEntered  , "MouseEntered  " },
+        { kMouseTrackingMouseMoved    , "MouseMoved    " },
+        { kMouseTrackingKeyModifiersChanged, "KeyModifiersChanged" },
+        { kMouseTrackingUserCancelled , "UserCancelled " },
+        { kMouseTrackingTimedOut      , "TimedOut      " },
+        { -1, NULL }
+    };
+    MsgName * namePtr;
+    for (namePtr=trackingNames;namePtr->name;namePtr++) {
+        if (namePtr->msg==r) {
+            strcpy(buf,namePtr->name);
+            return buf;
+        }
+    }
+    sprintf(buf, "Unknown mouse tracking result : %d", r);
+    return buf;
+}