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