* unix/tcl.m4 (Darwin): add 64bit support, check for Tiger copyfile(),

	add CFLAGS to SHLIB_LD to support passing -isysroot in env(CFLAGS) to
	configure (flag can't be present twice, so can't be in both CFLAGS and
	LDFLAGS during configure), don't use -prebind when deploying on 10.4,
	define TCL_IO_TRACK_OS_FOR_DRIVER_WITH_BAD_BLOCKING (rdar://3171542).
	(SC_ENABLE_LANGINFO, SC_TIME_HANDLER): add/fix caching, fix obsolete
	autoconf macros. Sync with tk/unix/tcl.m4, sync whitespace with HEAD.

	* unix/configure.in: fix obsolete autoconf macros, sync gratuitous
	formatting/ordering differences with tcl/unix/configure.in.

	* unix/Makefile.in: add CFLAGS to wish/tktest link to make executable
	linking the same as during configure (needed to avoid loosing any linker
	relevant flags in CFLAGS, in particular flags that can't be in LDFLAGS).
	Avoid concurrent linking of wish and compiling of tkTestInit.o during
	parallel make, fix dependencies and flags for building tkMacOSXInit.o
	(checkstubs, checkexports): dependency and Darwin fixes

	* macosx/tkMacOSXEvent.c (TkMacOSXProcessEvent):
	* macosx/tkMacOSXEvent.h:
	* macosx/tkMacOSXMouseEvent.c (TkMacOSXProcessMouseEvent):
	* macosx/tkMacOSXCarbonEvents.c: install standard application event
	handler, add & call functions to start and stop carbon even timer that
	runs the tcl event loop periodically during a nested carbon event loop
	in the toolbox (e.g. during menutracking) to ensure tcl timers etc
	continue to fire, register app event handler for menu tracking and HI
	command carbon events, move menu event handling to new handlers for
	those carbon events, no longer register for/handle appleevent carbon
	event (now dealt with by standard application event handler), event
	debugging code dynamically acquires carbon event debugging functions to
	allow use on Tiger where they are no longer exported from HIToolbox.

	* macosx/tkMacOSXFont.c (TkMacOSXUseAntialiasedText):
	* macosx/tkMacOSXKeyEvent.c (GetKeyboardLayout):
	* macosx/tkMacOSXCarbonEvents.c (TkMacOSXInitCarbonEvents):
	* macosx/tkMacOSXInit.c:
	* macosx/tkMacOSXInt.h: abstract common code to dynamically acquire
	address of a named symbol (from a loaded dynamic library) into new
	function TkMacOSXGetNamedSymbol() and macro TkMacOSXInitNamedSymbol.

	* macosx/tkMacOSXMenu.c (TkpNewMenu):
	* macosx/tkMacOSXMenubutton.c (MenuButtonInitControl):
	* macosx/tkMacOSXMenus.c (TkMacOSXHandleMenuSelect): switch to  modern
	utf8 aware menu manager API, remove obsolete code, add error handling.

	* macosx/tkMacOSXMouseEvent.c: define OSX 10.3 or later only constants
	if necessary to allow compilation on OSX 10.2

	* macosx/tkMacOSXWm.c (UpdateSizeHints): remove code that is never
	executed.

	* generic/tk.h: add/correct location of version numbers in macosx files.

	* generic/tkInt.h: clarify fat compile comment.

	* macosx/Wish.pbproj/default.pbxuser (new file):
	* macosx/Wish.pbproj/jingham.pbxuser:
	* macosx/Wish.pbproj/project.pbxproj: sync with HEAD.

	* macosx/buildTkConfig.tcl (removed): remove obsolete build files.

	* macosx/README: clarification/cleanup, sync with HEAD, document
	universal (fat) builds via CFLAGS (i.e. ppc and i386 at the same time).

	* macosx/Makefile: add support for reusing configure cache, build target
	fixes.

	* generic/tkMenu.c:
	* macosx/tkMacOSXButton.c:
	* macosx/tkMacOSXDebug.c:
	* macosx/tkMacOSXDebug.h:
	* macosx/tkMacOSXDialog.c:
	* macosx/tkMacOSXDraw.c:
	* macosx/tkMacOSXEntry.c:
	* macosx/tkMacOSXMenu.c:
	* macosx/tkMacOSXMouseEvent.c:
	* macosx/tkMacOSXXStubs.c:
	* macosx/tkMacOSXSubwindows.c:
	* xlib/xgc.c: declare functions and globals used only in own file as
	static, #ifdef out a few Xlib and aqua functions that are never called
	(sync with HEAD).

	* macosx/tkMacOSXPort.h:
	* generic/tkInt.decls: correct signature of TkMacOSXHandleMenuSelect,
	add XSync to aqua Xlib stubs.

	* generic/tkTest.c: #ifdef unix only declarations.
	(TestmetricsCmd): unify win and mac implementation.

	* generic/tkTextDisp.c:
	* generic/tkTextBTree.c:
	* macosx/tkMacOSXInit.c:
	* macosx/tkMacOSXKeyEvent.c:
	* macosx/tkMacOSXWindowEvent.c:
	* macosx/tkMacOSXXStubs.c: fix gcc 4 warnings.

	* macosx/tkMacOSXNotify.c:
	* macosx/tkMacOSXTest.c: sync with HEAD.

	* generic/tkIntPlatDecls.h:
	* generic/tkIntXlibDecls.h:
	* generic/tkStubInit.c:
	* unix/configure: regen.

1 files changed, 115 insertions, 56 deletions

diff --git a/macosx/tkMacOSXEvent.c b/macosx/tkMacOSXEvent.c
index 3315310..0f97852 100644
--- a/macosx/tkMacOSXEvent.c
+++ b/macosx/tkMacOSXEvent.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacOSXEvent.c,v 1.3.2.3 2005/09/10 14:54:17 das Exp $
+ * RCS: @(#) $Id: tkMacOSXEvent.c,v 1.3.2.4 2005/11/27 02:36:46 das Exp $
  */
 
 #include <stdio.h>
@@ -18,13 +18,6 @@
 #include "tkMacOSXEvent.h"
 #include "tkMacOSXDebug.h"
 
-/*   
- * Forward declarations of procedures used in this file.
- */ 
-
-static int TkMacOSXProcessAppleEvent(
-        TkMacOSXEvent * eventPtr, MacEventStatus * statusPtr);
-
 /*
  *----------------------------------------------------------------------
  *
@@ -56,52 +49,6 @@ TkMacOSXFlushWindows ()
     }
 }
 
-/*
- *----------------------------------------------------------------------
- *
- * TkMacOSXProcessAppleEvent --
- *
- *      This processes Apple events
- *
- * Results:
- *      0 on success
- *      -1 on failure
- *
- * Side effects:
- *      Calls the Tk high-level event handler
- *
- *----------------------------------------------------------------------
- */
-
-static int
-TkMacOSXProcessAppleEvent(TkMacOSXEvent * eventPtr, MacEventStatus * statusPtr)
-{
-    int  err;
-    EventRecord eventRecord;
-    if (ConvertEventRefToEventRecord(eventPtr->eventRef,
-        &eventRecord )) {
-        err = TkMacOSXDoHLEvent(&eventRecord);
-        if (err != noErr) {
-#ifdef TK_MAC_DEBUG
-            char buf1 [ 256 ];
-            char buf2 [ 256 ];
-            fprintf(stderr,
-                "TkMacOSXDoHLEvent failed : %s,%s,%d\n",
-                CarbonEventToAscii(eventPtr->eventRef, buf1),
-                ClassicEventToAscii(&eventRecord,buf2), err);
-#endif
-            statusPtr->err = 1;
-        }
-    } else {
-#ifdef TK_MAC_DEBUG
-        fprintf(stderr,"ConvertEventRefToEventRecord failed\n");
-#endif
-        statusPtr->err = 1;
-    }
-    return 0;
-}
-
-
 /*      
  *----------------------------------------------------------------------
  *   
@@ -141,8 +88,11 @@ TkMacOSXProcessEvent(TkMacOSXEvent * eventPtr, MacEventStatus * statusPtr)
         case kEventClassApplication:
             TkMacOSXProcessApplicationEvent(eventPtr, statusPtr);
             break;
-        case kEventClassAppleEvent:
-            TkMacOSXProcessAppleEvent(eventPtr, statusPtr);
+        case kEventClassMenu:
+            TkMacOSXProcessMenuEvent(eventPtr, statusPtr);
+            break;  
+        case kEventClassCommand:
+            TkMacOSXProcessCommandEvent(eventPtr, statusPtr);
             break;  
         default:
 #ifdef TK_MAC_DEBUG
@@ -161,6 +111,113 @@ TkMacOSXProcessEvent(TkMacOSXEvent * eventPtr, MacEventStatus * statusPtr)
 /*
  *----------------------------------------------------------------------
  *
+ * TkMacOSXProcessMenuEvent --
+ *
+ *	  This routine processes the event in eventPtr, and
+ *	  generates the appropriate Tk events from it.
+ *
+ * Results:
+ *	  True if event(s) are generated - false otherwise.
+ *
+ * Side effects:
+ *	  Additional events may be place on the Tk event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkMacOSXProcessMenuEvent(TkMacOSXEvent *eventPtr, MacEventStatus * statusPtr)
+{
+    int		    menuContext;
+    OSStatus	    status;
+
+    switch (eventPtr->eKind) {
+	case kEventMenuBeginTracking:
+	case kEventMenuEndTracking:
+	    break;
+	default:
+	    return 0;
+	    break;
+    }
+    status = GetEventParameter(eventPtr->eventRef, 
+	    kEventParamMenuContext,
+	    typeUInt32, NULL, 
+	    sizeof(menuContext), NULL,
+	    &menuContext);
+    if (status == noErr && (menuContext & kMenuContextMenuBar)) {
+        static int oldMode = TCL_SERVICE_ALL;
+        if (eventPtr->eKind == kEventMenuBeginTracking) {
+            oldMode = Tcl_SetServiceMode(TCL_SERVICE_ALL);
+            TkMacOSXClearMenubarActive();
+        
+            /*
+             * Handle -postcommand
+             */
+        
+            TkMacOSXPreprocessMenu();
+        } else {
+            Tcl_SetServiceMode(oldMode);   
+        }
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkMacOSXProcessCommandEvent --
+ *
+ *	  This routine processes the event in eventPtr, and
+ *	  generates the appropriate Tk events from it.
+ *
+ * Results:
+ *	  True if event(s) are generated - false otherwise.
+ *
+ * Side effects:
+ *	  Additional events may be place on the Tk event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkMacOSXProcessCommandEvent(TkMacOSXEvent *eventPtr, MacEventStatus * statusPtr)
+{
+    HICommand       command;
+    int		    menuContext;
+    OSStatus	    status;
+
+    switch (eventPtr->eKind) {
+	case kEventCommandProcess:
+	    break;
+	default:
+	    return 0;
+	    break;
+    }
+    status = GetEventParameter(eventPtr->eventRef, 
+	    kEventParamDirectObject,
+	    typeHICommand, NULL, 
+	    sizeof(command), NULL,
+	    &command);
+    if (status == noErr && (command.attributes & kHICommandFromMenu)) {
+        status = GetEventParameter(eventPtr->eventRef, 
+                kEventParamMenuContext,
+                typeUInt32, NULL, 
+                sizeof(menuContext), NULL,
+                &menuContext);
+        if (status == noErr && (menuContext & kMenuContextMenuBar) &&
+                (menuContext & kMenuContextMenuBarTracking)) {
+            TkMacOSXHandleMenuSelect(GetMenuID(command.menu.menuRef),
+                    command.menu.menuItemIndex,
+                    GetCurrentEventKeyModifiers() & optionKey);
+            return 1;
+        }
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
  * TkMacOSXReceiveAndProcessEvent --
  *
  *      This receives a carbon event and converts it to a Tk event
@@ -193,7 +250,9 @@ TkMacOSXReceiveAndProcessEvent()
         if (!targetRef) {
             targetRef = GetEventDispatcherTarget();
         }
+        TkMacOSXStartTclEventLoopCarbonTimer();
         err = SendEventToEventTarget(eventRef,targetRef);
+        TkMacOSXStopTclEventLoopCarbonTimer();
 #ifdef TK_MAC_DEBUG
         if (err != noErr && err != eventLoopTimedOutErr
                 && err != eventNotHandledErr