sub cb_entry {
  my $win=$_[0]; 
  $mw->g_wm_title("this is $win m8");  
  Tkx::break();
}