]>
Commit | Line | Data |
---|---|---|
e9576ca5 SC |
1 | ///////////////////////////////////////////////////////////////////////////// |
2 | // Name: filedlg.cpp | |
685a634c | 3 | // Purpose: wxFileDialog |
a31a5f85 | 4 | // Author: Stefan Csomor |
e9576ca5 | 5 | // Modified by: |
a31a5f85 | 6 | // Created: 1998-01-01 |
e9576ca5 | 7 | // RCS-ID: $Id$ |
a31a5f85 | 8 | // Copyright: (c) Stefan Csomor |
65571936 | 9 | // Licence: wxWindows licence |
e9576ca5 SC |
10 | ///////////////////////////////////////////////////////////////////////////// |
11 | ||
3d1a4878 SC |
12 | #include "wx/wxprec.h" |
13 | ||
5fde6fcc | 14 | #include "wx/app.h" |
e9576ca5 SC |
15 | #include "wx/utils.h" |
16 | #include "wx/dialog.h" | |
17 | #include "wx/filedlg.h" | |
18 | #include "wx/intl.h" | |
fe35d097 | 19 | #include "wx/tokenzr.h" |
5974c3cf | 20 | #include "wx/filename.h" |
e9576ca5 | 21 | |
76a5e5d2 SC |
22 | #include "wx/mac/private.h" |
23 | ||
768c6e8b | 24 | #ifndef __DARWIN__ |
f3078f07 DS |
25 | #include <Navigation.h> |
26 | #include "PLStringFuncs.h" | |
768c6e8b | 27 | #endif |
5b781a67 | 28 | |
a2b77260 | 29 | #include "MoreFilesX.h" |
685a634c | 30 | |
f3078f07 DS |
31 | IMPLEMENT_CLASS(wxFileDialog, wxFileDialogBase) |
32 | ||
33 | extern bool gUseNavServices; | |
5b781a67 | 34 | |
4d4d8bbf SC |
35 | // the data we need to pass to our standard file hook routine |
36 | // includes a pointer to the dialog, a pointer to the standard | |
37 | // file reply record (so we can inspect the current selection) | |
38 | // and a copy of the "previous" file spec of the reply record | |
39 | // so we can see if the selection has changed | |
40 | ||
f3078f07 DS |
41 | struct OpenUserDataRec |
42 | { | |
a4f5b9b9 GD |
43 | int currentfilter ; |
44 | bool saveMode ; | |
2b5f62a0 VZ |
45 | wxArrayString name ; |
46 | wxArrayString extensions ; | |
e40298d5 | 47 | wxArrayLong filtermactypes ; |
685a634c | 48 | wxString defaultLocation; |
a4f5b9b9 | 49 | CFArrayRef menuitems ; |
4d4d8bbf | 50 | }; |
2b5f62a0 | 51 | |
4d4d8bbf | 52 | typedef struct OpenUserDataRec |
a4f5b9b9 | 53 | OpenUserDataRec, *OpenUserDataRecPtr; |
4d4d8bbf | 54 | |
f3078f07 DS |
55 | static pascal void NavEventProc( |
56 | NavEventCallbackMessage inSelector, | |
57 | NavCBRecPtr ioParams, | |
58 | NavCallBackUserData ioUserData ); | |
5b781a67 | 59 | |
f3078f07 | 60 | static NavEventUPP sStandardNavEventFilter = NewNavEventUPP(NavEventProc); |
5b781a67 | 61 | |
f3078f07 DS |
62 | static pascal void NavEventProc( |
63 | NavEventCallbackMessage inSelector, | |
64 | NavCBRecPtr ioParams, | |
65 | NavCallBackUserData ioUserData ) | |
5b781a67 | 66 | { |
e40298d5 | 67 | OpenUserDataRec * data = ( OpenUserDataRec *) ioUserData ; |
f3078f07 DS |
68 | if (inSelector == kNavCBEvent) |
69 | { | |
685a634c | 70 | } |
e40298d5 JS |
71 | else if ( inSelector == kNavCBStart ) |
72 | { | |
a4f5b9b9 GD |
73 | if (data && !(data->defaultLocation).IsEmpty()) |
74 | { | |
75 | // Set default location for the modern Navigation APIs | |
76 | // Apple Technical Q&A 1151 | |
77 | FSSpec theFSSpec; | |
78 | wxMacFilename2FSSpec(data->defaultLocation, &theFSSpec); | |
f3078f07 | 79 | AEDesc theLocation = { typeNull, NULL }; |
a4f5b9b9 GD |
80 | if (noErr == ::AECreateDesc(typeFSS, &theFSSpec, sizeof(FSSpec), &theLocation)) |
81 | ::NavCustomControl(ioParams->context, kNavCtlSetLocation, (void *) &theLocation); | |
82 | } | |
75338075 DS |
83 | |
84 | NavMenuItemSpec menuItem; | |
85 | menuItem.version = kNavMenuItemSpecVersion; | |
86 | menuItem.menuCreator = 'WXNG'; | |
87 | menuItem.menuType = data->currentfilter; | |
88 | wxMacStringToPascal( data->name[data->currentfilter] , (StringPtr)(menuItem.menuItemName) ) ; | |
89 | ::NavCustomControl(ioParams->context, kNavCtlSelectCustomType, &menuItem); | |
e40298d5 JS |
90 | } |
91 | else if ( inSelector == kNavCBPopupMenuSelect ) | |
92 | { | |
93 | NavMenuItemSpec * menu = (NavMenuItemSpec *) ioParams->eventData.eventDataParms.param ; | |
75338075 DS |
94 | const size_t numFilters = data->extensions.GetCount(); |
95 | ||
96 | if ( menu->menuType < numFilters ) | |
e40298d5 JS |
97 | { |
98 | data->currentfilter = menu->menuType ; | |
99 | if ( data->saveMode ) | |
100 | { | |
101 | int i = menu->menuType ; | |
102 | wxString extension = data->extensions[i].AfterLast('.') ; | |
103 | extension.MakeLower() ; | |
f65d4b83 | 104 | wxString sfilename ; |
685a634c | 105 | |
4891a3d5 | 106 | wxMacCFStringHolder cfString( NavDialogGetSaveFileName( ioParams->context ) , false ); |
f65d4b83 | 107 | sfilename = cfString.AsString() ; |
f65d4b83 | 108 | |
685a634c | 109 | int pos = sfilename.Find('.', true) ; |
e40298d5 JS |
110 | if ( pos != wxNOT_FOUND ) |
111 | { | |
112 | sfilename = sfilename.Left(pos+1)+extension ; | |
a9412f8f | 113 | cfString.Assign( sfilename , wxFONTENCODING_DEFAULT ) ; |
f65d4b83 | 114 | NavDialogSetSaveFileName( ioParams->context , cfString ) ; |
e40298d5 JS |
115 | } |
116 | } | |
f65d4b83 | 117 | } |
e40298d5 | 118 | } |
5b781a67 SC |
119 | } |
120 | ||
f3078f07 | 121 | void MakeUserDataRec(OpenUserDataRec *myData , const wxString& filter ) |
4d4d8bbf | 122 | { |
e40298d5 JS |
123 | myData->menuitems = NULL ; |
124 | myData->currentfilter = 0 ; | |
685a634c DS |
125 | myData->saveMode = false ; |
126 | ||
e40298d5 | 127 | if ( filter && filter[0] ) |
4d4d8bbf | 128 | { |
e40298d5 JS |
129 | wxString filter2(filter) ; |
130 | int filterIndex = 0; | |
131 | bool isName = true ; | |
132 | wxString current ; | |
f3078f07 DS |
133 | |
134 | for ( unsigned int i = 0; i < filter2.Len() ; i++ ) | |
e40298d5 | 135 | { |
f3078f07 | 136 | if ( filter2.GetChar(i) == wxT('|') ) |
e40298d5 | 137 | { |
f3078f07 DS |
138 | if ( isName ) |
139 | { | |
e40298d5 JS |
140 | myData->name.Add( current ) ; |
141 | } | |
f3078f07 DS |
142 | else |
143 | { | |
e40298d5 JS |
144 | myData->extensions.Add( current.MakeUpper() ) ; |
145 | ++filterIndex ; | |
146 | } | |
f3078f07 | 147 | |
e40298d5 | 148 | isName = !isName ; |
427ff662 | 149 | current = wxEmptyString ; |
e40298d5 JS |
150 | } |
151 | else | |
152 | { | |
153 | current += filter2.GetChar(i) ; | |
154 | } | |
4d4d8bbf | 155 | } |
e40298d5 JS |
156 | // we allow for compatibility reason to have a single filter expression (like *.*) without |
157 | // an explanatory text, in that case the first part is name and extension at the same time | |
685a634c | 158 | |
427ff662 | 159 | wxASSERT_MSG( filterIndex == 0 || !isName , wxT("incorrect format of format string") ) ; |
e40298d5 JS |
160 | if ( current.IsEmpty() ) |
161 | myData->extensions.Add( myData->name[filterIndex] ) ; | |
162 | else | |
163 | myData->extensions.Add( current.MakeUpper() ) ; | |
164 | if ( filterIndex == 0 || isName ) | |
165 | myData->name.Add( current.MakeUpper() ) ; | |
685a634c | 166 | |
e40298d5 | 167 | ++filterIndex ; |
685a634c | 168 | |
2b5f62a0 | 169 | const size_t extCount = myData->extensions.GetCount(); |
e40298d5 JS |
170 | for ( size_t i = 0 ; i < extCount; i++ ) |
171 | { | |
f3078f07 | 172 | wxUint32 fileType, creator; |
5974c3cf SC |
173 | wxString extension = myData->extensions[i]; |
174 | ||
f3078f07 | 175 | // Remove leading '*' |
6264c8e2 | 176 | if (extension.length() && (extension.GetChar(0) == '*')) |
f3078f07 | 177 | extension = extension.Mid( 1 ); |
5974c3cf | 178 | |
f3078f07 | 179 | // Remove leading '.' |
6264c8e2 | 180 | if (extension.length() && (extension.GetChar(0) == '.')) |
f3078f07 | 181 | extension = extension.Mid( 1 ); |
5974c3cf SC |
182 | |
183 | if (wxFileName::MacFindDefaultTypeAndCreator( extension, &fileType, &creator )) | |
5974c3cf | 184 | myData->filtermactypes.Add( (OSType)fileType ); |
5974c3cf | 185 | else |
f3078f07 | 186 | myData->filtermactypes.Add( '****' ); // We'll fail safe if it's not recognized |
e40298d5 JS |
187 | } |
188 | } | |
4d4d8bbf | 189 | } |
bb378910 | 190 | |
f65d4b83 | 191 | static Boolean CheckFile( const wxString &filename , OSType type , OpenUserDataRecPtr data) |
4d4d8bbf | 192 | { |
a4f5b9b9 | 193 | wxString file(filename) ; |
9f92f6fb | 194 | file.MakeUpper() ; |
685a634c | 195 | |
2b5f62a0 | 196 | if ( data->extensions.GetCount() > 0 ) |
da2b4b7a | 197 | { |
e40298d5 JS |
198 | //for ( int i = 0 ; i < data->numfilters ; ++i ) |
199 | int i = data->currentfilter ; | |
427ff662 | 200 | if ( data->extensions[i].Right(2) == wxT(".*") ) |
e40298d5 | 201 | return true ; |
685a634c | 202 | |
e40298d5 JS |
203 | { |
204 | if ( type == (OSType)data->filtermactypes[i] ) | |
205 | return true ; | |
685a634c | 206 | |
427ff662 | 207 | wxStringTokenizer tokenizer( data->extensions[i] , wxT(";") ) ; |
f3078f07 | 208 | while ( tokenizer.HasMoreTokens() ) |
e40298d5 JS |
209 | { |
210 | wxString extension = tokenizer.GetNextToken() ; | |
211 | if ( extension.GetChar(0) == '*' ) | |
212 | extension = extension.Mid(1) ; | |
685a634c | 213 | |
e40298d5 JS |
214 | if ( file.Len() >= extension.Len() && extension == file.Right(extension.Len() ) ) |
215 | return true ; | |
216 | } | |
217 | } | |
f3078f07 | 218 | |
e40298d5 | 219 | return false ; |
da2b4b7a | 220 | } |
f3078f07 | 221 | |
da2b4b7a | 222 | return true ; |
4d4d8bbf SC |
223 | } |
224 | ||
a2b77260 | 225 | #if !TARGET_API_MAC_OSX |
5fde6fcc | 226 | static pascal Boolean CrossPlatformFileFilter(CInfoPBPtr myCInfoPBPtr, void *dataPtr) |
a4f5b9b9 | 227 | { |
e40298d5 JS |
228 | OpenUserDataRecPtr data = (OpenUserDataRecPtr) dataPtr ; |
229 | // return true if this item is invisible or a file | |
230 | ||
231 | Boolean visibleFlag; | |
232 | Boolean folderFlag; | |
685a634c | 233 | |
e40298d5 JS |
234 | visibleFlag = ! (myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdFlags & kIsInvisible); |
235 | folderFlag = (myCInfoPBPtr->hFileInfo.ioFlAttrib & 0x10); | |
685a634c | 236 | |
e40298d5 JS |
237 | // because the semantics of the filter proc are "true means don't show |
238 | // it" we need to invert the result that we return | |
685a634c | 239 | |
e40298d5 JS |
240 | if ( !visibleFlag ) |
241 | return true ; | |
685a634c | 242 | |
e40298d5 JS |
243 | if ( !folderFlag ) |
244 | { | |
a4f5b9b9 | 245 | wxString file = wxMacMakeStringFromPascal( myCInfoPBPtr->hFileInfo.ioNamePtr ) ; |
f65d4b83 | 246 | return !CheckFile( file , myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdType , data ) ; |
a4f5b9b9 | 247 | } |
685a634c | 248 | |
e40298d5 | 249 | return false ; |
519cb848 | 250 | } |
bb378910 | 251 | #endif |
519cb848 SC |
252 | |
253 | // end wxmac | |
254 | ||
f3078f07 DS |
255 | wxFileDialog::wxFileDialog( |
256 | wxWindow *parent, const wxString& message, | |
257 | const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard, | |
258 | long style, const wxPoint& pos) | |
259 | : wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos) | |
e9576ca5 | 260 | { |
427ff662 | 261 | wxASSERT_MSG( NavServicesAvailable() , wxT("Navigation Services are not running") ) ; |
e9576ca5 SC |
262 | } |
263 | ||
f3078f07 | 264 | pascal Boolean CrossPlatformFilterCallback( |
685a634c DS |
265 | AEDesc *theItem, |
266 | void *info, | |
267 | void *callBackUD, | |
f3078f07 | 268 | NavFilterModes filterMode ) |
4d4d8bbf | 269 | { |
2d4e4f80 GD |
270 | bool display = true; |
271 | OpenUserDataRecPtr data = (OpenUserDataRecPtr) callBackUD ; | |
685a634c | 272 | |
2d4e4f80 GD |
273 | if (filterMode == kNavFilteringBrowserList) |
274 | { | |
275 | NavFileOrFolderInfo* theInfo = (NavFileOrFolderInfo*) info ; | |
f65d4b83 | 276 | if ( !theInfo->isFolder ) |
2d4e4f80 | 277 | { |
f3078f07 | 278 | if (theItem->descriptorType == typeFSS) |
f65d4b83 SC |
279 | { |
280 | FSSpec spec; | |
281 | memcpy( &spec , *theItem->dataHandle , sizeof(FSSpec) ) ; | |
a4f5b9b9 | 282 | wxString file = wxMacMakeStringFromPascal( spec.name ) ; |
f65d4b83 | 283 | display = CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType , data ) ; |
685a634c | 284 | } |
f65d4b83 SC |
285 | else if ( theItem->descriptorType == typeFSRef ) |
286 | { | |
287 | FSRef fsref ; | |
288 | memcpy( &fsref , *theItem->dataHandle , sizeof(FSRef) ) ; | |
a2b77260 | 289 | wxString file = wxMacFSRefToPath( &fsref ) ; |
f65d4b83 SC |
290 | display = CheckFile( file , theInfo->fileAndFolder.fileInfo.finderInfo.fdType , data ) ; |
291 | } | |
2d4e4f80 GD |
292 | } |
293 | } | |
685a634c | 294 | |
2d4e4f80 | 295 | return display; |
4d4d8bbf SC |
296 | } |
297 | ||
e9576ca5 SC |
298 | int wxFileDialog::ShowModal() |
299 | { | |
a4f5b9b9 GD |
300 | OSErr err; |
301 | NavDialogCreationOptions dialogCreateOptions; | |
f3078f07 | 302 | |
a4f5b9b9 GD |
303 | // set default options |
304 | ::NavGetDefaultDialogCreationOptions(&dialogCreateOptions); | |
685a634c | 305 | |
a4f5b9b9 GD |
306 | // this was always unset in the old code |
307 | dialogCreateOptions.optionFlags &= ~kNavSelectDefaultLocation; | |
685a634c | 308 | |
e71800ba SC |
309 | wxMacCFStringHolder message(m_message, m_font.GetEncoding()); |
310 | dialogCreateOptions.windowTitle = message; | |
311 | ||
312 | wxMacCFStringHolder defaultFileName(m_fileName, m_font.GetEncoding()); | |
313 | dialogCreateOptions.saveFileName = defaultFileName; | |
314 | ||
315 | ||
a4f5b9b9 GD |
316 | NavDialogRef dialog; |
317 | NavObjectFilterUPP navFilterUPP = NULL; | |
685a634c | 318 | CFArrayRef cfArray = NULL; // for popupExtension |
a4f5b9b9 GD |
319 | OpenUserDataRec myData; |
320 | myData.defaultLocation = m_dir; | |
321 | ||
75338075 DS |
322 | MakeUserDataRec(&myData , m_wildCard); |
323 | myData.currentfilter = m_filterIndex; | |
324 | size_t numFilters = myData.extensions.GetCount(); | |
325 | if (numFilters) | |
326 | { | |
327 | CFMutableArrayRef popup = CFArrayCreateMutable( kCFAllocatorDefault , | |
328 | numFilters , &kCFTypeArrayCallBacks ) ; | |
329 | dialogCreateOptions.popupExtension = popup ; | |
330 | myData.menuitems = dialogCreateOptions.popupExtension ; | |
331 | for ( size_t i = 0 ; i < numFilters ; ++i ) | |
332 | { | |
333 | CFArrayAppendValue( popup , (CFStringRef) wxMacCFStringHolder( myData.name[i] , m_font.GetEncoding() ) ) ; | |
334 | } | |
335 | } | |
336 | ||
a4f5b9b9 GD |
337 | if (m_dialogStyle & wxSAVE) |
338 | { | |
75338075 DS |
339 | myData.saveMode = true; |
340 | ||
685a634c DS |
341 | dialogCreateOptions.optionFlags |= kNavDontAutoTranslate; |
342 | dialogCreateOptions.optionFlags |= kNavDontAddTranslateItems; | |
f3078f07 DS |
343 | if (!numFilters) |
344 | dialogCreateOptions.optionFlags |= kNavNoTypePopup; | |
685a634c DS |
345 | |
346 | // The extension is important | |
a485ee6f JS |
347 | if (numFilters < 2) |
348 | dialogCreateOptions.optionFlags |= kNavPreserveSaveFileExtension; | |
685a634c | 349 | |
78eeb095 SC |
350 | #if TARGET_API_MAC_OSX |
351 | if (!(m_dialogStyle & wxOVERWRITE_PROMPT)) | |
f3078f07 | 352 | dialogCreateOptions.optionFlags |= kNavDontConfirmReplacement; |
78eeb095 | 353 | #endif |
f3078f07 DS |
354 | |
355 | err = ::NavCreatePutFileDialog( | |
356 | &dialogCreateOptions, | |
357 | kNavGenericSignature, // Suppresses the 'Default' (top) menu item | |
358 | kNavGenericSignature, | |
359 | sStandardNavEventFilter, | |
360 | &myData, // for defaultLocation | |
361 | &dialog ); | |
a4f5b9b9 GD |
362 | } |
363 | else | |
364 | { | |
f3078f07 | 365 | // let the user select bundles/programs in dialogs |
c11d9cb8 KO |
366 | dialogCreateOptions.optionFlags |= kNavSupportPackages; |
367 | ||
a4f5b9b9 | 368 | navFilterUPP = NewNavObjectFilterUPP(CrossPlatformFilterCallback); |
f3078f07 DS |
369 | err = ::NavCreateGetFileDialog( |
370 | &dialogCreateOptions, | |
371 | NULL, // NavTypeListHandle | |
372 | sStandardNavEventFilter, | |
373 | NULL, // NavPreviewUPP | |
374 | navFilterUPP, | |
375 | (void *) &myData, // inClientData | |
376 | &dialog ); | |
a4f5b9b9 GD |
377 | } |
378 | ||
379 | if (err == noErr) | |
380 | err = ::NavDialogRun(dialog); | |
685a634c | 381 | |
a4f5b9b9 GD |
382 | // clean up filter related data, etc. |
383 | if (navFilterUPP) | |
384 | ::DisposeNavObjectFilterUPP(navFilterUPP); | |
385 | if (cfArray) | |
a4f5b9b9 | 386 | ::CFRelease(cfArray); |
e71800ba | 387 | |
685a634c | 388 | if (err != noErr) |
a4f5b9b9 GD |
389 | return wxID_CANCEL; |
390 | ||
391 | NavReplyRecord navReply; | |
392 | err = ::NavDialogGetReply(dialog, &navReply); | |
685a634c | 393 | if (err == noErr && navReply.validRecord) |
a4f5b9b9 GD |
394 | { |
395 | AEKeyword theKeyword; | |
396 | DescType actualType; | |
397 | Size actualSize; | |
398 | FSRef theFSRef; | |
878973f1 | 399 | wxString thePath ; |
a4f5b9b9 | 400 | long count; |
f3078f07 DS |
401 | |
402 | m_filterIndex = myData.currentfilter; | |
403 | ::AECountItems( &navReply.selection, &count ); | |
a4f5b9b9 GD |
404 | for (long i = 1; i <= count; ++i) |
405 | { | |
f3078f07 DS |
406 | err = ::AEGetNthPtr( |
407 | &(navReply.selection), i, typeFSRef, &theKeyword, &actualType, | |
408 | &theFSRef, sizeof(theFSRef), &actualSize ); | |
685a634c | 409 | if (err != noErr) |
a4f5b9b9 GD |
410 | break; |
411 | ||
412 | if (m_dialogStyle & wxSAVE) | |
f3078f07 | 413 | thePath = wxMacFSRefToPath( &theFSRef, navReply.saveFileName ); |
685a634c | 414 | else |
f3078f07 | 415 | thePath = wxMacFSRefToPath( &theFSRef ); |
a2b77260 | 416 | |
a449f840 DS |
417 | if (!thePath) |
418 | { | |
419 | ::NavDisposeReply(&navReply); | |
420 | return wxID_CANCEL; | |
a4f5b9b9 | 421 | } |
f3078f07 | 422 | |
a4f5b9b9 GD |
423 | m_path = thePath; |
424 | m_paths.Add(m_path); | |
425 | m_fileName = wxFileNameFromPath(m_path); | |
426 | m_fileNames.Add(m_fileName); | |
427 | } | |
f3078f07 | 428 | |
a4f5b9b9 GD |
429 | // set these to the first hit |
430 | m_path = m_paths[0]; | |
431 | m_fileName = wxFileNameFromPath(m_path); | |
432 | m_dir = wxPathOnly(m_path); | |
433 | } | |
f3078f07 | 434 | |
a4f5b9b9 | 435 | ::NavDisposeReply(&navReply); |
685a634c | 436 | |
a4f5b9b9 | 437 | return (err == noErr) ? wxID_OK : wxID_CANCEL; |
5b781a67 | 438 | } |
e9576ca5 | 439 |