Select Code to Download

$b->Subwidget('arrow')->configure(
  -command => [ 'focus', $b->Subwidget('slistbox') ],
);