]> git.saurik.com Git - wxWidgets.git/blob - src/osx/carbon/filedlg.cpp
new file added
[wxWidgets.git] / src / osx / carbon / filedlg.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/osx/carbon/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 #include "wx/wxprec.h"
13
14 #if wxUSE_FILEDLG
15
16 #include "wx/filedlg.h"
17
18 #ifndef WX_PRECOMP
19 #include "wx/intl.h"
20 #include "wx/app.h"
21 #include "wx/utils.h"
22 #include "wx/dialog.h"
23 #endif
24
25 #include "wx/tokenzr.h"
26 #include "wx/filename.h"
27
28 #include "wx/osx/private.h"
29
30 #ifndef __DARWIN__
31 #include <Navigation.h>
32 #include "PLStringFuncs.h"
33 #endif
34
35 IMPLEMENT_CLASS(wxFileDialog, wxFileDialogBase)
36
37 // the data we need to pass to our standard file hook routine
38 // includes a pointer to the dialog, a pointer to the standard
39 // file reply record (so we can inspect the current selection)
40 // and a copy of the "previous" file spec of the reply record
41 // so we can see if the selection has changed
42
43 class OpenUserDataRec
44 {
45 public:
46 OpenUserDataRec( wxFileDialog* dialog );
47
48 bool FilterCallback( AEDesc *theItem, void *info, NavFilterModes filterMode );
49 void EventProc( NavEventCallbackMessage inSelector, NavCBRecPtr ioParams );
50
51 int GetCurrentFilter() const {return m_currentfilter;}
52 CFArrayRef GetMenuItems() const { return m_menuitems;}
53
54
55 private:
56 void EventProcCBEvent( NavCBRecPtr ioParams );
57 void EventProcCBEventMouseDown( NavCBRecPtr ioParams);
58 void EventProcCBStart( NavCBRecPtr ioParams );
59 void EventProcCBPopupMenuSelect( NavCBRecPtr ioParams );
60 void EventProcCBCustomize( NavCBRecPtr ioParams );
61 void EventProcCBAdjustRect( NavCBRecPtr ioParams );
62 bool CheckFile( const wxString &filename , OSType type);
63 void MakeUserDataRec( const wxString& filter);
64
65 wxFileDialog* m_dialog;
66 int m_currentfilter;
67 wxString m_defaultLocation;
68 wxArrayString m_extensions;
69 wxArrayLong m_filtermactypes;
70 CFMutableArrayRef m_menuitems;
71 wxArrayString m_name;
72 bool m_saveMode;
73 SInt16 m_lastRight;
74 SInt16 m_lastBottom;
75 bool m_controlAdded;
76 };
77
78 OpenUserDataRec::OpenUserDataRec( wxFileDialog* d)
79 {
80 m_dialog = d;
81 m_controlAdded = false;
82 m_saveMode = m_dialog->HasFdFlag(wxFD_SAVE);
83
84 m_defaultLocation = m_dialog->GetDirectory();
85 MakeUserDataRec(m_dialog->GetWildcard());
86 m_currentfilter = m_dialog->GetFilterIndex();
87
88 m_menuitems = NULL;
89
90 size_t numFilters = m_extensions.GetCount();
91 if (numFilters)
92 {
93 m_menuitems = CFArrayCreateMutable( kCFAllocatorDefault ,
94 numFilters , &kCFTypeArrayCallBacks ) ;
95 for ( size_t i = 0 ; i < numFilters ; ++i )
96 {
97 CFArrayAppendValue( m_menuitems , (CFStringRef) wxCFStringRef( m_name[i] ) ) ;
98 }
99 }
100 m_lastRight = m_lastBottom = 0;
101 }
102
103 void OpenUserDataRec::EventProc(NavEventCallbackMessage inSelector,NavCBRecPtr ioParams)
104 {
105 switch (inSelector)
106 {
107 case kNavCBEvent:
108 EventProcCBEvent(ioParams);
109 break;
110 case kNavCBStart:
111 EventProcCBStart(ioParams);
112 break;
113 case kNavCBPopupMenuSelect:
114 EventProcCBPopupMenuSelect(ioParams);
115 break;
116 case kNavCBCustomize:
117 EventProcCBCustomize(ioParams);
118 break;
119 case kNavCBAdjustRect:
120 EventProcCBAdjustRect(ioParams);
121 break;
122 default:
123 break;
124 }
125 }
126
127 void OpenUserDataRec::EventProcCBEvent(NavCBRecPtr callBackParms)
128 {
129 switch (callBackParms->eventData.eventDataParms.event->what)
130 {
131 case mouseDown:
132 {
133 EventProcCBEventMouseDown(callBackParms);
134 break;
135 }
136 }
137 }
138
139 void OpenUserDataRec::EventProcCBEventMouseDown(NavCBRecPtr callBackParms)
140 {
141 EventRecord *evt = callBackParms->eventData.eventDataParms.event;
142 Point where = evt->where;
143 QDGlobalToLocalPoint(GetWindowPort(callBackParms->window), &where);
144
145 ControlRef whichControl = FindControlUnderMouse(where, callBackParms->window, NULL);
146 if (whichControl != NULL)
147 {
148 ControlKind theKind;
149 GetControlKind(whichControl, &theKind);
150
151 // Moving the focus if we clicked in an focusable control
152 if ((theKind.kind == kControlKindEditUnicodeText) ||
153 (theKind.kind == kControlKindEditText) ||
154 (theKind.kind == kControlKindDataBrowser) ||
155 (theKind.kind == kControlKindListBox))
156 {
157 ControlRef currentlyFocusedControl;
158 GetKeyboardFocus(callBackParms->window, &currentlyFocusedControl);
159 if (currentlyFocusedControl != whichControl)
160 SetKeyboardFocus(callBackParms->window, whichControl, kControlFocusNextPart);
161 }
162 HandleControlClick(whichControl, where, evt->modifiers, NULL);
163 }
164 }
165
166 void OpenUserDataRec::EventProcCBStart(NavCBRecPtr ioParams)
167 {
168 if (!m_defaultLocation.empty())
169 {
170 // Set default location for the modern Navigation APIs
171 // Apple Technical Q&A 1151
172 FSRef theFile;
173 wxMacPathToFSRef(m_defaultLocation, &theFile);
174 AEDesc theLocation = { typeNull, NULL };
175 if (noErr == ::AECreateDesc(typeFSRef, &theFile, sizeof(FSRef), &theLocation))
176 ::NavCustomControl(ioParams->context, kNavCtlSetLocation, (void *) &theLocation);
177 }
178
179 if( m_extensions.GetCount() > 0 )
180 {
181 NavMenuItemSpec menuItem;
182 memset( &menuItem, 0, sizeof(menuItem) );
183 menuItem.version = kNavMenuItemSpecVersion;
184 menuItem.menuType = m_currentfilter;
185 ::NavCustomControl(ioParams->context, kNavCtlSelectCustomType, &menuItem);
186 }
187
188 if (m_dialog->GetExtraControl())
189 {
190 m_controlAdded = true;
191 ControlRef ref = m_dialog->GetExtraControl()->GetPeer()->GetControlRef();
192 NavCustomControl(ioParams->context, kNavCtlAddControl, ref);
193 }
194
195 }
196
197 void OpenUserDataRec::EventProcCBPopupMenuSelect(NavCBRecPtr ioParams)
198 {
199 NavMenuItemSpec * menu = (NavMenuItemSpec *) ioParams->eventData.eventDataParms.param ;
200 const size_t numFilters = m_extensions.GetCount();
201
202 if ( menu->menuType < numFilters )
203 {
204 m_currentfilter = menu->menuType ;
205 if ( m_saveMode )
206 {
207 int i = menu->menuType ;
208
209 // isolate the first extension string
210 wxString firstExtension = m_extensions[i].BeforeFirst('|').BeforeFirst(';');
211
212 wxString extension = firstExtension.AfterLast('.') ;
213 wxString sfilename ;
214
215 wxCFStringRef cfString( wxCFRetain( NavDialogGetSaveFileName( ioParams->context ) ) );
216 sfilename = cfString.AsString() ;
217
218 int pos = sfilename.Find('.', true) ;
219 if ( pos != wxNOT_FOUND && extension != wxT("*") )
220 {
221 sfilename = sfilename.Left(pos+1)+extension ;
222 cfString = wxCFStringRef( sfilename , wxFONTENCODING_DEFAULT ) ;
223 NavDialogSetSaveFileName( ioParams->context , cfString ) ;
224 }
225 }
226 }
227 }
228
229 void OpenUserDataRec::EventProcCBCustomize(NavCBRecPtr ioParams)
230 {
231 wxWindow* control = m_dialog->GetExtraControl();
232
233 if ( control )
234 {
235 SInt16 neededRight, neededBottom;
236
237 wxSize size = m_dialog->GetExtraControl()->GetSize();
238 neededRight = ioParams->customRect.left + size.x;
239 neededBottom = ioParams->customRect.top + size.y;
240
241 if (ioParams->customRect.right == 0 && ioParams->customRect.bottom == 0)
242 {
243 ioParams->customRect.right = neededRight;
244 ioParams->customRect.bottom = neededBottom;
245 }
246 else
247 {
248 if ( ioParams->customRect.right != m_lastRight )
249 {
250 if ( ioParams->customRect.right < neededRight )
251 ioParams->customRect.right = neededRight;
252 }
253 if ( ioParams->customRect.bottom != m_lastBottom )
254 {
255 if ( ioParams->customRect.bottom < neededBottom )
256 ioParams->customRect.bottom = neededBottom;
257 }
258 }
259 m_lastRight = ioParams->customRect.right;
260 m_lastBottom = ioParams->customRect.bottom;
261 }
262 }
263
264 void OpenUserDataRec::EventProcCBAdjustRect(NavCBRecPtr ioParams)
265 {
266 wxWindow* control = m_dialog->GetExtraControl();
267
268 if ( control && m_controlAdded)
269 {
270 control->SetSize(ioParams->customRect.left , ioParams->customRect.top,
271 ioParams->customRect.right - ioParams->customRect.left,
272 ioParams->customRect.bottom - ioParams->customRect.top);
273 }
274 }
275
276 void OpenUserDataRec::MakeUserDataRec( const wxString& filter )
277 {
278 if ( !filter.empty() )
279 {
280 wxString filter2(filter) ;
281 int filterIndex = 0;
282 bool isName = true ;
283 wxString current ;
284
285 for ( unsigned int i = 0; i < filter2.length() ; i++ )
286 {
287 if ( filter2.GetChar(i) == wxT('|') )
288 {
289 if ( isName )
290 {
291 m_name.Add( current ) ;
292 }
293 else
294 {
295 m_extensions.Add( current ) ;
296 ++filterIndex ;
297 }
298
299 isName = !isName ;
300 current = wxEmptyString ;
301 }
302 else
303 {
304 current += filter2.GetChar(i) ;
305 }
306 }
307 // we allow for compatibility reason to have a single filter expression (like *.*) without
308 // an explanatory text, in that case the first part is name and extension at the same time
309
310 wxASSERT_MSG( filterIndex == 0 || !isName , wxT("incorrect format of format string") ) ;
311 if ( current.empty() )
312 m_extensions.Add( m_name[filterIndex] ) ;
313 else
314 m_extensions.Add( current ) ;
315 if ( filterIndex == 0 || isName )
316 m_name.Add( current ) ;
317
318 ++filterIndex ;
319
320 const size_t extCount = m_extensions.GetCount();
321 for ( size_t i = 0 ; i < extCount; i++ )
322 {
323 wxUint32 fileType, creator;
324 wxString extension = m_extensions[i];
325
326 // Remove leading '*'
327 if ( !extension.empty() && (extension.GetChar(0) == '*') )
328 extension = extension.Mid( 1 );
329
330 // Remove leading '.'
331 if ( !extension.empty() && (extension.GetChar(0) == '.') )
332 extension = extension.Mid( 1 );
333
334 if (wxFileName::MacFindDefaultTypeAndCreator( extension, &fileType, &creator ))
335 m_filtermactypes.Add( (OSType)fileType );
336 else
337 m_filtermactypes.Add( '****' ); // We'll fail safe if it's not recognized
338 }
339 }
340 }
341
342 bool OpenUserDataRec::CheckFile( const wxString &filename , OSType type)
343 {
344 wxString file(filename) ;
345 file.MakeUpper() ;
346
347 if ( m_extensions.GetCount() > 0 )
348 {
349 //for ( int i = 0 ; i < data->numfilters ; ++i )
350 int i = m_currentfilter ;
351 if ( m_extensions[i].Right(2) == wxT(".*") )
352 return true ;
353
354 {
355 if ( type == (OSType)m_filtermactypes[i] )
356 return true ;
357
358 wxStringTokenizer tokenizer( m_extensions[i] , wxT(";") ) ;
359 while ( tokenizer.HasMoreTokens() )
360 {
361 wxString extension = tokenizer.GetNextToken() ;
362 if ( extension.GetChar(0) == '*' )
363 extension = extension.Mid(1) ;
364 extension.MakeUpper();
365
366 if ( file.length() >= extension.length() && extension == file.Right(extension.length() ) )
367 return true ;
368 }
369 }
370
371 return false ;
372 }
373
374 return true ;
375 }
376
377 bool OpenUserDataRec::FilterCallback(
378 AEDesc *theItem,
379 void *info,
380 NavFilterModes filterMode )
381 {
382 if (filterMode == kNavFilteringBrowserList)
383 {
384 // We allow navigation to all folders. For files, we check against the current
385 // filter string.
386 // However, packages should be dealt with like files and not like folders. So
387 // check if a folder is a package before deciding what to do.
388 NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*) info ;
389 FSRef fsref;
390
391 if ( theInfo->isFolder )
392 {
393 // check bundle bit (using Finder Services - used by OS9 on some bundles)
394 FSCatalogInfo catalogInfo;
395 if (FSGetCatalogInfo (&fsref, kFSCatInfoFinderInfo, &catalogInfo, NULL, NULL, NULL) != noErr)
396 return true;
397
398 // Check bundle item (using Launch Services - used by OS-X through info.plist or APP)
399 LSItemInfoRecord lsInfo;
400 if (LSCopyItemInfoForRef(&fsref, kLSRequestBasicFlagsOnly, &lsInfo ) != noErr)
401 return true;
402
403 // If it's not a bundle, then it's a normal folder and it passes our filter
404 FileInfo *fileInfo = (FileInfo *) catalogInfo.finderInfo;
405 if ( !(fileInfo->finderFlags & kHasBundle) &&
406 !(lsInfo.flags & (kLSItemInfoIsApplication | kLSItemInfoIsPackage)) )
407 return true;
408 }
409 else
410 {
411 AECoerceDesc (theItem, typeFSRef, theItem);
412 if ( AEGetDescData (theItem, &fsref, sizeof (FSRef)) == noErr)
413 {
414 wxString file = wxMacFSRefToPath( &fsref ) ;
415 return CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType ) ;
416 }
417 }
418 }
419
420 return true;
421 }
422
423 // end wxmac
424
425 pascal Boolean CrossPlatformFilterCallback(
426 AEDesc *theItem,
427 void *info,
428 void *callBackUD,
429 NavFilterModes filterMode );
430
431 pascal Boolean CrossPlatformFilterCallback(
432 AEDesc *theItem,
433 void *info,
434 void *callBackUD,
435 NavFilterModes filterMode )
436 {
437 OpenUserDataRec* data = (OpenUserDataRec*) callBackUD ;
438 return data->FilterCallback(theItem,info,filterMode);
439 }
440
441 static pascal void NavEventProc(
442 NavEventCallbackMessage inSelector,
443 NavCBRecPtr ioParams,
444 NavCallBackUserData ioUserData );
445
446 static NavEventUPP sStandardNavEventFilter = NewNavEventUPP(NavEventProc);
447
448 static pascal void NavEventProc(
449 NavEventCallbackMessage inSelector,
450 NavCBRecPtr ioParams,
451 NavCallBackUserData ioUserData )
452 {
453 OpenUserDataRec * data = ( OpenUserDataRec *) ioUserData ;
454 data->EventProc(inSelector, ioParams);
455 }
456
457
458 wxFileDialog::wxFileDialog(
459 wxWindow *parent, const wxString& message,
460 const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
461 long style, const wxPoint& pos, const wxSize& sz, const wxString& name)
462 : wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos, sz, name)
463 {
464 wxASSERT_MSG( NavServicesAvailable() , wxT("Navigation Services are not running") ) ;
465 }
466
467 void wxFileDialog::SetupExtraControls(WXWindow nativeWindow)
468 {
469 wxTopLevelWindow::Create( GetParent(), nativeWindow );
470
471 if (HasExtraControlCreator())
472 {
473 CreateExtraControl();
474 }
475 }
476
477 int wxFileDialog::ShowModal()
478 {
479 m_paths.Empty();
480 m_fileNames.Empty();
481
482 OSErr err;
483 NavDialogCreationOptions dialogCreateOptions;
484
485 // set default options
486 ::NavGetDefaultDialogCreationOptions(&dialogCreateOptions);
487
488 // this was always unset in the old code
489 dialogCreateOptions.optionFlags &= ~kNavSelectDefaultLocation;
490
491 wxCFStringRef message(m_message, GetFont().GetEncoding());
492 dialogCreateOptions.windowTitle = message;
493
494 wxCFStringRef defaultFileName(m_fileName, GetFont().GetEncoding());
495 dialogCreateOptions.saveFileName = defaultFileName;
496
497 NavDialogRef dialog;
498 NavObjectFilterUPP navFilterUPP = NULL;
499 OpenUserDataRec myData( this );
500
501 dialogCreateOptions.popupExtension = myData.GetMenuItems();
502
503 if (HasFdFlag(wxFD_SAVE))
504 {
505 dialogCreateOptions.optionFlags |= kNavDontAutoTranslate;
506 dialogCreateOptions.optionFlags |= kNavDontAddTranslateItems;
507 if (dialogCreateOptions.popupExtension == NULL)
508 dialogCreateOptions.optionFlags |= kNavNoTypePopup;
509
510 // The extension is important
511 if ( dialogCreateOptions.popupExtension == NULL || CFArrayGetCount(dialogCreateOptions.popupExtension)<2)
512 dialogCreateOptions.optionFlags |= kNavPreserveSaveFileExtension;
513
514 if (!(m_windowStyle & wxFD_OVERWRITE_PROMPT))
515 dialogCreateOptions.optionFlags |= kNavDontConfirmReplacement;
516
517 err = ::NavCreatePutFileDialog(
518 &dialogCreateOptions,
519 kNavGenericSignature, // Suppresses the 'Default' (top) menu item
520 kNavGenericSignature,
521 sStandardNavEventFilter,
522 &myData, // for defaultLocation
523 &dialog );
524 }
525 else
526 {
527 // let the user select bundles/programs in dialogs
528 dialogCreateOptions.optionFlags |= kNavSupportPackages;
529
530 navFilterUPP = NewNavObjectFilterUPP(CrossPlatformFilterCallback);
531 err = ::NavCreateGetFileDialog(
532 &dialogCreateOptions,
533 NULL, // NavTypeListHandle
534 sStandardNavEventFilter,
535 NULL, // NavPreviewUPP
536 navFilterUPP,
537 (void *) &myData, // inClientData
538 &dialog );
539 }
540
541 SetupExtraControls(NavDialogGetWindow(dialog));
542
543 if (err == noErr)
544 {
545 wxDialog::OSXBeginModalDialog();
546 err = ::NavDialogRun(dialog);
547 wxDialog::OSXEndModalDialog();
548 }
549
550 // clean up filter related data, etc.
551 if (navFilterUPP)
552 ::DisposeNavObjectFilterUPP(navFilterUPP);
553
554 if (err != noErr)
555 {
556 ::NavDialogDispose(dialog);
557 return wxID_CANCEL;
558 }
559
560 NavReplyRecord navReply;
561 err = ::NavDialogGetReply(dialog, &navReply);
562 if (err == noErr && navReply.validRecord)
563 {
564 AEKeyword theKeyword;
565 DescType actualType;
566 Size actualSize;
567 FSRef theFSRef;
568 wxString thePath ;
569 long count;
570
571 m_filterIndex = myData.GetCurrentFilter();
572 ::AECountItems( &navReply.selection, &count );
573 for (long i = 1; i <= count; ++i)
574 {
575 err = ::AEGetNthPtr(
576 &(navReply.selection), i, typeFSRef, &theKeyword, &actualType,
577 &theFSRef, sizeof(theFSRef), &actualSize );
578 if (err != noErr)
579 break;
580
581 if (HasFdFlag(wxFD_SAVE))
582 thePath = wxMacFSRefToPath( &theFSRef, navReply.saveFileName );
583 else
584 thePath = wxMacFSRefToPath( &theFSRef );
585
586 if (!thePath)
587 {
588 ::NavDisposeReply(&navReply);
589 ::NavDialogDispose(dialog);
590 return wxID_CANCEL;
591 }
592
593 m_path = thePath;
594 m_paths.Add(m_path);
595 m_fileName = wxFileNameFromPath(m_path);
596 m_fileNames.Add(m_fileName);
597 }
598
599 // set these to the first hit
600 m_path = m_paths[0];
601 m_fileName = wxFileNameFromPath(m_path);
602 m_dir = wxPathOnly(m_path);
603 }
604
605 UnsubclassWin();
606 ::NavDisposeReply(&navReply);
607 ::NavDialogDispose(dialog);
608
609 return (err == noErr) ? wxID_OK : wxID_CANCEL;
610 }
611
612 bool wxFileDialog::SupportsExtraControl() const
613 {
614 return true;
615 }
616
617 #endif // wxUSE_FILEDLG
618