sub custom_error_handler {} #just supresses error

sub cb_entry {
    my $win=$_[0]; 
    eval {
        $mw->g_wm_title("this is $win m8"); #this works ok
        #NONE OF THESE DO ANYTHING
        Tkx::break();
        $win->break;
        Tkx::break(".e");
    };
    custom_error_handler($@) if $@;
}