Re: TGTab

From: Laurent Aphecetche (Laurent.Aphecetche@subatech.in2p3.fr)
Date: Thu Jun 03 1999 - 12:57:34 MEST


Rutger van der Eijk wrote:
> 
> Hi Laurent,
> 
> I need the same feature. 2 weeks ago I tried to implement TGTab::RemoveTab
> myself but failed (complicated isue and lake of time at the moment) I
> think I was rather close though.
> 
> I asked Fons to solve this but it seems he's rather short on time at the
> moment. In the meanwhile maybe you could try yourself. Down here my
> attempt: (sorry for the Dutch)
> 

Hi Rutger,

Thanks for your help.
I modified your proposed code. It fits my uses, but  could you test it
also ?


//___________________________________________________________________________
void TGTab::RemoveTab(Int_t tabIndex)
{
   // Remove container and tabtab of tab with index tabIndex.
   // Does NOT remove the container contents!

   if (tabIndex < 0) return;

   TGFrameElement *elTab, *elCont ;
   Int_t  count = 0 ;

   TIter next(fList) ;
   next() ; // skip first container

   while ((elTab = (TGFrameElement *) next())!=0) {
      elCont = (TGFrameElement *) next();
      if (count == tabIndex) {
         elTab->fFrame->UnmapWindow() ;
         elCont->fFrame->UnmapWindow() ;
         RemoveFrame(elTab->fFrame);  // takes care of deleting
elTab->fFrame
         RemoveFrame(elCont->fFrame); 
         if (tabIndex == fCurrent) { 
           // we should select another tabtab only if the current is the
one we remove
           SetTab(0) ;
         }	 
         break;
      }
      count++;
   }
}
-- 
APHECETCHE Laurent (mailto:Laurent.Aphecetche@subatech.in2p3.fr)       
SUBATECH-Ecole des Mines de Nantes-4 rue Alfred Kastler-44070 NANTES
cedex 03
TEL (+33/0) 2 51 85 84 17 - FAX (+33/0) 2 51 85 84 24
WWW: http://www-subatech.in2p3.fr/~photons



This archive was generated by hypermail 2b29 : Tue Jan 04 2000 - 00:43:34 MET