KVLVContainer.cpp

/*
$Id: KVLVContainer.cpp,v 1.8 2009/04/28 09:11:29 franklan Exp $
$Revision: 1.8 $
$Date: 2009/04/28 09:11:29 $
*/
 
//Created by KVClassFactory on Wed Apr  9 13:54:31 2008
//Author: franklan
 
#include "KVListView.h"
#include "KVLVContainer.h"
#include "KVLVEntry.h"
#include "TFunction.h"
#include "TRootContextMenu.h"
#include "TSystem.h"
#include <KVBase.h>
#include <TGMsgBox.h>
#include "TGClient.h"
#include "TEnv.h"
using namespace std;
 
 
class KVLVFrameElement : public TGFrameElement {
public:
   KVLVContainer* fContainer; // object container
 
   Bool_t IsSortable() const
   {
      return kTRUE;
   }
   Int_t  Compare(const TObject* obj) const;
};
 
 
 
 
Int_t KVLVFrameElement::Compare(const TObject* obj) const
{
   // Method responsible for sorting the objects in the GUI list
 
   KVLVEntry* f1 = (KVLVEntry*) fFrame;
   KVLVEntry* f2 = (KVLVEntry*)((TGFrameElement*) obj)->fFrame;
   TObject* r1 = (TObject*)f1->GetUserData();
   TObject* r2 = (TObject*)f2->GetUserData();
   return fContainer->fSortType * fContainer->fSortData->Compare(r1, r2);
}
 
 
 
ClassImp(KVLVContainer)
ClassImp(KVLVColumnData)
// KVLVContainer and KVLVColumnData are utility classes used by KVListView
//
 
 
 
 
void KVLVColumnData::GetData(TObject* obj, Long_t& i)
{
   fMethCall.Execute(obj, "", i);
}
 
 
 
 
void KVLVColumnData::GetData(TObject* obj, Double_t& i)
{
   fMethCall.Execute(obj, "", i);
}
 
 
 
 
void KVLVColumnData::GetData(TObject* obj, TString& i)
{
   if (fRetType == kTString) {
      Long_t lret;
      fMethCall.Execute(obj, "", lret);
      i = ((TString*)lret)->Data();
      return;
   }
   Char_t* cret;
   fMethCall.Execute(obj, "", &cret);
   i.Form("%s", cret);
}
 
 
 
 
void KVLVColumnData::GetData(TObject* obj, KVDatime& i)
{
   Long_t lret;
   fMethCall.Execute(obj, "", lret);
   switch (fRetType) {
      case kDatimeRef:
         ((TDatime*)lret)->Copy(i);
         break;
 
      case kDatimeInt:
         i.Set((UInt_t)lret);
   }
}
 
 
 
 
const Char_t* KVLVColumnData::GetDataString(TObject* obj)
{
 
   //  Format string with column data for object
 
   result = "";
   Long_t lret;
   Double_t dret;
   KVDatime dtret;
   switch (fRetType) {
 
      case (Int_t)TMethodCall::kString :
      case (Int_t)kTString :
         GetData(obj, result);
         break;
 
      case (Int_t)TMethodCall::kLong :
         GetData(obj, lret);
         result.Form(fDataFormat, lret);
         break;
 
      case (Int_t)TMethodCall::kDouble :
         GetData(obj, dret);
         result.Form(fDataFormat, dret);
         break;
 
      case kDatimeRef:
      case kDatimeInt:
         GetData(obj, dtret);
         result.Form("%s", dtret.String(fFmt));
         break;
 
      default:
         std::cout << "Error in <KVLVColumnData::GetDataString> : column " << fName << " : this type is not supported "
                   << (Int_t)fMethCall.ReturnType() << std::endl;
         break;
   }
   return result.Data();
}
 
 
 
 
void KVLVColumnData::SetIsDateTime(KVDatime::EKVDateFormat fmt, Bool_t with_reference)
{
   // If data in column is date & time info, use this method to
   //
   //    - set the format for presenting the date & time. These are the formats
   //      available for KVDatime objects, i.e.
   //       KVDatime::kCTIME       - ctime format (default)   e.g. Thu Apr 10 10:48:34 2008
   //       KVDatime::kSQL         - SQL format               e.g. 1997-01-15 20:16:28
   //       KVDatime::kGANACQ      - GANIL acquisition format e.g. 29-SEP-2005 09:42:17.00
   //
   //    - define how the information is obtained from the object. The method
   //      given to the constructor must return either
   //        a reference/pointer to TDatime/KVDatime :                      with_reference=kTRUE (default)
   //        a UInt_t/time_t value (such as returned by TDatime::Convert) : with_reference=kFALSE
 
   fFmt = fmt;
   if (with_reference) {
      fRetType = kDatimeRef;
      // determine class of returned pointer/reference
      TString ptr_type = fMethCall.GetMethod()->GetReturnTypeName();
      fIsKVDatime = ptr_type.Contains("KVDatime");
   }
   else {
      fRetType = kDatimeInt;
   }
}
 
 
 
 
Int_t KVLVColumnData::Compare_date(TObject* o1, TObject* o2)
{
   KVDatime d1, d2;
   GetData(o1, d1);
   GetData(o2, d2);
   return (d1 < d2 ? -1 : (d1 > d2 ? 1 : 0));
}
 
 
 
 
Int_t KVLVColumnData::Compare_string(TObject* o1, TObject* o2)
{
   TString s1, s2;
   GetData(o1, s1);
   GetData(o2, s2);
   return s2.CompareTo(s1);
}
 
 
 
 
Int_t KVLVColumnData::Compare_long(TObject* o1, TObject* o2)
{
   Long_t l1, l2;
   GetData(o1, l1);
   GetData(o2, l2);
   return (l1 < l2 ? -1 : (l1 > l2 ? 1 : 0));
}
 
 
 
 
Int_t KVLVColumnData::Compare_double(TObject* o1, TObject* o2)
{
   Double_t l1, l2;
   GetData(o1, l1);
   GetData(o2, l2);
   return (l1 < l2 ? -1 : (l1 > l2 ? 1 : 0));
}
 
 
 
 
 
Int_t KVLVColumnData::Compare(TObject* ob1, TObject* ob2)
{
   // Compare (for sorting) the two objects based on the type of data stored
   // in this column. The sorting depends on the return type of the data.
   //  for integers:  return 1 if ob1->data < ob2->data etc.
   //  for floats:    return 1 if ob1->data < ob2->data etc.
   //  for strings:   alphabetical sorting using TString::CompareTo
   //  for dates:     chronological order (earliest first)
 
   switch (fRetType) {
 
      case (Int_t)TMethodCall::kString :
         return Compare_string(ob1, ob2);
         break;
 
      case (Int_t)TMethodCall::kLong :
         return Compare_long(ob1, ob2);
         break;
 
      case (Int_t)TMethodCall::kDouble :
         return Compare_double(ob1, ob2);
         break;
 
      case kDatimeRef:
      case kDatimeInt:
         return Compare_date(ob1, ob2);
         break;
 
      default:
         std::cout << "Error in <KVLVColumnData::Compare> : this type is not supported "
                   << (Int_t)fMethCall.ReturnType() << std::endl;
         break;
   }
   return 0;
}
 
 
 
 
 
KVLVContainer::KVLVContainer(const TGWindow* p, UInt_t w, UInt_t h, UInt_t options, Pixel_t back)
   : TGLVContainer(p, w, h, options, back)
{
   default_init();
}
 
 
 
 
KVLVContainer::KVLVContainer(TGCanvas* p, UInt_t options, Pixel_t back)
   : TGLVContainer(p, options, back)
{
   default_init();
}
 
 
 
 
void KVLVContainer::default_init()
{
   // Default initialisation of list view container
   // Multiple selection is enabled
   // The parent list view widget handles messages generated by container.
   // By default, we allow objects' context menu to be opened with right-click,
   // and objects' Browse() method to be executed by double-clicking.
   // This can be modified using AllowContextMenu(kFALSE) and AllowDoubleClick(kFALSE).
 
   SetMultipleSelection(kTRUE);
   fIsResized = kFALSE;
   fSort = kFALSE;
   fSortDir = 0;
   fColData = 0;
   if (fListView) Associate(fListView);
   fContextMenu = new TContextMenu("KVListViewContextMenu");
   Connect("Clicked(TGFrame*,Int_t,Int_t,Int_t)",
           "KVLVContainer", this, "OpenContextMenu(TGFrame*,Int_t,Int_t,Int_t)");
   Connect("DoubleClicked(TGFrame*,Int_t,Int_t,Int_t)",
           "KVLVContainer", this, "DoDoubleClick(TGFrame*,Int_t,Int_t,Int_t)");
   fUserItems = new KVList;
   fUserItems->SetOwner(kFALSE);
   fUserItems->SetCleanup();
 
   fAllowContextMenu = kTRUE;
   fAllowDoubleClick = kTRUE;
   fUserDoubleClickAction = kFALSE;
   fKeepUserItems = kFALSE;
 
   fPickOrderedObjects = new KVList(kFALSE);
   fPickOrderedObjects->SetCleanup();
 
   fContextMenuClassExceptions = 0;
   fObjClass = 0;
 
   fUseObjLabelAsRealClass = kFALSE;
}
 
 
 
 
KVLVContainer::~KVLVContainer()
{
   // Destructor
   if (fSortDir) delete [] fSortDir;
   DeleteColData();
   delete fContextMenu;
   fUserItems->Clear();
   delete fUserItems;
   fPickOrderedObjects->Clear();
   delete fPickOrderedObjects;
   if (fContextMenuClassExceptions) fContextMenuClassExceptions->Clear();
   SafeDelete(fContextMenuClassExceptions);
}
 
 
 
 
 
void KVLVContainer::DeleteColData()
{
   if (fColData) {
      for (int i = 0; i < fNcols; i++) {
         if (fColData[i]) delete fColData[i];
      }
      delete [] fColData;
      fColData = 0;
   }
}
 
 
 
 
 
void KVLVContainer::Sort(int column)
{
   // Sort objects in container according to contents of given column.
 
   fSortData = fColData[column];
   fSortType = fSortDir[column];
   fSort = kTRUE;
 
   fList->Sort();
   //invert sort direction for this column for next time
   fSortDir[column] = -fSortDir[column];
 
   TGCanvas* canvas = (TGCanvas*) this->GetParent()->GetParent();
   canvas->Layout();
 
   fSort = kFALSE;
}
 
 
 
 
 
void KVLVContainer::AddFrame(TGFrame* f, TGLayoutHints* l)
{
   // Add an item to the list
 
   KVLVFrameElement* nw;
 
   nw = new KVLVFrameElement;
   nw->fFrame     = f;
   nw->fLayout    = l ? l : fgDefaultHints;
   nw->fState     = 1;
   nw->fContainer = this;
   fList->Add(nw);
}
 
 
 
 
 
void KVLVContainer::Display(const TCollection* list_of_objects)
{
   // Display the list of objects in the container.
   // If the list is very long (> KVListView.MaxListLength)
   // we pop up a dialog box to ask if all items should be displayed
   // which can take quite a long time
 
   /* remove all items from display, but keep list in memory */
   fKeepUserItems = kTRUE;
   RemoveAll();
   fKeepUserItems = kFALSE;
 
   Int_t max_entries = gEnv->GetValue("KVListView.MaxListLength", 1000);
   if (list_of_objects->GetEntries() > max_entries) {
      Int_t ret;
      new TGMsgBox(gClient->GetRoot(), GetMainFrame(), "Long list",
                   Form("The list contains more than %d items. Do you want to display all items ?",
                        max_entries),
                   kMBIconQuestion, kMBYes | kMBNo, &ret);
      if (ret & kMBNo) {
         // display only the first KVListView.MaxListLength entries
         TList list2;
         Int_t N = 0;
         TIter next(list_of_objects);
         TObject* o;
         while ((o = next()) && (N++) < max_entries) list2.Add(o);
         FillList(&list2);
      }
      else
         FillList(list_of_objects);
   }
   else
      FillList(list_of_objects);
   if (!fIsResized) {
      GetListView()->ResizeColumns();
      fIsResized = kTRUE;
   }
   TGCanvas* canvas = (TGCanvas*) this->GetParent()->GetParent();
   canvas->Layout();
 
   MapSubwindows();
}
 
 
 
 
 
void KVLVContainer::Refresh()
{
   // Redisplay the list of objects in the container.
   // This can be used to refresh the contents of the window.
 
   Display();
}
 
 
 
 
 
void KVLVContainer::RemoveAll()
{
   // When the graphical list is emptied we need to empty the list
   // of user objects also.
 
   if (!fKeepUserItems) fUserItems->Clear();
   TGLVContainer::RemoveAll();
}
 
 
 
 
 
void KVLVContainer::FillList(const TCollection* l)
{
   // Fill list from list
   // Pointers to objects are stored in internal list fUserItems for Refresh()
 
   if (l) {
      fUserItems->Clear();
   }
 
   if (l && !l->GetSize()) return;
 
   TCollection* theList = (TCollection*)(l ? l : fUserItems);
   TIter nxt(theList);
   TObject* obj = 0;
   while ((obj = nxt())) {
      if (l) fUserItems->Add(obj);
      KVLVEntry* ent;
      if (fUseObjLabelAsRealClass && obj->TestBit(KVBase::kIsKaliVedaObject))
         ent = new KVLVEntry(obj, dynamic_cast<KVBase*>(obj)->GetLabel(), this, fNcols, fColData);
      else
         ent = new KVLVEntry(obj, this, fNcols, fColData);
      AddItem(ent);
   }
}
 
 
 
 
 
void KVLVContainer::SetDataColumns(Int_t ncols)
{
   DeleteColData();
   if (fSortDir) delete [] fSortDir;
   fNcols = ncols;
   fSortDir = new int [ncols];
   fColData = new KVLVColumnData* [ncols];
   for (int i = 0; i < ncols; i++) {
      fSortDir[i] = 1;
      fColData[i] = 0;
   }
}
 
 
 
 
 
void KVLVContainer::SetDataColumn(Int_t index, TClass* cl, const Char_t* name, const Char_t* method)
{
   fColData[index] = new KVLVColumnData(cl, name, method);
}
 
 
 
 
 
TGLVEntry* KVLVContainer::FindItemWithData(void* userData)
{
   // Find item with fUserData == userData in container.
 
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      if (f->GetUserData() == userData) {
         return f;
      }
   }
   return 0;
}
 
 
 
 
 
void KVLVContainer::ActivateItemWithData(void* userData, Bool_t activate)
{
   // Find item with fUserData == userData in container and make it active
   // (inactive if activate=kFALSE).
 
   TGFrameElement* el;
   TIter next(fList);
   while ((el = (TGFrameElement*) next())) {
      TGLVEntry* f = (TGLVEntry*) el->fFrame;
      if (f->GetUserData() == userData) {
         if (activate) ActivateItem(el);
         else DeActivateItem(el);
         break;
      }
   }
   fClient->NeedRedraw(this);
}
 
 
 
 
 
TGLVEntry* KVLVContainer::FindItemWithColumnData(const Char_t* colname, const Char_t* data)
{
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   TString val;
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      CD->GetData((TObject*)f->GetUserData(), val);
      if (val == data) return f;
   }
   return 0;
}
 
 
 
 
 
TGLVEntry* KVLVContainer::FindItemWithColumnData(const Char_t* colname, Long_t data)
{
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   Long_t val;
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      CD->GetData((TObject*)f->GetUserData(), val);
      if (val == data) return f;
   }
   return 0;
}
 
 
 
 
 
TGLVEntry* KVLVContainer::FindItemWithColumnData(const Char_t* colname, Double_t data)
{
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   Double_t val;
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      CD->GetData((TObject*)f->GetUserData(), val);
      if (val == data) return f;
   }
   return 0;
}
 
 
 
 
 
void KVLVContainer::ActivateItemWithColumnData(const Char_t* colname, const Char_t* data, Bool_t activ)
{
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   TString val;
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      CD->GetData((TObject*)f->GetUserData(), val);
      if (val == data) {
         if (activ) ActivateItem(el);
         else DeActivateItem(el);
         break;
      }
   }
   fClient->NeedRedraw(this);
}
 
 
 
 
 
void KVLVContainer::ActivateItemWithColumnData(const Char_t* colname, Long_t data, Bool_t activ)
{
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   Long_t val;
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      CD->GetData((TObject*)f->GetUserData(), val);
      if (val == data) {
         printf("%ld\n", data);
         if (activ) ActivateItemFromSelectAll(el);
         else DeActivateItem(el);
         break;
      }
   }
   //fClient->NeedRedraw(this);
}
 
 
 
 
void KVLVContainer::ActivateItemsWithColumnData(const Char_t* colname, const KVNumberList& data, Bool_t activ)
{
   // Activate items in the list whose column 'colname' contains the integer values in 'data'
   //
   // If several items have the same value of 'colname', only the first will be activated.
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   Long_t val;
   data.Begin();
   while (!data.End()) {
      Int_t nd = data.Next();
      //printf("nd=%d\n",nd);
      next.Reset();
      Bool_t find = kFALSE;
      while ((el = (TGFrameElement*) next()) && !find) {
         f = (TGLVEntry*) el->fFrame;
         CD->GetData((TObject*)f->GetUserData(), val);
         if (val == nd) {
            find = kTRUE;
            if (activ) ActivateItemFromSelectAll(el);
            else DeActivateItem(el);
         }
      }
   }
   fClient->NeedRedraw(this);
}
 
 
 
 
void KVLVContainer::ActivateItemsWithColumnData(const Char_t* colname, const run_index_list& data, Bool_t activate)
{
   // Activate items in the list whose column 'colname' contains the run_index_t values in 'data'
   //
   // \note the column must contain strings, i.e. the result of calling run_index_t::as_string()
   //
   // If several items have the same value of 'colname', only the first will be activated.
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   TString val;
 
   for(auto& r_ind : data)
   {
      next.Reset();
      Bool_t find = kFALSE;
      while ((el = (TGFrameElement*) next()) && !find) {
         f = (TGLVEntry*) el->fFrame;
         CD->GetData((TObject*)f->GetUserData(), val);
         if (run_index_t{val} == r_ind) {
            find = kTRUE;
            if (activate) ActivateItemFromSelectAll(el);
            else DeActivateItem(el);
         }
      }
   }
   fClient->NeedRedraw(this);
}
 
 
 
 
 
void KVLVContainer::ActivateItemWithColumnData(const Char_t* colname, Double_t data, Bool_t activ)
{
   KVLVColumnData* CD = fColData[((KVListView*)GetListView())->GetColumnNumber(colname)];
   Double_t val;
   TGFrameElement* el;
   TIter next(fList);
   TGLVEntry* f = 0;
   while ((el = (TGFrameElement*) next())) {
      f = (TGLVEntry*) el->fFrame;
      CD->GetData((TObject*)f->GetUserData(), val);
      if (val == data) {
         if (activ) ActivateItem(el);
         else DeActivateItem(el);
         break;
      }
   }
   fClient->NeedRedraw(this);
}
 
 
 
 
 
void KVLVContainer::OpenContextMenu(TGFrame* f, Int_t but, Int_t x, Int_t y)
{
   // Open context menu when user right-clicks an object in the list.
   // Calling AllowContextMenu(kFALSE) will disable this.
   // We also fill the list fPickOrderedObjects with the selected objects
   // in the order of clicking
   //
   // if fUseObjLabelAsRealClass=kTRUE (and if objects inherit from KVBase)
   // then the context menu opened will be that of the class given by
   // KVBase::GetLabel. The object's KVBase::GetObject() method must
   // return the real object to use.
 
   if (but == kButton1) {
      TGLVEntry* el = (TGLVEntry*)f;
      TObject* ob = (TObject*)el->GetUserData();
      if (!fControlClick || !GetMultipleSelection()) fPickOrderedObjects->Clear();
      if (ob) {
         Bool_t in_list = fPickOrderedObjects->FindObject(ob);
         if (in_list) fPickOrderedObjects->Remove(ob);
         else fPickOrderedObjects->AddLast(ob);
      }
      return;
   }
 
   // context menus globally disabled and no exceptions defined
   if (!fAllowContextMenu && !fContextMenuClassExceptions) return;
 
   if (but == kButton3) {
      //        Error("OpenContextMenu","x=%d y=%d",x,y);
      //        fContextMenu->Popup(x,y,this); return;
 
      TGLVEntry* el = (TGLVEntry*)f;
      TObject* ob = (TObject*)el->GetUserData();
      if (ob) {
 
         TObject* CMob = ob;
         TString CMobClass = ob->ClassName();
 
         if (fUseObjLabelAsRealClass && ob->TestBit(KVBase::kIsKaliVedaObject)) {
            KVBase* bob = dynamic_cast<KVBase*>(ob);
            CMobClass = bob->GetLabel();
            CMob = bob->GetObject();
         }
         // check class context menu status
         if (fContextMenuClassExceptions) {
            if ((!fAllowContextMenu && fContextMenuClassExceptions->FindObject(CMobClass))
                  || (fAllowContextMenu && !fContextMenuClassExceptions->FindObject(CMobClass)))
               fContextMenu->Popup(x, y, CMob);
         }
         else if (fAllowContextMenu)  fContextMenu->Popup(x, y, CMob);
      }
   }
}
 
 
 
 
 
 
void KVLVContainer::DoDoubleClick(TGFrame* f, Int_t but, Int_t, Int_t)
{
   // Perform 'default' action when user double-left-clicks an object in the list.
   // By default, this calls the Browse(TBrowser*) method of the object (defined for TObject,
   // overridden in child classes).
   // If SetDoubleClickAction() was called, the DoubleClickAction(TObject*) signal
   // will be emitted with the address of the selected object.
   // Calling AllowDoubleClick(kFALSE) will disable this.
 
   if (!fAllowDoubleClick) return;
 
   if (but == kButton1) {
      TGLVEntry* el = (TGLVEntry*)f;
      TObject* ob = (TObject*)el->GetUserData();
      if (ob) {
         if (fUserDoubleClickAction) DoubleClickAction(ob);
         else ob->Browse(0);
      }
   }
}
 
 
 
 
 
TObject* KVLVContainer::GetFirstInList()
{
   // Returns first object in currently displayed list
 
   TGFrameElement* f = (TGFrameElement*)fList->First();
   if (f) {
      KVLVEntry* l = (KVLVEntry*)f->fFrame;
      if (l) {
         return (TObject*)l->GetUserData();
      }
   }
   return 0;
}
 
 
 
 
 
TObject* KVLVContainer::GetLastInList()
{
   // Returns last object in currently displayed list
 
   TGFrameElement* f = (TGFrameElement*)fList->Last();
   if (f) {
      KVLVEntry* l = (KVLVEntry*)f->fFrame;
      if (l) {
         return (TObject*)l->GetUserData();
      }
   }
   return 0;
}
 
 
 
 
 
TList* KVLVContainer::GetSelectedItems()
{
   // Create and fill list with all currently selected items (KVLVEntry objects)
   // USER MUST DELETE TLIST AFTER USE!!!
 
   TGFrameElement* el;
   TIter next(fList);
   TList* ret = new TList();
 
   while ((el = (TGFrameElement*) next())) {
      if (el->fFrame->IsActive()) {
         ret->Add(el->fFrame);
      }
   }
   return ret;
}
 
 
 
 
 
 
TList* KVLVContainer::GetSelectedObjects()
{
   // Create and fill list with all currently selected objects (derived from TObject)
   // USER MUST DELETE TLIST AFTER USE!!!
 
   TGFrameElement* el;
   TIter next(fList);
   TList* ret = new TList();
 
   while ((el = (TGFrameElement*) next())) {
      if (el->fFrame->IsActive()) {
         ret->Add((TObject*)((KVLVEntry*)el->fFrame)->GetUserData());
      }
   }
   return ret;
}
 
 
 
 
void KVLVContainer::AddContextMenuClassException(TClass* cl)
{
   // The global context menu status (allowed or not allowed) is set by AllowContextMenu().
   // If required, this can be overridden for specific classes by calling this
   // method for each required class.
   // In this case, any objects in the list of precisely this class (not derived classes)
   // will have the opposite behaviour to that defined by AllowContextMenu(),
   // i.e. if context menus are globally disabled, this method defines the classes for
   // which a context menu is authorised, and vice-versa.
 
   if (!fContextMenuClassExceptions) fContextMenuClassExceptions = new TList;
   fContextMenuClassExceptions->Add(cl);
}
 
 
 
 
 
void KVLVContainer::SetDoubleClickAction(const char* receiver_class, void* receiver, const char* slot)
{
   // Overrides the default 'double-click' action.
   // By default, double-clicking on an object in the list will call the Browse(TBrowser*)
   // method of the selected object.
   // Use this method to override this behaviour.
   // When an object is double-clicked the method 'slot' of the object 'receiver' of class
   // 'receiver_class' will be called. The method in question must have the signature
   //       receiver_class::slot(TObject*)
   // The address of the selected (T)object is passed as argument.
 
   Connect("DoubleClickAction(TObject*)", receiver_class, receiver, slot);
   fUserDoubleClickAction = kTRUE;
}
 
 
 
 
void KVLVContainer::DoubleClickAction(TObject* obj)
{
   Emit("DoubleClickAction(TObject*)", (Long_t)obj);
}
 
 
 
 
Bool_t KVLVContainer::HandleButton(Event_t* event)
{
   // Override TGContainer method in order to set fControlClick flag
   fControlClick = kFALSE;
   if (event->fCode == kButton1 && (event->fState & kKeyControlMask)) fControlClick = kTRUE;
 
   if (event->fCode == kButton3) {
      TList* list = GetSelectedItems();
      if (list->GetSize() == 0) {
         fContextMenu->Popup(event->fXRoot, event->fYRoot, this);
         delete list;
         return kTRUE;
      }
      else if (list->GetSize() == 1) {
         return TGLVContainer::HandleButton(event);
      }
      delete list;
   }
   return TGLVContainer::HandleButton(event);
}
 
 
 
 
void KVLVContainer::AddDataColumn(const char* columnName)
{
   if (!fObjClass) return;
 
   SetDataColumn(fNcols + 1, fObjClass, columnName, "GetName");
}
 
 
 
 
void KVLVContainer::SelectAll()
{
   // Override method in TGContainer
   // If multiple selection is not enabled, do nothing
 
   if (!GetMultipleSelection()) return;
 
   // Select all items in the container.
   // SelectAll() signal emitted.
 
   TIter next(fList);
   TGFrameElement* el;
   TGFrame* fr;
   TGPosition pos = GetPagePosition();
 
   while ((el = (TGFrameElement*) next())) {
      fr = el->fFrame;
      if (!fr->IsActive()) {
         ActivateItemFromSelectAll(el);
      }
   }
   fSelected = fTotal;
 
   SendMessage(fMsgWindow, MK_MSG(kC_CONTAINER, kCT_SELCHANGED),
               fTotal, fSelected);
   Emit("SelectAll()");
 
}
 
 
 
void KVLVContainer::ActivateItemFromSelectAll(TGFrameElement* el)
{
   // Activate item.
   TGFrame* fr = el->fFrame;
   fr->Activate(kTRUE);
 
   if (fLastActiveEl != el) {
      fLastActiveEl = el;
      CurrentChanged(fLastActiveEl->fFrame->GetX(), fLastActiveEl->fFrame->GetY());
      CurrentChanged(fLastActiveEl->fFrame);
      fSelected++;
   }
 
   if (!fSelected) fSelected = 1;
   TGPosition pos = GetPagePosition();
   DrawRegion(fr->GetX() - pos.fX, fr->GetY() - pos.fY, fr->GetWidth(), fr->GetHeight());
}