/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/* The contents of this file are subject to the Netscape Public License
 * Version 1.1 (the "License"); you may not use this file except in
 * compliance with the License. You may obtain a copy of the License at
 * http://www.mozilla.org/NPL/ 
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 
 * for the specific language governing rights and limitations under the 
 * License. 
 * 
 * The Original Code is Mozilla Communicator client code, released March
 * 31, 1998. 
 *
 * The Initial Developer of the Original Code is Netscape Communications
 * Corporation. Portions created by Netscape are Copyright (C) 1999
 * Netscape Communications Corporation. All Rights Reserved.  
 * 
 * Contributors:
 *     Samir Gehani <sgehani@netscape.com>
 */
 
 
#ifndef _NS_FILESELECTOR_H_
	#include "nsFileSelector.h"
#endif

#include "nsAppleSingleDecoder.h"

nsFileSelector::nsFileSelector()
{
	mFile = NULL;
}

nsFileSelector::~nsFileSelector()
{

}

pascal void
OurNavEventFunction(NavEventCallbackMessage callBackSelector, NavCBRecPtr callBackParms,
					NavCallBackUserData callBackUD)
{
	WindowPtr  windowPtr;
                     
	windowPtr = (WindowPtr) callBackParms->eventData.eventDataParms.event->message;
	if (!windowPtr)
		return;
		
	switch(callBackSelector)
	{
		case kNavCBEvent:
			switch(callBackParms->eventData.eventDataParms.event->what)
			{
				case updateEvt:
					if(((WindowPeek) windowPtr)->windowKind != kDialogWindowKind)
						// XXX irrelevant
						// HandleUpdateEvt((EventRecord *) callBackParms->eventData.eventDataParms.event); 
					break;
			}
			break;
	} 
}

OSErr
nsFileSelector::SelectFile(FSSpecPtr aOutFile)
{
	OSErr	err = noErr;
	NavReplyRecord		reply;	
	NavDialogOptions	dlgOpts;
	NavEventUPP			eventProc;
	AEDesc				resultDesc, initDesc;
	FSSpec				tmp;
	short				cwdVRefNum;
	long				cwdDirID, len;
	
	mFile = aOutFile;
	
	err = NavGetDefaultDialogOptions(&dlgOpts);
	len = strlen("Please select a file");
	nsAppleSingleDecoder::PLstrncpy(dlgOpts.message, "\pPlease select a file", len);
	eventProc = NewNavEventProc( (ProcPtr) OurNavEventFunction );
	
	ERR_CHECK( GetCWD(&cwdDirID, &cwdVRefNum) );
	ERR_CHECK( FSMakeFSSpec(cwdVRefNum, cwdDirID, NULL, &tmp) );
	ERR_CHECK( AECreateDesc(typeFSS, (void*) &tmp, sizeof(FSSpec), &initDesc) );
	
	err = NavChooseFile( &initDesc, &reply, &dlgOpts, eventProc, NULL, NULL, NULL, NULL );	
		
	AEDisposeDesc(&initDesc);
	DisposeRoutineDescriptor(eventProc);
		
	if((reply.validRecord) && (err == noErr))
	{
		if((err = AECoerceDesc(&(reply.selection),typeFSS,&resultDesc)) == noErr)
		{
			BlockMoveData(*resultDesc.dataHandle,&tmp,sizeof(FSSpec));
			/* forces name to get filled */
			FSMakeFSSpec(tmp.vRefNum, tmp.parID, tmp.name, aOutFile); 
		}
            
		AEDisposeDesc(&resultDesc);
		NavDisposeReply(&reply);
	}
	
	return err;
}

OSErr
nsFileSelector::SelectFolder(FSSpecPtr aOutFolder)
{
	OSErr	err = noErr;
	NavReplyRecord		reply;	
	NavDialogOptions	dlgOpts;
	NavEventUPP			eventProc;
	AEDesc				resultDesc, initDesc;
	FSSpec				tmp;
	short				cwdVRefNum;
	long				cwdDirID, len;
	
	mFile = aOutFolder;
	
	err = NavGetDefaultDialogOptions(&dlgOpts);
	len = strlen("Please select a folder");
	nsAppleSingleDecoder::PLstrncpy(dlgOpts.message, "\pPlease select a folder", len);
	eventProc = NewNavEventProc( (ProcPtr) OurNavEventFunction );
	
	ERR_CHECK( GetCWD(&cwdDirID, &cwdVRefNum) );
	ERR_CHECK( FSMakeFSSpec(cwdVRefNum, cwdDirID, NULL, &tmp) );
	ERR_CHECK( AECreateDesc(typeFSS, (void*) &tmp, sizeof(FSSpec), &initDesc) );
	
	err = NavChooseFolder( &initDesc, &reply, &dlgOpts, eventProc, NULL, NULL );
		
	AEDisposeDesc(&initDesc);
	DisposeRoutineDescriptor(eventProc);
		
	if((reply.validRecord) && (err == noErr))
	{
		if((err = AECoerceDesc(&(reply.selection),typeFSS,&resultDesc)) == noErr)
		{
			BlockMoveData(*resultDesc.dataHandle,&tmp,sizeof(FSSpec));
			/* forces name to get filled */
			FSMakeFSSpec(tmp.vRefNum, tmp.parID, tmp.name, aOutFolder); 
		}
            
		AEDisposeDesc(&resultDesc);
		NavDisposeReply(&reply);
	}
	
	return err;
}

OSErr
nsFileSelector::GetCWD(long *aOutDirID, short *aOutVRefNum)
{
	OSErr 				err = noErr;
	ProcessSerialNumber	psn;
	ProcessInfoRec		pInfo;
	FSSpec				tmp;
	
	/* get cwd based on curr ps info */
	if (!(err = GetCurrentProcess(&psn))) 
	{
		pInfo.processName = nil;
		pInfo.processAppSpec = &tmp;
		pInfo.processInfoLength = (sizeof(ProcessInfoRec));
		
		if(!(err = GetProcessInformation(&psn, &pInfo)))
		{
			*aOutDirID = pInfo.processAppSpec->parID;
			*aOutVRefNum = pInfo.processAppSpec->vRefNum;
		}
	}
	
	return err;
}