]> git.saurik.com Git - wxWidgets.git/blob - src/mac/carbon/filedlg.cpp
changed version number
[wxWidgets.git] / src / mac / carbon / filedlg.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: filedlg.cpp
3 // Purpose: wxFileDialog
4 // Author: AUTHOR
5 // Modified by:
6 // Created: ??/??/98
7 // RCS-ID: $Id$
8 // Copyright: (c) AUTHOR
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
23 #if !defined(__UNIX__)
24 #include "PLStringFuncs.h"
25 #endif
26
27 #if !USE_SHARED_LIBRARY
28 IMPLEMENT_CLASS(wxFileDialog, wxDialog)
29 #endif
30
31 // begin wxmac
32
33 #if defined(__UNIX__)
34 #include <Carbon/Carbon.h>
35 #else
36 #include <Navigation.h>
37 #endif
38
39 #ifndef __UNIX__
40 #include "morefile.h"
41 #include "moreextr.h"
42 #include "fullpath.h"
43 #include "fspcompa.h"
44 #include "PLStringFuncs.h"
45 #endif
46
47 extern bool gUseNavServices ;
48
49 static pascal void NavEventProc(
50 NavEventCallbackMessage inSelector,
51 NavCBRecPtr ioParams,
52 NavCallBackUserData ioUserData);
53
54 #if TARGET_CARBON
55 static NavEventUPP sStandardNavEventFilter = NewNavEventUPP(NavEventProc);
56 #else
57 static NavEventUPP sStandardNavEventFilter = NewNavEventProc(NavEventProc);
58 #endif
59
60 static pascal void
61 NavEventProc(
62 NavEventCallbackMessage inSelector,
63 NavCBRecPtr ioParams,
64 NavCallBackUserData /* ioUserData */)
65 {
66 if (inSelector == kNavCBEvent) {
67 // In Universal Headers 3.2, Apple changed the definition of
68 /*
69 #if UNIVERSAL_INTERFACES_VERSION >= 0x0320 // Universal Headers 3.2
70 UModalAlerts::ProcessModalEvent(*(ioParams->eventData.eventDataParms.event));
71
72 #else
73 UModalAlerts::ProcessModalEvent(*(ioParams->eventData.event));
74 #endif
75 */
76
77 wxTheApp->MacHandleOneEvent(ioParams->eventData.eventDataParms.event);
78 }
79 }
80
81 char * gfilters[] =
82 {
83 "*.TXT" ,
84
85 NULL
86 } ;
87
88 OSType gfiltersmac[] =
89 {
90 'TEXT' ,
91
92 '****'
93 } ;
94
95 // the data we need to pass to our standard file hook routine
96 // includes a pointer to the dialog, a pointer to the standard
97 // file reply record (so we can inspect the current selection)
98 // and a copy of the "previous" file spec of the reply record
99 // so we can see if the selection has changed
100
101 const int kwxMacFileTypes = 10 ;
102
103 struct OpenUserDataRec {
104 StandardFileReply *sfrPtr;
105 FSSpec oldSelectionFSSpec;
106 char filter[kwxMacFileTypes][10] ;
107 OSType filtermactypes[kwxMacFileTypes] ;
108 int numfilters ;
109 DialogPtr theDlgPtr;
110 };
111 typedef struct OpenUserDataRec
112 OpenUserDataRec, *OpenUserDataRecPtr;
113
114 #if !TARGET_CARBON
115
116 static void wxMacSetupStandardFile(short newVRefNum, long newDirID)
117 {
118 enum
119 { SFSaveDisk = 0x214, CurDirStore = 0x398 };
120 *(short *) SFSaveDisk = -1 * newVRefNum;
121 *(long *) CurDirStore = newDirID;
122 }
123
124 static void wxMacSetupStandardFileFromPath( const char* s )
125 {
126 Str255 volume ;
127 Str255 path ;
128 short vRefNum ;
129 long dirRef ;
130 short i,j ;
131 Boolean isDirectory ;
132
133 for (i=0 ; (s[i]!=0) && (s[i]!=':') ;i++)
134 {
135 volume[i]=s[i] ;
136 }
137 volume[i]=':' ;
138 volume[i+1]=0 ;
139
140 // then copy the rest of the filename
141
142 for (j=0;(s[i]!=0);i++,j++)
143 {
144 path[j]=s[i] ;
145 }
146 path[j]=0 ;
147
148 c2pstr((Ptr) volume) ;
149 c2pstr((Ptr) path) ;
150
151 SetVol(volume, 0) ;
152 GetVol( NULL, &vRefNum ) ;
153
154 GetDirectoryID( vRefNum , fsRtDirID , path , &dirRef , &isDirectory ) ;
155 wxMacSetupStandardFile(vRefNum, dirRef) ;
156 }
157
158 enum {
159 kSelectItem = 10, // select button item number
160 kSFGetFileDlgID = 251, // dialog resource number
161 kStrListID = 251, // our strings
162 kSelectStrNum = 1, // word 'Select: ' for button
163 kDesktopStrNum = 2, // word 'Desktop' for button
164 kSelectNoQuoteStrNum = 3, // word 'Select: ' for button
165
166 kUseQuotes = true, // parameter for SetButtonName
167 kDontUseQuotes = false
168 };
169
170 static void GetLabelString(StringPtr theStr, short stringNum)
171 {
172 GetIndString(theStr, kStrListID, stringNum);
173 }
174
175 static void CopyPStr(StringPtr src, StringPtr dest)
176 {
177 BlockMoveData(src, dest, 1 + src[0]);
178 }
179
180 static char GetSelectKey(void)
181 {
182 // this is the key used to trigger the select button
183
184 // NOT INTERNATIONAL SAVVY; should at least grab it from resources
185
186 return 's';
187 }
188
189 // FlashButton briefly highlights the dialog button
190 // as feedback for key equivalents
191
192 static void FlashButton(DialogPtr theDlgPtr, short buttonID)
193 {
194 short buttonType;
195 Handle buttonHandle;
196 Rect buttonRect;
197 unsigned long finalTicks;
198
199 GetDialogItem(theDlgPtr, buttonID, &buttonType, &buttonHandle, &buttonRect);
200 HiliteControl((ControlHandle) buttonHandle, kControlButtonPart);
201 Delay(10, &finalTicks);
202 HiliteControl((ControlHandle) buttonHandle, 0);
203 }
204
205 static Boolean SameFSSpec(FSSpecPtr spec1, FSSpecPtr spec2)
206 {
207 return (spec1->vRefNum == spec2->vRefNum
208 && spec1->parID == spec2->parID
209 && EqualString(spec1->name, spec2->name, false, false));
210 }
211 // MyModalDialogFilter maps a key to the Select button, and handles
212 // flashing of the button when the key is hit
213
214 static pascal Boolean SFGetFolderModalDialogFilter(DialogPtr theDlgPtr, EventRecord *eventRec,
215 short *item, void *dataPtr)
216 {
217 #pragma unused (dataPtr)
218
219 // make certain the proper dialog is showing, 'cause standard file
220 // can nest dialogs but calls the same filter for each
221
222 if (((WindowPeek) theDlgPtr)->refCon == sfMainDialogRefCon)
223 {
224 // check if the select button was hit
225 /*
226 if ((eventRec->what == keyDown)
227 && (eventRec->modifiers & cmdKey)
228 && ((eventRec->message & charCodeMask) == GetSelectKey()))
229 {
230 *item = kSelectItem;
231 FlashButton(theDlgPtr, kSelectItem);
232 return true;
233 }
234 */
235 }
236
237 return false;
238 }
239 #endif !TARGET_CARBON
240
241 void ExtendedOpenFile( ConstStr255Param message , ConstStr255Param path , const char *filter , FileFilterYDUPP fileFilter, StandardFileReply *theSFR)
242 {
243 Point thePt;
244 OpenUserDataRec myData;
245 FSSpec tempSpec;
246 Boolean folderFlag;
247 Boolean wasAliasedFlag;
248 DlgHookYDUPP dlgHookUPP;
249 ModalFilterYDUPP myModalFilterUPP;
250 OSErr err;
251 SFTypeList types ;
252
253
254 // presumably we're running System 7 or later so CustomGetFile is
255 // available
256
257 // set initial contents of Select button to a space
258
259 memcpy( theSFR->sfFile.name , "\p " , 2 ) ;
260
261 // point the user data parameter at the reply record so we can get to it later
262
263 myData.sfrPtr = theSFR;
264 if ( filter && filter[0] )
265 {
266 myData.numfilters = 1 ;
267 for ( int i = 0 ; i < myData.numfilters ; i++ )
268 {
269 int j ;
270
271 strcpy( myData.filter[i] , filter ) ;
272 for( j = 0 ; myData.filter[i][j] ; j++ )
273 {
274 myData.filter[i][j] = toupper( myData.filter[i][j] ) ;
275 }
276 for ( j = 0 ; gfilters[j] ; j++ )
277 {
278 if ( strcmp( myData.filter[i] , gfilters[j] ) == 0 )
279 {
280 myData.filtermactypes[i] = gfiltersmac[j] ;
281 break ;
282 }
283 }
284 if( gfilters[j] == NULL )
285 {
286 myData.filtermactypes[i] = '****' ;
287 }
288 }
289 }
290 else
291 {
292 myData.numfilters = 0 ;
293 }
294 // display the dialog
295
296 #if !TARGET_CARBON
297
298 dlgHookUPP = NULL ;
299 // dlgHookUPP = NewDlgHookYDProc(SFGetFolderDialogHook);
300 myModalFilterUPP = NewModalFilterYDProc(SFGetFolderModalDialogFilter);
301
302 thePt.h = thePt.v = -1; // center dialog
303
304 ParamText( message , NULL , NULL , NULL ) ;
305
306 CustomGetFile( fileFilter,
307 -1, // show all types
308 NULL,
309 theSFR,
310 kSFGetFileDlgID,
311 thePt, // top left point
312 dlgHookUPP,
313 myModalFilterUPP,
314 nil, // activate list
315 nil, // activate proc
316 &myData);
317
318 DisposeRoutineDescriptor(dlgHookUPP);
319 DisposeRoutineDescriptor(myModalFilterUPP);
320 #else
321 #endif
322 // if cancel wasn't pressed and no fatal error occurred...
323
324 if (theSFR->sfGood)
325 {
326 // if no name is in the reply record file spec,
327 // use the file spec of the parent folder
328
329 if (theSFR->sfFile.name[0] == '\0')
330 {
331 err = FSMakeFSSpec(theSFR->sfFile.vRefNum, theSFR->sfFile.parID,
332 "\p", &tempSpec);
333 if (err == noErr)
334 {
335 theSFR->sfFile = tempSpec;
336 }
337 else
338 {
339 // no name to return, forget it
340
341 theSFR->sfGood = false;
342 }
343 }
344
345 // if there is now a name in the file spec, check if it's
346 // for a folder or a volume
347
348 if (theSFR->sfFile.name[0] != '\0')
349 {
350 // the parID of the root of a disk is always fsRtParID == 1
351
352 if (theSFR->sfFile.parID == fsRtParID)
353 {
354 theSFR->sfIsVolume = true;
355 theSFR->sfIsFolder = false; // it would be reasonable for this to be true, too
356 }
357
358 // we have a valid FSSpec, now let's make sure it's not for an alias file
359
360 err = ResolveAliasFile(&theSFR->sfFile, true, &folderFlag, &wasAliasedFlag);
361 if (err != noErr)
362 {
363 theSFR->sfGood = false;
364 }
365
366 // did the alias resolve to a folder?
367
368 if (folderFlag && ! theSFR->sfIsVolume)
369 {
370 theSFR->sfIsFolder = true;
371 }
372 }
373 }
374 }
375
376 static pascal Boolean CrossPlatformFileFilter(CInfoPBPtr myCInfoPBPtr, void *dataPtr)
377 {
378 Str255 filename ;
379 OpenUserDataRecPtr data = (OpenUserDataRecPtr) dataPtr ;
380 // return true if this item is invisible or a file
381
382 Boolean visibleFlag;
383 Boolean folderFlag;
384
385 visibleFlag = ! (myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdFlags & kIsInvisible);
386 folderFlag = (myCInfoPBPtr->hFileInfo.ioFlAttrib & 0x10);
387
388 // because the semantics of the filter proc are "true means don't show
389 // it" we need to invert the result that we return
390
391 if ( !visibleFlag )
392 return true ;
393
394 if ( !folderFlag )
395 {
396 if ( data->numfilters > 0 )
397 {
398 PLstrcpy( filename ,myCInfoPBPtr->hFileInfo.ioNamePtr ) ;
399 if ( filename[0] >= 4 )
400 {
401 for( int j = 1 ; j <= filename[0] ; j++ )
402 {
403 filename[j] = toupper( filename[j] ) ;
404 }
405 for ( int i = 0 ; i < data->numfilters ; ++i )
406 {
407 if ( myCInfoPBPtr->hFileInfo.ioFlFndrInfo.fdType == data->filtermactypes[i] )
408 return false ;
409
410 if ( strncmp( (char*) filename + 1 + filename[0] - 4 ,
411 & data->filter[i][ strlen(data->filter[i]) - 4 ] , 4 ) == 0 )
412 return false ;
413 }
414 }
415 return true ;
416 }
417 }
418
419 return false ;
420 }
421
422 // end wxmac
423
424 wxString wxFileSelector(const char *title,
425 const char *defaultDir, const char *defaultFileName,
426 const char *defaultExtension, const char *filter, int flags,
427 wxWindow *parent, int x, int y)
428 {
429 // If there's a default extension specified but no filter, we create a suitable
430 // filter.
431
432 wxString filter2("");
433 if ( defaultExtension && !filter )
434 filter2 = wxString("*.") + wxString(defaultExtension) ;
435 else if ( filter )
436 filter2 = filter;
437
438 wxString defaultDirString;
439 if (defaultDir)
440 defaultDirString = defaultDir;
441 else
442 defaultDirString = "";
443
444 wxString defaultFilenameString;
445 if (defaultFileName)
446 defaultFilenameString = defaultFileName;
447 else
448 defaultFilenameString = "";
449
450 wxFileDialog fileDialog(parent, title, defaultDirString, defaultFilenameString, filter2, flags, wxPoint(x, y));
451
452 if ( fileDialog.ShowModal() == wxID_OK )
453 {
454 strcpy(wxBuffer, (const char *)fileDialog.GetPath());
455 return wxBuffer;
456 }
457 else
458 return wxGetEmptyString();
459 }
460
461 WXDLLEXPORT wxString wxFileSelectorEx(const char *title,
462 const char *defaultDir,
463 const char *defaultFileName,
464 int* defaultFilterIndex,
465 const char *filter,
466 int flags,
467 wxWindow* parent,
468 int x,
469 int y)
470
471 {
472 wxFileDialog fileDialog(parent, title ? title : "", defaultDir ? defaultDir : "",
473 defaultFileName ? defaultFileName : "", filter ? filter : "", flags, wxPoint(x, y));
474
475 if ( fileDialog.ShowModal() == wxID_OK )
476 {
477 *defaultFilterIndex = fileDialog.GetFilterIndex();
478 strcpy(wxBuffer, (const char *)fileDialog.GetPath());
479 return wxBuffer;
480 }
481 else
482 return wxGetEmptyString();
483 }
484
485 wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
486 const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
487 long style, const wxPoint& pos)
488 {
489 m_message = message;
490 m_dialogStyle = style;
491 m_parent = parent;
492 m_path = "";
493 m_fileName = defaultFileName;
494 m_dir = defaultDir;
495 m_wildCard = wildCard;
496 m_filterIndex = 1;
497 }
498
499 int wxFileDialog::ShowModal()
500 {
501 #if !TARGET_CARBON
502 if ( !gUseNavServices )
503 {
504 if ( m_dialogStyle & wxSAVE )
505 {
506 StandardFileReply reply ;
507 Str255 prompt ;
508 Str255 filename ;
509
510 #if TARGET_CARBON
511 c2pstrcpy((StringPtr)prompt, m_message) ;
512 #else
513 strcpy((char *)prompt, m_message) ;
514 c2pstr((char *)prompt ) ;
515 #endif
516 #if TARGET_CARBON
517 c2pstrcpy((StringPtr)filename, m_fileName) ;
518 #else
519 strcpy((char *)filename, m_fileName) ;
520 c2pstr((char *)filename ) ;
521 #endif
522
523 #if !TARGET_CARBON
524
525 StandardPutFile( prompt , filename , &reply ) ;
526
527 #else
528 #endif
529 if ( reply.sfGood == false )
530 {
531 m_path = "" ;
532 return wxID_CANCEL ;
533 }
534 else
535 {
536 m_path = wxMacFSSpec2UnixFilename( &reply.sfFile ) ;
537 return wxID_OK ;
538 }
539 }
540 else
541 {
542 OSType types = '????' ;
543 Str255 prompt ;
544 Str255 path ;
545
546 #if TARGET_CARBON
547 c2pstrcpy((StringPtr)prompt, m_message) ;
548 #else
549 strcpy((char *)prompt, m_message) ;
550 c2pstr((char *)prompt ) ;
551 #endif
552 #if TARGET_CARBON
553 c2pstrcpy((StringPtr)path, m_dir ) ;
554 #else
555 strcpy((char *)path, m_dir ) ;
556 c2pstr((char *)path ) ;
557 #endif
558
559 StandardFileReply reply ;
560 FileFilterYDUPP crossPlatformFileFilterUPP = 0 ;
561 #if !TARGET_CARBON
562 crossPlatformFileFilterUPP =
563 NewFileFilterYDProc(CrossPlatformFileFilter);
564 #endif
565
566 ExtendedOpenFile( prompt , path , m_wildCard , crossPlatformFileFilterUPP, &reply);
567 #if !TARGET_CARBON
568 DisposeFileFilterYDUPP(crossPlatformFileFilterUPP);
569 #endif
570 if ( reply.sfGood == false )
571 {
572 m_path = "" ;
573 return wxID_CANCEL ;
574 }
575 else
576 {
577 m_path = wxMacFSSpec2UnixFilename( &reply.sfFile ) ;
578 return wxID_OK ;
579 }
580 }
581 return wxID_CANCEL;
582 }
583 else
584 #endif
585 {
586 NavDialogOptions mNavOptions;
587 NavObjectFilterUPP mNavFilterUPP = NULL;
588 NavPreviewUPP mNavPreviewUPP = NULL ;
589 NavReplyRecord mNavReply;
590 AEDesc mDefaultLocation ;
591 bool mSelectDefault = false ;
592
593 ::NavGetDefaultDialogOptions(&mNavOptions);
594
595 mNavFilterUPP = nil;
596 mNavPreviewUPP = nil;
597 mSelectDefault = false;
598 mNavReply.validRecord = false;
599 mNavReply.replacing = false;
600 mNavReply.isStationery = false;
601 mNavReply.translationNeeded = false;
602 mNavReply.selection.descriptorType = typeNull;
603 mNavReply.selection.dataHandle = nil;
604 mNavReply.keyScript = smSystemScript;
605 mNavReply.fileTranslation = nil;
606
607 // Set default location, the location
608 // that's displayed when the dialog
609 // first appears
610
611 FSSpec location ;
612 wxUnixFilename2FSSpec( m_dir , &location ) ;
613 OSErr err = noErr ;
614
615 mDefaultLocation.descriptorType = typeNull;
616 mDefaultLocation.dataHandle = nil;
617
618 err = ::AECreateDesc(typeFSS, &location, sizeof(FSSpec), &mDefaultLocation );
619
620 if ( mDefaultLocation.dataHandle ) {
621
622 if (mSelectDefault) {
623 mNavOptions.dialogOptionFlags |= kNavSelectDefaultLocation;
624 } else {
625 mNavOptions.dialogOptionFlags &= ~kNavSelectDefaultLocation;
626 }
627 }
628
629 #if TARGET_CARBON
630 c2pstrcpy((StringPtr)mNavOptions.message, m_message) ;
631 #else
632 strcpy((char *)mNavOptions.message, m_message) ;
633 c2pstr((char *)mNavOptions.message ) ;
634 #endif
635 #if TARGET_CARBON
636 c2pstrcpy((StringPtr)mNavOptions.savedFileName, m_fileName) ;
637 #else
638 strcpy((char *)mNavOptions.savedFileName, m_fileName) ;
639 c2pstr((char *)mNavOptions.savedFileName ) ;
640 #endif
641
642 if ( m_dialogStyle & wxSAVE )
643 {
644
645 mNavOptions.dialogOptionFlags |= kNavNoTypePopup ;
646 mNavOptions.dialogOptionFlags |= kNavDontAutoTranslate ;
647 mNavOptions.dialogOptionFlags |= kNavDontAddTranslateItems ;
648
649 err = ::NavPutFile(
650 &mDefaultLocation,
651 &mNavReply,
652 &mNavOptions,
653 sStandardNavEventFilter ,
654 'TEXT',
655 'TEXT',
656 0L); // User Data
657 }
658 else
659 {
660 if ( m_dialogStyle & wxMULTIPLE )
661 mNavOptions.dialogOptionFlags |= kNavAllowMultipleFiles ;
662 else
663 mNavOptions.dialogOptionFlags &= ~kNavAllowMultipleFiles ;
664
665 err = ::NavGetFile(
666 &mDefaultLocation,
667 &mNavReply,
668 &mNavOptions,
669 sStandardNavEventFilter ,
670 mNavPreviewUPP,
671 mNavFilterUPP,
672 0L /*inFileTypes.TypeListHandle() */,
673 0L); // User Data
674 }
675
676 if ( mDefaultLocation.dataHandle != nil )
677 {
678 ::AEDisposeDesc(&mDefaultLocation);
679 }
680
681 if ( (err != noErr) && (err != userCanceledErr) ) {
682 m_path = "" ;
683 return wxID_CANCEL ;
684 }
685
686 if (mNavReply.validRecord) {
687
688 FSSpec outFileSpec ;
689 AEDesc specDesc ;
690
691 long count ;
692 ::AECountItems( &mNavReply.selection , &count ) ;
693 for ( long i = 1 ; i <= count ; ++i )
694 {
695 OSErr err = ::AEGetNthDesc( &mNavReply.selection , i , typeFSS, NULL , &specDesc);
696 if ( err != noErr ) {
697 m_path = "" ;
698 return wxID_CANCEL ;
699 }
700 outFileSpec = **(FSSpec**) specDesc.dataHandle;
701 if (specDesc.dataHandle != nil) {
702 ::AEDisposeDesc(&specDesc);
703 }
704
705
706 // outFolderDirID = thePB.dirInfo.ioDrDirID;
707 m_path = wxMacFSSpec2UnixFilename( &outFileSpec ) ;
708 m_paths.Add( m_path ) ;
709 m_fileNames.Add(m_fileName);
710 }
711 // set these to the first hit
712 m_path = m_paths[ 0 ] ;
713 m_fileName = wxFileNameFromPath(m_path);
714 m_dir = wxPathOnly(m_path);
715
716 return wxID_OK ;
717 }
718 return wxID_CANCEL;
719 }
720 }
721
722 // Generic file load/save dialog
723 static wxString
724 wxDefaultFileSelector(bool load, const char *what, const char *extension, const char *default_name, wxWindow *parent)
725 {
726 char *ext = (char *)extension;
727
728 char prompt[50];
729 wxString str;
730 if (load)
731 str = "Load %s file";
732 else
733 str = "Save %s file";
734 sprintf(prompt, wxGetTranslation(str), what);
735
736 if (*ext == '.') ext++;
737 char wild[60];
738 sprintf(wild, "*.%s", ext);
739
740 return wxFileSelector (prompt, NULL, default_name, ext, wild, 0, parent);
741 }
742
743 // Generic file load dialog
744 wxString
745 wxLoadFileSelector(const char *what, const char *extension, const char *default_name, wxWindow *parent)
746 {
747 return wxDefaultFileSelector(TRUE, what, extension, default_name, parent);
748 }
749
750
751 // Generic file save dialog
752 wxString
753 wxSaveFileSelector(const char *what, const char *extension, const char *default_name, wxWindow *parent)
754 {
755 return wxDefaultFileSelector(FALSE, what, extension, default_name, parent);
756 }
757
758