my $hl = $top->Scrolled(HList       =>
			  -scrollbars => 'se',
			  -bg         => 'white',
			  -header     => 1,
			  -columns    => 4,
			 )->grid(-row     => 1,
				 -column  => 0,
				 -rowspan => 2,
				 -sticky  => 'nsew',
				);
 
  $hl->header(create => 0, -relief => 'raised', -text => 'Label');
  $hl->header(create => 1, -relief => 'raised', -text => 'Type');
  $hl->header(create => 2, -relief => 'raised', -text => 'Accelerator');
  $hl->header(create => 3, -relief => 'raised', -text => 'Command');