Fixed behavoir when Delete button is hit when description is modified

diff --git a/imgcomment b/imgcomment
index 1b972ac57eea457d6b2107d65d0a7c3b1ea3754a..8b8f6a51136e60e590f5a3b59bd9315412a14362 100755 (executable)
--- a/imgcomment
+++ b/imgcomment
@@ -121,6 +121,9 @@ proc delete_file {index} {
        }       
                
        file delete $filename
+       .info.comment edit reset
+       .info.comment edit modified n
+       
        if {$index == $filecount-1} {
                global current
                set filelist [lrange $filelist 0 [expr $index-1]]