[ROOT] TGListBox in TGShutter

From: Jens Ivar Jordre (jens@tellus.fi.uib.no)
Date: Tue Jul 24 2001 - 20:25:16 MEST 

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

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