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

///////////////////////////////////////////////////////////////////////////////
// Name:        dnd.cpp
// Purpose:     wxDropTarget, wxDropSource, wxDataObject implementation
// Author:      AUTHOR
// Modified by:
// Created:     ??/??/98
// RCS-ID:      $Id$
// Copyright:   (c) 1998 AUTHOR
// 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;
      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 ;       
                    if ( wxApp::s_macDefaultEncodingIsPC )
                    {
                      wxMacConvertToPC((char*)theData,(char*)theData,dataSize) ;
                    }
                    m_dataObject->SetData( format, dataSize, theData );
                  }
                  else if ( theType == kDragFlavorTypeHFS )
                  {
                    HFSFlavor* theFile = (HFSFlavor*) theData ;
                    wxString name = wxMacFSSpec2MacFilename( &theFile->fileSpec ) ;
                    ((wxFileDataObject*)m_dataObject)->AddFile( name ) ;
                  }
                  else
                  {
                    m_dataObject->SetData( format, dataSize, theData );
                  }
                  delete[] theData;
              }
              break ;
            }
          }
      }
    }
    return TRUE ;   
}

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

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

wxDropSource::wxDropSource(wxWindow *win,
                           const wxIcon &iconCopy,
                           const wxIcon &iconMove,
                           const wxIcon &iconNone)
{
    wxMacEnsureTrackingHandlersInstalled() ;
    m_window = win;
}

wxDropSource::wxDropSource(wxDataObject& data,
                           wxWindow *win,
                           const wxIcon &iconCopy,
                           const wxIcon &iconMove,
                           const wxIcon &iconNone)
{
    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-- ;
          if ( wxApp::s_macDefaultEncodingIsPC )
          {
            wxMacConvertFromPC((char*)dataPtr,(char*)dataPtr,dataSize) ;
          }
          AddDragItemFlavor(theDrag, theItem, type , dataPtr, dataSize, 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 ;

    return wxDragCopy ;
}

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 ) ; 
    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 ) ;
                           if ( trackingGlobals->m_currentTarget->OnEnter(
                                localx , localy , wxDragCopy ) != 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 , wxDragCopy ) ;
                    }
                }
                
          }
            // 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 ) )
        {
            trackingGlobals->m_currentTarget->OnData( localx , localy , wxDragCopy ) ;
        }
    }
    return(noErr);
}
#endif
Commit	Line	Data
e9576ca5 SC	1	///////////////////////////////////////////////////////////////////////////////
	2	// Name: dnd.cpp
	3	// Purpose: wxDropTarget, wxDropSource, wxDataObject implementation
	4	// Author: AUTHOR
	5	// Modified by:
	6	// Created: ??/??/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 1998 AUTHOR
	9	// Licence: wxWindows licence
	10	///////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "dnd.h"
	14	#endif
	15
ff143598 GD	16	#include "wx/defs.h"
	17
	18	#if wxUSE_DRAG_AND_DROP
	19
e9576ca5 SC	20	#include "wx/dnd.h"
e9576ca5 SC	21	#include "wx/window.h"
ff143598	22	#include "wx/toplevel.h"
e9576ca5 SC	23	#include "wx/app.h"
e9576ca5 SC	24	#include "wx/gdicmn.h"
76a5e5d2	25	#include "wx/mac/private.h"
e9576ca5 SC	26
	27	// ----------------------------------------------------------------------------
	28	// global
	29	// ----------------------------------------------------------------------------
	30
a07c1212	31	void wxMacEnsureTrackingHandlersInstalled() ;
e9576ca5	32
a07c1212	33	typedef struct
e9576ca5	34	{
a07c1212 SC	35	wxWindow* m_currentTargetWindow ;
	36	wxDropTarget* m_currentTarget ;
	37	wxDropSource* m_currentSource ;
	38	} MacTrackingGlobals ;
e9576ca5	39
a07c1212	40	MacTrackingGlobals gTrackingGlobals ;
e9576ca5	41
a07c1212 SC	42	//----------------------------------------------------------------------------
	43	// wxDropTarget
	44	//----------------------------------------------------------------------------
e9576ca5	45
a07c1212 SC	46	wxDropTarget::wxDropTarget( wxDataObject *data )
a07c1212 SC	47	: wxDropTargetBase( data )
e9576ca5	48	{
a07c1212	49	wxMacEnsureTrackingHandlersInstalled() ;
e9576ca5 SC	50	}
e9576ca5 SC	51
a07c1212 SC	52	wxDragResult wxDropTarget::OnDragOver( wxCoord WXUNUSED(x),
	53	wxCoord WXUNUSED(y),
	54	wxDragResult def )
e9576ca5	55	{
e9576ca5	56
a07c1212 SC	57	return CurrentDragHasSupportedFormat() ? def : wxDragNone;
a07c1212 SC	58	}
e9576ca5	59
a07c1212	60	bool wxDropTarget::OnDrop( wxCoord WXUNUSED(x), wxCoord WXUNUSED(y) )
e9576ca5	61	{
a07c1212 SC	62	if (!m_dataObject)
	63	return FALSE;
	64
	65	return CurrentDragHasSupportedFormat() ;
e9576ca5 SC	66	}
e9576ca5 SC	67
a07c1212 SC	68	wxDragResult wxDropTarget::OnData( wxCoord WXUNUSED(x), wxCoord WXUNUSED(y),
a07c1212 SC	69	wxDragResult def )
e9576ca5	70	{
a07c1212 SC	71	if (!m_dataObject)
	72	return wxDragNone;
	73
	74	if (!CurrentDragHasSupportedFormat())
	75	return wxDragNone;
	76
	77	return GetData() ? def : wxDragNone;
e9576ca5 SC	78	}
e9576ca5 SC	79
a07c1212	80	bool wxDropTarget::CurrentDragHasSupportedFormat()
e9576ca5	81	{
a07c1212 SC	82	bool supported = false ;
	83	if ( gTrackingGlobals.m_currentSource != NULL )
	84	{
	85	wxDataObject* data = gTrackingGlobals.m_currentSource->GetDataObject() ;
	86
	87	if ( data )
	88	{
0cd51b2d	89	size_t formatcount = data->GetFormatCount() ;
a07c1212 SC	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;
76a5e5d2	108	CountDragItems((DragReference)m_currentDrag, &items);
a07c1212 SC	109	for (UInt16 index = 1; index <= items && supported == false ; ++index)
	110	{
	111	ItemReference theItem;
	112	FlavorType theType ;
	113	UInt16 flavors = 0 ;
76a5e5d2 SC	114	GetDragItemReferenceNumber((DragReference)m_currentDrag, index, &theItem);
76a5e5d2 SC	115	CountDragItemFlavors( (DragReference)m_currentDrag, theItem , &flavors ) ;
a07c1212 SC	116	for ( UInt16 flavor = 1 ; flavor <= flavors ; ++flavor )
a07c1212 SC	117	{
76a5e5d2	118	result = GetFlavorType((DragReference)m_currentDrag, theItem, flavor , &theType);
a07c1212 SC	119	if ( m_dataObject->IsSupportedFormat( wxDataFormat( theType ) ) )
	120	{
	121	supported = true ;
	122	break ;
	123	}
	124	}
	125	}
	126	}
	127	return supported ;
e9576ca5 SC	128	}
e9576ca5 SC	129
a07c1212	130	bool wxDropTarget::GetData()
e9576ca5	131	{
a07c1212 SC	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	{
0cd51b2d	145	size_t formatcount = data->GetFormatCount() ;
a07c1212 SC	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;
76a5e5d2	176	CountDragItems((DragReference)m_currentDrag, &items);
a07c1212 SC	177	for (UInt16 index = 1; index <= items; ++index)
	178	{
	179	ItemReference theItem;
	180	FlavorType theType ;
	181	UInt16 flavors = 0 ;
76a5e5d2 SC	182	GetDragItemReferenceNumber((DragReference)m_currentDrag, index, &theItem);
76a5e5d2 SC	183	CountDragItemFlavors( (DragReference)m_currentDrag, theItem , &flavors ) ;
a07c1212 SC	184	for ( UInt16 flavor = 1 ; flavor <= flavors ; ++flavor )
a07c1212 SC	185	{
76a5e5d2	186	result = GetFlavorType((DragReference)m_currentDrag, theItem, flavor , &theType);
a07c1212 SC	187	wxDataFormat format(theType) ;
	188	if ( m_dataObject->IsSupportedFormat( format ) )
	189	{
	190	FlavorFlags theFlags;
76a5e5d2	191	result = GetFlavorFlags((DragReference)m_currentDrag, theItem, theType, &theFlags);
a07c1212 SC	192	if (result == noErr)
	193	{
	194	Size dataSize ;
	195	Ptr theData ;
76a5e5d2	196	GetFlavorDataSize((DragReference)m_currentDrag, theItem, theType, &dataSize);
45a0fd37 SC	197	if ( theType == 'TEXT' )
	198	{
	199	// this increment is only valid for allocating, on the next GetFlavorData
	200	// call it is reset again to the original value
	201	dataSize++ ;
	202	}
a07c1212	203	theData = new char[dataSize];
76a5e5d2	204	GetFlavorData((DragReference)m_currentDrag, theItem, theType, (void*) theData, &dataSize, 0L);
a07c1212 SC	205	if( theType == 'TEXT' )
	206	{
	207	theData[dataSize]=0 ;
	208	if ( wxApp::s_macDefaultEncodingIsPC )
	209	{
45a0fd37	210	wxMacConvertToPC((char)theData,(char)theData,dataSize) ;
a07c1212 SC	211	}
	212	m_dataObject->SetData( format, dataSize, theData );
	213	}
	214	else if ( theType == kDragFlavorTypeHFS )
	215	{
	216	HFSFlavor* theFile = (HFSFlavor*) theData ;
	217	wxString name = wxMacFSSpec2MacFilename( &theFile->fileSpec ) ;
3538f4df	218	((wxFileDataObject*)m_dataObject)->AddFile( name ) ;
a07c1212 SC	219	}
	220	else
	221	{
	222	m_dataObject->SetData( format, dataSize, theData );
	223	}
	224	delete[] theData;
	225	}
	226	break ;
	227	}
	228	}
	229	}
	230	}
	231	return TRUE ;
e9576ca5 SC	232	}
	233
	234	//-------------------------------------------------------------------------
	235	// wxDropSource
	236	//-------------------------------------------------------------------------
	237
	238	//-----------------------------------------------------------------------------
	239	// drag request
	240
a07c1212 SC	241	wxDropSource::wxDropSource(wxWindow *win,
	242	const wxIcon &iconCopy,
	243	const wxIcon &iconMove,
	244	const wxIcon &iconNone)
e9576ca5	245	{
a07c1212 SC	246	wxMacEnsureTrackingHandlersInstalled() ;
	247	m_window = win;
	248	}
e9576ca5	249
a07c1212 SC	250	wxDropSource::wxDropSource(wxDataObject& data,
	251	wxWindow *win,
	252	const wxIcon &iconCopy,
	253	const wxIcon &iconMove,
	254	const wxIcon &iconNone)
	255	{
	256	wxMacEnsureTrackingHandlersInstalled() ;
	257	SetData( data );
	258	m_window = win;
	259	}
e9576ca5	260
a07c1212	261	wxDropSource::~wxDropSource()
e9576ca5	262	{
a07c1212	263	}
e9576ca5	264
e9576ca5	265
2245b2b2	266	wxDragResult wxDropSource::DoDragDrop(int WXUNUSED(flags))
e9576ca5	267	{
a07c1212	268	wxASSERT_MSG( m_data, wxT("Drop source: no data") );
e9576ca5	269
a07c1212 SC	270	if (!m_data)
	271	return (wxDragResult) wxDragNone;
	272
	273	if (m_data->GetFormatCount() == 0)
	274	return (wxDragResult) wxDragNone;
	275
	276	OSErr result;
	277	DragReference theDrag;
	278	RgnHandle dragRegion;
0cd51b2d	279	if ((result = NewDrag(&theDrag)))
a07c1212 SC	280	{
	281	return wxDragNone ;
	282	}
	283	// add data to drag
	284	size_t formatCount = m_data->GetFormatCount() ;
	285	wxDataFormat *formats = new wxDataFormat[formatCount] ;
	286	m_data->GetAllFormats( formats ) ;
	287	ItemReference theItem = 1 ;
0cd51b2d	288	for ( size_t i = 0 ; i < formatCount ; ++i )
a07c1212 SC	289	{
	290	size_t dataSize = m_data->GetDataSize( formats[i] ) ;
	291	Ptr dataPtr = new char[dataSize] ;
	292	m_data->GetDataHere( formats[i] , dataPtr ) ;
	293	OSType type = formats[i].GetFormatId() ;
	294	if ( type == 'TEXT' )
	295	{
	296	dataSize-- ;
	297	if ( wxApp::s_macDefaultEncodingIsPC )
	298	{
45a0fd37	299	wxMacConvertFromPC((char)dataPtr,(char)dataPtr,dataSize) ;
a07c1212 SC	300	}
	301	AddDragItemFlavor(theDrag, theItem, type , dataPtr, dataSize, 0);
	302	}
	303	else if (type == kDragFlavorTypeHFS )
	304	{
	305	HFSFlavor theFlavor ;
	306	OSErr err = noErr;
	307	CInfoPBRec cat;
	308
	309	wxMacFilename2FSSpec( dataPtr , &theFlavor.fileSpec ) ;
	310
	311	cat.hFileInfo.ioNamePtr = theFlavor.fileSpec.name;
	312	cat.hFileInfo.ioVRefNum = theFlavor.fileSpec.vRefNum;
	313	cat.hFileInfo.ioDirID = theFlavor.fileSpec.parID;
	314	cat.hFileInfo.ioFDirIndex = 0;
	315	err = PBGetCatInfoSync(&cat);
	316	if (err == noErr )
	317	{
	318	theFlavor.fdFlags = cat.hFileInfo.ioFlFndrInfo.fdFlags;
	319	if (theFlavor.fileSpec.parID == fsRtParID) {
	320	theFlavor.fileCreator = 'MACS';
	321	theFlavor.fileType = 'disk';
	322	} else if ((cat.hFileInfo.ioFlAttrib & ioDirMask) != 0) {
	323	theFlavor.fileCreator = 'MACS';
	324	theFlavor.fileType = 'fold';
	325	} else {
	326	theFlavor.fileCreator = cat.hFileInfo.ioFlFndrInfo.fdCreator;
	327	theFlavor.fileType = cat.hFileInfo.ioFlFndrInfo.fdType;
	328	}
	329	AddDragItemFlavor(theDrag, theItem, type , &theFlavor, sizeof(theFlavor), 0);
	330	}
	331	}
	332	else
	333	{
	334	AddDragItemFlavor(theDrag, theItem, type , dataPtr, dataSize, 0);
	335	}
	336	delete[] dataPtr ;
	337	}
	338	delete[] formats ;
	339
	340	dragRegion = NewRgn();
	341	RgnHandle tempRgn = NewRgn() ;
	342
45a0fd37 SC	343	EventRecord* ev = NULL ;
	344	#if !TARGET_CARBON // TODO
	345	ev = (EventRecord*) wxTheApp->MacGetCurrentEvent() ;
	346	#else
	347	EventRecord rec ;
	348	ev = &rec ;
	349	wxMacConvertEventToRecord( (EventRef) wxTheApp->MacGetCurrentEvent() , &rec ) ;
	350	#endif
a07c1212 SC	351	const short dragRegionOuterBoundary = 10 ;
	352	const short dragRegionInnerBoundary = 9 ;
	353
	354	SetRectRgn( dragRegion , ev->where.h - dragRegionOuterBoundary ,
	355	ev->where.v - dragRegionOuterBoundary ,
	356	ev->where.h + dragRegionOuterBoundary ,
	357	ev->where.v + dragRegionOuterBoundary ) ;
	358
	359	SetRectRgn( tempRgn , ev->where.h - dragRegionInnerBoundary ,
	360	ev->where.v - dragRegionInnerBoundary ,
	361	ev->where.h + dragRegionInnerBoundary ,
	362	ev->where.v + dragRegionInnerBoundary ) ;
	363
	364	DiffRgn( dragRegion , tempRgn , dragRegion ) ;
	365	DisposeRgn( tempRgn ) ;
	366
	367	// TODO:work with promises in order to return data only when drag
	368	// was successfully completed
	369
	370	gTrackingGlobals.m_currentSource = this ;
	371	result = TrackDrag(theDrag, ev , dragRegion);
	372	DisposeRgn(dragRegion);
	373	DisposeDrag(theDrag);
	374	gTrackingGlobals.m_currentSource = NULL ;
	375
	376	return wxDragCopy ;
	377	}
	378
	379	bool gTrackingGlobalsInstalled = false ;
	380
	381	// passing the globals via refcon is not needed by the CFM and later architectures anymore
	382	// but I'll leave it in there, just in case...
	383
	384	pascal OSErr wxMacWindowDragTrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
	385	void *handlerRefCon, DragReference theDrag) ;
	386	pascal OSErr wxMacWindowDragReceiveHandler(WindowPtr theWindow, void *handlerRefCon,
	387	DragReference theDrag) ;
	388
	389	void wxMacEnsureTrackingHandlersInstalled()
e9576ca5	390	{
a07c1212 SC	391	if( !gTrackingGlobalsInstalled )
	392	{
	393	OSErr result;
	394
	395	result = InstallTrackingHandler(NewDragTrackingHandlerUPP(wxMacWindowDragTrackingHandler), 0L,&gTrackingGlobals);
	396	wxASSERT( result == noErr ) ;
	397	result = InstallReceiveHandler(NewDragReceiveHandlerUPP(wxMacWindowDragReceiveHandler), 0L, &gTrackingGlobals);
	398	wxASSERT( result == noErr ) ;
e9576ca5	399
a07c1212 SC	400	gTrackingGlobalsInstalled = true ;
	401	}
	402	}
	403
	404	pascal OSErr wxMacWindowDragTrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
	405	void *handlerRefCon, DragReference theDrag)
	406	{
	407	MacTrackingGlobals* trackingGlobals = (MacTrackingGlobals*) handlerRefCon;
	408	Point mouse, localMouse;
	409	DragAttributes attributes;
a07c1212 SC	410	GetDragAttributes(theDrag, &attributes);
	411	wxTopLevelWindowMac* toplevel = wxFindWinFromMacWindow( theWindow ) ;
	412	switch(theMessage)
	413	{
	414	case kDragTrackingEnterHandler:
	415	break;
	416	case kDragTrackingLeaveHandler:
	417	break;
	418	case kDragTrackingEnterWindow:
	419	trackingGlobals->m_currentTargetWindow = NULL ;
	420	trackingGlobals->m_currentTarget = NULL ;
	421	break;
	422	case kDragTrackingInWindow:
	423	if (toplevel == NULL)
	424	break;
	425
	426	GetDragMouse(theDrag, &mouse, 0L);
	427	localMouse = mouse;
	428	GlobalToLocal(&localMouse);
	429
	430	// if (attributes & kDragHasLeftSenderWindow)
	431	{
	432	wxPoint point(localMouse.h , localMouse.v) ;
	433	wxWindow *win = NULL ;
	434	toplevel->MacGetWindowFromPointSub( point , &win ) ;
	435	int localx , localy ;
	436	localx = localMouse.h ;
	437	localy = localMouse.v ;
	438	//TODO : should we use client coordinates
	439	if ( win )
	440	win->MacRootWindowToWindow( &localx , &localy ) ;
	441	if ( win != trackingGlobals->m_currentTargetWindow )
	442	{
	443	if ( trackingGlobals->m_currentTargetWindow )
	444	{
	445	// this window is left
	446	if ( trackingGlobals->m_currentTarget )
	447	{
	448	HideDragHilite(theDrag);
	449	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
	450	trackingGlobals->m_currentTarget->OnLeave() ;
	451	trackingGlobals->m_currentTarget = NULL;
	452	trackingGlobals->m_currentTargetWindow = NULL ;
	453	}
	454	}
	455	if ( win )
	456	{
	457	// this window is entered
	458	trackingGlobals->m_currentTargetWindow = win ;
	459	trackingGlobals->m_currentTarget = win->GetDropTarget() ;
	460	if ( trackingGlobals->m_currentTarget )
	461	{
	462	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
	463	if ( trackingGlobals->m_currentTarget->OnEnter(
	464	localx , localy , wxDragCopy ) != wxDragNone )
	465	{
	466	int x , y ;
	467	x = y = 0 ;
	468	win->MacWindowToRootWindow( &x , &y ) ;
	469	RgnHandle hiliteRgn = NewRgn() ;
	470	SetRectRgn( hiliteRgn , x , y , x+win->GetSize().x ,y+win->GetSize().y) ;
	471	ShowDragHilite(theDrag, hiliteRgn, true);
	472	DisposeRgn( hiliteRgn ) ;
	473	}
474	}
475	}
476	}
477	else
478	{
479	if( trackingGlobals->m_currentTarget )
480	{
481	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
482	trackingGlobals->m_currentTarget->OnDragOver(
483	localx , localy , wxDragCopy ) ;
484	}
485	}
486
487	}
488	// MyTrackItemUnderMouse(localMouse, theWindow);
489	break;
490	case kDragTrackingLeaveWindow:
491	if (trackingGlobals->m_currentTarget)
492	{
493	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
494	trackingGlobals->m_currentTarget->OnLeave() ;
495	HideDragHilite(theDrag);
496	trackingGlobals->m_currentTarget = NULL ;
497	}
498	trackingGlobals->m_currentTargetWindow = NULL ;
499	break;
500	}
501	return(noErr);
502	}
503
f2af4afb GD	504	pascal OSErr wxMacWindowDragReceiveHandler(WindowPtr theWindow,
	505	void *handlerRefCon,
	506	DragReference theDrag)
a07c1212 SC	507	{
	508	MacTrackingGlobals* trackingGlobals = (MacTrackingGlobals*) handlerRefCon;
	509	if ( trackingGlobals->m_currentTarget )
	510	{
	511	Point mouse,localMouse ;
	512	int localx,localy ;
	513
	514	trackingGlobals->m_currentTarget->SetCurrentDrag( theDrag ) ;
	515	GetDragMouse(theDrag, &mouse, 0L);
	516	localMouse = mouse;
	517	GlobalToLocal(&localMouse);
	518	localx = localMouse.h ;
	519	localy = localMouse.v ;
	520	//TODO : should we use client coordinates
	521	if ( trackingGlobals->m_currentTargetWindow )
	522	trackingGlobals->m_currentTargetWindow->MacRootWindowToWindow( &localx , &localy ) ;
	523	if ( trackingGlobals->m_currentTarget->OnDrop( localx , localy ) )
	524	{
	525	trackingGlobals->m_currentTarget->OnData( localx , localy , wxDragCopy ) ;
	526	}
	527	}
	528	return(noErr);
	529	}
03e11df5	530	#endif