Fixed incorrect clipping region on wxGTK

[wxWidgets.git] / src / mac / carbon / dirdlg.cpp

diff --git a/src/mac/carbon/dirdlg.cpp b/src/mac/carbon/dirdlg.cpp
index 17446c1aed8b9bee4a9ddf8456ece6e82dc95f31..9b01d3e2364a0a5cd949beee5ca10e52214df9a9 100644 (file)
--- a/src/mac/carbon/dirdlg.cpp
+++ b/src/mac/carbon/dirdlg.cpp
@@ -6,7 +6,7 @@
 // Created:     1998-01-01
 // RCS-ID:      $Id$
 // Copyright:   (c) Stefan Csomor
 // Created:     1998-01-01
 // RCS-ID:      $Id$
 // Copyright:   (c) Stefan Csomor

-// Licence:       wxWidgets licence
+// Licence:       wxWindows licence

 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__
 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__


@@ -98,47 +98,20 @@ int wxDirDialog::ShowModal()
 
     if (mNavReply.validRecord) {        // User chose a folder
     
 
     if (mNavReply.validRecord) {        // User chose a folder
     

-        FSSpec    folderInfo;
-        FSSpec  outFileSpec ;
+        FSRef folderInfo;

         AEDesc specDesc ;
         
         AEDesc specDesc ;
         

-        OSErr err = ::AECoerceDesc( &mNavReply.selection , typeFSS, &specDesc);
+        OSErr err = ::AECoerceDesc( &mNavReply.selection , typeFSRef, &specDesc);

         if ( err != noErr ) {
             m_path = wxT("") ;
             return wxID_CANCEL ;
         }            
         if ( err != noErr ) {
             m_path = wxT("") ;
             return wxID_CANCEL ;
         }            

-        folderInfo = **(FSSpec**) specDesc.dataHandle;
+        folderInfo = **(FSRef**) specDesc.dataHandle;

         if (specDesc.dataHandle != nil) {
             ::AEDisposeDesc(&specDesc);
         }
 
         if (specDesc.dataHandle != nil) {
             ::AEDisposeDesc(&specDesc);
         }
 

-//            mNavReply.GetFileSpec(folderInfo);
-        
-            // The FSSpec from NavChooseFolder is NOT the file spec
-            // for the folder. The parID field is actually the DirID
-            // of the folder itself, not the folder's parent, and
-            // the name field is empty. We must call PBGetCatInfo
-            // to get the parent DirID and folder name
-        
-        Str255        name;
-        CInfoPBRec    thePB;            // Directory Info Parameter Block
-        thePB.dirInfo.ioCompletion    = nil;
-        thePB.dirInfo.ioVRefNum        = folderInfo.vRefNum;    // Volume is right
-        thePB.dirInfo.ioDrDirID        = folderInfo.parID;        // Folder's DirID
-        thePB.dirInfo.ioNamePtr        = name;
-        thePB.dirInfo.ioFDirIndex    = -1;    // Lookup using Volume and DirID
-        
-        err = ::PBGetCatInfoSync(&thePB);
-        if ( err != noErr ) {
-            m_path = wxT("")  ;
-            return wxID_CANCEL ;
-        }            
-                                            // Create cannonical FSSpec
-        ::FSMakeFSSpec(thePB.dirInfo.ioVRefNum, thePB.dirInfo.ioDrParID,
-                       name, &outFileSpec);
-                        
-        // outFolderDirID = thePB.dirInfo.ioDrDirID;
-        m_path = wxMacFSSpec2MacFilename( &outFileSpec ) ;
+        m_path = wxMacFSRefToPath( &folderInfo ) ;

         return wxID_OK ;
     }
     return wxID_CANCEL;
         return wxID_OK ;
     }
     return wxID_CANCEL;