Re: [ROOT] TGListBox in TGShutter

From: Fons Rademakers (Fons.Rademakers@cern.ch)
Date: Thu Jul 26 2001 - 19:02:37 MEST


Hi Jens,

  I've fixed this problem. Fix is available in the CVS version.
Was due to an UInt_t becoming < 0 (and therefore very large).

Cheers, Fons.



Jens Ivar Jordre wrote:
> 
> Hello rooters.
> 
> I try again, as an eralier mail regarding the same subject didn't give any
> results and I still haven't found a remedy myself.
> 
> Using ROOT v. 3.01/05 on a RH6.2 i686 i would like to have a TGShutter in
> which each TGShutterItem includes a TGListBox. However, when I run the
> example macro below the list box in the first shutter item does not show
> up. Compiling it does not seem to change anything.  Does anyone know about
> a way to make the first list box visible?
> 
> ---- cut here ----
> {
> gROOT->Reset();
> 
> l1 = new TGLayoutHints( kLHintsNormal | kLHintsExpandX | kLHintsExpandY );
> 
> mf = new TGMainFrame( gClient->GetRoot(), 200, 400 );
> 
> sh = new TGShutter( mf, kSunkenFrame );
> mf->AddFrame( sh, l1 );
> 
> for ( Int_t iT = 0; iT < 6; iT++ ) {
> 
>   item = new TGShutterItem( sh, new TGHotString( Form("Item %d", iT) ), iT );
>   cont = (TGVerticalFrame*) item->GetContainer();
> 
>   lb = new TGListBox( cont, iT, kChildFrame );
>   lb->Resize( 200, lb->GetDefaultHeight() );
> 
>   for ( Int_t iE = 0; iE < 20; iE++ )
>     lb->AddEntry( Form("Entry %2d", iE), iE );
> 
>   cont->AddFrame( lb, l1 );
>   sh->AddFrame( item, l1 );
> }
> 
> mf->MapSubwindows();
> mf->Layout();
> mf->MapWindow();
> 
> }
> ---- cut here ----
> 
> Best wishes from
> Jens Ivar Jordre
> 
> --
> Jens Ivar Jřrdre
> e-mail:    JensIvar.Jordre@fi.uib.no
> usually:   Dep. of Phys., Allégt. 55, N-5007 BERGEN, NORWAY
> currently: Bldg 510D, P.O.Box 5000, Upton, NY 11973-5000, USA
> phone:     +1-631-344-4223

-- 
Org:    CERN, European Laboratory for Particle Physics.
Mail:   1211 Geneve 23, Switzerland
E-Mail: Fons.Rademakers@cern.ch              Phone: +41 22 7679248
WWW:    http://root.cern.ch/~rdm/            Fax:   +41 22 7677910



This archive was generated by hypermail 2b29 : Tue Jan 01 2002 - 17:50:53 MET