]> git.saurik.com Git - wxWidgets.git/blame - src/osx/cocoa/dirdlg.mm
Update OpenVMS compile support
[wxWidgets.git] / src / osx / cocoa / dirdlg.mm
CommitLineData
0f9b48d1
SC
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/osx/cocoa/dirdlg.mm
3// Purpose: wxDirDialog
4// Author: Stefan Csomor
5// Modified by:
6// Created: 2008-08-30
7// RCS-ID: $Id: dirdlg.mm 40007 2006-07-05 13:10:46Z SC $
8// Copyright: (c) Stefan Csomor
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
19
20// For compilers that support precompilation, includes "wx.h".
21#include "wx/wxprec.h"
22
23#if wxUSE_DIRDLG && !defined(__WXUNIVERSAL__)
24
25#include "wx/dirdlg.h"
26
27#ifndef WX_PRECOMP
28 #include "wx/msgdlg.h"
29 #include "wx/filedlg.h"
30 #include "wx/app.h"
31#endif
32
33#include "wx/filename.h"
34
35#include "wx/osx/private.h"
36
37IMPLEMENT_CLASS(wxDirDialog, wxDialog)
38
39wxDirDialog::wxDirDialog(wxWindow *parent, const wxString& message,
40 const wxString& defaultPath, long style, const wxPoint& pos,
41 const wxSize& size, const wxString& name)
42{
43 m_parent = parent;
44
45 SetMessage( message );
46 SetWindowStyle(style);
47 SetPath(defaultPath);
48}
49
50
51int wxDirDialog::ShowModal()
52{
53 int result = wxID_CANCEL;
54
55 NSOpenPanel *oPanel = [NSOpenPanel openPanel];
56 [oPanel setCanChooseDirectories:YES];
57 [oPanel setResolvesAliases:YES];
58 [oPanel setCanChooseFiles:NO];
59
60 wxCFStringRef cf( m_message );
61 [oPanel setMessage:cf.AsNSString()];
62
63 if ( HasFlag(wxDD_NEW_DIR_BUTTON) )
64 [oPanel setCanCreateDirectories:YES];
65
66 wxCFStringRef dir( m_path );
67
68 m_path = wxEmptyString;
69
70 if ( [oPanel runModalForDirectory:dir.AsNSString() file:nil types:nil] == NSOKButton )
71 {
72 wxCFStringRef resultpath( [[[oPanel filenames] objectAtIndex:0] retain] );
73
74 SetPath( resultpath.AsString() );
75 result = wxID_OK;
76 }
77 return result;
78}
79
80#endif // wxUSE_DIRDLG