Logo ROOT   6.30.04
Reference Guide
 All Namespaces Files Pages
TGFileDialog.cxx
Go to the documentation of this file.
1 // @(#)root/gui:$Id: f3cd439bd51d763ffd53693e89c42b2eaa27c520 $
2 // Author: Fons Rademakers 20/01/98
3 
4 /*************************************************************************
5  * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers. *
6  * All rights reserved. *
7  * *
8  * For the licensing terms see $ROOTSYS/LICENSE. *
9  * For the list of contributors see $ROOTSYS/README/CREDITS. *
10  *************************************************************************/
11 
12 //////////////////////////////////////////////////////////////////////////
13 // //
14 // TGFileDialog //
15 // //
16 // This class creates a file selection dialog. It contains a combo box //
17 // to select the desired directory. A listview with the different //
18 // files in the current directory and a combo box with which you can //
19 // select a filter (on file extensions). //
20 // When creating a file dialog one passes a pointer to a TGFileInfo //
21 // object. In this object you can set the fFileTypes and fIniDir to //
22 // specify the list of file types for the filter combo box and the //
23 // initial directory. When the TGFileDialog ctor returns the selected //
24 // file name can be found in the TGFileInfo::fFilename field and the //
25 // selected directory in TGFileInfo::fIniDir. The fFilename and //
26 // fIniDir are deleted by the TGFileInfo dtor. //
27 // //
28 //////////////////////////////////////////////////////////////////////////
29 
30 #include "TGFileDialog.h"
31 #include "TGLabel.h"
32 #include "TGButton.h"
33 #include "TGTextEntry.h"
34 #include "TGComboBox.h"
35 #include "TGListView.h"
36 #include "TGFSContainer.h"
37 #include "TGFSComboBox.h"
38 #include "TGMsgBox.h"
39 #include "TSystem.h"
40 #include "TGInputDialog.h"
41 #include "TObjString.h"
42 
43 #include <sys/stat.h>
44 
45 enum EFileFialog {
46  kIDF_CDUP,
47  kIDF_NEW_FOLDER,
48  kIDF_LIST,
49  kIDF_DETAILS,
50  kIDF_CHECKB,
51  kIDF_FSLB,
52  kIDF_FTYPESLB,
53  kIDF_OK,
54  kIDF_CANCEL
55 };
56 
57 static const char *gDefTypes[] = { "All files", "*",
58  "ROOT files", "*.root",
59  "ROOT macros", "*.C",
60  0, 0 };
61 
62 static TGFileInfo gInfo;
63 
64 
65 ClassImp(TGFileDialog);
66 
67 ////////////////////////////////////////////////////////////////////////////////
68 /// TGFileInfo Destructor.
69 
70 TGFileInfo::~TGFileInfo()
71 {
72  delete [] fFilename;
73  delete [] fIniDir;
74  if ( fFileNamesList != 0 ) {
75  fFileNamesList->Delete();
76  delete fFileNamesList;
77  }
78 }
79 
80 ////////////////////////////////////////////////////////////////////////////////
81 /// Turn on/off multiple selection.
82 
83 void TGFileInfo::SetMultipleSelection(Bool_t option)
84 {
85  if ( fMultipleSelection != option ) {
86  fMultipleSelection = option;
87  if ( fMultipleSelection == kTRUE )
88  fFileNamesList = new TList();
89  else {
90  fFileNamesList->Delete();
91  delete fFileNamesList;
92  fFileNamesList = 0;
93  }
94  }
95 }
96 
97 ////////////////////////////////////////////////////////////////////////////////
98 /// Create a file selection dialog. Depending on the dlg_type it can be
99 /// used for opening or saving a file.
100 /// About the first two arguments, p is the parent Window, usually the
101 /// desktop (root) window, and main is the main (TGMainFrame) application
102 /// window (the one opening the dialog), onto which the dialog is
103 /// usually centered, and which is waiting for it to close.
104 
105 TGFileDialog::TGFileDialog(const TGWindow *p, const TGWindow *main,
106  EFileDialogMode dlg_type, TGFileInfo *file_info) :
107  TGTransientFrame(p, main, 10, 10, kVerticalFrame), fTbfname(0), fName(0),
108  fTypes(0), fTreeLB(0), fCdup(0), fNewf(0), fList(0), fDetails(0), fCheckB(0),
109  fPcdup(0), fPnewf(0), fPlist(0), fPdetails(0), fOk(0), fCancel(0), fFv(0),
110  fFc(0), fFileInfo(0)
111 {
112  SetCleanup(kDeepCleanup);
113  Connect("CloseWindow()", "TGFileDialog", this, "CloseWindow()");
114  DontCallClose();
115 
116  int i;
117 
118  if (!p && !main) {
119  MakeZombie();
120  return;
121  }
122  if (!file_info) {
123  Error("TGFileDialog", "file_info argument not set");
124  fFileInfo = &gInfo;
125  if (fFileInfo->fIniDir) {
126  delete [] fFileInfo->fIniDir;
127  fFileInfo->fIniDir = 0;
128  }
129  if (fFileInfo->fFilename) {
130  delete [] fFileInfo->fFilename;
131  fFileInfo->fFilename = 0;
132  }
133  fFileInfo->fFileTypeIdx = 0;
134  } else
135  fFileInfo = file_info;
136 
137  if (!fFileInfo->fFileTypes)
138  fFileInfo->fFileTypes = gDefTypes;
139 
140  if (!fFileInfo->fIniDir)
141  fFileInfo->fIniDir = StrDup(".");
142 
143  TGHorizontalFrame *fHtop = new TGHorizontalFrame(this, 10, 10);
144 
145  //--- top toolbar elements
146  TGLabel *fLookin = new TGLabel(fHtop, new TGHotString((dlg_type == kFDSave)
147  ? "S&ave in:" : "&Look in:"));
148  fTreeLB = new TGFSComboBox(fHtop, kIDF_FSLB);
149  fTreeLB->Associate(this);
150 
151  fPcdup = fClient->GetPicture("tb_uplevel.xpm");
152  fPnewf = fClient->GetPicture("tb_newfolder.xpm");
153  fPlist = fClient->GetPicture("tb_list.xpm");
154  fPdetails = fClient->GetPicture("tb_details.xpm");
155 
156  if (!(fPcdup && fPnewf && fPlist && fPdetails))
157  Error("TGFileDialog", "missing toolbar pixmap(s).\n");
158 
159  fCdup = new TGPictureButton(fHtop, fPcdup, kIDF_CDUP);
160  fNewf = new TGPictureButton(fHtop, fPnewf, kIDF_NEW_FOLDER);
161  fList = new TGPictureButton(fHtop, fPlist, kIDF_LIST);
162  fDetails = new TGPictureButton(fHtop, fPdetails, kIDF_DETAILS);
163 
164  fCdup->SetStyle(gClient->GetStyle());
165  fNewf->SetStyle(gClient->GetStyle());
166  fList->SetStyle(gClient->GetStyle());
167  fDetails->SetStyle(gClient->GetStyle());
168 
169  fCdup->SetToolTipText("Up One Level");
170  fNewf->SetToolTipText("Create New Folder");
171  fList->SetToolTipText("List");
172  fDetails->SetToolTipText("Details");
173 
174  fCdup->Associate(this);
175  fNewf->Associate(this);
176  fList->Associate(this);
177  fDetails->Associate(this);
178 
179  fList->AllowStayDown(kTRUE);
180  fDetails->AllowStayDown(kTRUE);
181 
182  fTreeLB->Resize(200, fTreeLB->GetDefaultHeight());
183 
184  fHtop->AddFrame(fLookin, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 2, 5, 2, 2));
185  fHtop->AddFrame(fTreeLB, new TGLayoutHints(kLHintsLeft | kLHintsExpandY, 3, 0, 2, 2));
186  fHtop->AddFrame(fCdup, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 3, 0, 2, 2));
187  fHtop->AddFrame(fNewf, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 3, 0, 2, 2));
188  fHtop->AddFrame(fList, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 3, 0, 2, 2));
189  fHtop->AddFrame(fDetails, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 0, 8, 2, 2));
190 
191  if (dlg_type == kFDSave) {
192  fCheckB = new TGCheckButton(fHtop, "&Overwrite", kIDF_CHECKB);
193  fCheckB->SetToolTipText("Overwrite a file without displaying a message if selected");
194  } else {
195  fCheckB = new TGCheckButton(fHtop, "&Multiple files", kIDF_CHECKB);
196  fCheckB->SetToolTipText("Allows multiple file selection when SHIFT is pressed");
197  fCheckB->Connect("Toggled(Bool_t)","TGFileInfo",fFileInfo,"SetMultipleSelection(Bool_t)");
198  }
199  fHtop->AddFrame(fCheckB, new TGLayoutHints(kLHintsLeft | kLHintsCenterY));
200  fCheckB->SetOn(fFileInfo->fMultipleSelection);
201  AddFrame(fHtop, new TGLayoutHints(kLHintsTop | kLHintsExpandX, 4, 4, 3, 1));
202 
203  //--- file view
204 
205  fFv = new TGListView(this, 400, 161);
206 
207  fFc = new TGFileContainer(fFv->GetViewPort(),
208  10, 10, kHorizontalFrame, fgWhitePixel);
209  fFc->Associate(this);
210 
211  fFv->GetViewPort()->SetBackgroundColor(fgWhitePixel);
212  fFv->SetContainer(fFc);
213  fFv->SetViewMode(kLVList);
214  fFv->SetIncrements(1, 19); // set vertical scroll one line height at a time
215 
216  TGTextButton** buttons = fFv->GetHeaderButtons();
217  if (buttons) {
218  buttons[0]->Connect("Clicked()", "TGFileContainer", fFc, "Sort(=kSortByName)");
219  buttons[1]->Connect("Clicked()", "TGFileContainer", fFc, "Sort(=kSortByType)");
220  buttons[2]->Connect("Clicked()", "TGFileContainer", fFc, "Sort(=kSortBySize)");
221  buttons[3]->Connect("Clicked()", "TGFileContainer", fFc, "Sort(=kSortByOwner)");
222  buttons[4]->Connect("Clicked()", "TGFileContainer", fFc, "Sort(=kSortByGroup)");
223  buttons[5]->Connect("Clicked()", "TGFileContainer", fFc, "Sort(=kSortByDate)");
224  }
225 
226  fFc->SetFilter(fFileInfo->fFileTypes[fFileInfo->fFileTypeIdx+1]);
227  fFc->Sort(kSortByName);
228  fFc->ChangeDirectory(fFileInfo->fIniDir);
229  fFc->SetMultipleSelection(fFileInfo->fMultipleSelection);
230  fTreeLB->Update(fFc->GetDirectory());
231 
232  fList->SetState(kButtonEngaged);
233 
234  AddFrame(fFv, new TGLayoutHints(kLHintsTop | kLHintsExpandX | kLHintsExpandY, 4, 4, 3, 1));
235 
236  if (dlg_type == kFDOpen) {
237  fCheckB->Connect("Toggled(Bool_t)","TGFileContainer",fFc,"SetMultipleSelection(Bool_t)");
238  fCheckB->Connect("Toggled(Bool_t)","TGFileContainer",fFc,"UnSelectAll()");
239  }
240 
241  //--- file name and types
242 
243  TGHorizontalFrame *fHf = new TGHorizontalFrame(this, 10, 10);
244 
245  TGVerticalFrame *fVf = new TGVerticalFrame(fHf, 10, 10);
246 
247  TGHorizontalFrame *fHfname = new TGHorizontalFrame(fVf, 10, 10);
248 
249  TGLabel *fLfname = new TGLabel(fHfname, new TGHotString("File &name:"));
250  fTbfname = new TGTextBuffer(1034);
251  fName = new TGTextEntry(fHfname, fTbfname);
252  fName->Resize(230, fName->GetDefaultHeight());
253  fName->Associate(this);
254 
255  fHfname->AddFrame(fLfname, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 2, 5, 2, 2));
256  fHfname->AddFrame(fName, new TGLayoutHints(kLHintsRight | kLHintsCenterY, 0, 20, 2, 2));
257 
258  fVf->AddFrame(fHfname, new TGLayoutHints(kLHintsLeft | kLHintsCenterY | kLHintsExpandX));
259 
260  TGHorizontalFrame *fHftype = new TGHorizontalFrame(fVf, 10, 10);
261 
262  TGLabel *fLftypes = new TGLabel(fHftype, new TGHotString("Files of &type:"));
263  fTypes = new TGComboBox(fHftype, kIDF_FTYPESLB);
264  fTypes->Associate(this);
265  fTypes->Resize(230, fName->GetDefaultHeight());
266 
267  TString s;
268  for (i = 0; fFileInfo->fFileTypes[i] != 0; i += 2) {
269  s.Form("%s (%s)", fFileInfo->fFileTypes[i], fFileInfo->fFileTypes[i+1]);
270  fTypes->AddEntry(s.Data(), i);
271  }
272  fTypes->Select(fFileInfo->fFileTypeIdx);
273 
274  // Show all items in combobox without scrollbar
275  //TGDimension fw = fTypes->GetListBox()->GetContainer()->GetDefaultSize();
276  //fTypes->GetListBox()->Resize(fw.fWidth, fw.fHeight);
277 
278  if (fFileInfo->fFilename && fFileInfo->fFilename[0])
279  fTbfname->AddText(0, fFileInfo->fFilename);
280  else {
281  fTbfname->Clear();
282  if (dlg_type == kFDSave) {
283  fTbfname->AddText(0, "unnamed");
284  fName->SelectAll();
285  if (fFileInfo->fFileTypes[fFileInfo->fFileTypeIdx+1] &&
286  strstr(fFileInfo->fFileTypes[fFileInfo->fFileTypeIdx+1], "*.")) {
287  TString ext = fFileInfo->fFileTypes[fFileInfo->fFileTypeIdx+1];
288  ext.ReplaceAll("*.", ".");
289  fTbfname->AddText(7, ext.Data());
290  }
291  fName->SetFocus();
292  }
293  }
294 
295  fTypes->GetListBox()->Resize(230, 120);
296  fHftype->AddFrame(fLftypes, new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 2, 5, 2, 2));
297  fHftype->AddFrame(fTypes, new TGLayoutHints(kLHintsRight | kLHintsCenterY, 0, 20, 2, 2));
298 
299  fVf->AddFrame(fHftype, new TGLayoutHints(kLHintsLeft | kLHintsCenterY | kLHintsExpandX));
300 
301  fHf->AddFrame(fVf, new TGLayoutHints(kLHintsLeft | kLHintsCenterY | kLHintsExpandX));
302 
303  //--- Open/Save and Cancel buttons
304 
305  TGVerticalFrame *fVbf = new TGVerticalFrame(fHf, 10, 10, kFixedWidth);
306 
307  fOk = new TGTextButton(fVbf, new TGHotString((dlg_type == kFDSave)
308  ? "&Save" : "&Open"), kIDF_OK);
309  fCancel = new TGTextButton(fVbf, new TGHotString("Cancel"), kIDF_CANCEL);
310 
311  fOk->Associate(this);
312  fCancel->Associate(this);
313 
314  fVbf->AddFrame(fOk, new TGLayoutHints(kLHintsTop | kLHintsExpandX, 0, 0, 2, 2));
315  fVbf->AddFrame(fCancel, new TGLayoutHints(kLHintsTop | kLHintsExpandX, 0, 0, 2, 2));
316 
317  UInt_t width = TMath::Max(fOk->GetDefaultWidth(), fCancel->GetDefaultWidth()) + 20;
318  fVbf->Resize(width + 20, fVbf->GetDefaultHeight());
319 
320  fHf->AddFrame(fVbf, new TGLayoutHints(kLHintsLeft | kLHintsCenterY));
321 
322  AddFrame(fHf, new TGLayoutHints(kLHintsTop | kLHintsExpandX, 4, 4, 3, 1));
323  SetEditDisabled(kEditDisable);
324 
325  MapSubwindows();
326 
327  TGDimension size = GetDefaultSize();
328 
329  Resize(size);
330 
331  //---- position relative to the parent's window
332 
333  CenterOnParent();
334 
335  //---- make the message box non-resizable
336 
337  SetWMSize(size.fWidth, size.fHeight);
338  SetWMSizeHints(size.fWidth, size.fHeight, 10000, 10000, 1, 1);
339 
340  const char *wname = (dlg_type == kFDSave) ? "Save As..." : "Open";
341  SetWindowName(wname);
342  SetIconName(wname);
343  SetClassHints("ROOT", "FileDialog");
344 
345  SetMWMHints(kMWMDecorAll | kMWMDecorResizeH | kMWMDecorMaximize |
346  kMWMDecorMinimize | kMWMDecorMenu,
347  kMWMFuncAll | kMWMFuncResize | kMWMFuncMaximize |
348  kMWMFuncMinimize,
349  kMWMInputModeless);
350 
351  MapWindow();
352  fFc->DisplayDirectory();
353  if (dlg_type == kFDSave)
354  fName->SetFocus();
355  fClient->WaitFor(this);
356 }
357 
358 ////////////////////////////////////////////////////////////////////////////////
359 /// Delete file dialog.
360 
361 TGFileDialog::~TGFileDialog()
362 {
363  if (IsZombie()) return;
364  TString str = fCheckB->GetString();
365  if (str.Contains("Multiple"))
366  fCheckB->Disconnect("Toggled(Bool_t)");
367  fClient->FreePicture(fPcdup);
368  fClient->FreePicture(fPnewf);
369  fClient->FreePicture(fPlist);
370  fClient->FreePicture(fPdetails);
371  delete fFc;
372 }
373 
374 ////////////////////////////////////////////////////////////////////////////////
375 /// Close file dialog.
376 
377 void TGFileDialog::CloseWindow()
378 {
379  if (fFileInfo->fFilename)
380  delete [] fFileInfo->fFilename;
381  fFileInfo->fFilename = 0;
382  if (fFileInfo->fFileNamesList != 0) {
383  fFileInfo->fFileNamesList->Delete();
384  fFileInfo->fFileNamesList = 0;
385  }
386  DeleteWindow();
387 }
388 
389 ////////////////////////////////////////////////////////////////////////////////
390 /// Small function used to prevent memory leaks with TSystem::ExpandPathName,
391 /// which returns a string created by StrDup, that has to be deleted
392 
393 namespace {
394  static inline void pExpandUnixPathName(TGFileInfo &file_info) {
395  char *tmpPath = gSystem->ExpandPathName(file_info.fFilename);
396  delete [] file_info.fFilename;
397  file_info.fFilename = StrDup(gSystem->UnixPathName(tmpPath));
398  delete[] tmpPath;
399  }
400 }
401 
402 ////////////////////////////////////////////////////////////////////////////////
403 /// Process messages generated by the user input in the file dialog.
404 
405 Bool_t TGFileDialog::ProcessMessage(Long_t msg, Long_t parm1, Long_t)
406 {
407  if (!fFc->GetDisplayStat()) return kTRUE; // Cancel button was pressed
408 
409  TGTreeLBEntry *e;
410  TGTextLBEntry *te;
411  TGFileItem *f;
412  void *p = 0;
413  TString txt;
414  TString sdir = gSystem->WorkingDirectory();
415 
416  switch (GET_MSG(msg)) {
417  case kC_COMMAND:
418  switch (GET_SUBMSG(msg)) {
419  case kCM_BUTTON:
420  switch (parm1) {
421  case kIDF_OK:
422  // same code as under kTE_ENTER
423  if (fTbfname->GetTextLength() == 0) {
424  txt = "Please provide file name or use \"Cancel\"";
425  new TGMsgBox(fClient->GetRoot(), GetMainFrame(),
426  "Missing File Name", txt, kMBIconExclamation,
427  kMBOk);
428  return kTRUE;
429  } else if (!gSystem->AccessPathName(fTbfname->GetString(), kFileExists) &&
430  !strcmp(fOk->GetTitle(), "Save") &&
431  (!(fCheckB->GetState() == kButtonDown))) {
432  Int_t ret;
433  txt = TString::Format("File name %s already exists, OK to overwrite it?",
434  fTbfname->GetString());
435  new TGMsgBox(fClient->GetRoot(), GetMainFrame(),
436  "File Name Exist", txt.Data(), kMBIconExclamation,
437  kMBYes | kMBNo, &ret);
438  if (ret == kMBNo)
439  return kTRUE;
440  }
441  if (fFileInfo->fMultipleSelection) {
442  if (fFileInfo->fFilename)
443  delete [] fFileInfo->fFilename;
444  fFileInfo->fFilename = 0;
445  }
446  else {
447  if (fFileInfo->fFilename)
448  delete [] fFileInfo->fFilename;
449  if (gSystem->IsAbsoluteFileName(fTbfname->GetString()))
450  fFileInfo->fFilename = StrDup(fTbfname->GetString());
451  else
452  fFileInfo->fFilename = gSystem->ConcatFileName(fFc->GetDirectory(),
453  fTbfname->GetString());
454  pExpandUnixPathName(*fFileInfo);
455  }
456  if (fCheckB && (fCheckB->GetState() == kButtonDown))
457  fFileInfo->fOverwrite = kTRUE;
458  else
459  fFileInfo->fOverwrite = kFALSE;
460  DeleteWindow();
461  break;
462 
463  case kIDF_CANCEL:
464  if (fFileInfo->fFilename)
465  delete [] fFileInfo->fFilename;
466  fFileInfo->fFilename = 0;
467  if (fFc->GetDisplayStat())
468  fFc->SetDisplayStat(kFALSE);
469  if (fFileInfo->fFileNamesList != 0) {
470  fFileInfo->fFileNamesList->Delete();
471  fFileInfo->fFileNamesList = 0;
472  }
473  DeleteWindow();
474  return kTRUE; //no need to redraw fFc
475  break;
476 
477  case kIDF_CDUP:
478  fFc->ChangeDirectory("..");
479  fTreeLB->Update(fFc->GetDirectory());
480  if (fFileInfo->fIniDir) delete [] fFileInfo->fIniDir;
481  fFileInfo->fIniDir = StrDup(fFc->GetDirectory());
482  if (strcmp(gSystem->WorkingDirectory(),fFc->GetDirectory())) {
483  gSystem->cd(fFc->GetDirectory());
484  }
485  break;
486 
487  case kIDF_NEW_FOLDER: {
488  char answer[128];
489  strlcpy(answer, "(empty)", sizeof(answer));
490  new TGInputDialog(gClient->GetRoot(), GetMainFrame(),
491  "Enter directory name:",
492  answer/*"(empty)"*/, answer);
493 
494  while ( strcmp(answer, "(empty)") == 0 ) {
495  new TGMsgBox(gClient->GetRoot(), GetMainFrame(), "Error",
496  "Please enter a valid directory name.",
497  kMBIconStop, kMBOk);
498  new TGInputDialog(gClient->GetRoot(), GetMainFrame(),
499  "Enter directory name:",
500  answer, answer);
501  }
502  if ( strcmp(answer, "") == 0 ) // Cancel button was pressed
503  break;
504 
505  if (strcmp(gSystem->WorkingDirectory(),fFc->GetDirectory())) {
506  gSystem->cd(fFc->GetDirectory());
507  }
508  if ( gSystem->MakeDirectory(answer) != 0 )
509  new TGMsgBox(gClient->GetRoot(), GetMainFrame(), "Error",
510  TString::Format("Directory name \'%s\' already exists!", answer),
511  kMBIconStop, kMBOk);
512  else {
513  fFc->DisplayDirectory();
514  }
515  gSystem->ChangeDirectory(sdir.Data());
516  break;
517  }
518 
519  case kIDF_LIST:
520  fFv->SetViewMode(kLVList);
521  fDetails->SetState(kButtonUp);
522  break;
523 
524  case kIDF_DETAILS:
525  fFv->SetViewMode(kLVDetails);
526  fList->SetState(kButtonUp);
527  break;
528  }
529  break;
530 
531  case kCM_COMBOBOX:
532  switch (parm1) {
533  case kIDF_FSLB:
534  e = (TGTreeLBEntry *) fTreeLB->GetSelectedEntry();
535  if (e) {
536  fFc->ChangeDirectory(e->GetPath()->GetString());
537  fTreeLB->Update(fFc->GetDirectory());
538  if (fFileInfo->fIniDir) delete [] fFileInfo->fIniDir;
539  fFileInfo->fIniDir = StrDup(fFc->GetDirectory());
540  if (strcmp(gSystem->WorkingDirectory(),fFc->GetDirectory())) {
541  gSystem->cd(fFc->GetDirectory());
542  }
543  }
544  break;
545 
546  case kIDF_FTYPESLB:
547  te = (TGTextLBEntry *) fTypes->GetSelectedEntry();
548  if (te) {
549  //fTbfname->Clear();
550  //fTbfname->AddText(0, fFileInfo->fFileTypes[te->EntryId()+1]);
551  fFileInfo->fFileTypeIdx = te->EntryId();
552  fFc->SetFilter(fFileInfo->fFileTypes[fFileInfo->fFileTypeIdx+1]);
553  fFc->DisplayDirectory();
554  fClient->NeedRedraw(fName);
555  }
556  break;
557  }
558  break;
559 
560  default:
561  break;
562  } // switch(GET_SUBMSG(msg))
563  break;
564 
565  case kC_CONTAINER:
566  switch (GET_SUBMSG(msg)) {
567  case kCT_ITEMCLICK:
568  if (parm1 == kButton1) {
569  if (fFc->NumSelected() > 0) {
570  if ( fFileInfo->fMultipleSelection == kFALSE ) {
571  TGLVEntry *e2 = (TGLVEntry *) fFc->GetNextSelected(&p);
572  if ((e2) && !R_ISDIR(((TGFileItem *)e2)->GetType())) {
573  fTbfname->Clear();
574  if (e2->GetItemName())
575  fTbfname->AddText(0, e2->GetItemName()->GetString());
576  fClient->NeedRedraw(fName);
577  }
578  }
579  else {
580  TString tmpString;
581  TList *tmp = fFc->GetSelectedItems();
582  TObjString *el;
583  TIter next(tmp);
584  if ( fFileInfo->fFileNamesList != 0 ) {
585  fFileInfo->fFileNamesList->Delete();
586  }
587  else {
588  fFileInfo->fFileNamesList = new TList();
589  }
590  while ((el = (TObjString *) next())) {
591  char *s = gSystem->ConcatFileName(fFc->GetDirectory(),
592  el->GetString());
593  tmpString += "\"" + el->GetString() + "\" ";
594  fFileInfo->fFileNamesList->Add(new TObjString(s));
595  delete [] s;
596  }
597  fTbfname->Clear();
598  fTbfname->AddText(0, tmpString);
599  fClient->NeedRedraw(fName);
600  }
601  }
602  }
603  break;
604 
605  case kCT_ITEMDBLCLICK:
606 
607  if (parm1 == kButton1) {
608  if (fFc->NumSelected() == 1) {
609  f = (TGFileItem *) fFc->GetNextSelected(&p);
610  if (f && R_ISDIR(f->GetType())) {
611  fFc->ChangeDirectory(f->GetItemName()->GetString());
612  fTreeLB->Update(fFc->GetDirectory());
613  if (fFileInfo->fIniDir) delete [] fFileInfo->fIniDir;
614  fFileInfo->fIniDir = StrDup(fFc->GetDirectory());
615  if (strcmp(gSystem->WorkingDirectory(),fFc->GetDirectory())) {
616  gSystem->cd(fFc->GetDirectory());
617  }
618  } else {
619  if (!strcmp(fOk->GetTitle(), "Save") &&
620  (!(fCheckB->GetState() == kButtonDown))) {
621 
622  Int_t ret;
623  txt = TString::Format("File name %s already exists, OK to overwrite it?",
624  fTbfname->GetString());
625  new TGMsgBox(fClient->GetRoot(), GetMainFrame(),
626  "File Name Exist", txt.Data(), kMBIconExclamation,
627  kMBYes | kMBNo, &ret);
628  if (ret == kMBNo)
629  return kTRUE;
630  }
631  if (fFileInfo->fFilename)
632  delete [] fFileInfo->fFilename;
633  if (gSystem->IsAbsoluteFileName(fTbfname->GetString()))
634  fFileInfo->fFilename = StrDup(fTbfname->GetString());
635  else
636  fFileInfo->fFilename = gSystem->ConcatFileName(fFc->GetDirectory(),
637  fTbfname->GetString());
638  pExpandUnixPathName(*fFileInfo);
639  if (fCheckB && (fCheckB->GetState() == kButtonDown))
640  fFileInfo->fOverwrite = kTRUE;
641  else
642  fFileInfo->fOverwrite = kFALSE;
643 
644  DeleteWindow();
645  }
646  }
647  }
648 
649  break;
650 
651  default:
652  break;
653 
654  } // switch(GET_SUBMSG(msg))
655  break;
656 
657  case kC_TEXTENTRY:
658  switch (GET_SUBMSG(msg)) {
659  case kTE_ENTER:
660  // same code as under kIDF_OK
661  if (fTbfname->GetTextLength() == 0) {
662  const char *txt2 = "Please provide file name or use \"Cancel\"";
663  new TGMsgBox(fClient->GetRoot(), GetMainFrame(),
664  "Missing File Name", txt2, kMBIconExclamation,
665  kMBOk);
666  return kTRUE;
667  } else if (!gSystem->AccessPathName(fTbfname->GetString(), kFileExists)) {
668  FileStat_t buf;
669  if (!gSystem->GetPathInfo(fTbfname->GetString(), buf) &&
670  R_ISDIR(buf.fMode)) {
671  fFc->ChangeDirectory(fTbfname->GetString());
672  fTreeLB->Update(fFc->GetDirectory());
673  if (strcmp(gSystem->WorkingDirectory(), fFc->GetDirectory())) {
674  gSystem->cd(fFc->GetDirectory());
675  }
676  fName->SetText("", kFALSE);
677  return kTRUE;
678  }
679  else if (!strcmp(fOk->GetTitle(), "Save") &&
680  (!(fCheckB->GetState() == kButtonDown))) {
681  Int_t ret;
682  txt = TString::Format("File name %s already exists, OK to overwrite it?",
683  fTbfname->GetString());
684  new TGMsgBox(fClient->GetRoot(), GetMainFrame(),
685  "File Name Exist", txt.Data(), kMBIconExclamation,
686  kMBYes | kMBNo, &ret);
687  if (ret == kMBNo)
688  return kTRUE;
689  }
690  }
691  if (fFileInfo->fFilename)
692  delete [] fFileInfo->fFilename;
693  fFileInfo->fFilename = gSystem->ConcatFileName(fFc->GetDirectory(),
694  fTbfname->GetString());
695  pExpandUnixPathName(*fFileInfo);
696  if (fCheckB && (fCheckB->GetState() == kButtonDown))
697  fFileInfo->fOverwrite = kTRUE;
698  else
699  fFileInfo->fOverwrite = kFALSE;
700  DeleteWindow();
701  break;
702 
703  default:
704  break;
705  }
706  break;
707 
708  default:
709  break;
710 
711  } // switch(GET_MSG(msg))
712 
713  fClient->NeedRedraw(fFc);
714  return kTRUE;
715 }