src/mac/dirdlg.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        dirdlg.cpp
// Purpose:     wxDirDialog
// Author:      AUTHOR
// Modified by:
// Created:     ??/??/98
// RCS-ID:      $Id$
// Copyright:   (c) AUTHOR
// Licence:   	wxWindows licence
/////////////////////////////////////////////////////////////////////////////

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

#include "wx/defs.h"
#include "wx/utils.h"
#include "wx/dialog.h"
#include "wx/dirdlg.h"

#include "wx/cmndata.h"

#include "wx/mac/private.h"

#ifdef __DARWIN__
  #include <Carbon/Carbon.h>
#else
  #include <Navigation.h>
#endif

#if !USE_SHARED_LIBRARY
IMPLEMENT_CLASS(wxDirDialog, wxDialog)
#endif

wxDirDialog::wxDirDialog(wxWindow *parent, const wxString& message,
        const wxString& defaultPath,
        long style, const wxPoint& pos)
{
	wxASSERT_MSG( NavServicesAvailable() , "Navigation Services are not running" ) ;
    m_message = message;
    m_dialogStyle = style;
    m_parent = parent;
	m_path = defaultPath;
}

int wxDirDialog::ShowModal()
{
	NavDialogOptions		mNavOptions;
	NavObjectFilterUPP		mNavFilterUPP = NULL;
	NavPreviewUPP			mNavPreviewUPP = NULL ;
	NavReplyRecord			mNavReply;
	AEDesc*					mDefaultLocation = NULL ;
	bool					mSelectDefault = false ;

	::NavGetDefaultDialogOptions(&mNavOptions);

	mNavFilterUPP	= nil;
	mNavPreviewUPP	= nil;
	mSelectDefault	= false;
	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;

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

	if ( mDefaultLocation ) {

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

	OSErr err = ::NavChooseFolder(
						mDefaultLocation,
						&mNavReply,
						&mNavOptions,
						NULL,
						mNavFilterUPP,
						0L);							// User Data

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

	if (mNavReply.validRecord) {		// User chose a folder

		FSSpec	folderInfo;
		FSSpec  outFileSpec ;
		AEDesc specDesc ;

		OSErr err = ::AECoerceDesc( &mNavReply.selection , typeFSS, &specDesc);
		if ( err != noErr ) {
			m_path = "" ;
			return wxID_CANCEL ;
		}
		folderInfo = **(FSSpec**) specDesc.dataHandle;
		if (specDesc.dataHandle != nil) {
			::AEDisposeDesc(&specDesc);
		}

//			mNavReply.GetFileSpec(folderInfo);

			// The FSSpec from NavChooseFolder is NOT the file spec
			// for the folder. The parID field is actually the DirID
			// of the folder itself, not the folder's parent, and
			// the name field is empty. We must call PBGetCatInfo
			// to get the parent DirID and folder name

		Str255		name;
		CInfoPBRec	thePB;			// Directory Info Parameter Block
		thePB.dirInfo.ioCompletion	= nil;
		thePB.dirInfo.ioVRefNum		= folderInfo.vRefNum;	// Volume is right
		thePB.dirInfo.ioDrDirID		= folderInfo.parID;		// Folder's DirID
		thePB.dirInfo.ioNamePtr		= name;
		thePB.dirInfo.ioFDirIndex	= -1;	// Lookup using Volume and DirID

		err = ::PBGetCatInfoSync(&thePB);
		if ( err != noErr ) {
			m_path = "" ;
			return wxID_CANCEL ;
		}
											// Create cannonical FSSpec
		::FSMakeFSSpec(thePB.dirInfo.ioVRefNum, thePB.dirInfo.ioDrParID,
					   name, &outFileSpec);

		// outFolderDirID = thePB.dirInfo.ioDrDirID;
		m_path = wxMacFSSpec2MacFilename( &outFileSpec ) ;
		return wxID_OK ;
	}
	return wxID_CANCEL;
}
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: dirdlg.cpp
	3	// Purpose: wxDirDialog
	4	// Author: AUTHOR
	5	// Modified by:
	6	// Created: ??/??/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) AUTHOR
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "dirdlg.h"
	14	#endif
	15
	16	#include "wx/defs.h"
	17	#include "wx/utils.h"
	18	#include "wx/dialog.h"
	19	#include "wx/dirdlg.h"
	20
	21	#include "wx/cmndata.h"
	22
	23	#include "wx/mac/private.h"
	24
	25	#ifdef __DARWIN__
	26	#include <Carbon/Carbon.h>
	27	#else
	28	#include <Navigation.h>
	29	#endif
	30
	31	#if !USE_SHARED_LIBRARY
	32	IMPLEMENT_CLASS(wxDirDialog, wxDialog)
	33	#endif
	34
	35	wxDirDialog::wxDirDialog(wxWindow *parent, const wxString& message,
	36	const wxString& defaultPath,
	37	long style, const wxPoint& pos)
	38	{
	39	wxASSERT_MSG( NavServicesAvailable() , "Navigation Services are not running" ) ;
	40	m_message = message;
	41	m_dialogStyle = style;
	42	m_parent = parent;
	43	m_path = defaultPath;
	44	}
	45
	46	int wxDirDialog::ShowModal()
	47	{
	48	NavDialogOptions mNavOptions;
	49	NavObjectFilterUPP mNavFilterUPP = NULL;
	50	NavPreviewUPP mNavPreviewUPP = NULL ;
	51	NavReplyRecord mNavReply;
	52	AEDesc* mDefaultLocation = NULL ;
	53	bool mSelectDefault = false ;
	54
	55	::NavGetDefaultDialogOptions(&mNavOptions);
	56
	57	mNavFilterUPP = nil;
	58	mNavPreviewUPP = nil;
	59	mSelectDefault = false;
	60	mNavReply.validRecord = false;
	61	mNavReply.replacing = false;
	62	mNavReply.isStationery = false;
	63	mNavReply.translationNeeded = false;
	64	mNavReply.selection.descriptorType = typeNull;
	65	mNavReply.selection.dataHandle = nil;
	66	mNavReply.keyScript = smSystemScript;
	67	mNavReply.fileTranslation = nil;
	68
	69	// Set default location, the location
	70	// that's displayed when the dialog
	71	// first appears
	72
	73	if ( mDefaultLocation ) {
	74
	75	if (mSelectDefault) {
	76	mNavOptions.dialogOptionFlags \|= kNavSelectDefaultLocation;
	77	} else {
	78	mNavOptions.dialogOptionFlags &= ~kNavSelectDefaultLocation;
	79	}
	80	}
	81
	82	OSErr err = ::NavChooseFolder(
	83	mDefaultLocation,
	84	&mNavReply,
	85	&mNavOptions,
	86	NULL,
	87	mNavFilterUPP,
	88	0L); // User Data
	89
	90	if ( (err != noErr) && (err != userCanceledErr) ) {
	91	m_path = "" ;
	92	return wxID_CANCEL ;
	93	}
	94
	95	if (mNavReply.validRecord) { // User chose a folder
	96
	97	FSSpec folderInfo;
	98	FSSpec outFileSpec ;
	99	AEDesc specDesc ;
	100
	101	OSErr err = ::AECoerceDesc( &mNavReply.selection , typeFSS, &specDesc);
	102	if ( err != noErr ) {
	103	m_path = "" ;
	104	return wxID_CANCEL ;
	105	}
	106	folderInfo = (FSSpec) specDesc.dataHandle;
	107	if (specDesc.dataHandle != nil) {
	108	::AEDisposeDesc(&specDesc);
	109	}
	110
	111	// mNavReply.GetFileSpec(folderInfo);
	112
	113	// The FSSpec from NavChooseFolder is NOT the file spec
	114	// for the folder. The parID field is actually the DirID
	115	// of the folder itself, not the folder's parent, and
	116	// the name field is empty. We must call PBGetCatInfo
	117	// to get the parent DirID and folder name
	118
	119	Str255 name;
	120	CInfoPBRec thePB; // Directory Info Parameter Block
	121	thePB.dirInfo.ioCompletion = nil;
	122	thePB.dirInfo.ioVRefNum = folderInfo.vRefNum; // Volume is right
	123	thePB.dirInfo.ioDrDirID = folderInfo.parID; // Folder's DirID
	124	thePB.dirInfo.ioNamePtr = name;
	125	thePB.dirInfo.ioFDirIndex = -1; // Lookup using Volume and DirID
	126
	127	err = ::PBGetCatInfoSync(&thePB);
	128	if ( err != noErr ) {
	129	m_path = "" ;
	130	return wxID_CANCEL ;
	131	}
	132	// Create cannonical FSSpec
	133	::FSMakeFSSpec(thePB.dirInfo.ioVRefNum, thePB.dirInfo.ioDrParID,
	134	name, &outFileSpec);
	135
	136	// outFolderDirID = thePB.dirInfo.ioDrDirID;
	137	m_path = wxMacFSSpec2MacFilename( &outFileSpec ) ;
	138	return wxID_OK ;
	139	}
	140	return wxID_CANCEL;
	141	}
	142