{
gROOT->Reset();

l1 = new TGLayoutHints( kLHintsNormal | kLHintsExpandX | kLHintsExpandY );

mf = new TGMainFrame( gClient->GetRoot(), 200, 400 );

hf = new TGHorizontalFrame( mf, 200, 400 );
mf->AddFrame( hf, l1 );

sh = new TGShutter( hf, kSunkenFrame );
hf->AddFrame( sh, l1 );
  
for ( Int_t iT = 0; iT < 6; iT++ ) {

  item = new TGShutterItem( sh, new TGHotString( Form("Item %d", iT) ), iT );
  sh->AddFrame( item, l1 );

  cont = (TGVerticalFrame*) item->GetContainer();

  lb = new TGListBox( cont, iT, kChildFrame );
  lb->Resize( 200, lb->GetDefaultHeight() );
  cont->AddFrame( lb, l1 );
  
  for ( Int_t iE = 0; iE < 20; iE++ ) 
    lb->AddEntry( Form("Entry %2d", iE), iE );

}

mf->MapSubwindows();
mf->Layout();
mf->MapWindow();

}