TestFileList Class Reference

Collaboration diagram for TestFileList:

[legend]List of all members.

Public Member Functions
	TestFileList (const TGWindow *p, const TGWindow *main, UInt_t w, UInt_t h)
virtual	~TestFileList ()
void	OnDoubleClick (TGLVEntry *, Int_t)
void	DoMenu (Int_t)
void	CloseWindow ()
Protected Member Functions
void	DisplayFile (const TString &fname)
void	DisplayDirectory (const TString &fname)
void	DisplayObject (const TString &fname, const TString &name)
Protected Attributes
TGTransientFrame *	fMain
TGFileContainer *	fContents
TGPopupMenu *	fMenu

---

Detailed Description

Definition at line 408 of file guitest.C.

---

Constructor & Destructor Documentation

TestFileList::TestFileList	(	const TGWindow *	p,
		const TGWindow *	main,
		UInt_t	w,
		UInt_t	h
	)

Definition at line 1989 of file guitest.C.

{
   // Create transient frame containing a filelist widget.

   TGLayoutHints *lo;

   fMain = new TGTransientFrame(p, main, w, h);
   fMain->Connect("CloseWindow()", "TestDirList", this, "CloseWindow()");
   fMain->DontCallClose(); // to avoid double deletions.

   // use hierarchical cleaning
   fMain->SetCleanup(kDeepCleanup);

   TGMenuBar* mb = new TGMenuBar(fMain);
   lo = new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandX, 0, 0, 1, 1);
   fMain->AddFrame(mb, lo);

   fMenu = mb->AddPopup("&View");
   fMenu->AddEntry("Lar&ge Icons",kLVLargeIcons);
   fMenu->AddEntry("S&mall Icons",kLVSmallIcons);
   fMenu->AddEntry("&List",       kLVList);
   fMenu->AddEntry("&Details",    kLVDetails);
   fMenu->AddSeparator();
   fMenu->AddEntry("&Close",      10);
   fMenu->Connect("Activated(Int_t)","TestFileList",this,"DoMenu(Int_t)");

   TGListView* lv = new TGListView(fMain, w, h);
   lo = new TGLayoutHints(kLHintsExpandX | kLHintsExpandY);
   fMain->AddFrame(lv,lo);

   Pixel_t white;
   gClient->GetColorByName("white", white);
   fContents = new TGFileContainer(lv, kSunkenFrame,white);
   fContents->Connect("DoubleClicked(TGFrame*,Int_t)", "TestFileList", this,
                      "OnDoubleClick(TGLVEntry*,Int_t)");

   // position relative to the parent's window
   fMain->CenterOnParent();

   fMain->SetWindowName("File List Test");
   fMain->MapSubwindows();
   fMain->MapWindow();
   fContents->SetDefaultHeaders();
   fContents->DisplayDirectory();
   fContents->AddFile("..");        // up level directory
   fContents->Resize();
   fContents->StopRefreshTimer();   // stop refreshing
   fMain->Resize();
}

TestFileList::~TestFileList

(

)

[virtual]

Definition at line 2039 of file guitest.C.

{
   // Cleanup.

   delete fContents;
   fMain->DeleteWindow();  // deletes fMain
}

---

Member Function Documentation

void TestFileList::DisplayFile

(

const TString &

fname

)

[protected]

Definition at line 2058 of file guitest.C.

Referenced by OnDoubleClick().

{
   // Display content of ROOT file.

   TFile file(fname);
   fContents->RemoveAll();
   fContents->AddFile(gSystem->WorkingDirectory());
   fContents->SetPagePosition(0,0);
   fContents->SetColHeaders("Name","Title");

   TIter next(file.GetListOfKeys());
   TKey *key;

   while ((key=(TKey*)next())) {
      TString cname = key->GetClassName();
      TString name = key->GetName();
      TGLVEntry *entry = new TGLVEntry(fContents,name,cname);
      entry->SetSubnames(key->GetTitle());
      fContents->AddItem(entry);

      // user data is a filename
      entry->SetUserData((void*)StrDup(fname));
   }
   fMain->Resize();
}

void TestFileList::DisplayDirectory

(

const TString &

fname

)

[protected]

Definition at line 2084 of file guitest.C.

Referenced by OnDoubleClick().

{
   // Display content of directory.

   fContents->SetDefaultHeaders();
   gSystem->ChangeDirectory(fname);
   fContents->ChangeDirectory(fname);
   fContents->DisplayDirectory();
   fContents->AddFile("..");  // up level directory
   fMain->Resize();
}

void TestFileList::DisplayObject	(	const TString &	fname,
		const TString &	name
	)			[protected]

Definition at line 2096 of file guitest.C.

Referenced by OnDoubleClick().

{
   // Browse object located in file.

   TDirectory *sav = gDirectory;

   static TFile *file = 0;
   if (file) delete file;     // close
   file = new TFile(fname);   // reopen

   TObject* obj = file->Get(name);
   if (obj) {
      if (!obj->IsFolder()) {
         obj->Browse(0);
      } else obj->Print();
   }
   gDirectory = sav;
}

void TestFileList::OnDoubleClick	(	TGLVEntry *	,
		Int_t
	)

Definition at line 2115 of file guitest.C.

{
   // Handle double click.

   if (btn != kButton1) return;

   // set kWatch cursor
   ULong_t cur = gVirtualX->CreateCursor(kWatch);
   gVirtualX->SetCursor(fContents->GetId(), cur);

   TString name(f->GetTitle());
   const char* fname = (const char*)f->GetUserData();

   if (fname) {
      DisplayObject(fname, name);
   } else if (name.EndsWith(".root")) {
      DisplayFile(name);
   } else {
      DisplayDirectory(name);
   }
   // set kPointer cursor
   cur = gVirtualX->CreateCursor(kPointer);
   gVirtualX->SetCursor(fContents->GetId(), cur);
}

void TestFileList::DoMenu

(

Int_t

)

Definition at line 2047 of file guitest.C.

{
   // Switch view mode.

   if (mode<10) {
      fContents->SetViewMode((EListViewMode)mode);
   } else {
      delete this;
   }
}

void TestFileList::CloseWindow

(

)

Definition at line 2140 of file guitest.C.

{
   delete this;
}

---

Member Data Documentation

TGTransientFrame* TestFileList::fMain [protected]

Definition at line 413 of file guitest.C.

Referenced by DisplayDirectory(), DisplayFile(), TestFileList(), and ~TestFileList().

TGFileContainer* TestFileList::fContents [protected]

Definition at line 414 of file guitest.C.

Referenced by DisplayDirectory(), DisplayFile(), DoMenu(), OnDoubleClick(), TestFileList(), and ~TestFileList().

TGPopupMenu* TestFileList::fMenu [protected]

Definition at line 415 of file guitest.C.

Referenced by TestFileList().

---

The documentation for this class was generated from the following file:

• /data3/calcul/jacquem/working_dir/Micromegas/micromegasFrameWork/guitest.C

---