$C{'Select All'} =
command => 'Select All',<br> -command => [ sub { select_all(@_); }, $c ];