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

/////////////////////////////////////////////////////////////////////////////
// Name:        src/mac/classic/filedlg.cpp
// Purpose:     wxFileDialog
// Author:      Stefan Csomor
// Modified by:
// Created:     1998-01-01
// RCS-ID:      $Id$
// Copyright:   (c) Stefan Csomor
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

#include "wx/filedlg.h"

#ifndef WX_PRECOMP
    #include "wx/intl.h"
    #include "wx/app.h"
    #include "wx/utils.h"
    #include "wx/dialog.h"
#endif

#include "wx/tokenzr.h"
#include "wx/filename.h"

#ifndef __DARWIN__
    #include "PLStringFuncs.h"
#endif

IMPLEMENT_CLASS(wxFileDialog, wxFileDialogBase)

// begin wxmac

#include "wx/mac/private.h"

#include <Navigation.h>

#ifdef __DARWIN__
#  include "MoreFilesX.h"
#else
#  include "MoreFiles.h"
#  include "MoreFilesExtras.h"
#endif

extern bool gUseNavServices ;

// the data we need to pass to our standard file hook routine
// includes a pointer to the dialog, a pointer to the standard
// file reply record (so we can inspect the current selection)
// and a copy of the "previous" file spec of the reply record
// so we can see if the selection has changed

struct OpenUserDataRec {
  int                currentfilter ;
  bool               saveMode ;
  wxArrayString      name ;
  wxArrayString      extensions ;
  wxArrayLong        filtermactypes ;
  wxString           defaultLocation;
#if TARGET_CARBON
  CFArrayRef         menuitems ;
#else
  NavMenuItemSpecArrayHandle menuitems ;
#endif
};

typedef struct OpenUserDataRec
OpenUserDataRec, *OpenUserDataRecPtr;

static pascal void    NavEventProc(
                                NavEventCallbackMessage        inSelector,
                                NavCBRecPtr                    ioParams,
                                NavCallBackUserData            ioUserData);

#if TARGET_CARBON
        static NavEventUPP    sStandardNavEventFilter = NewNavEventUPP(NavEventProc);
#else
        static NavEventUPP    sStandardNavEventFilter = NewNavEventProc(NavEventProc);
#endif

static pascal void
NavEventProc(
    NavEventCallbackMessage        inSelector,
    NavCBRecPtr                    ioParams,
    NavCallBackUserData    ioUserData    )
{
    OpenUserDataRec * data = ( OpenUserDataRec *) ioUserData ;
    if (inSelector == kNavCBEvent) {
#if TARGET_CARBON
#else
        wxTheApp->MacHandleOneEvent(ioParams->eventData.eventDataParms.event);
#endif
    }
    else if ( inSelector == kNavCBStart )
    {
#if TARGET_CARBON
        if (data && !(data->defaultLocation).empty())
        {
            // Set default location for the modern Navigation APIs
            // Apple Technical Q&A 1151
            FSSpec theFSSpec;
            wxMacFilename2FSSpec(data->defaultLocation, &theFSSpec);
            AEDesc theLocation = {typeNull, NULL};
            if (noErr == ::AECreateDesc(typeFSS, &theFSSpec, sizeof(FSSpec), &theLocation))
                ::NavCustomControl(ioParams->context, kNavCtlSetLocation, (void *) &theLocation);
        }
#else
        if ( data->menuitems )
            NavCustomControl(ioParams->context, kNavCtlSelectCustomType, &(*data->menuitems)[data->currentfilter]);
#endif
    }
    else if ( inSelector == kNavCBPopupMenuSelect )
    {
        NavMenuItemSpec * menu = (NavMenuItemSpec *) ioParams->eventData.eventDataParms.param ;
#if TARGET_CARBON
#else
        if ( menu->menuCreator == 'WXNG' )
#endif
        {
            data->currentfilter = menu->menuType ;
            if ( data->saveMode )
            {
                int i = menu->menuType ;
                wxString extension =  data->extensions[i].AfterLast('.') ;
                extension.MakeLower() ;
                wxString sfilename ;

#if TARGET_CARBON
                wxMacCFStringHolder cfString( NavDialogGetSaveFileName( ioParams->context ) , false  );
                sfilename = cfString.AsString() ;
#else
                Str255 filename ;
                // get the current filename
                NavCustomControl(ioParams->context, kNavCtlGetEditFileName, &filename);
                sfilename = wxMacMakeStringFromPascal( filename ) ;
#endif

                int pos = sfilename.Find('.', true) ;
                if ( pos != wxNOT_FOUND )
                {
                    sfilename = sfilename.Left(pos+1)+extension ;
#if TARGET_CARBON
                    cfString.Assign( sfilename , wxFONTENCODING_DEFAULT ) ;
                    NavDialogSetSaveFileName( ioParams->context , cfString ) ;
#else
                    wxMacStringToPascal( sfilename , filename ) ;
                    NavCustomControl(ioParams->context, kNavCtlSetEditFileName, &filename);
#endif
                }
            }
        }
    }
}


void MakeUserDataRec(OpenUserDataRec    *myData , const wxString& filter )
{
    myData->menuitems = NULL ;
    myData->currentfilter = 0 ;
    myData->saveMode = false ;

    if ( filter && filter[0] )
    {
        wxString filter2(filter) ;
        int filterIndex = 0;
        bool isName = true ;
        wxString current ;
        for( unsigned int i = 0; i < filter2.length() ; i++ )
        {
            if( filter2.GetChar(i) == wxT('|') )
            {
                if( isName ) {
                    myData->name.Add( current ) ;
                }
                else {
                    myData->extensions.Add( current.MakeUpper() ) ;
                    ++filterIndex ;
                }
                isName = !isName ;
                current = wxEmptyString ;
            }
            else
            {
                current += filter2.GetChar(i) ;
            }
        }
        // we allow for compatibility reason to have a single filter expression (like *.*) without
        // an explanatory text, in that case the first part is name and extension at the same time

        wxASSERT_MSG( filterIndex == 0 || !isName , wxT("incorrect format of format string") ) ;
        if ( current.empty() )
            myData->extensions.Add( myData->name[filterIndex] ) ;
        else
            myData->extensions.Add( current.MakeUpper() ) ;
        if ( filterIndex == 0 || isName )
            myData->name.Add( current.MakeUpper() ) ;

        ++filterIndex ;

        const size_t extCount = myData->extensions.GetCount();
        for ( size_t i = 0 ; i < extCount; i++ )
        {
            wxUint32 fileType;
            wxUint32 creator;
            wxString extension = myData->extensions[i];

            if (extension.GetChar(0) == '*')
                extension = extension.Mid(1);  // Remove leading *

            if (extension.GetChar(0) == '.')
            {
                extension = extension.Mid(1);  // Remove leading .
            }

            if (wxFileName::MacFindDefaultTypeAndCreator( extension, &fileType, &creator ))
            {
                myData->filtermactypes.Add( (OSType)fileType );
            }
            else
            {
                myData->filtermactypes.Add( '****' ) ;   // We'll fail safe if it's not recognized
            }
        }
    }
}

static Boolean CheckFile( const wxString &filename , OSType type , OpenUserDataRecPtr data)
{
    wxString file(filename) ;
    file.MakeUpper() ;

    if ( data->extensions.GetCount() > 0 )
    {
        //for ( int i = 0 ; i < data->numfilters ; ++i )
        int i = data->currentfilter ;
        if ( data->extensions[i].Right(2) == wxT(".*") )
            return true ;

        {
            if ( type == (OSType)data->filtermactypes[i] )
                return true ;

            wxStringTokenizer tokenizer( data->extensions[i] , wxT(";") ) ;
            while( tokenizer.HasMoreTokens() )
            {
                wxString extension = tokenizer.GetNextToken() ;
                if ( extension.GetChar(0) == '*' )
                    extension = extension.Mid(1) ;

                if ( file.length() >= extension.length() && extension == file.Right(extension.length() ) )
                    return true ;
            }
        }
        return false ;
    }
    return true ;
}

#ifndef __DARWIN__
static pascal Boolean CrossPlatformFileFilter(CInfoPBPtr myCInfoPBPtr, void *dataPtr)
{
    OpenUserDataRecPtr data = (OpenUserDataRecPtr) dataPtr ;
    // return true if this item is invisible or a file

    Boolean visibleFlag;
    Boolean folderFlag;

    visibleFlag = ! (myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdFlags & kIsInvisible);
    folderFlag = (myCInfoPBPtr->hFileInfo.ioFlAttrib & 0x10);

    // because the semantics of the filter proc are "true means don't show
    // it" we need to invert the result that we return

    if ( !visibleFlag )
        return true ;

    if ( !folderFlag )
    {
        wxString file = wxMacMakeStringFromPascal( myCInfoPBPtr->hFileInfo.ioNamePtr ) ;
        return !CheckFile( file , myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdType , data ) ;
    }

    return false ;
}
#endif

// end wxmac

wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
        const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
        long style, const wxPoint& pos, const wxSize& sz, const wxString& name)
             :wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos, sz, name)
{
    wxASSERT_MSG( NavServicesAvailable() , wxT("Navigation Services are not running") ) ;
}

pascal Boolean CrossPlatformFilterCallback (
    AEDesc *theItem,
    void *info,
    void *callBackUD,
    NavFilterModes filterMode
)
{
    bool display = true;
    OpenUserDataRecPtr data = (OpenUserDataRecPtr) callBackUD ;

    if (filterMode == kNavFilteringBrowserList)
    {
        NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*) info ;
        if ( !theInfo->isFolder )
        {
            if (theItem->descriptorType == typeFSS )
            {
                FSSpec    spec;
                memcpy( &spec , *theItem->dataHandle , sizeof(FSSpec) ) ;
                wxString file = wxMacMakeStringFromPascal( spec.name ) ;
                display = CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType , data ) ;
            }
#if TARGET_CARBON
            else if ( theItem->descriptorType == typeFSRef )
            {
                FSRef fsref ;
                memcpy( &fsref , *theItem->dataHandle , sizeof(FSRef) ) ;


                CFURLRef fullURLRef;
                fullURLRef = ::CFURLCreateFromFSRef(NULL, &fsref);
#ifdef __UNIX__
                CFURLPathStyle pathstyle = kCFURLPOSIXPathStyle;
#else
                CFURLPathStyle pathstyle = kCFURLHFSPathStyle;
#endif
                CFStringRef cfString = CFURLCopyFileSystemPath(fullURLRef, pathstyle);
                ::CFRelease( fullURLRef ) ;
                wxString file = wxMacCFStringHolder(cfString).AsString(wxFont::GetDefaultEncoding());

                display = CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType , data ) ;
            }
#endif
        }
    }

    return display;
}

int wxFileDialog::ShowModal()
{
#if TARGET_CARBON
    OSErr err;
    NavDialogCreationOptions dialogCreateOptions;
    // set default options
    ::NavGetDefaultDialogCreationOptions(&dialogCreateOptions);

    // this was always unset in the old code
    dialogCreateOptions.optionFlags &= ~kNavSelectDefaultLocation;

    wxMacCFStringHolder message(m_message, m_font.GetEncoding());
    dialogCreateOptions.windowTitle = message;

    wxMacCFStringHolder defaultFileName(m_fileName, m_font.GetEncoding());
    dialogCreateOptions.saveFileName = defaultFileName;


    NavDialogRef dialog;
    NavObjectFilterUPP navFilterUPP = NULL;
    CFArrayRef cfArray = NULL; // for popupExtension
    OpenUserDataRec myData;
    myData.defaultLocation = m_dir;

    if (HasFlag(wxFD_SAVE))
    {
        dialogCreateOptions.optionFlags |= kNavNoTypePopup;
        dialogCreateOptions.optionFlags |= kNavDontAutoTranslate;
        dialogCreateOptions.optionFlags |= kNavDontAddTranslateItems;

        // The extension is important
        dialogCreateOptions.optionFlags |= kNavPreserveSaveFileExtension;

        err = ::NavCreatePutFileDialog(&dialogCreateOptions,
                                       'TEXT',
                                       'TEXT',
                                       sStandardNavEventFilter,
                                       &myData, // for defaultLocation
                                       &dialog);
    }
    else
    {
        MakeUserDataRec(&myData , m_wildCard);
        size_t numfilters = myData.extensions.GetCount();
        if (numfilters > 0)
        {
            CFMutableArrayRef popup = CFArrayCreateMutable( kCFAllocatorDefault ,
                numfilters , &kCFTypeArrayCallBacks ) ;
            dialogCreateOptions.popupExtension = popup ;
            myData.menuitems = dialogCreateOptions.popupExtension ;
            for ( size_t i = 0 ; i < numfilters ; ++i )
            {
                CFArrayAppendValue( popup , (CFStringRef) wxMacCFStringHolder( myData.name[i] , m_font.GetEncoding() ) ) ;
            }
        }

        navFilterUPP = NewNavObjectFilterUPP(CrossPlatformFilterCallback);
        err = ::NavCreateGetFileDialog(&dialogCreateOptions,
                                       NULL, // NavTypeListHandle
                                       sStandardNavEventFilter,
                                       NULL, // NavPreviewUPP
                                       navFilterUPP,
                                       (void *) &myData, // inClientData
                                       &dialog);
    }

    if (err == noErr)
        err = ::NavDialogRun(dialog);

    // clean up filter related data, etc.
    if (navFilterUPP)
        ::DisposeNavObjectFilterUPP(navFilterUPP);
    if (cfArray)
        ::CFRelease(cfArray);

    if (err != noErr)
        return wxID_CANCEL;

    NavReplyRecord navReply;
    err = ::NavDialogGetReply(dialog, &navReply);
    if (err == noErr && navReply.validRecord)
    {
        AEKeyword   theKeyword;
        DescType    actualType;
        Size        actualSize;
        FSRef       theFSRef;
        wxString thePath ;
        long count;
        ::AECountItems(&navReply.selection , &count);
        for (long i = 1; i <= count; ++i)
        {
            err = ::AEGetNthPtr(&(navReply.selection), i, typeFSRef, &theKeyword, &actualType,
                                &theFSRef, sizeof(theFSRef), &actualSize);
            if (err != noErr)
                break;

            CFURLRef fullURLRef;
            if (HasFlag(wxFD_SAVE))
            {
                CFURLRef parentURLRef = ::CFURLCreateFromFSRef(NULL, &theFSRef);

                if (parentURLRef)
                {
                    fullURLRef =
                        ::CFURLCreateCopyAppendingPathComponent(NULL,
                                                                parentURLRef,
                                                                navReply.saveFileName,
                                                                false);
                    ::CFRelease(parentURLRef);
                }
            }
            else
            {
                fullURLRef = ::CFURLCreateFromFSRef(NULL, &theFSRef);
            }
#ifdef __UNIX__
            CFURLPathStyle pathstyle = kCFURLPOSIXPathStyle;
#else
            CFURLPathStyle pathstyle = kCFURLHFSPathStyle;
#endif
            CFStringRef cfString = CFURLCopyFileSystemPath(fullURLRef, pathstyle);
            thePath = wxMacCFStringHolder(cfString).AsString(m_font.GetEncoding());
            if (!thePath)
            {
                ::NavDisposeReply(&navReply);
                return wxID_CANCEL;
            }
            m_path = thePath;
            m_paths.Add(m_path);
            m_fileName = wxFileNameFromPath(m_path);
            m_fileNames.Add(m_fileName);
        }
        // set these to the first hit
        m_path = m_paths[0];
        m_fileName = wxFileNameFromPath(m_path);
        m_dir = wxPathOnly(m_path);
    }
    ::NavDisposeReply(&navReply);

    return (err == noErr) ? wxID_OK : wxID_CANCEL;
#else // TARGET_CARBON

    NavDialogOptions           mNavOptions;
    NavObjectFilterUPP           mNavFilterUPP = NULL;
    NavPreviewUPP           mNavPreviewUPP = NULL ;
    NavReplyRecord           mNavReply;
    AEDesc               mDefaultLocation ;
    bool               mSelectDefault = false ;
    OSStatus            err = noErr ;
    // setup dialog

    mNavFilterUPP    = nil;
    mNavPreviewUPP    = nil;
    mSelectDefault    = false;
    mDefaultLocation.descriptorType = typeNull;
    mDefaultLocation.dataHandle     = nil;

    NavGetDefaultDialogOptions(&mNavOptions);
    wxMacStringToPascal( m_message , (StringPtr)mNavOptions.message ) ;
    wxMacStringToPascal( m_fileName , (StringPtr)mNavOptions.savedFileName ) ;

    // Set default location, the location
    //   that's displayed when the dialog
    //   first appears

    FSSpec location ;
    wxMacFilename2FSSpec( m_dir , &location ) ;

    err = ::AECreateDesc(typeFSS, &location, sizeof(FSSpec), &mDefaultLocation );

    if ( mDefaultLocation.dataHandle )
    {
        if (mSelectDefault)
        {
            mNavOptions.dialogOptionFlags |= kNavSelectDefaultLocation;
        } else {
            mNavOptions.dialogOptionFlags &= ~kNavSelectDefaultLocation;
        }
    }

    memset( &mNavReply , 0 , sizeof( mNavReply ) ) ;
    mNavReply.validRecord = false;
    mNavReply.replacing = false;
    mNavReply.isStationery = false;
    mNavReply.translationNeeded = false;
    mNavReply.selection.descriptorType = typeNull;
    mNavReply.selection.dataHandle = nil;
    mNavReply.keyScript = smSystemScript;
    mNavReply.fileTranslation = nil;
    mNavReply.version = kNavReplyRecordVersion ;

    // zero all data

    m_path = wxEmptyString ;
    m_fileName = wxEmptyString ;
    m_paths.Empty();
    m_fileNames.Empty();

    OpenUserDataRec            myData;
    MakeUserDataRec( &myData , m_wildCard ) ;
    myData.currentfilter = m_filterIndex ;
    if ( myData.extensions.GetCount() > 0 )
    {
        mNavOptions.popupExtension = (NavMenuItemSpecArrayHandle) NewHandle( sizeof( NavMenuItemSpec ) * myData.extensions.GetCount() ) ;
        myData.menuitems = mNavOptions.popupExtension ;
        for ( size_t i = 0 ; i < myData.extensions.GetCount() ; ++i )
        {
            (*mNavOptions.popupExtension)[i].version     = kNavMenuItemSpecVersion ;
            (*mNavOptions.popupExtension)[i].menuCreator = 'WXNG' ;
            // TODO : according to the new docs  -1 to 10 are reserved for the OS
            (*mNavOptions.popupExtension)[i].menuType    = i ;
            wxMacStringToPascal( myData.name[i] , (StringPtr)(*mNavOptions.popupExtension)[i].menuItemName ) ;
        }
    }
    if ( HasFlag(wxFD_SAVE) )
    {
        myData.saveMode = true ;

        mNavOptions.dialogOptionFlags |= kNavDontAutoTranslate ;
        mNavOptions.dialogOptionFlags |= kNavDontAddTranslateItems ;

        err = ::NavPutFile(
                           &mDefaultLocation,
                           &mNavReply,
                           &mNavOptions,
                           sStandardNavEventFilter ,
                           NULL,
                           kNavGenericSignature,
                           &myData);                    // User Data
        m_filterIndex = myData.currentfilter ;
    }
    else
    {
        myData.saveMode = false ;

        mNavFilterUPP = NewNavObjectFilterUPP( CrossPlatformFilterCallback ) ;
        if ( m_windowStyle & wxFD_MULTIPLE )
            mNavOptions.dialogOptionFlags |= kNavAllowMultipleFiles ;
        else
            mNavOptions.dialogOptionFlags &= ~kNavAllowMultipleFiles ;

        err = ::NavGetFile(
                           &mDefaultLocation,
                           &mNavReply,
                           &mNavOptions,
                           sStandardNavEventFilter ,
                           mNavPreviewUPP,
                           mNavFilterUPP,
                           NULL ,
                           &myData);
        m_filterIndex = myData.currentfilter ;
    }

    DisposeNavObjectFilterUPP(mNavFilterUPP);
    if ( mDefaultLocation.dataHandle != nil )
    {
        ::AEDisposeDesc(&mDefaultLocation);
    }

    if ( (err != noErr) && (err != userCanceledErr) ) {
        return wxID_CANCEL ;
    }

    if (mNavReply.validRecord)
    {
        FSSpec  outFileSpec ;
        AEDesc specDesc ;
        AEKeyword keyWord ;

        long count ;
        ::AECountItems( &mNavReply.selection , &count ) ;
        for ( long i = 1 ; i <= count ; ++i )
        {
            OSErr err = ::AEGetNthDesc( &mNavReply.selection , i , typeFSS, &keyWord , &specDesc);
            if ( err != noErr )
            {
                m_path = wxEmptyString ;
                return wxID_CANCEL ;
            }
            outFileSpec = **(FSSpec**) specDesc.dataHandle;
            if (specDesc.dataHandle != nil) {
                ::AEDisposeDesc(&specDesc);
            }
            m_path = wxMacFSSpec2MacFilename( &outFileSpec ) ;

            m_paths.Add( m_path ) ;
            m_fileName = wxFileNameFromPath(m_path);
            m_fileNames.Add(m_fileName);
        }
        // set these to the first hit
        m_path = m_paths[ 0 ] ;
        m_fileName = wxFileNameFromPath(m_path);
        m_dir = wxPathOnly(m_path);
        NavDisposeReply( &mNavReply ) ;
        return wxID_OK ;
    }
    return wxID_CANCEL;
#endif // TARGET_CARBON
}
Commit	Line	Data
2646f485	1	/////////////////////////////////////////////////////////////////////////////
18f3decb	2	// Name: src/mac/classic/filedlg.cpp
2646f485 SC	3	// Purpose: wxFileDialog
	4	// Author: Stefan Csomor
	5	// Modified by:
	6	// Created: 1998-01-01
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 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
	17
88a7a4e1 WS	18	#include "wx/filedlg.h"
	19
	20	#ifndef WX_PRECOMP
	21	#include "wx/intl.h"
670f9935	22	#include "wx/app.h"
de6185e2	23	#include "wx/utils.h"
fdf565fe	24	#include "wx/dialog.h"
88a7a4e1 WS	25	#endif
88a7a4e1 WS	26
2646f485 SC	27	#include "wx/tokenzr.h"
	28	#include "wx/filename.h"
	29
	30	#ifndef __DARWIN__
670f9935	31	#include "PLStringFuncs.h"
2646f485 SC	32	#endif
2646f485 SC	33
2646f485	34	IMPLEMENT_CLASS(wxFileDialog, wxFileDialogBase)
2646f485 SC	35
	36	// begin wxmac
	37
	38	#include "wx/mac/private.h"
	39
	40	#include <Navigation.h>
	41
	42	#ifdef __DARWIN__
	43	# include "MoreFilesX.h"
	44	#else
	45	# include "MoreFiles.h"
	46	# include "MoreFilesExtras.h"
	47	#endif
	48
	49	extern bool gUseNavServices ;
	50
	51	// the data we need to pass to our standard file hook routine
	52	// includes a pointer to the dialog, a pointer to the standard
	53	// file reply record (so we can inspect the current selection)
	54	// and a copy of the "previous" file spec of the reply record
	55	// so we can see if the selection has changed
	56
	57	struct OpenUserDataRec {
	58	int currentfilter ;
	59	bool saveMode ;
	60	wxArrayString name ;
	61	wxArrayString extensions ;
	62	wxArrayLong filtermactypes ;
	63	wxString defaultLocation;
	64	#if TARGET_CARBON
	65	CFArrayRef menuitems ;
	66	#else
	67	NavMenuItemSpecArrayHandle menuitems ;
	68	#endif
	69	};
	70
	71	typedef struct OpenUserDataRec
	72	OpenUserDataRec, *OpenUserDataRecPtr;
	73
	74	static pascal void NavEventProc(
	75	NavEventCallbackMessage inSelector,
	76	NavCBRecPtr ioParams,
	77	NavCallBackUserData ioUserData);
	78
	79	#if TARGET_CARBON
	80	static NavEventUPP sStandardNavEventFilter = NewNavEventUPP(NavEventProc);
	81	#else
	82	static NavEventUPP sStandardNavEventFilter = NewNavEventProc(NavEventProc);
	83	#endif
	84
	85	static pascal void
	86	NavEventProc(
	87	NavEventCallbackMessage inSelector,
	88	NavCBRecPtr ioParams,
	89	NavCallBackUserData ioUserData )
	90	{
	91	OpenUserDataRec * data = ( OpenUserDataRec *) ioUserData ;
	92	if (inSelector == kNavCBEvent) {
	93	#if TARGET_CARBON
	94	#else
	95	wxTheApp->MacHandleOneEvent(ioParams->eventData.eventDataParms.event);
	96	#endif
	97	}
	98	else if ( inSelector == kNavCBStart )
99	{
100	#if TARGET_CARBON
de6185e2	101	if (data && !(data->defaultLocation).empty())
2646f485 SC	102	{
	103	// Set default location for the modern Navigation APIs
	104	// Apple Technical Q&A 1151
	105	FSSpec theFSSpec;
	106	wxMacFilename2FSSpec(data->defaultLocation, &theFSSpec);
	107	AEDesc theLocation = {typeNull, NULL};
	108	if (noErr == ::AECreateDesc(typeFSS, &theFSSpec, sizeof(FSSpec), &theLocation))
	109	::NavCustomControl(ioParams->context, kNavCtlSetLocation, (void *) &theLocation);
	110	}
	111	#else
	112	if ( data->menuitems )
	113	NavCustomControl(ioParams->context, kNavCtlSelectCustomType, &(*data->menuitems)[data->currentfilter]);
	114	#endif
	115	}
	116	else if ( inSelector == kNavCBPopupMenuSelect )
	117	{
	118	NavMenuItemSpec * menu = (NavMenuItemSpec *) ioParams->eventData.eventDataParms.param ;
	119	#if TARGET_CARBON
	120	#else
	121	if ( menu->menuCreator == 'WXNG' )
	122	#endif
	123	{
	124	data->currentfilter = menu->menuType ;
	125	if ( data->saveMode )
	126	{
	127	int i = menu->menuType ;
	128	wxString extension = data->extensions[i].AfterLast('.') ;
	129	extension.MakeLower() ;
	130	wxString sfilename ;
	131
	132	#if TARGET_CARBON
	133	wxMacCFStringHolder cfString( NavDialogGetSaveFileName( ioParams->context ) , false );
	134	sfilename = cfString.AsString() ;
	135	#else
	136	Str255 filename ;
	137	// get the current filename
	138	NavCustomControl(ioParams->context, kNavCtlGetEditFileName, &filename);
	139	sfilename = wxMacMakeStringFromPascal( filename ) ;
	140	#endif
	141
	142	int pos = sfilename.Find('.', true) ;
	143	if ( pos != wxNOT_FOUND )
	144	{
	145	sfilename = sfilename.Left(pos+1)+extension ;
	146	#if TARGET_CARBON
	147	cfString.Assign( sfilename , wxFONTENCODING_DEFAULT ) ;
	148	NavDialogSetSaveFileName( ioParams->context , cfString ) ;
	149	#else
	150	wxMacStringToPascal( sfilename , filename ) ;
	151	NavCustomControl(ioParams->context, kNavCtlSetEditFileName, &filename);
	152	#endif
	153	}
	154	}
	155	}
	156	}
	157	}
	158
	159
	160	void MakeUserDataRec(OpenUserDataRec *myData , const wxString& filter )
	161	{
	162	myData->menuitems = NULL ;
	163	myData->currentfilter = 0 ;
	164	myData->saveMode = false ;
	165
166	if ( filter && filter[0] )
167	{
168	wxString filter2(filter) ;
169	int filterIndex = 0;
170	bool isName = true ;
171	wxString current ;
e031f1df	172	for( unsigned int i = 0; i < filter2.length() ; i++ )
2646f485 SC	173	{
	174	if( filter2.GetChar(i) == wxT('\|') )
	175	{
	176	if( isName ) {
	177	myData->name.Add( current ) ;
	178	}
	179	else {
	180	myData->extensions.Add( current.MakeUpper() ) ;
	181	++filterIndex ;
	182	}
	183	isName = !isName ;
	184	current = wxEmptyString ;
	185	}
	186	else
	187	{
	188	current += filter2.GetChar(i) ;
	189	}
	190	}
	191	// we allow for compatibility reason to have a single filter expression (like .) without
	192	// an explanatory text, in that case the first part is name and extension at the same time
	193
	194	wxASSERT_MSG( filterIndex == 0 \|\| !isName , wxT("incorrect format of format string") ) ;
18f3decb	195	if ( current.empty() )
2646f485 SC	196	myData->extensions.Add( myData->name[filterIndex] ) ;
	197	else
	198	myData->extensions.Add( current.MakeUpper() ) ;
	199	if ( filterIndex == 0 \|\| isName )
	200	myData->name.Add( current.MakeUpper() ) ;
	201
	202	++filterIndex ;
	203
	204	const size_t extCount = myData->extensions.GetCount();
	205	for ( size_t i = 0 ; i < extCount; i++ )
	206	{
	207	wxUint32 fileType;
	208	wxUint32 creator;
	209	wxString extension = myData->extensions[i];
	210
	211	if (extension.GetChar(0) == '*')
18f3decb	212	extension = extension.Mid(1); // Remove leading *
2646f485 SC	213
	214	if (extension.GetChar(0) == '.')
	215	{
18f3decb	216	extension = extension.Mid(1); // Remove leading .
2646f485	217	}
18f3decb	218
2646f485 SC	219	if (wxFileName::MacFindDefaultTypeAndCreator( extension, &fileType, &creator ))
	220	{
	221	myData->filtermactypes.Add( (OSType)fileType );
	222	}
	223	else
	224	{
18f3decb WS	225	myData->filtermactypes.Add( '****' ) ; // We'll fail safe if it's not recognized
18f3decb WS	226	}
2646f485 SC	227	}
	228	}
	229	}
	230
	231	static Boolean CheckFile( const wxString &filename , OSType type , OpenUserDataRecPtr data)
	232	{
	233	wxString file(filename) ;
	234	file.MakeUpper() ;
	235
	236	if ( data->extensions.GetCount() > 0 )
	237	{
	238	//for ( int i = 0 ; i < data->numfilters ; ++i )
	239	int i = data->currentfilter ;
	240	if ( data->extensions[i].Right(2) == wxT(".*") )
	241	return true ;
	242
	243	{
	244	if ( type == (OSType)data->filtermactypes[i] )
	245	return true ;
	246
	247	wxStringTokenizer tokenizer( data->extensions[i] , wxT(";") ) ;
	248	while( tokenizer.HasMoreTokens() )
	249	{
	250	wxString extension = tokenizer.GetNextToken() ;
	251	if ( extension.GetChar(0) == '*' )
	252	extension = extension.Mid(1) ;
	253
e031f1df	254	if ( file.length() >= extension.length() && extension == file.Right(extension.length() ) )
2646f485 SC	255	return true ;
	256	}
	257	}
	258	return false ;
	259	}
	260	return true ;
	261	}
	262
	263	#ifndef __DARWIN__
	264	static pascal Boolean CrossPlatformFileFilter(CInfoPBPtr myCInfoPBPtr, void *dataPtr)
	265	{
	266	OpenUserDataRecPtr data = (OpenUserDataRecPtr) dataPtr ;
	267	// return true if this item is invisible or a file
	268
	269	Boolean visibleFlag;
	270	Boolean folderFlag;
	271
	272	visibleFlag = ! (myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdFlags & kIsInvisible);
	273	folderFlag = (myCInfoPBPtr->hFileInfo.ioFlAttrib & 0x10);
	274
	275	// because the semantics of the filter proc are "true means don't show
	276	// it" we need to invert the result that we return
	277
	278	if ( !visibleFlag )
	279	return true ;
	280
	281	if ( !folderFlag )
	282	{
	283	wxString file = wxMacMakeStringFromPascal( myCInfoPBPtr->hFileInfo.ioNamePtr ) ;
	284	return !CheckFile( file , myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdType , data ) ;
	285	}
	286
	287	return false ;
	288	}
	289	#endif
	290
	291	// end wxmac
	292
	293	wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
	294	const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
ff3e84ff VZ	295	long style, const wxPoint& pos, const wxSize& sz, const wxString& name)
ff3e84ff VZ	296	:wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos, sz, name)
2646f485 SC	297	{
	298	wxASSERT_MSG( NavServicesAvailable() , wxT("Navigation Services are not running") ) ;
	299	}
	300
	301	pascal Boolean CrossPlatformFilterCallback (
	302	AEDesc *theItem,
	303	void *info,
	304	void *callBackUD,
	305	NavFilterModes filterMode
	306	)
	307	{
	308	bool display = true;
	309	OpenUserDataRecPtr data = (OpenUserDataRecPtr) callBackUD ;
	310
	311	if (filterMode == kNavFilteringBrowserList)
	312	{
	313	NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*) info ;
	314	if ( !theInfo->isFolder )
	315	{
	316	if (theItem->descriptorType == typeFSS )
	317	{
	318	FSSpec spec;
	319	memcpy( &spec , *theItem->dataHandle , sizeof(FSSpec) ) ;
	320	wxString file = wxMacMakeStringFromPascal( spec.name ) ;
	321	display = CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType , data ) ;
	322	}
670f9935	323	#if TARGET_CARBON
2646f485 SC	324	else if ( theItem->descriptorType == typeFSRef )
	325	{
	326	FSRef fsref ;
	327	memcpy( &fsref , *theItem->dataHandle , sizeof(FSRef) ) ;
	328
	329
	330
18f3decb	331	CFURLRef fullURLRef;
2646f485 SC	332	fullURLRef = ::CFURLCreateFromFSRef(NULL, &fsref);
2646f485 SC	333	#ifdef __UNIX__
18f3decb	334	CFURLPathStyle pathstyle = kCFURLPOSIXPathStyle;
2646f485	335	#else
18f3decb	336	CFURLPathStyle pathstyle = kCFURLHFSPathStyle;
2646f485	337	#endif
18f3decb WS	338	CFStringRef cfString = CFURLCopyFileSystemPath(fullURLRef, pathstyle);
	339	::CFRelease( fullURLRef ) ;
	340	wxString file = wxMacCFStringHolder(cfString).AsString(wxFont::GetDefaultEncoding());
2646f485 SC	341
	342	display = CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType , data ) ;
	343	}
	344	#endif
	345	}
	346	}
	347
	348	return display;
	349	}
	350
	351	int wxFileDialog::ShowModal()
	352	{
	353	#if TARGET_CARBON
	354	OSErr err;
	355	NavDialogCreationOptions dialogCreateOptions;
	356	// set default options
	357	::NavGetDefaultDialogCreationOptions(&dialogCreateOptions);
	358
	359	// this was always unset in the old code
	360	dialogCreateOptions.optionFlags &= ~kNavSelectDefaultLocation;
	361
	362	wxMacCFStringHolder message(m_message, m_font.GetEncoding());
	363	dialogCreateOptions.windowTitle = message;
	364
	365	wxMacCFStringHolder defaultFileName(m_fileName, m_font.GetEncoding());
	366	dialogCreateOptions.saveFileName = defaultFileName;
	367
	368
	369	NavDialogRef dialog;
	370	NavObjectFilterUPP navFilterUPP = NULL;
	371	CFArrayRef cfArray = NULL; // for popupExtension
	372	OpenUserDataRec myData;
	373	myData.defaultLocation = m_dir;
	374
ff3e84ff	375	if (HasFlag(wxFD_SAVE))
2646f485 SC	376	{
	377	dialogCreateOptions.optionFlags \|= kNavNoTypePopup;
	378	dialogCreateOptions.optionFlags \|= kNavDontAutoTranslate;
	379	dialogCreateOptions.optionFlags \|= kNavDontAddTranslateItems;
	380
	381	// The extension is important
	382	dialogCreateOptions.optionFlags \|= kNavPreserveSaveFileExtension;
	383
	384	err = ::NavCreatePutFileDialog(&dialogCreateOptions,
	385	'TEXT',
	386	'TEXT',
	387	sStandardNavEventFilter,
	388	&myData, // for defaultLocation
	389	&dialog);
	390	}
	391	else
	392	{
	393	MakeUserDataRec(&myData , m_wildCard);
	394	size_t numfilters = myData.extensions.GetCount();
	395	if (numfilters > 0)
	396	{
	397	CFMutableArrayRef popup = CFArrayCreateMutable( kCFAllocatorDefault ,
	398	numfilters , &kCFTypeArrayCallBacks ) ;
	399	dialogCreateOptions.popupExtension = popup ;
	400	myData.menuitems = dialogCreateOptions.popupExtension ;
	401	for ( size_t i = 0 ; i < numfilters ; ++i )
	402	{
	403	CFArrayAppendValue( popup , (CFStringRef) wxMacCFStringHolder( myData.name[i] , m_font.GetEncoding() ) ) ;
	404	}
	405	}
	406
	407	navFilterUPP = NewNavObjectFilterUPP(CrossPlatformFilterCallback);
	408	err = ::NavCreateGetFileDialog(&dialogCreateOptions,
	409	NULL, // NavTypeListHandle
	410	sStandardNavEventFilter,
	411	NULL, // NavPreviewUPP
	412	navFilterUPP,
	413	(void *) &myData, // inClientData
	414	&dialog);
	415	}
	416
	417	if (err == noErr)
	418	err = ::NavDialogRun(dialog);
	419
	420	// clean up filter related data, etc.
	421	if (navFilterUPP)
	422	::DisposeNavObjectFilterUPP(navFilterUPP);
	423	if (cfArray)
	424	::CFRelease(cfArray);
	425
	426	if (err != noErr)
	427	return wxID_CANCEL;
	428
	429	NavReplyRecord navReply;
	430	err = ::NavDialogGetReply(dialog, &navReply);
	431	if (err == noErr && navReply.validRecord)
	432	{
	433	AEKeyword theKeyword;
	434	DescType actualType;
	435	Size actualSize;
	436	FSRef theFSRef;
	437	wxString thePath ;
	438	long count;
	439	::AECountItems(&navReply.selection , &count);
440	for (long i = 1; i <= count; ++i)
441	{
442	err = ::AEGetNthPtr(&(navReply.selection), i, typeFSRef, &theKeyword, &actualType,
443	&theFSRef, sizeof(theFSRef), &actualSize);
444	if (err != noErr)
445	break;
446
447	CFURLRef fullURLRef;
ff3e84ff	448	if (HasFlag(wxFD_SAVE))
2646f485 SC	449	{
	450	CFURLRef parentURLRef = ::CFURLCreateFromFSRef(NULL, &theFSRef);
	451
	452	if (parentURLRef)
	453	{
	454	fullURLRef =
	455	::CFURLCreateCopyAppendingPathComponent(NULL,
	456	parentURLRef,
	457	navReply.saveFileName,
	458	false);
	459	::CFRelease(parentURLRef);
	460	}
	461	}
	462	else
	463	{
	464	fullURLRef = ::CFURLCreateFromFSRef(NULL, &theFSRef);
	465	}
	466	#ifdef __UNIX__
	467	CFURLPathStyle pathstyle = kCFURLPOSIXPathStyle;
	468	#else
	469	CFURLPathStyle pathstyle = kCFURLHFSPathStyle;
	470	#endif
	471	CFStringRef cfString = CFURLCopyFileSystemPath(fullURLRef, pathstyle);
	472	thePath = wxMacCFStringHolder(cfString).AsString(m_font.GetEncoding());
	473	if (!thePath)
	474	{
	475	::NavDisposeReply(&navReply);
	476	return wxID_CANCEL;
	477	}
	478	m_path = thePath;
	479	m_paths.Add(m_path);
	480	m_fileName = wxFileNameFromPath(m_path);
	481	m_fileNames.Add(m_fileName);
	482	}
	483	// set these to the first hit
	484	m_path = m_paths[0];
	485	m_fileName = wxFileNameFromPath(m_path);
	486	m_dir = wxPathOnly(m_path);
	487	}
	488	::NavDisposeReply(&navReply);
	489
	490	return (err == noErr) ? wxID_OK : wxID_CANCEL;
	491	#else // TARGET_CARBON
	492
	493	NavDialogOptions mNavOptions;
	494	NavObjectFilterUPP mNavFilterUPP = NULL;
	495	NavPreviewUPP mNavPreviewUPP = NULL ;
	496	NavReplyRecord mNavReply;
	497	AEDesc mDefaultLocation ;
	498	bool mSelectDefault = false ;
	499	OSStatus err = noErr ;
	500	// setup dialog
	501
	502	mNavFilterUPP = nil;
	503	mNavPreviewUPP = nil;
	504	mSelectDefault = false;
	505	mDefaultLocation.descriptorType = typeNull;
	506	mDefaultLocation.dataHandle = nil;
	507
	508	NavGetDefaultDialogOptions(&mNavOptions);
	509	wxMacStringToPascal( m_message , (StringPtr)mNavOptions.message ) ;
	510	wxMacStringToPascal( m_fileName , (StringPtr)mNavOptions.savedFileName ) ;
	511
	512	// Set default location, the location
513	// that's displayed when the dialog
514	// first appears
515
516	FSSpec location ;
517	wxMacFilename2FSSpec( m_dir , &location ) ;
518
519	err = ::AECreateDesc(typeFSS, &location, sizeof(FSSpec), &mDefaultLocation );
520
521	if ( mDefaultLocation.dataHandle )
522	{
523	if (mSelectDefault)
524	{
525	mNavOptions.dialogOptionFlags \|= kNavSelectDefaultLocation;
526	} else {
527	mNavOptions.dialogOptionFlags &= ~kNavSelectDefaultLocation;
528	}
529	}
530
531	memset( &mNavReply , 0 , sizeof( mNavReply ) ) ;
532	mNavReply.validRecord = false;
533	mNavReply.replacing = false;
534	mNavReply.isStationery = false;
535	mNavReply.translationNeeded = false;
536	mNavReply.selection.descriptorType = typeNull;
537	mNavReply.selection.dataHandle = nil;
538	mNavReply.keyScript = smSystemScript;
539	mNavReply.fileTranslation = nil;
540	mNavReply.version = kNavReplyRecordVersion ;
541
542	// zero all data
543
544	m_path = wxEmptyString ;
545	m_fileName = wxEmptyString ;
546	m_paths.Empty();
547	m_fileNames.Empty();
548
549	OpenUserDataRec myData;
550	MakeUserDataRec( &myData , m_wildCard ) ;
551	myData.currentfilter = m_filterIndex ;
552	if ( myData.extensions.GetCount() > 0 )
553	{
554	mNavOptions.popupExtension = (NavMenuItemSpecArrayHandle) NewHandle( sizeof( NavMenuItemSpec ) * myData.extensions.GetCount() ) ;
555	myData.menuitems = mNavOptions.popupExtension ;
556	for ( size_t i = 0 ; i < myData.extensions.GetCount() ; ++i )
557	{
558	(*mNavOptions.popupExtension)[i].version = kNavMenuItemSpecVersion ;
559	(*mNavOptions.popupExtension)[i].menuCreator = 'WXNG' ;
560	// TODO : according to the new docs -1 to 10 are reserved for the OS
561	(*mNavOptions.popupExtension)[i].menuType = i ;
562	wxMacStringToPascal( myData.name[i] , (StringPtr)(*mNavOptions.popupExtension)[i].menuItemName ) ;
563	}
564	}
ff3e84ff	565	if ( HasFlag(wxFD_SAVE) )
2646f485 SC	566	{
	567	myData.saveMode = true ;
	568
	569	mNavOptions.dialogOptionFlags \|= kNavDontAutoTranslate ;
	570	mNavOptions.dialogOptionFlags \|= kNavDontAddTranslateItems ;
	571
	572	err = ::NavPutFile(
	573	&mDefaultLocation,
	574	&mNavReply,
	575	&mNavOptions,
	576	sStandardNavEventFilter ,
	577	NULL,
	578	kNavGenericSignature,
	579	&myData); // User Data
	580	m_filterIndex = myData.currentfilter ;
	581	}
	582	else
	583	{
	584	myData.saveMode = false ;
	585
	586	mNavFilterUPP = NewNavObjectFilterUPP( CrossPlatformFilterCallback ) ;
e031f1df	587	if ( m_windowStyle & wxFD_MULTIPLE )
2646f485 SC	588	mNavOptions.dialogOptionFlags \|= kNavAllowMultipleFiles ;
	589	else
	590	mNavOptions.dialogOptionFlags &= ~kNavAllowMultipleFiles ;
	591
	592	err = ::NavGetFile(
	593	&mDefaultLocation,
	594	&mNavReply,
	595	&mNavOptions,
	596	sStandardNavEventFilter ,
	597	mNavPreviewUPP,
	598	mNavFilterUPP,
	599	NULL ,
	600	&myData);
	601	m_filterIndex = myData.currentfilter ;
	602	}
	603
	604	DisposeNavObjectFilterUPP(mNavFilterUPP);
	605	if ( mDefaultLocation.dataHandle != nil )
	606	{
	607	::AEDisposeDesc(&mDefaultLocation);
	608	}
	609
	610	if ( (err != noErr) && (err != userCanceledErr) ) {
	611	return wxID_CANCEL ;
	612	}
	613
	614	if (mNavReply.validRecord)
	615	{
	616	FSSpec outFileSpec ;
	617	AEDesc specDesc ;
	618	AEKeyword keyWord ;
	619
	620	long count ;
	621	::AECountItems( &mNavReply.selection , &count ) ;
	622	for ( long i = 1 ; i <= count ; ++i )
	623	{
	624	OSErr err = ::AEGetNthDesc( &mNavReply.selection , i , typeFSS, &keyWord , &specDesc);
	625	if ( err != noErr )
	626	{
18f3decb	627	m_path = wxEmptyString ;
2646f485 SC	628	return wxID_CANCEL ;
	629	}
	630	outFileSpec = (FSSpec) specDesc.dataHandle;
	631	if (specDesc.dataHandle != nil) {
	632	::AEDisposeDesc(&specDesc);
	633	}
	634	m_path = wxMacFSSpec2MacFilename( &outFileSpec ) ;
	635
	636	m_paths.Add( m_path ) ;
	637	m_fileName = wxFileNameFromPath(m_path);
	638	m_fileNames.Add(m_fileName);
	639	}
	640	// set these to the first hit
	641	m_path = m_paths[ 0 ] ;
	642	m_fileName = wxFileNameFromPath(m_path);
	643	m_dir = wxPathOnly(m_path);
	644	NavDisposeReply( &mNavReply ) ;
	645	return wxID_OK ;
	646	}
	647	return wxID_CANCEL;
	648	#endif // TARGET_CARBON
	649	}