src/motif/filedlg.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        filedlg.cpp
   3 // Purpose:     wxFileDialog
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     17/09/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   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/utils.h"
  18 #include "wx/dialog.h"
  19 #include "wx/filedlg.h"
  20 #include "wx/intl.h"
  21 #include "wx/app.h"
  22
  23 #include <Xm/Xm.h>
  24 #include <Xm/MwmUtil.h>
  25 #include <Xm/Label.h>
  26 #include <Xm/BulletinB.h>
  27 #include <Xm/Frame.h>
  28 #include <Xm/Text.h>
  29 #include <Xm/DialogS.h>
  30 #include <Xm/FileSB.h>
  31 #include <Xm/RowColumn.h>
  32 #include <Xm/LabelG.h>
  33
  34 #if !USE_SHARED_LIBRARY
  35 IMPLEMENT_CLASS(wxFileDialog, wxDialog)
  36 #endif
  37
  38 #define DEFAULT_FILE_SELECTOR_SIZE 0
  39 // Let Motif defines the size of File
  40 // Selector Box (if 1), or fix it to
  41 // wxFSB_WIDTH x wxFSB_HEIGHT (if 0)
  42 #define wxFSB_WIDTH                600
  43 #define wxFSB_HEIGHT               500
  44
  45
  46 char *wxFileSelector(const char *title,
  47                      const char *defaultDir, const char *defaultFileName,
  48                      const char *defaultExtension, const char *filter, int flags,
  49                      wxWindow *parent, int x, int y)
  50 {
  51     // If there's a default extension specified but no filter, we create a suitable
  52     // filter.
  53
  54     wxString filter2("");
  55     if ( defaultExtension && !filter )
  56         filter2 = wxString("*.") + wxString(defaultExtension) ;
  57     else if ( filter )
  58         filter2 = filter;
  59
  60     wxString defaultDirString;
  61     if (defaultDir)
  62         defaultDirString = defaultDir;
  63     else
  64         defaultDirString = "";
  65
  66     wxString defaultFilenameString;
  67     if (defaultFileName)
  68         defaultFilenameString = defaultFileName;
  69     else
  70         defaultFilenameString = "";
  71
  72     wxFileDialog fileDialog(parent, title, defaultDirString, defaultFilenameString, filter2, flags, wxPoint(x, y));
  73
  74     if ( fileDialog.ShowModal() == wxID_OK )
  75     {
  76         strcpy(wxBuffer, (const char *)fileDialog.GetPath());
  77         return wxBuffer;
  78     }
  79     else
  80         return NULL;
  81 }
  82
  83 char *wxFileSelectorEx(const char *title,
  84                        const char *defaultDir,
  85                        const char *defaultFileName,
  86                        int* defaultFilterIndex,
  87                        const char *filter,
  88                        int       flags,
  89                        wxWindow* parent,
  90                        int       x,
  91                        int       y)
  92
  93 {
  94     wxFileDialog fileDialog(parent, title ? title : "", defaultDir ? defaultDir : "",
  95         defaultFileName ? defaultFileName : "", filter ? filter : "", flags, wxPoint(x, y));
  96
  97     if ( fileDialog.ShowModal() == wxID_OK )
  98     {
  99         *defaultFilterIndex = fileDialog.GetFilterIndex();
 100         strcpy(wxBuffer, (const char *)fileDialog.GetPath());
 101         return wxBuffer;
 102     }
 103     else
 104         return NULL;
 105 }
 106
 107 wxString wxFileDialog::m_fileSelectorAnswer = "";
 108 bool wxFileDialog::m_fileSelectorReturned = FALSE;
 109
 110 void wxFileSelCancel( Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data),
 111                      XmFileSelectionBoxCallbackStruct *WXUNUSED(cbs) )
 112 {
 113     wxFileDialog::m_fileSelectorAnswer = "";
 114     wxFileDialog::m_fileSelectorReturned = TRUE;
 115 }
 116
 117 void wxFileSelOk(Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data), XmFileSelectionBoxCallbackStruct *cbs)
 118 {
 119     char *filename = NULL;
 120     if (!XmStringGetLtoR(cbs->value, XmSTRING_DEFAULT_CHARSET, &filename)) {
 121         wxFileDialog::m_fileSelectorAnswer = "";
 122         wxFileDialog::m_fileSelectorReturned = TRUE;
 123     } else {
 124         if (filename) {
 125             wxFileDialog::m_fileSelectorAnswer = filename;
 126             XtFree(filename);
 127         }
 128         wxFileDialog::m_fileSelectorReturned = TRUE;
 129     }
 130 }
 131
 132 wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
 133                            const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
 134                            long style, const wxPoint& pos)
 135 {
 136     m_message = message;
 137     m_dialogStyle = style;
 138     m_parent = parent;
 139     m_path = "";
 140     m_fileName = defaultFileName;
 141     m_dir = defaultDir;
 142     m_wildCard = wildCard;
 143     m_filterIndex = 1;
 144     m_pos = pos;
 145 }
 146
 147 int wxFileDialog::ShowModal()
 148 {
 149     wxBeginBusyCursor();
 150
 151     //  static char fileBuf[512];
 152     Widget parentWidget = (Widget) 0;
 153     if (m_parent)
 154     {
 155         parentWidget = (Widget) m_parent->GetTopWidget();
 156     }
 157     else
 158         parentWidget = (Widget) wxTheApp->GetTopLevelWidget();
 159
 160     Widget fileSel = XmCreateFileSelectionDialog(parentWidget, "file_selector", NULL, 0);
 161     XtUnmanageChild(XmFileSelectionBoxGetChild(fileSel, XmDIALOG_HELP_BUTTON));
 162
 163     Widget shell = XtParent(fileSel);
 164
 165     if (!m_message.IsNull())
 166         XtVaSetValues(shell, XmNtitle, (char*) (const char*) m_message, NULL);
 167
 168     wxString entirePath("");
 169
 170     if ((m_dir != "") && (m_fileName != ""))
 171     {
 172         entirePath = m_dir + wxString("/") + m_fileName;
 173     }
 174     else if ((m_dir != "") && (m_fileName == ""))
 175     {
 176         entirePath = m_dir + wxString("/");
 177     }
 178     else if ((m_dir == "") && (m_fileName != ""))
 179     {
 180         entirePath = m_fileName;
 181     }
 182
 183     if (entirePath != "")
 184     {
 185         Widget selectionWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_TEXT);
 186         XmTextSetString(selectionWidget, (char*) (const char*) entirePath);
 187     }
 188
 189     if (m_wildCard != "")
 190     {
 191         wxString filter("");
 192         if (m_dir != "")
 193             filter = m_dir + wxString("/") + m_wildCard;
 194         else
 195             filter = m_wildCard;
 196
 197         Widget filterWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_FILTER_TEXT);
 198         XmTextSetString(filterWidget, (char*) (const char*) filter);
 199         XmFileSelectionDoSearch(fileSel, NULL);
 200     }
 201
 202     // Suggested by Terry Gitnick, 16/9/97, because of change in Motif
 203     // file selector on Solaris 1.5.1.
 204     if ( m_dir != "" )
 205     {
 206         XmString thePath = XmStringCreateLtoR ((char*) (const char*) m_dir,
 207             XmSTRING_DEFAULT_CHARSET);
 208
 209         XtVaSetValues (fileSel,
 210             XmNdirectory, thePath,
 211             NULL);
 212
 213         XmStringFree(thePath);
 214     }
 215
 216     XtAddCallback(fileSel, XmNcancelCallback, (XtCallbackProc)wxFileSelCancel, (XtPointer)NULL);
 217     XtAddCallback(fileSel, XmNokCallback, (XtCallbackProc)wxFileSelOk, (XtPointer)NULL);
 218
 219     //#if XmVersion > 1000
 220     // I'm not sure about what you mean with XmVersion.
 221     // If this is for Motif1.1/Motif1.2, then check XmVersion>=1200
 222     // (Motif1.1.4 ==> XmVersion 1100 )
 223     // Nevertheless, I put here a #define, so anyone can choose in (I)makefile...
 224     //
 225 #if !DEFAULT_FILE_SELECTOR_SIZE
 226     int width = wxFSB_WIDTH;
 227     int height = wxFSB_HEIGHT;
 228     XtVaSetValues(fileSel,
 229         XmNwidth, width,
 230         XmNheight, height,
 231         XmNresizePolicy, XmRESIZE_NONE,
 232         NULL);
 233 #endif
 234
 235     XtManageChild(fileSel);
 236
 237     m_fileSelectorAnswer = "";
 238     m_fileSelectorReturned = FALSE;
 239
 240     wxEndBusyCursor();
 241
 242     XtAddGrab(XtParent(fileSel), TRUE, FALSE);
 243     XEvent event;
 244     while (!m_fileSelectorReturned)
 245     {
 246         XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
 247     }
 248     XtRemoveGrab(XtParent(fileSel));
 249
 250     XmUpdateDisplay((Widget) wxTheApp->GetTopLevelWidget()); // Experimental
 251
 252     //  XtDestroyWidget(fileSel);
 253     XtUnmapWidget(XtParent(fileSel));
 254     XtDestroyWidget(XtParent(fileSel));
 255
 256     // Now process all events, because otherwise
 257     // this might remain on the screen
 258     XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE);
 259     while (XtAppPending((XtAppContext) wxTheApp->GetAppContext()))
 260     {
 261         XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()));
 262         XtAppNextEvent((XtAppContext) wxTheApp->GetAppContext(), &event);
 263         XtDispatchEvent(&event);
 264     }
 265
 266     m_path = m_fileSelectorAnswer;
 267     m_fileName = wxFileNameFromPath(m_fileSelectorAnswer);
 268     m_dir = wxPathOnly(m_path);
 269
 270     if (m_fileName == "")
 271         return wxID_CANCEL;
 272     else
 273         return wxID_OK;
 274 }
 275
 276 // Generic file load/save dialog
 277 static char *
 278 wxDefaultFileSelector(bool load, const char *what, const char *extension, const char *default_name, wxWindow *parent)
 279 {
 280     char *ext = (char *)extension;
 281
 282     char prompt[50];
 283     wxString str;
 284     if (load)
 285         str = "Load %s file";
 286     else
 287         str = "Save %s file";
 288     sprintf(prompt, wxGetTranslation(str), what);
 289
 290     if (*ext == '.') ext++;
 291     char wild[60];
 292     sprintf(wild, "*.%s", ext);
 293
 294     return wxFileSelector (prompt, NULL, default_name, ext, wild, 0, parent);
 295 }
 296
 297 // Generic file load dialog
 298 char *
 299 wxLoadFileSelector(const char *what, const char *extension, const char *default_name, wxWindow *parent)
 300 {
 301     return wxDefaultFileSelector(TRUE, what, extension, default_name, parent);
 302 }
 303
 304
 305 // Generic file save dialog
 306 char *
 307 wxSaveFileSelector(const char *what, const char *extension, const char *default_name, wxWindow *parent)
 308 {
 309     return wxDefaultFileSelector(FALSE, what, extension, default_name, parent);
 310 }
 311
 312