+pascal OSErr wxMacWindowDragTrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
+ void *handlerRefCon, DragReference theDrag)
+{
+ MacTrackingGlobals* trackingGlobals = (MacTrackingGlobals*) handlerRefCon;
+ Point mouse, localMouse;
+ DragAttributes attributes;
+ GetDragAttributes(theDrag, &attributes);
+ wxTopLevelWindowMac* toplevel = wxFindWinFromMacWindow( theWindow ) ;
+
+ KeyMap keymap;
+ GetKeys(keymap);
+ bool optionDown = keymap[1] & 4;
+ wxDragResult result = optionDown ? wxDragCopy : wxDragMove;
+
+ switch(theMessage)
+ {
+ case kDragTrackingEnterHandler:
+ break;
+ case kDragTrackingLeaveHandler:
+ break;
+ case kDragTrackingEnterWindow:
+ trackingGlobals->m_currentTargetWindow = NULL ;
+ trackingGlobals->m_currentTarget = NULL ;
+ break;
+ case kDragTrackingInWindow:
+ if (toplevel == NULL)
+ break;
+
+ GetDragMouse(theDrag, &mouse, 0L);
+ localMouse = mouse;
+ GlobalToLocal(&localMouse);
+
+
+
+// if (attributes & kDragHasLeftSenderWindow)
+ {
+ wxPoint point(localMouse.h , localMouse.v) ;
+ wxWindow *win = NULL ;
+ ControlPartCode controlPart ;
+ ControlRef control = wxMacFindControlUnderMouse( localMouse ,
+ theWindow , &controlPart ) ;
+ if ( control )
+ win = wxFindControlFromMacControl( control ) ;
+ // TODO toplevel->MacGetWindowFromPointSub( point , &win ) ;
+ int localx , localy ;
+ localx = localMouse.h ;
+ localy = localMouse.v ;
+ //TODO : should we use client coordinates
+ if ( win )
+ win->MacRootWindowToWindow( &localx , &localy ) ;
+ if ( win != trackingGlobals->m_currentTargetWindow )
+ {
+ if ( trackingGlobals->m_currentTargetWindow )
+ {
+ // this window is left
+ if ( trackingGlobals->m_currentTarget )
+ {
+ HideDragHilite(theDrag);
+ trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
+ trackingGlobals->m_currentTarget->OnLeave() ;
+ trackingGlobals->m_currentTarget = NULL;
+ trackingGlobals->m_currentTargetWindow = NULL ;
+ }
+ }
+ if ( win )
+ {
+ // this window is entered
+ trackingGlobals->m_currentTargetWindow = win ;
+ trackingGlobals->m_currentTarget = win->GetDropTarget() ;
+ {
+
+ if ( trackingGlobals->m_currentTarget )
+ {
+ trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
+ result = trackingGlobals->m_currentTarget->OnEnter(
+ localx , localy , result ) ;
+ }
+
+
+ if ( result != wxDragNone )
+ {
+ int x , y ;
+ x = y = 0 ;
+ win->MacWindowToRootWindow( &x , &y ) ;
+ RgnHandle hiliteRgn = NewRgn() ;
+ Rect r = { y , x , y+win->GetSize().y , x+win->GetSize().x } ;
+ RectRgn( hiliteRgn , &r ) ;
+ ShowDragHilite(theDrag, hiliteRgn, true);
+ DisposeRgn( hiliteRgn ) ;
+ }
+ }
+ }
+ }
+ else
+ {
+ if( trackingGlobals->m_currentTarget )
+ {
+ trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
+ trackingGlobals->m_currentTarget->OnDragOver(
+ localx , localy , result ) ;
+ }
+ }
+
+ // set cursor for OnEnter and OnDragOver
+ if ( trackingGlobals->m_currentSource && trackingGlobals->m_currentSource->GiveFeedback( result ) == FALSE )
+ {
+ if ( trackingGlobals->m_currentSource->MacInstallDefaultCursor( result ) == FALSE )
+ {
+ switch( result )
+ {
+ case wxDragCopy :
+ {
+ wxCursor cursor(wxCURSOR_COPY_ARROW) ;
+ cursor.MacInstall() ;
+ }
+ break ;
+ case wxDragMove :
+ {
+ wxCursor cursor(wxCURSOR_ARROW) ;
+ cursor.MacInstall() ;
+ }
+ break ;
+ case wxDragNone :
+ {
+ wxCursor cursor(wxCURSOR_NO_ENTRY) ;
+ cursor.MacInstall() ;
+ }
+ break ;
+
+ case wxDragError:
+ case wxDragLink:
+ case wxDragCancel:
+ // put these here to make gcc happy
+ ;
+ }
+ }
+ }
+
+ }
+ // MyTrackItemUnderMouse(localMouse, theWindow);
+ break;
+ case kDragTrackingLeaveWindow:
+ if (trackingGlobals->m_currentTarget)
+ {
+ trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
+ trackingGlobals->m_currentTarget->OnLeave() ;
+ HideDragHilite(theDrag);
+ trackingGlobals->m_currentTarget = NULL ;
+ }
+ trackingGlobals->m_currentTargetWindow = NULL ;
+ break;
+ }
+ return(noErr);
+}
+
+pascal OSErr wxMacWindowDragReceiveHandler(WindowPtr theWindow,
+ void *handlerRefCon,
+ DragReference theDrag)
+{
+ MacTrackingGlobals* trackingGlobals = (MacTrackingGlobals*) handlerRefCon;
+ if ( trackingGlobals->m_currentTarget )
+ {
+ Point mouse,localMouse ;
+ int localx,localy ;
+
+ trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
+ GetDragMouse(theDrag, &mouse, 0L);
+ localMouse = mouse;
+ GlobalToLocal(&localMouse);
+ localx = localMouse.h ;
+ localy = localMouse.v ;
+ //TODO : should we use client coordinates
+ if ( trackingGlobals->m_currentTargetWindow )
+ trackingGlobals->m_currentTargetWindow->MacRootWindowToWindow( &localx , &localy ) ;
+ if ( trackingGlobals->m_currentTarget->OnDrop( localx , localy ) )
+ {
+ KeyMap keymap;
+ GetKeys(keymap);
+ bool optionDown = keymap[1] & 4;
+ wxDragResult result = optionDown ? wxDragCopy : wxDragMove;
+ trackingGlobals->m_currentTarget->OnData( localx , localy , result ) ;
+ }
+ }
+ return(noErr);
+}