sub ::tfLoad_TapeName_Change{
    defined(my $win = $Win32::GUI::Loft::window{winMain}) 
    or return(1);
    
    
    my $inputchar = $win->tfLoad_TapeName->Text();
    
    assert ("tfLoad_TapeName()",$inputchar ne '',"Did not read character!\n");
    
    print_dbg ("tfLoad_TapeName_Change()","I read in:'$inputchar'\n");
    
    
    if ( index ($inputchar,"\r") > -1){
        print_dbg ("tfLoad_TapeName_Change()","Carriage return has been detected ! Yeah!\n");
    }
        
    print_dbg ("tfLoad_TapeName_Change()","I AM A STUB FIX ME!");
    
    return (1);
    
}