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

///////////////////////////////////////////////////////////////////////////////
// Name:        src/mac/classic/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
///////////////////////////////////////////////////////////////////////////////

#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

#if wxUSE_DRAG_AND_DROP

#include "wx/dnd.h"

#ifndef WX_PRECOMP
    #include "wx/app.h"
    #include "wx/window.h"
    #include "wx/toplevel.h"
    #include "wx/gdicmn.h"
#endif // WX_PRECOMP

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