[wxWidgets.git] / src / mac / classic / dnd.cpp

///////////////////////////////////////////////////////////////////////////////
// Name:        dnd.cpp
// Purpose:     wxDropTarget, wxDropSource, wxDataObject implementation
// Author:      Stefan Csomor
// Modified by:
// Created:     1998-01-01
// RCS-ID:      $Id$
// Copyright:   (c) 1998 Stefan Csomor
// Licence:     wxWindows licence
///////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "dnd.h"
#endif

#include "wx/defs.h"

#if wxUSE_DRAG_AND_DROP

#include "wx/dnd.h"
#include "wx/window.h"
#include "wx/toplevel.h"
#include "wx/app.h"
#include "wx/gdicmn.h"
#include "wx/mac/private.h"

// ----------------------------------------------------------------------------
// global
// ----------------------------------------------------------------------------

void wxMacEnsureTrackingHandlersInstalled() ;

typedef struct 
{
    wxWindow* m_currentTargetWindow ;
    wxDropTarget* m_currentTarget ;
    wxDropSource* m_currentSource ;
} MacTrackingGlobals ;

MacTrackingGlobals gTrackingGlobals ; 

//----------------------------------------------------------------------------
// wxDropTarget
//----------------------------------------------------------------------------

wxDropTarget::wxDropTarget( wxDataObject *data )
            : wxDropTargetBase( data )
{
    wxMacEnsureTrackingHandlersInstalled() ;
}

wxDragResult wxDropTarget::OnDragOver( wxCoord WXUNUSED(x),
                                       wxCoord WXUNUSED(y),
                                       wxDragResult def )
{

    return CurrentDragHasSupportedFormat() ? def : wxDragNone;
}

bool wxDropTarget::OnDrop( wxCoord WXUNUSED(x), wxCoord WXUNUSED(y) )
{
    if (!m_dataObject)
        return FALSE;

    return CurrentDragHasSupportedFormat() ;
}

wxDragResult wxDropTarget::OnData( wxCoord WXUNUSED(x), wxCoord WXUNUSED(y),
                                   wxDragResult def )
{
    if (!m_dataObject)
        return wxDragNone;

    if (!CurrentDragHasSupportedFormat())
        return wxDragNone;

    return GetData() ? def : wxDragNone;
}

bool wxDropTarget::CurrentDragHasSupportedFormat() 
{
    bool supported = false ;
    if ( gTrackingGlobals.m_currentSource != NULL )
    {
        wxDataObject* data = gTrackingGlobals.m_currentSource->GetDataObject() ;
        
        if ( data )
        {
            size_t formatcount = data->GetFormatCount() ;
            wxDataFormat *array = new wxDataFormat[ formatcount  ];
            data->GetAllFormats( array );
            for (size_t i = 0; !supported && i < formatcount ; i++)
            {
                wxDataFormat format = array[i] ;
                if ( m_dataObject->IsSupported( format ) ) 
                {
                    supported = true ;
                    break ;
                }
            }
            delete[] array ;
        }
    }
    if ( !supported )
    {
        UInt16 items ;
        OSErr result;
        CountDragItems((DragReference)m_currentDrag, &items);
        for (UInt16 index = 1; index <= items && supported == false ; ++index) 
        {
            ItemReference theItem;
            FlavorType theType ;
            UInt16 flavors = 0 ;
            GetDragItemReferenceNumber((DragReference)m_currentDrag, index, &theItem);
            CountDragItemFlavors( (DragReference)m_currentDrag, theItem , &flavors ) ;
            for ( UInt16 flavor = 1 ; flavor <= flavors ; ++flavor )
            {
                result = GetFlavorType((DragReference)m_currentDrag, theItem, flavor , &theType);
                if ( m_dataObject->IsSupportedFormat( wxDataFormat( theType ) ) )
                {
                    supported = true ;
                    break ;
                }
            }
        }
    }
    return supported ;   
}

bool wxDropTarget::GetData()
{
    if (!m_dataObject)
        return FALSE;
    
    if ( !CurrentDragHasSupportedFormat() )
        return FALSE ;
    
    bool transferred = false ;   
    if ( gTrackingGlobals.m_currentSource != NULL )
    {
        wxDataObject* data = gTrackingGlobals.m_currentSource->GetDataObject() ;
        
        if ( data )
        {
            size_t formatcount = data->GetFormatCount() ;
            wxDataFormat *array = new wxDataFormat[ formatcount  ];
            data->GetAllFormats( array );
            for (size_t i = 0; !transferred && i < formatcount ; i++)
            {
                wxDataFormat format = array[i] ;
                if ( m_dataObject->IsSupported( format ) ) 
                {
                    int size = data->GetDataSize( format );
                    transferred = true ;
                    
                    if (size == 0) 
                    {
                        m_dataObject->SetData(format , 0 , 0 ) ;
                    }
                    else
                    {
                        char *d = new char[size];
                        data->GetDataHere( format , (void*) d );
                        m_dataObject->SetData( format , size , d ) ;
                        delete[] d ;
                    }
                }
            }
            delete[] array ;
        }
    }
    if ( !transferred )
    {
        UInt16 items ;
        OSErr result;
        bool firstFileAdded = false ;
        CountDragItems((DragReference)m_currentDrag, &items);
        for (UInt16 index = 1; index <= items; ++index) 
        {
            ItemReference theItem;
            FlavorType theType ;
            UInt16 flavors = 0 ;
            GetDragItemReferenceNumber((DragReference)m_currentDrag, index, &theItem);
            CountDragItemFlavors( (DragReference)m_currentDrag, theItem , &flavors ) ;
            for ( UInt16 flavor = 1 ; flavor <= flavors ; ++flavor )
            {
                result = GetFlavorType((DragReference)m_currentDrag, theItem, flavor , &theType);
                wxDataFormat format(theType) ;
                if ( m_dataObject->IsSupportedFormat( format ) )
                {
                    FlavorFlags theFlags;
                    result = GetFlavorFlags((DragReference)m_currentDrag, theItem, theType, &theFlags);
                    if (result == noErr) 
                    {
                        Size dataSize ;
                        Ptr theData ;
                        GetFlavorDataSize((DragReference)m_currentDrag, theItem, theType, &dataSize);
                        if ( theType == 'TEXT' )
                        {
                            // this increment is only valid for allocating, on the next GetFlavorData
                            // call it is reset again to the original value
                            dataSize++ ;
                        }
                        theData = new char[dataSize];
                        GetFlavorData((DragReference)m_currentDrag, theItem, theType, (void*) theData, &dataSize, 0L); 
                        if( theType == 'TEXT' )
                        {
                            theData[dataSize]=0 ; 
                            wxString convert( theData , wxConvLocal ) ;    
                            m_dataObject->SetData( format, convert.Length() * sizeof(wxChar), (const wxChar*) convert );
                        }
                        else if ( theType == kDragFlavorTypeHFS )
                        {
                            HFSFlavor* theFile = (HFSFlavor*) theData ;
                            wxString name = wxMacFSSpec2MacFilename( &theFile->fileSpec ) ;
                            if (  firstFileAdded )
                                ((wxFileDataObject*)m_dataObject)->AddFile( name ) ;
                            else
                            {
                                ((wxFileDataObject*)m_dataObject)->SetData( 0 , name.c_str() ) ;
                                firstFileAdded = true ;    
                            }
                        }
                        else
                        {
                            m_dataObject->SetData( format, dataSize, theData );
                        }
                        delete[] theData;
                    }
                    break ;
                }
            }
        }
    }
    return TRUE ;   
}

//-------------------------------------------------------------------------
// wxDropSource
//-------------------------------------------------------------------------

//-----------------------------------------------------------------------------
// drag request

wxDropSource::wxDropSource(wxWindow *win,
                           const wxCursor &cursorCopy,
                           const wxCursor &cursorMove,
                           const wxCursor &cursorStop)
            : wxDropSourceBase(cursorCopy, cursorMove, cursorStop)
{
    wxMacEnsureTrackingHandlersInstalled() ;
    m_window = win;
}

wxDropSource::wxDropSource(wxDataObject& data,
                           wxWindow *win,
                           const wxCursor &cursorCopy,
                           const wxCursor &cursorMove,
                           const wxCursor &cursorStop)
            : wxDropSourceBase(cursorCopy, cursorMove, cursorStop)
{
    wxMacEnsureTrackingHandlersInstalled() ;
    SetData( data );
    m_window = win;
}

wxDropSource::~wxDropSource()
{
}


wxDragResult wxDropSource::DoDragDrop(int WXUNUSED(flags))
{
    wxASSERT_MSG( m_data, wxT("Drop source: no data") );
    
    if (!m_data)
        return (wxDragResult) wxDragNone;
    
    if (m_data->GetFormatCount() == 0)
        return (wxDragResult) wxDragNone;
    
    OSErr result;
    DragReference theDrag;
    RgnHandle dragRegion;
    if ((result = NewDrag(&theDrag)))
    {
        return wxDragNone ;
    }
    // add data to drag
    size_t formatCount = m_data->GetFormatCount() ;
    wxDataFormat *formats = new wxDataFormat[formatCount] ;
    m_data->GetAllFormats( formats ) ;
    ItemReference theItem = 1 ;
    for ( size_t i = 0 ; i < formatCount ; ++i )
    {
        size_t dataSize = m_data->GetDataSize( formats[i] ) ;
        Ptr dataPtr = new char[dataSize] ;
        m_data->GetDataHere( formats[i] , dataPtr ) ;
        OSType type = formats[i].GetFormatId() ;
        if ( type == 'TEXT' )
        {
            dataSize-- ;
            dataPtr[ dataSize ] = 0 ;
            wxString st( (wxChar*) dataPtr ) ;
            wxCharBuffer buf = st.mb_str( wxConvLocal) ;
            AddDragItemFlavor(theDrag, theItem, type , buf.data(), strlen(buf), 0);
        }
        else if (type == kDragFlavorTypeHFS )
        {
            HFSFlavor  theFlavor ;
            OSErr err = noErr;
            CInfoPBRec cat;
            
            wxMacFilename2FSSpec( dataPtr , &theFlavor.fileSpec ) ;
            
            cat.hFileInfo.ioNamePtr = theFlavor.fileSpec.name;
            cat.hFileInfo.ioVRefNum = theFlavor.fileSpec.vRefNum;
            cat.hFileInfo.ioDirID = theFlavor.fileSpec.parID;
            cat.hFileInfo.ioFDirIndex = 0;
            err = PBGetCatInfoSync(&cat);
            if (err == noErr )
            {
                theFlavor.fdFlags = cat.hFileInfo.ioFlFndrInfo.fdFlags;
                if (theFlavor.fileSpec.parID == fsRtParID) {
                    theFlavor.fileCreator = 'MACS';
                    theFlavor.fileType = 'disk';
                } else if ((cat.hFileInfo.ioFlAttrib & ioDirMask) != 0) {
                    theFlavor.fileCreator = 'MACS';
                    theFlavor.fileType = 'fold';
                } else {
                    theFlavor.fileCreator = cat.hFileInfo.ioFlFndrInfo.fdCreator;
                    theFlavor.fileType = cat.hFileInfo.ioFlFndrInfo.fdType;
                }
                AddDragItemFlavor(theDrag, theItem, type , &theFlavor, sizeof(theFlavor), 0);  
            }    
        }
        else
        {
            AddDragItemFlavor(theDrag, theItem, type , dataPtr, dataSize, 0);      
        }
        delete[] dataPtr ;
    }
    delete[] formats ;
    
    dragRegion = NewRgn();
    RgnHandle tempRgn = NewRgn() ;
    
    EventRecord* ev = NULL ;
#if !TARGET_CARBON // TODO
    ev = (EventRecord*) wxTheApp->MacGetCurrentEvent() ;
#else
    EventRecord rec ;
    ev = &rec ;
    wxMacConvertEventToRecord( (EventRef) wxTheApp->MacGetCurrentEvent() , &rec ) ;
#endif
    const short dragRegionOuterBoundary = 10 ;
    const short dragRegionInnerBoundary = 9 ;
    
    SetRectRgn( dragRegion , ev->where.h - dragRegionOuterBoundary , 
        ev->where.v  - dragRegionOuterBoundary ,
        ev->where.h + dragRegionOuterBoundary , 
        ev->where.v + dragRegionOuterBoundary ) ;
    
    SetRectRgn( tempRgn , ev->where.h - dragRegionInnerBoundary , 
        ev->where.v  - dragRegionInnerBoundary ,
        ev->where.h + dragRegionInnerBoundary , 
        ev->where.v + dragRegionInnerBoundary ) ;
    
    DiffRgn( dragRegion , tempRgn , dragRegion ) ;
    DisposeRgn( tempRgn ) ;    
    
    // TODO:work with promises in order to return data only when drag
    // was successfully completed
    
    gTrackingGlobals.m_currentSource = this ;
    result = TrackDrag(theDrag, ev , dragRegion);
    DisposeRgn(dragRegion);
    DisposeDrag(theDrag);
    gTrackingGlobals.m_currentSource = NULL ;
    
    KeyMap keymap;
    GetKeys(keymap);
    bool optionDown = keymap[1] & 4;
    wxDragResult dndresult = optionDown ? wxDragCopy : wxDragMove;
    return dndresult;
}

bool wxDropSource::MacInstallDefaultCursor(wxDragResult effect)
{
    const wxCursor& cursor = GetCursor(effect);
    if ( cursor.Ok() )
    {
        cursor.MacInstall() ;

        return TRUE;
    }
    else
    {
        return FALSE;
    }
}

bool gTrackingGlobalsInstalled = false ;

// passing the globals via refcon is not needed by the CFM and later architectures anymore
// but I'll leave it in there, just in case...

pascal OSErr wxMacWindowDragTrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
  void *handlerRefCon, DragReference theDrag) ;
pascal OSErr wxMacWindowDragReceiveHandler(WindowPtr theWindow, void *handlerRefCon,
DragReference theDrag) ;

void wxMacEnsureTrackingHandlersInstalled()
{
    if( !gTrackingGlobalsInstalled )
    {
        OSErr result;

        result = InstallTrackingHandler(NewDragTrackingHandlerUPP(wxMacWindowDragTrackingHandler), 0L,&gTrackingGlobals);
        wxASSERT( result == noErr ) ;
        result = InstallReceiveHandler(NewDragReceiveHandlerUPP(wxMacWindowDragReceiveHandler), 0L, &gTrackingGlobals);
        wxASSERT( result == noErr ) ;

        gTrackingGlobalsInstalled = true ;
    }
}

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 ;
                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() ;
                                SetRectRgn( hiliteRgn , x , y , x+win->GetSize().x ,y+win->GetSize().y) ;
                                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);
}
#endif
Commit	Line	Data
2646f485 SC	1	///////////////////////////////////////////////////////////////////////////////
	2	// Name: dnd.cpp
	3	// Purpose: wxDropTarget, wxDropSource, wxDataObject implementation
	4	// Author: Stefan Csomor
	5	// Modified by:
	6	// Created: 1998-01-01
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 1998 Stefan Csomor
	9	// Licence: wxWindows licence
	10	///////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "dnd.h"
	14	#endif
	15
	16	#include "wx/defs.h"
	17
	18	#if wxUSE_DRAG_AND_DROP
	19
	20	#include "wx/dnd.h"
	21	#include "wx/window.h"
	22	#include "wx/toplevel.h"
	23	#include "wx/app.h"
	24	#include "wx/gdicmn.h"
	25	#include "wx/mac/private.h"
	26
	27	// ----------------------------------------------------------------------------
	28	// global
	29	// ----------------------------------------------------------------------------
	30
	31	void wxMacEnsureTrackingHandlersInstalled() ;
	32
	33	typedef struct
	34	{
	35	wxWindow* m_currentTargetWindow ;
	36	wxDropTarget* m_currentTarget ;
	37	wxDropSource* m_currentSource ;
	38	} MacTrackingGlobals ;
	39
	40	MacTrackingGlobals gTrackingGlobals ;
	41
	42	//----------------------------------------------------------------------------
	43	// wxDropTarget
	44	//----------------------------------------------------------------------------
	45
	46	wxDropTarget::wxDropTarget( wxDataObject *data )
	47	: wxDropTargetBase( data )
	48	{
	49	wxMacEnsureTrackingHandlersInstalled() ;
	50	}
	51
	52	wxDragResult wxDropTarget::OnDragOver( wxCoord WXUNUSED(x),
	53	wxCoord WXUNUSED(y),
	54	wxDragResult def )
	55	{
	56
	57	return CurrentDragHasSupportedFormat() ? def : wxDragNone;
	58	}
	59
	60	bool wxDropTarget::OnDrop( wxCoord WXUNUSED(x), wxCoord WXUNUSED(y) )
	61	{
	62	if (!m_dataObject)
	63	return FALSE;
	64
65	return CurrentDragHasSupportedFormat() ;
66	}
67
68	wxDragResult wxDropTarget::OnData( wxCoord WXUNUSED(x), wxCoord WXUNUSED(y),
69	wxDragResult def )
70	{
71	if (!m_dataObject)
72	return wxDragNone;
73
74	if (!CurrentDragHasSupportedFormat())
75	return wxDragNone;
76
77	return GetData() ? def : wxDragNone;
78	}
79
80	bool wxDropTarget::CurrentDragHasSupportedFormat()
81	{
82	bool supported = false ;
83	if ( gTrackingGlobals.m_currentSource != NULL )
84	{
85	wxDataObject* data = gTrackingGlobals.m_currentSource->GetDataObject() ;
86
87	if ( data )
88	{
89	size_t formatcount = data->GetFormatCount() ;
90	wxDataFormat *array = new wxDataFormat[ formatcount ];
91	data->GetAllFormats( array );
92	for (size_t i = 0; !supported && i < formatcount ; i++)
93	{
94	wxDataFormat format = array[i] ;
95	if ( m_dataObject->IsSupported( format ) )
96	{
97	supported = true ;
98	break ;
99	}
100	}
101	delete[] array ;
102	}
103	}
104	if ( !supported )
105	{
106	UInt16 items ;
107	OSErr result;
108	CountDragItems((DragReference)m_currentDrag, &items);
109	for (UInt16 index = 1; index <= items && supported == false ; ++index)
110	{
111	ItemReference theItem;
112	FlavorType theType ;
113	UInt16 flavors = 0 ;
114	GetDragItemReferenceNumber((DragReference)m_currentDrag, index, &theItem);
115	CountDragItemFlavors( (DragReference)m_currentDrag, theItem , &flavors ) ;
116	for ( UInt16 flavor = 1 ; flavor <= flavors ; ++flavor )
117	{
118	result = GetFlavorType((DragReference)m_currentDrag, theItem, flavor , &theType);
119	if ( m_dataObject->IsSupportedFormat( wxDataFormat( theType ) ) )
120	{
121	supported = true ;
122	break ;
123	}
124	}
125	}
126	}
127	return supported ;
128	}
129
130	bool wxDropTarget::GetData()
131	{
132	if (!m_dataObject)
133	return FALSE;
134
135	if ( !CurrentDragHasSupportedFormat() )
136	return FALSE ;
137
138	bool transferred = false ;
139	if ( gTrackingGlobals.m_currentSource != NULL )
140	{
141	wxDataObject* data = gTrackingGlobals.m_currentSource->GetDataObject() ;
142
143	if ( data )
144	{
145	size_t formatcount = data->GetFormatCount() ;
146	wxDataFormat *array = new wxDataFormat[ formatcount ];
147	data->GetAllFormats( array );
148	for (size_t i = 0; !transferred && i < formatcount ; i++)
149	{
150	wxDataFormat format = array[i] ;
151	if ( m_dataObject->IsSupported( format ) )
152	{
153	int size = data->GetDataSize( format );
154	transferred = true ;
155
156	if (size == 0)
157	{
158	m_dataObject->SetData(format , 0 , 0 ) ;
159	}
160	else
161	{
162	char *d = new char[size];
163	data->GetDataHere( format , (void*) d );
164	m_dataObject->SetData( format , size , d ) ;
165	delete[] d ;
166	}
167	}
168	}
169	delete[] array ;
170	}
171	}
172	if ( !transferred )
173	{
174	UInt16 items ;
175	OSErr result;
176	bool firstFileAdded = false ;
177	CountDragItems((DragReference)m_currentDrag, &items);
178	for (UInt16 index = 1; index <= items; ++index)
179	{
180	ItemReference theItem;
181	FlavorType theType ;
182	UInt16 flavors = 0 ;
183	GetDragItemReferenceNumber((DragReference)m_currentDrag, index, &theItem);
184	CountDragItemFlavors( (DragReference)m_currentDrag, theItem , &flavors ) ;
185	for ( UInt16 flavor = 1 ; flavor <= flavors ; ++flavor )
186	{
187	result = GetFlavorType((DragReference)m_currentDrag, theItem, flavor , &theType);
188	wxDataFormat format(theType) ;
189	if ( m_dataObject->IsSupportedFormat( format ) )
190	{
191	FlavorFlags theFlags;
192	result = GetFlavorFlags((DragReference)m_currentDrag, theItem, theType, &theFlags);
193	if (result == noErr)
194	{
195	Size dataSize ;
196	Ptr theData ;
197	GetFlavorDataSize((DragReference)m_currentDrag, theItem, theType, &dataSize);
198	if ( theType == 'TEXT' )
199	{
200	// this increment is only valid for allocating, on the next GetFlavorData
201	// call it is reset again to the original value
202	dataSize++ ;
203	}
204	theData = new char[dataSize];
205	GetFlavorData((DragReference)m_currentDrag, theItem, theType, (void*) theData, &dataSize, 0L);
206	if( theType == 'TEXT' )
207	{
208	theData[dataSize]=0 ;
209	wxString convert( theData , wxConvLocal ) ;
210	m_dataObject->SetData( format, convert.Length() * sizeof(wxChar), (const wxChar*) convert );
211	}
212	else if ( theType == kDragFlavorTypeHFS )
213	{
214	HFSFlavor* theFile = (HFSFlavor*) theData ;
215	wxString name = wxMacFSSpec2MacFilename( &theFile->fileSpec ) ;
216	if ( firstFileAdded )
217	((wxFileDataObject*)m_dataObject)->AddFile( name ) ;
218	else
219	{
220	((wxFileDataObject*)m_dataObject)->SetData( 0 , name.c_str() ) ;
221	firstFileAdded = true ;
222	}
223	}
224	else
225	{
226	m_dataObject->SetData( format, dataSize, theData );
227	}
228	delete[] theData;
229	}
230	break ;
231	}
232	}
233	}
234	}
235	return TRUE ;
236	}
237
238	//-------------------------------------------------------------------------
239	// wxDropSource
240	//-------------------------------------------------------------------------
241
242	//-----------------------------------------------------------------------------
243	// drag request
244
245	wxDropSource::wxDropSource(wxWindow *win,
246	const wxCursor &cursorCopy,
247	const wxCursor &cursorMove,
248	const wxCursor &cursorStop)
249	: wxDropSourceBase(cursorCopy, cursorMove, cursorStop)
250	{
251	wxMacEnsureTrackingHandlersInstalled() ;
252	m_window = win;
253	}
254
255	wxDropSource::wxDropSource(wxDataObject& data,
256	wxWindow *win,
257	const wxCursor &cursorCopy,
258	const wxCursor &cursorMove,
259	const wxCursor &cursorStop)
260	: wxDropSourceBase(cursorCopy, cursorMove, cursorStop)
261	{
262	wxMacEnsureTrackingHandlersInstalled() ;
263	SetData( data );
264	m_window = win;
265	}
266
267	wxDropSource::~wxDropSource()
268	{
269	}
270
271
272	wxDragResult wxDropSource::DoDragDrop(int WXUNUSED(flags))
273	{
274	wxASSERT_MSG( m_data, wxT("Drop source: no data") );
275
276	if (!m_data)
277	return (wxDragResult) wxDragNone;
278
279	if (m_data->GetFormatCount() == 0)
280	return (wxDragResult) wxDragNone;
281
282	OSErr result;
283	DragReference theDrag;
284	RgnHandle dragRegion;
285	if ((result = NewDrag(&theDrag)))
286	{
287	return wxDragNone ;
288	}
289	// add data to drag
290	size_t formatCount = m_data->GetFormatCount() ;
291	wxDataFormat *formats = new wxDataFormat[formatCount] ;
292	m_data->GetAllFormats( formats ) ;
293	ItemReference theItem = 1 ;
294	for ( size_t i = 0 ; i < formatCount ; ++i )
295	{
296	size_t dataSize = m_data->GetDataSize( formats[i] ) ;
297	Ptr dataPtr = new char[dataSize] ;
298	m_data->GetDataHere( formats[i] , dataPtr ) ;
299	OSType type = formats[i].GetFormatId() ;
300	if ( type == 'TEXT' )
301	{
302	dataSize-- ;
303	dataPtr[ dataSize ] = 0 ;
304	wxString st( (wxChar*) dataPtr ) ;
305	wxCharBuffer buf = st.mb_str( wxConvLocal) ;
306	AddDragItemFlavor(theDrag, theItem, type , buf.data(), strlen(buf), 0);
307	}
308	else if (type == kDragFlavorTypeHFS )
309	{
310	HFSFlavor theFlavor ;
311	OSErr err = noErr;
312	CInfoPBRec cat;
313
314	wxMacFilename2FSSpec( dataPtr , &theFlavor.fileSpec ) ;
315
316	cat.hFileInfo.ioNamePtr = theFlavor.fileSpec.name;
317	cat.hFileInfo.ioVRefNum = theFlavor.fileSpec.vRefNum;
318	cat.hFileInfo.ioDirID = theFlavor.fileSpec.parID;
319	cat.hFileInfo.ioFDirIndex = 0;
320	err = PBGetCatInfoSync(&cat);
321	if (err == noErr )
322	{
323	theFlavor.fdFlags = cat.hFileInfo.ioFlFndrInfo.fdFlags;
324	if (theFlavor.fileSpec.parID == fsRtParID) {
325	theFlavor.fileCreator = 'MACS';
326	theFlavor.fileType = 'disk';
327	} else if ((cat.hFileInfo.ioFlAttrib & ioDirMask) != 0) {
328	theFlavor.fileCreator = 'MACS';
329	theFlavor.fileType = 'fold';
330	} else {
331	theFlavor.fileCreator = cat.hFileInfo.ioFlFndrInfo.fdCreator;
332	theFlavor.fileType = cat.hFileInfo.ioFlFndrInfo.fdType;
333	}
334	AddDragItemFlavor(theDrag, theItem, type , &theFlavor, sizeof(theFlavor), 0);
335	}
336	}
337	else
338	{
339	AddDragItemFlavor(theDrag, theItem, type , dataPtr, dataSize, 0);
340	}
341	delete[] dataPtr ;
342	}
343	delete[] formats ;
344
345	dragRegion = NewRgn();
346	RgnHandle tempRgn = NewRgn() ;
347
348	EventRecord* ev = NULL ;
349	#if !TARGET_CARBON // TODO
350	ev = (EventRecord*) wxTheApp->MacGetCurrentEvent() ;
351	#else
352	EventRecord rec ;
353	ev = &rec ;
354	wxMacConvertEventToRecord( (EventRef) wxTheApp->MacGetCurrentEvent() , &rec ) ;
355	#endif
356	const short dragRegionOuterBoundary = 10 ;
357	const short dragRegionInnerBoundary = 9 ;
358
359	SetRectRgn( dragRegion , ev->where.h - dragRegionOuterBoundary ,
360	ev->where.v - dragRegionOuterBoundary ,
361	ev->where.h + dragRegionOuterBoundary ,
362	ev->where.v + dragRegionOuterBoundary ) ;
363
364	SetRectRgn( tempRgn , ev->where.h - dragRegionInnerBoundary ,
365	ev->where.v - dragRegionInnerBoundary ,
366	ev->where.h + dragRegionInnerBoundary ,
367	ev->where.v + dragRegionInnerBoundary ) ;
368
369	DiffRgn( dragRegion , tempRgn , dragRegion ) ;
370	DisposeRgn( tempRgn ) ;
371
372	// TODO:work with promises in order to return data only when drag
373	// was successfully completed
374
375	gTrackingGlobals.m_currentSource = this ;
376	result = TrackDrag(theDrag, ev , dragRegion);
377	DisposeRgn(dragRegion);
378	DisposeDrag(theDrag);
379	gTrackingGlobals.m_currentSource = NULL ;
380
381	KeyMap keymap;
382	GetKeys(keymap);
383	bool optionDown = keymap[1] & 4;
384	wxDragResult dndresult = optionDown ? wxDragCopy : wxDragMove;
385	return dndresult;
386	}
387
388	bool wxDropSource::MacInstallDefaultCursor(wxDragResult effect)
389	{
390	const wxCursor& cursor = GetCursor(effect);
391	if ( cursor.Ok() )
392	{
393	cursor.MacInstall() ;
394
395	return TRUE;
396	}
397	else
398	{
399	return FALSE;
400	}
401	}
402
403	bool gTrackingGlobalsInstalled = false ;
404
405	// passing the globals via refcon is not needed by the CFM and later architectures anymore
406	// but I'll leave it in there, just in case...
407
408	pascal OSErr wxMacWindowDragTrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
409	void *handlerRefCon, DragReference theDrag) ;
410	pascal OSErr wxMacWindowDragReceiveHandler(WindowPtr theWindow, void *handlerRefCon,
411	DragReference theDrag) ;
412
413	void wxMacEnsureTrackingHandlersInstalled()
414	{
415	if( !gTrackingGlobalsInstalled )
416	{
417	OSErr result;
418
419	result = InstallTrackingHandler(NewDragTrackingHandlerUPP(wxMacWindowDragTrackingHandler), 0L,&gTrackingGlobals);
420	wxASSERT( result == noErr ) ;
421	result = InstallReceiveHandler(NewDragReceiveHandlerUPP(wxMacWindowDragReceiveHandler), 0L, &gTrackingGlobals);
422	wxASSERT( result == noErr ) ;
423
424	gTrackingGlobalsInstalled = true ;
425	}
426	}
427
428	pascal OSErr wxMacWindowDragTrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
429	void *handlerRefCon, DragReference theDrag)
430	{
431	MacTrackingGlobals* trackingGlobals = (MacTrackingGlobals*) handlerRefCon;
432	Point mouse, localMouse;
433	DragAttributes attributes;
434	GetDragAttributes(theDrag, &attributes);
435	wxTopLevelWindowMac* toplevel = wxFindWinFromMacWindow( theWindow ) ;
436
437	KeyMap keymap;
438	GetKeys(keymap);
439	bool optionDown = keymap[1] & 4;
440	wxDragResult result = optionDown ? wxDragCopy : wxDragMove;
441
442	switch(theMessage)
443	{
444	case kDragTrackingEnterHandler:
445	break;
446	case kDragTrackingLeaveHandler:
447	break;
448	case kDragTrackingEnterWindow:
449	trackingGlobals->m_currentTargetWindow = NULL ;
450	trackingGlobals->m_currentTarget = NULL ;
451	break;
452	case kDragTrackingInWindow:
453	if (toplevel == NULL)
454	break;
455
456	GetDragMouse(theDrag, &mouse, 0L);
457	localMouse = mouse;
458	GlobalToLocal(&localMouse);
459
460
461
462	// if (attributes & kDragHasLeftSenderWindow)
463	{
464	wxPoint point(localMouse.h , localMouse.v) ;
465	wxWindow *win = NULL ;
466	toplevel->MacGetWindowFromPointSub( point , &win ) ;
467	int localx , localy ;
468	localx = localMouse.h ;
469	localy = localMouse.v ;
470	//TODO : should we use client coordinates
471	if ( win )
472	win->MacRootWindowToWindow( &localx , &localy ) ;
473	if ( win != trackingGlobals->m_currentTargetWindow )
474	{
475	if ( trackingGlobals->m_currentTargetWindow )
476	{
477	// this window is left
478	if ( trackingGlobals->m_currentTarget )
479	{
480	HideDragHilite(theDrag);
481	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
482	trackingGlobals->m_currentTarget->OnLeave() ;
483	trackingGlobals->m_currentTarget = NULL;
484	trackingGlobals->m_currentTargetWindow = NULL ;
485	}
486	}
487	if ( win )
488	{
489	// this window is entered
490	trackingGlobals->m_currentTargetWindow = win ;
491	trackingGlobals->m_currentTarget = win->GetDropTarget() ;
492	{
493
494	if ( trackingGlobals->m_currentTarget )
495	{
496	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
497	result = trackingGlobals->m_currentTarget->OnEnter(
498	localx , localy , result ) ;
499	}
500
501
502	if ( result != wxDragNone )
503	{
504	int x , y ;
505	x = y = 0 ;
506	win->MacWindowToRootWindow( &x , &y ) ;
507	RgnHandle hiliteRgn = NewRgn() ;
508	SetRectRgn( hiliteRgn , x , y , x+win->GetSize().x ,y+win->GetSize().y) ;
509	ShowDragHilite(theDrag, hiliteRgn, true);
510	DisposeRgn( hiliteRgn ) ;
511	}
512	}
513	}
514	}
515	else
516	{
517	if( trackingGlobals->m_currentTarget )
518	{
519	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
520	trackingGlobals->m_currentTarget->OnDragOver(
521	localx , localy , result ) ;
522	}
523	}
524
525	// set cursor for OnEnter and OnDragOver
526	if ( trackingGlobals->m_currentSource && trackingGlobals->m_currentSource->GiveFeedback( result ) == FALSE )
527	{
528	if ( trackingGlobals->m_currentSource->MacInstallDefaultCursor( result ) == FALSE )
529	{
530	switch( result )
531	{
532	case wxDragCopy :
533	{
534	wxCursor cursor(wxCURSOR_COPY_ARROW) ;
535	cursor.MacInstall() ;
536	}
537	break ;
538	case wxDragMove :
539	{
540	wxCursor cursor(wxCURSOR_ARROW) ;
541	cursor.MacInstall() ;
542	}
543	break ;
544	case wxDragNone :
545	{
546	wxCursor cursor(wxCURSOR_NO_ENTRY) ;
547	cursor.MacInstall() ;
548	}
549	break ;
550
551	case wxDragError:
552	case wxDragLink:
553	case wxDragCancel:
554	// put these here to make gcc happy
555	;
556	}
557	}
558	}
559
560	}
561	// MyTrackItemUnderMouse(localMouse, theWindow);
562	break;
563	case kDragTrackingLeaveWindow:
564	if (trackingGlobals->m_currentTarget)
565	{
566	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
567	trackingGlobals->m_currentTarget->OnLeave() ;
568	HideDragHilite(theDrag);
569	trackingGlobals->m_currentTarget = NULL ;
570	}
571	trackingGlobals->m_currentTargetWindow = NULL ;
572	break;
573	}
574	return(noErr);
575	}
576
577	pascal OSErr wxMacWindowDragReceiveHandler(WindowPtr theWindow,
578	void *handlerRefCon,
579	DragReference theDrag)
580	{
581	MacTrackingGlobals* trackingGlobals = (MacTrackingGlobals*) handlerRefCon;
582	if ( trackingGlobals->m_currentTarget )
583	{
584	Point mouse,localMouse ;
585	int localx,localy ;
586
587	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
588	GetDragMouse(theDrag, &mouse, 0L);
589	localMouse = mouse;
590	GlobalToLocal(&localMouse);
591	localx = localMouse.h ;
592	localy = localMouse.v ;
593	//TODO : should we use client coordinates
594	if ( trackingGlobals->m_currentTargetWindow )
595	trackingGlobals->m_currentTargetWindow->MacRootWindowToWindow( &localx , &localy ) ;
596	if ( trackingGlobals->m_currentTarget->OnDrop( localx , localy ) )
597	{
598	KeyMap keymap;
599	GetKeys(keymap);
600	bool optionDown = keymap[1] & 4;
601	wxDragResult result = optionDown ? wxDragCopy : wxDragMove;
602	trackingGlobals->m_currentTarget->OnData( localx , localy , result ) ;
603	}
604	}
605	return(noErr);
606	}
607	#endif