my $cb = $frame_pids->Checkbutton( 
      -text     => sprintf("%-15s",$pid_nickname), 
      -variable => \$IdxToNickNameSel{$k},
      -font     => ['courier', 10, 'bold'],
      -command  => sub {Refresh($k)}
      );