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