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